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 2259d6a..b417e48 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::Exception;
+use Test::Fatal;
 
 use Class::MOP;
 
@@ -55,21 +55,21 @@ use Tie::Scalar;
 {
     my $x = tie my $value, 'Tie::StdScalar', 'Class::MOP';
 
-    lives_ok{ Class::MOP::load_class($value) } 'load_class(tied scalar)';
+    ok ! exception { Class::MOP::load_class($value) }, 'load_class(tied scalar)';
 
     $value = undef;
     $x->STORE('Class::MOP'); # reset
 
-    lives_and{
+    ok ! exception {
         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
 
-    lives_and{
+    ok ! exception {
         is_deeply [Class::MOP::get_code_info($value)], [qw(Class::MOP get_code_info)], 'get_code_info(tied scalar)';
-    }
+    };
 }
 
 done_testing;