t/not-both.t

   1 use strictures 1;
   2 use Test::More;
   3
   4 # Compile-time exceptions, so need stringy eval; hence not Test::Fatal.
   5 {
   6   local $@;
   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";
  11 }
  12
  13 {
  14   local $@;
  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";
  19 }
  20
  21 {
  22   local $@;
  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";
  27 }
  28
  29 done_testing;