]> git.vpit.fr Git - perl/modules/Scope-Upper.git/commitdiff
t/59-unwind-threads.t should always run at least one test
authorVincent Pit <vince@profvince.com>
Sat, 22 Oct 2011 17:37:07 +0000 (19:37 +0200)
committerVincent Pit <vince@profvince.com>
Sat, 22 Oct 2011 17:37:07 +0000 (19:37 +0200)
No test means failure.

t/59-unwind-threads.t

index 5780fb05f151e1c77a25ed9d74dbdb9fa058399a..56457670f74be22c6864d1814ab6346c36688ed9 100644 (file)
@@ -41,4 +41,6 @@ my @threads = map spawn(\&up1), 1 .. 30;
 
 $_->join for @threads;
 
-done_testing(scalar @threads);
+pass 'done';
+
+done_testing(scalar(@threads) + 1);