From: Vincent Pit <vince@profvince.com>
Date: Fri, 31 Jul 2015 15:47:32 +0000 (-0300)
Subject: Harden t/40-threads.t and t/42-threads-global.t against stray exits
X-Git-Tag: rt115392~6
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=99b75c6a232a1c88b1fb83bf9f84bad328a30554;p=perl%2Fmodules%2Findirect.git

Harden t/40-threads.t and t/42-threads-global.t against stray exits
---

diff --git a/t/40-threads.t b/t/40-threads.t
index a6a38ae..f7d87bc 100644
--- a/t/40-threads.t
+++ b/t/40-threads.t
@@ -62,4 +62,4 @@ $_->join for @threads;
 
 pass 'done';
 
-done_testing(scalar(@threads) * 2 * (2 + 3) + 1);
+done_testing;
diff --git a/t/42-threads-global.t b/t/42-threads-global.t
index dba1a79..2f68d43 100644
--- a/t/42-threads-global.t
+++ b/t/42-threads-global.t
@@ -38,4 +38,6 @@ my @threads = map spawn(\&try), 1 .. 10;
 
 $_->join for @threads;
 
-done_testing(scalar(@threads) * 3 * 2);
+pass 'done';
+
+done_testing;