Redid conversion to Test::Fatal

[gitmo/Moose.git] / t / 100_bugs / 023_DEMOLISH_fails_without_metaclass.t

diff --git a/t/100_bugs/023_DEMOLISH_fails_without_metaclass.t b/t/100_bugs/023_DEMOLISH_fails_without_metaclass.t
index a061244..b0b0cf4 100644 (file)
--- a/t/100_bugs/023_DEMOLISH_fails_without_metaclass.t
+++ b/t/100_bugs/023_DEMOLISH_fails_without_metaclass.t
@@ -2,7 +2,7 @@ use strict;
 use warnings;
 
 use Test::More;
-use Test::Exception;
+use Test::Fatal;
 
 {
     package MyClass;
@@ -21,8 +21,7 @@ Class::MOP::remove_metaclass_by_name('MyClass');
 # The bug happened when DEMOLISHALL called
 # Class::MOP::class_of($object) and did not get a metaclass object
 # back.
-lives_ok { $object->DESTROY }
-'can call DESTROY on an object without a metaclass object in the CMOP cache';
+is( exception { $object->DESTROY }, undef, 'can call DESTROY on an object without a metaclass object in the CMOP cache' );
 
 
 MyClass->meta->make_immutable;
@@ -30,7 +29,6 @@ Class::MOP::remove_metaclass_by_name('MyClass');
 
 # The bug didn't manifest for immutable objects, but this test should
 # help us prevent it happening in the future.
-lives_ok { $object->DESTROY }
-'can call DESTROY on an object without a metaclass object in the CMOP cache (immutable version)';
+is( exception { $object->DESTROY }, undef, 'can call DESTROY on an object without a metaclass object in the CMOP cache (immutable version)' );
 
 done_testing;