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=64ea2b82c9f0691b476e1bc24433da54f364331b;hb=415572b72d8e6cc4a0fd8c05466ea60ee25a375b;hp=b56a90f48175093388f99f80f806bcc48b4d2f54;hpb=9f171ae1b45784b3819edd0fe233503a980a9a34;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 b56a90f..64ea2b8 100644
--- a/t/600_todo_tests/005_moose_and_threads.t
+++ b/t/600_todo_tests/005_moose_and_threads.t
@@ -3,9 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 1;
-use Test::Exception;
-
+use Test::More;
 
 
 =pod
@@ -15,21 +13,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 +37,4 @@ $thr->join();
     fail('Moose type constraints and threads dont get along');
 }
 
-
-
-
+done_testing;