X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F305_RT_41255.t;h=aeeb14c524a22836a27486669c3eaa11ed29abbe;hb=13b8971fa6cc4edf7d55a2e5482820d62ba38f16;hp=15e5c43fb63837948d54538b587636eb1a839f9d;hpb=7ac8038438a75837e0d4976dd45cb53f77124fb4;p=gitmo%2FClass-MOP.git

diff --git a/t/305_RT_41255.t b/t/305_RT_41255.t
index 15e5c43..aeeb14c 100644
--- a/t/305_RT_41255.t
+++ b/t/305_RT_41255.t
@@ -1,6 +1,6 @@
 use strict;
 use Test::More;
-use Test::Exception;
+use Test::Fatal;
 
 use Class::MOP;
 
@@ -27,7 +27,7 @@ my %methods = map { $_ => $meta->find_method_by_name($_) } 'm1' .. 'm5';
 
 while (my ($name, $meta_method) = each %methods) {
     is $meta_method->fully_qualified_name, "Derived::${name}";
-    throws_ok { $meta_method->execute } qr/Undefined subroutine .* called at/;
+    like exception { $meta_method->execute }, qr/Undefined subroutine .* called at/;
 }
 
 {
@@ -45,7 +45,7 @@ EOC
 
 while (my ($name, $meta_method) = each %methods) {
     is $meta_method->fully_qualified_name, "Derived::${name}";
-    lives_ok { $meta_method->execute };
+    ok ! exception { $meta_method->execute },;
 }
 
 done_testing;