]> git.vpit.fr Git - perl/modules/indirect.git/commitdiff
Harden t/40-threads.t and t/42-threads-global.t against stray exits
authorVincent Pit <vince@profvince.com>
Fri, 31 Jul 2015 15:47:32 +0000 (12:47 -0300)
committerVincent Pit <vince@profvince.com>
Fri, 31 Jul 2015 15:47:32 +0000 (12:47 -0300)
t/40-threads.t
t/42-threads-global.t

index a6a38aeeab5edcfb98b2b33e319001bfde292585..f7d87bc061cbd792c7973e59aa855920980f89f0 100644 (file)
@@ -62,4 +62,4 @@ $_->join for @threads;
 
 pass 'done';
 
 
 pass 'done';
 
-done_testing(scalar(@threads) * 2 * (2 + 3) + 1);
+done_testing;
index dba1a7959027e346c8503ce424e883c69c791855..2f68d43404d15bd88ae81dcc183a1d95658c505b 100644 (file)
@@ -38,4 +38,6 @@ my @threads = map spawn(\&try), 1 .. 10;
 
 $_->join for @threads;
 
 
 $_->join for @threads;
 
-done_testing(scalar(@threads) * 3 * 2);
+pass 'done';
+
+done_testing;