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

[perl/modules/Scope-Upper.git] / t / 69-uplevel-threads.t

diff --git a/t/69-uplevel-threads.t b/t/69-uplevel-threads.t
index 9af7b3075a0d66892c6dd3c3af0d4c44226c3728..775add33847963c257f367df82d5d04774ce84f5 100644 (file)
--- a/t/69-uplevel-threads.t
+++ b/t/69-uplevel-threads.t
@@ -1,10 +1,13 @@
-#!perl -T
+#!perl
 
 use strict;
 use warnings;
 
 use lib 't/lib';
-use Scope::Upper::TestThreads;
+use VPIT::TestHelpers (
+ threads => [ 'Scope::Upper' => 'Scope::Upper::SU_THREADSAFE()' ],
+ 'usleep',
+);
 
 use Test::Leaner;
 
@@ -39,7 +42,7 @@ sub up1 {
  local $z = $tid;
  my $p    = "[$tid] up1";
 
- usleep rand(1e6);
+ usleep rand(2.5e5);
 
  my @res = (
   -2,
@@ -65,4 +68,4 @@ my @threads = map spawn(\&up1), 1 .. 30;
 
 $_->join for @threads;
 
-done_testing(3 + scalar(@threads) * 3);
+done_testing;