Update VPIT::TestHelpers to 2a6ac0f1

[perl/modules/Scope-Upper.git] / t / 59-yield-threads.t

diff --git a/t/59-yield-threads.t b/t/59-yield-threads.t
index 4d6d0b244b2842cc08bc915ff84b93ca0c3345ad..736388e1f674516628ecc55e6f0e5b48ade100bc 100644 (file)
--- a/t/59-yield-threads.t
+++ b/t/59-yield-threads.t
@@ -1,18 +1,18 @@
-#!perl -T
+#!perl
 
 use strict;
 use warnings;
 
-use Scope::Upper qw<yield 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<yield UP>;
+
 our $z;
 
 sub up1 {
@@ -20,7 +20,7 @@ sub up1 {
  local $z = $tid;
  my $p    = "[$tid] up1";
 
- usleep rand(1e6);
+ usleep rand(2.5e5);
 
  my @res = (
   -1,