[gitmo/Mouse.git] / t / 050_metaclasses / failing / 040_moose_nonmoose_metatrait_init_order.t

use strict;
use warnings;
{
    package My::Role;
    use Mouse::Role;
}
{
    package SomeClass;
    use Mouse -traits => 'My::Role';
}
{
    package SubClassUseBase;
    use base qw/SomeClass/;
}
{
    package SubSubClassUseBase;
    use base qw/SubClassUseBase/;
}

use Test::More tests => 2;
use Mouse::Util qw/find_meta does_role/;

my $subsubclass_meta = Mouse->init_meta( for_class => 'SubSubClassUseBase' );
ok does_role($subsubclass_meta, 'My::Role'),
    'SubSubClass metaclass does role from grandparent metaclass';
my $subclass_meta = find_meta('SubClassUseBase');
ok does_role($subclass_meta, 'My::Role'),
    'SubClass metaclass does role from parent metaclass';
Commit	Line	Data
41888e7d	1	use strict;
	2	use warnings;
	3	{
	4	package My::Role;
	5	use Mouse::Role;
	6	}
	7	{
	8	package SomeClass;
	9	use Mouse -traits => 'My::Role';
	10	}
	11	{
	12	package SubClassUseBase;
	13	use base qw/SomeClass/;
	14	}
	15	{
	16	package SubSubClassUseBase;
	17	use base qw/SubClassUseBase/;
	18	}
	19
	20	use Test::More tests => 2;
	21	use Mouse::Util qw/find_meta does_role/;
	22
	23	my $subsubclass_meta = Mouse->init_meta( for_class => 'SubSubClassUseBase' );
	24	ok does_role($subsubclass_meta, 'My::Role'),
	25	'SubSubClass metaclass does role from grandparent metaclass';
	26	my $subclass_meta = find_meta('SubClassUseBase');
	27	ok does_role($subclass_meta, 'My::Role'),
	28	'SubClass metaclass does role from parent metaclass';