No need for explicit copyright year
[gitmo/MooseX-Singleton.git] / t / 006-cooperative.t
index ed5d2c0..4d6d832 100644 (file)
@@ -3,14 +3,10 @@ use warnings;
 
 use Test::More;
 
-BEGIN {
-    eval "require MooseX::StrictConstructor; use Test::Exception; 1;";
-    plan skip_all =>
-        'This test requires MooseX::StrictConstructor and Test::Exception'
-        if $@;
-}
-
-plan 'no_plan';
+use Test::Requires {
+    'MooseX::StrictConstructor' => 0.16,
+    'Test::Fatal' => 0.001,
+};
 
 {
     package MySingleton;
@@ -18,10 +14,12 @@ plan 'no_plan';
     use MooseX::Singleton;
     use MooseX::StrictConstructor;
 
-    has 'attrib' => is => 'rw';
+    has 'attrib' => ( is => 'rw' );
 }
 
-throws_ok {
+like( exception {
     MySingleton->new( bad_name => 42 );
-}
-qr/Found unknown attribute/, 'singleton class also has a strict constructor';
+},
+qr/Found unknown attribute/, 'singleton class also has a strict constructor');
+
+done_testing;