X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F07-parameterized-role.t;h=ba28077094ae1bd710eacf8b7cab56e1471e5dd2;hb=37ecf6ad2030c0e39e6123f682d8f7f61f3ef4b4;hp=09a8ddf66ab4b9b3063be9305cae9d472837dc91;hpb=3272340d933b46c2b98be10b1923170739ce3c8a;p=gitmo%2FMooseX-ClassAttribute.git

diff --git a/t/07-parameterized-role.t b/t/07-parameterized-role.t
index 09a8ddf..ba28077 100644
--- a/t/07-parameterized-role.t
+++ b/t/07-parameterized-role.t
@@ -1,35 +1,49 @@
 use strict;
 use warnings;
 
-use Test::More tests => 3;
-use Test::Exception;
+use Test::More;
+use Test::Fatal;
 
 use Test::Requires {
-    'MooseX::Role::Parameterized' => 0.23, # skip all if not installed
+    'MooseX::Role::Parameterized' => '0',
 };
 
+plan skip_all =>
+    'This test will not pass without changes to MooseX::Role::Parmeterized';
+
 {
     package Role;
+
     use MooseX::Role::Parameterized;
     use MooseX::ClassAttribute;
-    
-    parameter foo => (is => 'rw');
+
+    parameter foo => ( is => 'rw' );
 
     role {
         my $p = shift;
 
-        class_has $p => (is => 'rw');
+        class_has $p => ( is => 'rw' );
     };
+}
 
+{
     package Class;
+
     use Moose;
+
     with 'Role' => { foo => 'foo' };
 }
 
-ok((my $instance = Class->new), 'instance');
+my $instance = Class->new();
+isa_ok( $instance, 'Class' );
 
-lives_and {
-    $instance->foo('bar');
-    is $instance->foo, 'bar';
-} 'used class attribute from parameterized role';
+is(
+    exception {
+        $instance->foo('bar');
+        is( $instance->foo(), 'bar' );
+    },
+    undef,
+    'used class attribute from parameterized role'
+);
 
+done_testing();