Require Test::More 0.88 +
[gitmo/MooseX-StrictConstructor.git] / t / basic.t
index b159e77..5252dc9 100644 (file)
--- a/t/basic.t
+++ b/t/basic.t
@@ -3,7 +3,7 @@ use warnings;
 
 use Test::Fatal;
 use Test::Moose qw( with_immutable );
-use Test::More;
+use Test::More 0.88;
 
 {
     package Standard;
@@ -80,26 +80,6 @@ use Test::More;
     has 'size'  => ( is => 'rw', 'init_arg' => undef );
 }
 
-{
-    local $@;
-    eval q[package MyRole; use Moose::Role; use MooseX::StrictConstructor;];
-    like(
-        $@,
-        qr/can only be applied to Moose classes/,
-        "can't apply MXSC to a role"
-    );
-}
-
-{
-    local $@;
-    eval q[package Nothing; use MooseX::StrictConstructor;];
-    like(
-        $@,
-        qr/can only be applied to Moose classes/,
-        "can't apply MXSC to a random package",
-    );
-}
-
 my @classes
     = qw( Standard Stricter Subclass StrictSubclass OtherStrictSubclass Tricky InitArg );