Update threads usage in Sub::Quote/Defer tests

[gitmo/Moo.git] / t / sub-defer-threads.t

diff --git a/t/sub-defer-threads.t b/t/sub-defer-threads.t
index a9f5dd6..73ab321 100644 (file)
--- a/t/sub-defer-threads.t
+++ b/t/sub-defer-threads.t
@@ -1,11 +1,13 @@
-use strictures 1;
-use Test::More;
 use Config;
 BEGIN {
-  unless ($Config{useithreads} && eval { require threads } ) {
-    plan skip_all => "your perl does not support ithreads";
+  unless ($Config{useithreads}) {
+    print "1..0 # SKIP your perl does not support ithreads\n";
+    exit 0;
   }
 }
+use threads;
+use strictures 1;
+use Test::More;
 
 use Sub::Defer;
 
@@ -16,14 +18,14 @@ my $one_defer = defer_sub 'Foo::one' => sub {
   $made{'Foo::one'} = sub { 'one' }
 };
 
-ok(threads->create(sub {
+is(threads->create(sub {
   my $info = Sub::Defer::defer_info($one_defer);
-  $info && $info->[0] eq 'Foo::one';
-})->join, 'able to retrieve info in thread');
+  $info && $info->[0];
+})->join, 'Foo::one', 'able to retrieve info in thread');
 
-ok(threads->create(sub {
+is(threads->create(sub {
   undefer_sub($one_defer);
-  $made{'Foo::one'} && $made{'Foo::one'} == \&Foo::one;
-})->join, 'able to undefer in thread');
+  $made{'Foo::one'} && $made{'Foo::one'} == \&Foo::one && 1234;
+})->join, 1234, 'able to undefer in thread');
 
 done_testing;