t/100_bugs/004_subclass_use_base_bug.t

   1 #!/usr/bin/perl
   2 # This is automatically generated by author/import-moose-test.pl.
   3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
   4 use t::lib::MooseCompat;
   5
   6 use strict;
   7 use warnings;
   8
   9 use Test::More;
  10
  11 =pod
  12
  13 This just makes sure that the Bar gets
  14 a metaclass initialized for it correctly.
  15
  16 =cut
  17
  18 {
  19     package Foo;
  20     use Mouse;
  21
  22     package Bar;
  23     use strict;
  24     use warnings;
  25
  26     use base 'Foo';
  27 }
  28
  29 my $bar = Bar->new;
  30 isa_ok($bar, 'Bar');
  31 isa_ok($bar, 'Foo');
  32
  33 done_testing;