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

[gitmo/Class-MOP.git] / t / 315_magic.t

diff --git a/t/315_magic.t b/t/315_magic.t
index b417e48..2259d6a 100755 (executable)
--- a/t/315_magic.t
+++ b/t/315_magic.t
@@ -5,7 +5,7 @@ use strict;
 use warnings;
 
 use Test::More;
-use Test::Fatal;
+use Test::Exception;
 
 use Class::MOP;
 
@@ -55,21 +55,21 @@ use Tie::Scalar;
 {
     my $x = tie my $value, 'Tie::StdScalar', 'Class::MOP';
 
-    ok ! exception { Class::MOP::load_class($value) }, 'load_class(tied scalar)';
+    lives_ok{ Class::MOP::load_class($value) } 'load_class(tied scalar)';
 
     $value = undef;
     $x->STORE('Class::MOP'); # reset
 
-    ok ! exception {
+    lives_and{
         ok Class::MOP::is_class_loaded($value);
-    }, 'is_class_loaded(tied scalar)';
+    } 'is_class_loaded(tied scalar)';
 
     $value = undef;
     $x->STORE(\&Class::MOP::get_code_info); # reset
 
-    ok ! exception {
+    lives_and{
         is_deeply [Class::MOP::get_code_info($value)], [qw(Class::MOP get_code_info)], 'get_code_info(tied scalar)';
-    };
+    }
 }
 
 done_testing;