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 8e5dfb6..b0b0cf4 100644 (file)
--- a/t/100_bugs/023_DEMOLISH_fails_without_metaclass.t
+++ b/t/100_bugs/023_DEMOLISH_fails_without_metaclass.t
@@ -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.
-ok ! exception { $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.
-ok ! exception { $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;