t/011_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 => 4;
   9
  10 BEGIN {
  11     use_ok('Moose');
  12 }
  13
  14 {
  15     package Bar;
  16     use strict;
  17     use warnings;
  18     use Moose;
  19
  20     eval { extends 'Foo'; };
  21     ::ok(!$@, '... loaded Foo superclass correctly');
  22 }
  23
  24 {
  25     package Baz;
  26     use strict;
  27     use warnings;
  28     use Moose;
  29
  30     eval { extends 'Bar'; };
  31     ::ok(!$@, '... loaded (inline) Bar superclass correctly');
  32 }
  33
  34 {
  35     package Foo::Bar;
  36     use strict;
  37     use warnings;
  38     use Moose;
  39
  40     eval { extends 'Foo', 'Bar'; };
  41     ::ok(!$@, '... loaded Foo and (inline) Bar superclass correctly');
  42 }
  43