X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F030_roles%2F048_method_modifiers.t;h=fc5274bf8ee1b544825fa3752ee96e0e84a3bda5;hb=be0ed15704fdad5f2d8517380a6f24687432c1dd;hp=4bab997dfba472fbd82f460fc5ed8eef3a978e76;hpb=d26c82ab01d405ba41f1c28cdd2f2c8ffa215de1;p=gitmo%2FMoose.git

diff --git a/t/030_roles/048_method_modifiers.t b/t/030_roles/048_method_modifiers.t
index 4bab997..fc5274b 100644
--- 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,7 +66,7 @@ my $QuuxRole;
     package Quux::Role;
     use Moose::Role;
     { our $TODO; local $TODO = "can't handle regexes yet";
-    ::lives_ok {
+    ::ok ! ::exception {
         after qr/foo|bar/ => sub { $QuuxRole++ }
     };
     }