X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F018_anon_class.t;h=1b0687911a75edde2f982b4a6170d020d20f3a48;hb=871e9eb5d05b8b9986b2de3f4095f65a31159c56;hp=d314e7ac695ece3506a8141c265c42eb85bf56db;hpb=8371f3de4e9525ab751008dca4a89e6df65345a6;p=gitmo%2FClass-MOP.git

diff --git a/t/018_anon_class.t b/t/018_anon_class.t
index d314e7a..1b06879 100644
--- a/t/018_anon_class.t
+++ b/t/018_anon_class.t
@@ -2,7 +2,7 @@ use strict;
 use warnings;
 
 use Test::More;
-use Test::Exception;
+use Test::Fatal;
 
 use Class::MOP;
 
@@ -31,18 +31,18 @@ my $anon_class_id;
             [$anon_class->superclasses],
             [],
             '... got an empty superclass list');
-        lives_ok {
+        is( exception {
             $anon_class->superclasses('Foo');
-        } '... can add a superclass to anon class';
+        }, undef, '... can add a superclass to anon class' );
         is_deeply(
             [$anon_class->superclasses],
             [ 'Foo' ],
             '... got the right superclass list');
 
         ok(!$anon_class->has_method('foo'), '... no foo method');
-        lives_ok {
+        is( exception {
             $anon_class->add_method('foo' => sub { "__ANON__::foo" });
-        } '... added a method to my anon-class';
+        }, undef, '... added a method to my anon-class' );
         ok($anon_class->has_method('foo'), '... we have a foo method now');
 
         $instance = $anon_class->new_object();