convert all uses of Test::Exception to Test::Fatal.

[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 58c1ec1..c1f518e 100644 (file)
--- a/t/020_attributes/007_attribute_custom_metaclass.t
+++ b/t/020_attributes/007_attribute_custom_metaclass.t
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 use Test::More;
-use Test::Exception;
+use Test::Fatal;
 
 
 {
@@ -53,9 +53,9 @@ use Test::Exception;
     package Bar;
     use Moose;
 
-    ::lives_ok {
+    ::ok ! ::exception {
         has 'bar' => (metaclass => 'Bar::Meta::Attribute');
-    } '... the attribute metaclass need not be a Moose::Meta::Attribute as long as it behaves';
+    }, '... the attribute metaclass need not be a Moose::Meta::Attribute as long as it behaves';
 }
 
 {
@@ -70,13 +70,13 @@ use Test::Exception;
     package Another::Foo;
     use Moose;
 
-    ::lives_ok {
+    ::ok ! ::exception {
         has 'foo' => (metaclass => 'Foo');
-    } '... the attribute metaclass alias worked correctly';
+    }, '... the attribute metaclass alias worked correctly';
 
-    ::lives_ok {
+    ::ok ! ::exception {
         has 'bar' => (metaclass => 'Bar', is => 'bare');
-    } '... the attribute metaclass alias worked correctly';
+    }, '... the attribute metaclass alias worked correctly';
 }
 
 {