t/010_basics/002_require_superclasses.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use lib 't/lib', 'lib';
   7
   8 use Test::More tests => 5;
   9
  10
  11
  12 {
  13     package Bar;
  14     use Moose;
  15
  16     eval { extends 'Foo'; };
  17     ::ok(!$@, '... loaded Foo superclass correctly');
  18 }
  19
  20 {
  21     package Baz;
  22     use Moose;
  23
  24     eval { extends 'Bar'; };
  25     ::ok(!$@, '... loaded (inline) Bar superclass correctly');
  26 }
  27
  28 {
  29     package Foo::Bar;
  30     use Moose;
  31
  32     eval { extends 'Foo', 'Bar'; };
  33     ::ok(!$@, '... loaded Foo and (inline) Bar superclass correctly');
  34 }
  35
  36 {
  37     package Bling;
  38     use Moose;
  39
  40     eval { extends 'No::Class'; };
  41     my $e = $@;
  42     ::ok($e, '... could not find the superclass (as expected)');
  43     ::like($e, qr{Can't locate No/Class\.pm in \@INC}, '... and got the error we expected');
  44 }
  45