X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F600_todo_tests%2F005_moose_and_threads.t;h=a0f7a81b2f9ea0fb5340191b379e95cf9b2c2c27;hb=a6d3794f353dd356cc916044ae525ce6e23dfc99;hp=112e7bd861cc64427b62b99b9248f5d4bf49567c;hpb=e606ae5f848070d889472329819c95f5ba763ca3;p=gitmo%2FMoose.git

diff --git a/t/600_todo_tests/005_moose_and_threads.t b/t/600_todo_tests/005_moose_and_threads.t
index 112e7bd..a0f7a81 100644
--- a/t/600_todo_tests/005_moose_and_threads.t
+++ b/t/600_todo_tests/005_moose_and_threads.t
@@ -3,11 +3,10 @@
 use strict;
 use warnings;
 
-use Test::More no_plan => 1;
+use Test::More;
 use Test::Exception;
 
 
-
 =pod
 
 See this for some details:
@@ -15,21 +14,21 @@ See this for some details:
 http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=476579
 
 Here is the basic test case, it segfaults, so I am going
-to leave it commented out. Basically it seems that there 
-is some bad interaction between the ??{} construct that 
+to leave it commented out. Basically it seems that there
+is some bad interaction between the ??{} construct that
 is used in the "parser" for type definitions and threading
 so probably the fix would involve removing the ??{} usage
 for something else.
 
-use threads; 
+use threads;
 
 {
-    package Foo; 
-    use Moose; 
-    has "bar" => (is => 'rw', isa => "Str | Num"); 
+    package Foo;
+    use Moose;
+    has "bar" => (is => 'rw', isa => "Str | Num");
 }
 
-my $thr = threads->create(sub {}); 
+my $thr = threads->create(sub {});
 $thr->join();
 
 =cut
@@ -39,6 +38,4 @@ $thr->join();
     fail('Moose type constraints and threads dont get along');
 }
 
-
-
-
+done_testing;