Redo conversion 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..1969253 100755 (executable)
--- a/t/315_magic.t
+++ b/t/315_magic.t
@@ -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)';
+    is( exception { Class::MOP::load_class($value) }, undef, 'load_class(tied scalar)' );
 
     $value = undef;
     $x->STORE('Class::MOP'); # reset
 
-    ok ! exception {
+    is( exception {
         ok Class::MOP::is_class_loaded($value);
-    }, 'is_class_loaded(tied scalar)';
+    }, undef, 'is_class_loaded(tied scalar)' );
 
     $value = undef;
     $x->STORE(\&Class::MOP::get_code_info); # reset
 
-    ok ! exception {
+    is( exception {
         is_deeply [Class::MOP::get_code_info($value)], [qw(Class::MOP get_code_info)], 'get_code_info(tied scalar)';
-    };
+    }, undef );
 }
 
 done_testing;