X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F600_todo_tests%2F001_exception_reflects_failed_constraint.t;h=c768b909111a1dd7229d5df4fdb898a361951b27;hb=53a4d826caec4b82f5b23e0bc0a4e8e2f44243b9;hp=db7fe695084241f2a6b98fefe65307f2d9abd0d5;hpb=4d5f58e3e5d1326ce5975931df464b36eb5d1b61;p=gitmo%2FMoose.git

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
--- 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;