]> git.vpit.fr Git - perl/modules/indirect.git/commitdiff
t/40-threads.t should always run at least one test
authorVincent Pit <vince@profvince.com>
Fri, 11 Nov 2011 18:38:48 +0000 (19:38 +0100)
committerVincent Pit <vince@profvince.com>
Fri, 11 Nov 2011 18:38:59 +0000 (19:38 +0100)
No test means failure.

t/40-threads.t

index 33f583795e67afaf2451a95190813618fd2c9788..3f2fe250dd9bd88e4253720d83096263c10513c4 100644 (file)
@@ -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);