Fix error message generation when array or hash ref member fails type check in native...

[gitmo/Moose.git] / t / 020_attributes / 007_attribute_custom_metaclass.t

diff --git a/t/020_attributes/007_attribute_custom_metaclass.t b/t/020_attributes/007_attribute_custom_metaclass.t
index c1f518e..6985c10 100644 (file)
--- 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' );
 }
 
 {