X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F69-uplevel-threads.t;h=775add33847963c257f367df82d5d04774ce84f5;hb=bed9ac0713800543385ae073d3c046fb3390190a;hp=9b3c188f89fa563b9f4fa7395d765e0c40eb4db5;hpb=1958b3c51f5a5e55822bc1ce12487535a59e12f8;p=perl%2Fmodules%2FScope-Upper.git

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