[gitmo/Moose.git] / t / bugs / subclass_use_base_bug.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;

=pod

This just makes sure that the Bar gets
a metaclass initialized for it correctly.

=cut

{
    package Foo;
    use Moose;

    package Bar;
    use strict;
    use warnings;

    use base 'Foo';
}

my $bar = Bar->new;
isa_ok($bar, 'Bar');
isa_ok($bar, 'Foo');

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