Revert most of the conversion to Test::Fatal so we can redo it
[gitmo/Moose.git] / t / 030_roles / 048_method_modifiers.t
index fc5274b..4bab997 100644 (file)
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use Test::More;
-use Test::Fatal;
+use Test::Exception;
 
 my $FooRole;
 {
@@ -66,7 +66,7 @@ my $QuuxRole;
     package Quux::Role;
     use Moose::Role;
     { our $TODO; local $TODO = "can't handle regexes yet";
-    ::ok ! ::exception {
+    ::lives_ok {
         after qr/foo|bar/ => sub { $QuuxRole++ }
     };
     }