From: Vincent Pit <vince@profvince.com>
Date: Fri, 11 Nov 2011 18:38:48 +0000 (+0100)
Subject: t/40-threads.t should always run at least one test
X-Git-Tag: rt82562~8
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=b9dca634c59b11dc31a3d2eca413152ac7c92791;p=perl%2Fmodules%2Findirect.git

t/40-threads.t should always run at least one test

No test means failure.
---

diff --git a/t/40-threads.t b/t/40-threads.t
index 33f5837..3f2fe25 100644
--- a/t/40-threads.t
+++ b/t/40-threads.t
@@ -60,4 +60,6 @@ my @threads = map spawn(\&try), 1 .. 10;
 
 $_->join for @threads;
 
-done_testing(scalar(@threads) * 2 * (2 + 3));
+pass 'done';
+
+done_testing(scalar(@threads) * 2 * (2 + 3) + 1);