Beginning of dzilization

[gitmo/Moose.git] / t / 100_bugs / 025_universal_methods_wrappable.t

diff --git a/t/100_bugs/025_universal_methods_wrappable.t b/t/100_bugs/025_universal_methods_wrappable.t
index 4b5a134..1d4a1cf 100644 (file)
--- 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;