Update VPIT::TestHelpers to 2a6ac0f1

[perl/modules/Scope-Upper.git] / t / 79-uid-threads.t

diff --git a/t/79-uid-threads.t b/t/79-uid-threads.t
index 6f2b06d0b5519aa529aca12c4c652c93a0e910a4..81321c1193a46ca476bdf359d6f261fcd614ec16 100644 (file)
--- a/t/79-uid-threads.t
+++ b/t/79-uid-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;
 
@@ -24,7 +27,7 @@ sub cb {
 
  is uid(UP), $top, "uid(UP) == \$top (in thread $tid)";
 
- usleep rand(1e6);
+ usleep rand(2.5e5);
 
  ok validate_uid($here), "\$here is valid (in thread $tid)";
  ok !validate_uid($up),  "\$up is no longer valid (in thread $tid)";