[gitmo/Role-Tiny.git] / t / role-with-inheritance.t

use strict;
use warnings FATAL => 'all';
use Test::More;

{
  package R1;
  use Role::Tiny;
}
{
  package R2;
  use Role::Tiny;
}
{
  package C1;
  use Role::Tiny::With;
  with 'R1';
}
{
  package C2;
  use Role::Tiny::With;
  our @ISA=('C1');
  with 'R2';
}

ok Role::Tiny::does_role('C1','R1'), "Parent does own role";
ok !Role::Tiny::does_role('C1','R2'), "Parent does not do child's role";
ok Role::Tiny::does_role('C2','R1'), "Child does base's role";
ok Role::Tiny::does_role('C2','R2'), "Child does own role";

done_testing();
Commit	Line	Data
91037640	1	use strict;
	2	use warnings FATAL => 'all';
	3	use Test::More;
	4
	5	{
	6	package R1;
	7	use Role::Tiny;
	8	}
	9	{
	10	package R2;
	11	use Role::Tiny;
	12	}
	13	{
	14	package C1;
	15	use Role::Tiny::With;
	16	with 'R1';
	17	}
	18	{
	19	package C2;
	20	use Role::Tiny::With;
	21	our @ISA=('C1');
	22	with 'R2';
	23	}
	24
	25	ok Role::Tiny::does_role('C1','R1'), "Parent does own role";
	26	ok !Role::Tiny::does_role('C1','R2'), "Parent does not do child's role";
	27	ok Role::Tiny::does_role('C2','R1'), "Child does base's role";
	28	ok Role::Tiny::does_role('C2','R2'), "Child does own role";
	29
	30	done_testing();