From: Vincent Pit <vince@profvince.com>
Date: Mon, 3 Aug 2015 17:06:18 +0000 (-0300)
Subject: Harden t/69-uplevel-threads.t against stray exits
X-Git-Tag: v0.28~10
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Upper.git;a=commitdiff_plain;h=d3f4330e8978050c587078a1f6a6f1c19e7a6318

Harden t/69-uplevel-threads.t against stray exits
---

diff --git a/t/69-uplevel-threads.t b/t/69-uplevel-threads.t
index 11255f7..775add3 100644
--- a/t/69-uplevel-threads.t
+++ b/t/69-uplevel-threads.t
@@ -68,4 +68,4 @@ my @threads = map spawn(\&up1), 1 .. 30;
 
 $_->join for @threads;
 
-done_testing(3 + scalar(@threads) * 3);
+done_testing;