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

[gitmo/Class-MOP.git] / t / 303_RT_39001_fix.t

diff --git a/t/303_RT_39001_fix.t b/t/303_RT_39001_fix.t
index e9dea6d..210d715 100644 (file)
--- a/t/303_RT_39001_fix.t
+++ b/t/303_RT_39001_fix.t
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 use Test::More;
-use Test::Fatal;
+use Test::Exception;
 
 use Class::MOP;
 
@@ -16,9 +16,9 @@ This tests a bug sent via RT #39001
     use metaclass;
 }
 
-like exception {
+throws_ok {
     Foo->meta->superclasses('Foo');
-}, qr/^Recursive inheritance detected/, "error occurs when extending oneself";
+} qr/^Recursive inheritance detected/, "error occurs when extending oneself";
 
 {
     package Bar;
@@ -29,12 +29,12 @@ like exception {
 # if DEBUG_NO_META is set)
 @Foo::ISA = ();
 
-ok ! exception {
+lives_ok {
     Foo->meta->superclasses('Bar');
-}, "regular subclass";
+} "regular subclass";
 
-like exception {
+throws_ok {
     Bar->meta->superclasses('Foo');
-}, qr/^Recursive inheritance detected/, "error occurs when Bar extends Foo, when Foo is a Bar";
+} qr/^Recursive inheritance detected/, "error occurs when Bar extends Foo, when Foo is a Bar";
 
 done_testing;