Revert most of the conversion to Test::Fatal so we can redo it

[gitmo/Moose.git] / t / 600_todo_tests / 002_various_role_features.t

diff --git a/t/600_todo_tests/002_various_role_features.t b/t/600_todo_tests/002_various_role_features.t
index 992d1c8..8b6bccc 100644 (file)
--- a/t/600_todo_tests/002_various_role_features.t
+++ b/t/600_todo_tests/002_various_role_features.t
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 use Test::More;
-use Test::Fatal;
+use Test::Exception;
 
 sub req_or_has ($$) {
     my ( $role, $method ) = @_;
@@ -73,7 +73,7 @@ sub req_or_has ($$) {
     # this doesn't fail but it produces a requires in the role
     # the order doesn't matter
     has twist => ( is => "rw" );
-    ::ok ! ::exception { with qw(Dancer) };
+    ::lives_ok { with qw(Dancer) };
 
     package Dancer::Something;
     use Moose;
@@ -83,7 +83,7 @@ sub req_or_has ($$) {
     has twist => ( is => "rw" );
 
     {
-        ::ok ! ::exception { with qw(Dancer) };
+        ::lives_ok { with qw(Dancer) };
     }
 
     package Dancer::80s;
@@ -93,7 +93,7 @@ sub req_or_has ($$) {
     # but due to the deferrence logic that doesn't actually work
     {
         local our $TODO = "attribute accessor in role doesn't satisfy role requires";
-        ::ok ! ::exception { with qw(Dancer::Robot) };
+        ::lives_ok { with qw(Dancer::Robot) };
     }
 
     package Foo;
@@ -135,7 +135,7 @@ sub req_or_has ($$) {
 
     {
         local our $TODO = "attrs and methods from a role should clash";
-        ::ok ::exception { with qw(Tree Dog) },
+        ::dies_ok { with qw(Tree Dog) }
     }
 }