Redid conversion to Test::Fatal

[gitmo/Moose.git] / t / 300_immutable / 005_multiple_demolish_inline.t

diff --git a/t/300_immutable/005_multiple_demolish_inline.t b/t/300_immutable/005_multiple_demolish_inline.t
index c6b5bdb..a4637ff 100644 (file)
--- a/t/300_immutable/005_multiple_demolish_inline.t
+++ b/t/300_immutable/005_multiple_demolish_inline.t
@@ -26,20 +26,20 @@ use Test::Fatal;
     sub DEMOLISH { }
 }
 
-ok ! exception {
+is( exception {
     Bar->new();
-}, 'Bar->new()';
+}, undef, 'Bar->new()' );
 
-ok ! exception {
+is( exception {
     Bar->meta->make_immutable;
-}, 'Bar->meta->make_immutable';
+}, undef, 'Bar->meta->make_immutable' );
 
 is( Bar->meta->get_method('DESTROY')->package_name, 'Bar',
     'Bar has a DESTROY method in the Bar class (not inherited)' );
 
-ok ! exception {
+is( exception {
     Foo->meta->make_immutable;
-}, 'Foo->meta->make_immutable';
+}, undef, 'Foo->meta->make_immutable' );
 
 is( Foo->meta->get_method('DESTROY')->package_name, 'Foo',
     'Foo has a DESTROY method in the Bar class (not inherited)' );