[gitmo/Mouse.git] / t / 100_bugs / 004_subclass_use_base_bug.t

#!/usr/bin/perl
# This is automatically generated by author/import-moose-test.pl.
# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
use t::lib::MooseCompat;

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 Mouse;

    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
4c98ebb0	1	#!/usr/bin/perl
ee5e6a03	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;
4c98ebb0	5
	6	use strict;
	7	use warnings;
	8
ee5e6a03	9	use Test::More;
4c98ebb0	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');
53f38c53	31	isa_ok($bar, 'Foo');
ee5e6a03	32
ee5e6a03	33	done_testing;