[gitmo/Moo.git] / t / not-both.t

use strictures 1;
use Test::More;

# Compile-time exceptions, so need stringy eval; hence not Test::Fatal.
{
  local $@;
  ok not eval q { package XXX; use Moo; use Moo::Role; 1; };
  like $@, qr{Cannot import Moo::Role into a Moo class};
}

{
  local $@;
  ok not eval q { package YYY; use Moo::Role; use Moo; 1; };
  like $@, qr{Cannot import Moo into a role};
}

done_testing;
Commit	Line	Data
1791ba32	1	use strictures 1;
	2	use Test::More;
	3
	4	# Compile-time exceptions, so need stringy eval; hence not Test::Fatal.
	5	{
88862a82	6	local $@;
	7	ok not eval q { package XXX; use Moo; use Moo::Role; 1; };
	8	like $@, qr{Cannot import Moo::Role into a Moo class};
1791ba32	9	}
	10
	11	{
88862a82	12	local $@;
	13	ok not eval q { package YYY; use Moo::Role; use Moo; 1; };
	14	like $@, qr{Cannot import Moo into a role};
1791ba32	15	}
	16
	17	done_testing;