X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F100_bugs%2F025_universal_methods_wrappable.t;h=1d4a1cfb8a3ebe62b12bcf9b3339c2e46e10a44e;hb=ad46f5244f59757c45306c4a41e195b7aa4b0943;hp=4b5a1345c74d334d12a67c64eaab5a793449c79c;hpb=a28643a3d80d6d9d12ad5e5a51b303b8d037e6c5;p=gitmo%2FMoose.git

diff --git a/t/100_bugs/025_universal_methods_wrappable.t b/t/100_bugs/025_universal_methods_wrappable.t
index 4b5a134..1d4a1cf 100644
--- a/t/100_bugs/025_universal_methods_wrappable.t
+++ b/t/100_bugs/025_universal_methods_wrappable.t
@@ -1,8 +1,8 @@
 use strict;
 use warnings;
 
-use Test::Exception;
-use Test::More tests => 2;
+use Test::Fatal;
+use Test::More;
 
 {
 
@@ -22,8 +22,10 @@ use Test::More tests => 2;
 
     local $TODO = 'UNIVERSAL methods should be wrappable';
 
-    ::lives_ok { with 'FakeBar' } 'applied role';
+    ::is( ::exception { with 'FakeBar' }, undef, 'applied role' );
 
     my $foo = Foo->new;
     ::isa_ok $foo, 'Bar';
 }
+
+done_testing;