[gitmo/Mouse.git] / t / 900_bug / 002_does_role_should_search_parent.t

use strict;
use warnings;
use Test::More tests => 2;

# Klass->does_role should check the parent classes.

{
    package R1;
    use Mouse::Role;
}

{
    package C1;
    use Mouse;
    with 'R1';
}

{
    package C2;
    use Mouse;
    extends 'C1';
}

ok(C1->meta->does_role('R1'));
ok(C2->meta->does_role('R1'));
Commit	Line	Data
0d6273f0	1	use strict;
	2	use warnings;
	3	use Test::More tests => 2;
	4
	5	# Klass->does_role should check the parent classes.
	6
	7	{
	8	package R1;
	9	use Mouse::Role;
	10	}
	11
	12	{
	13	package C1;
	14	use Mouse;
	15	with 'R1';
	16	}
	17
	18	{
	19	package C2;
	20	use Mouse;
	21	extends 'C1';
	22	}
	23
	24	ok(C1->meta->does_role('R1'));
	25	ok(C2->meta->does_role('R1'));
	26