t/103_subclass_use_base_bug.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 3;
   7
   8 BEGIN {
   9     use_ok('Moose');
  10 }
  11
  12 =pod
  13
  14 This just makes sure that the Bar gets
  15 a metaclass initialized for it correctly.
  16
  17 =cut
  18
  19 {
  20     package Foo;
  21     use strict;
  22     use warnings;
  23     use Moose;
  24
  25     package Bar;
  26     use strict;
  27     use warnings;
  28
  29     use base 'Foo';
  30 }
  31
  32 my $bar = Bar->new;
  33 isa_ok($bar, 'Bar');
  34 isa_ok($bar, 'Foo');