t/100_bugs/004_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 Moose;
  22
  23     package Bar;
  24     use strict;
  25     use warnings;
  26
  27     use base 'Foo';
  28 }
  29
  30 my $bar = Bar->new;
  31 isa_ok($bar, 'Bar');
  32 isa_ok($bar, 'Foo');