[gitmo/Moo.git] / t / extends-role.t

use strictures 1;
use Test::More;
use Test::Fatal;

{
    package MyRole;
    use Moo::Role;
}
{
    package MyClass;
    use Moo;
    ::isnt ::exception { extends "MyRole"; }, undef, "Can't extend role";
}

done_testing;
Commit	Line	Data
88aaa04a	1	use strictures 1;
	2	use Test::More;
	3	use Test::Fatal;
	4
	5	{
	6	package MyRole;
	7	use Moo::Role;
	8	}
	9	{
	10	package MyClass;
	11	use Moo;
	12	::isnt ::exception { extends "MyRole"; }, undef, "Can't extend role";
	13	}
	14
	15	done_testing;