4 # Compile-time exceptions, so need stringy eval; hence not Test::Fatal.
7 ok !eval q { package ZZZ; use Role::Tiny; use Moo; 1; },
8 "can't import Moo into a Role::Tiny role";
9 like $@, qr{Cannot import Moo into a role},
10 " ... with correct error message";
15 ok !eval q { package XXX; use Moo; use Moo::Role; 1; },
16 "can't import Moo::Role into a Moo class";
17 like $@, qr{Cannot import Moo::Role into a Moo class},
18 " ... with correct error message";
23 ok !eval q { package YYY; use Moo::Role; use Moo; 1; },
24 "can't import Moo into a Moo role";
25 like $@, qr{Cannot import Moo into a role},
26 " ... with correct error message";