Redid conversion to Test::Fatal

[gitmo/Moose.git] / t / 030_roles / 048_method_modifiers.t

diff --git a/t/030_roles/048_method_modifiers.t b/t/030_roles/048_method_modifiers.t
index 4bab997..4b4bca3 100644 (file)
--- a/t/030_roles/048_method_modifiers.t
+++ b/t/030_roles/048_method_modifiers.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use Test::More;
-use Test::Exception;
+use Test::Fatal;
 
 my $FooRole;
 {
@@ -66,9 +66,9 @@ my $QuuxRole;
     package Quux::Role;
     use Moose::Role;
     { our $TODO; local $TODO = "can't handle regexes yet";
-    ::lives_ok {
+    ::is( ::exception {
         after qr/foo|bar/ => sub { $QuuxRole++ }
-    };
+    }, undef );
     }
 }