X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F020_attributes%2F007_attribute_custom_metaclass.t;h=6985c10353c317c25e230431859b23e8765873e8;hb=ea829e77f657851c78cd65dd2b7ed05ce6c6ffff;hp=c1f518e54525e9e6fd8e8d7830badd05162748c0;hpb=be0ed15704fdad5f2d8517380a6f24687432c1dd;p=gitmo%2FMoose.git

diff --git a/t/020_attributes/007_attribute_custom_metaclass.t b/t/020_attributes/007_attribute_custom_metaclass.t
index c1f518e..6985c10 100644
--- a/t/020_attributes/007_attribute_custom_metaclass.t
+++ b/t/020_attributes/007_attribute_custom_metaclass.t
@@ -53,9 +53,9 @@ use Test::Fatal;
     package Bar;
     use Moose;
 
-    ::ok ! ::exception {
+    ::is( ::exception {
         has 'bar' => (metaclass => 'Bar::Meta::Attribute');
-    }, '... the attribute metaclass need not be a Moose::Meta::Attribute as long as it behaves';
+    }, undef, '... the attribute metaclass need not be a Moose::Meta::Attribute as long as it behaves' );
 }
 
 {
@@ -70,13 +70,13 @@ use Test::Fatal;
     package Another::Foo;
     use Moose;
 
-    ::ok ! ::exception {
+    ::is( ::exception {
         has 'foo' => (metaclass => 'Foo');
-    }, '... the attribute metaclass alias worked correctly';
+    }, undef, '... the attribute metaclass alias worked correctly' );
 
-    ::ok ! ::exception {
+    ::is( ::exception {
         has 'bar' => (metaclass => 'Bar', is => 'bare');
-    }, '... the attribute metaclass alias worked correctly';
+    }, undef, '... the attribute metaclass alias worked correctly' );
 }
 
 {