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=b6fdec846faf07af4a1754df7ee7bca0c6ccd912;hp=4c77671dda150d068101bb5e98b86a75e3c87bcf;hpb=68b6146c1c7074aea0737301d7dfa00b1ffeebf1;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 4c77671..a0f7a81 100644
--- a/t/600_todo_tests/005_moose_and_threads.t
+++ b/t/600_todo_tests/005_moose_and_threads.t
@@ -3,12 +3,9 @@
 use strict;
 use warnings;
 
-use Test::More no_plan => 1;
+use Test::More;
 use Test::Exception;
 
-BEGIN {
-    use_ok('Moose');
-}
 
 =pod
 
@@ -17,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
@@ -41,6 +38,4 @@ $thr->join();
     fail('Moose type constraints and threads dont get along');
 }
 
-
-
-
+done_testing;