don't generate man pages on travis

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

diff --git a/t/not-both.t b/t/not-both.t
index b894b1f..bb7079a 100644 (file)
--- a/t/not-both.t
+++ b/t/not-both.t
@@ -4,14 +4,26 @@ 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};
+  ok !eval q { package ZZZ; use Role::Tiny; use Moo; 1; },
+    "can't import Moo into a Role::Tiny role";
+  like $@, qr{Cannot import Moo into a role},
+    " ... with correct error message";
 }
 
 {
   local $@;
-  ok not eval q { package YYY; use Moo::Role; use Moo; 1; };
-  like $@, qr{Cannot import Moo into a role};
+  ok !eval q { package XXX; use Moo; use Moo::Role; 1; },
+    "can't import Moo::Role into a Moo class";
+  like $@, qr{Cannot import Moo::Role into a Moo class},
+    " ... with correct error message";
+}
+
+{
+  local $@;
+  ok !eval q { package YYY; use Moo::Role; use Moo; 1; },
+    "can't import Moo into a Moo role";
+  like $@, qr{Cannot import Moo into a role},
+    " ... with correct error message";
 }
 
 done_testing;