X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F54-unwind-threads.t;h=af6a3ca4acee5d98460b21d98450595caf4530dd;hb=c6120af4f7a3990cebfdd10df0523832f560abd3;hp=56457670f74be22c6864d1814ab6346c36688ed9;hpb=6f291620e2f901595a01b388f891d93bd9de88e8;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/t/54-unwind-threads.t b/t/54-unwind-threads.t
index 5645767..af6a3ca 100644
--- a/t/54-unwind-threads.t
+++ b/t/54-unwind-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;
 
@@ -17,7 +20,7 @@ sub up1 {
  local $z = $tid;
  my $p    = "[$tid] up1";
 
- usleep rand(1e6);
+ usleep rand(2.5e5);
 
  my @res = (
   -1,