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

[gitmo/Moose.git] / t / 600_todo_tests / 001_exception_reflects_failed_constraint.t

diff --git a/t/600_todo_tests/001_exception_reflects_failed_constraint.t b/t/600_todo_tests/001_exception_reflects_failed_constraint.t
index db7fe69..c768b90 100644 (file)
--- a/t/600_todo_tests/001_exception_reflects_failed_constraint.t
+++ b/t/600_todo_tests/001_exception_reflects_failed_constraint.t
@@ -7,27 +7,29 @@
 use strict;
 use warnings;
 
-use Test::More tests => 4;
+use Test::More;
 use Test::Exception;
 
 BEGIN {
-       use_ok('Moose::Util::TypeConstraints');           
+    use_ok('Moose::Util::TypeConstraints');
 }
 
 lives_ok {
-       subtype 'ParentConstraint' => as 'Str' => where {0};
+    subtype 'ParentConstraint' => as 'Str' => where {0};
 } 'specified parent type constraint';
 
 my $tc;
 lives_ok {
-       $tc = subtype 'ChildConstraint' => as 'ParentConstraint' => where {1};
+    $tc = subtype 'ChildConstraint' => as 'ParentConstraint' => where {1};
 } 'specified child type constraint';
 
 {
-       my $errmsg = $tc->validate();
+    my $errmsg = $tc->validate();
 
-       TODO: {
-               local $TODO = 'Not yet supported';
-               ok($errmsg !~ /Validation failed for 'ChildConstraint'/, 'exception references failing parent constraint');
-       };
+    TODO: {
+        local $TODO = 'Not yet supported';
+        ok($errmsg !~ /Validation failed for 'ChildConstraint'/, 'exception references failing parent constraint');
+    };
 }
+
+done_testing;