X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F42-threads-global.t;h=2f68d43404d15bd88ae81dcc183a1d95658c505b;hb=206be5711384ca587b0a022ba93a5fc602d3c03d;hp=b3e0bff156d30e8ab673e59f568b6b57e23d50da;hpb=922f734434b9a4bacae95a124dcb9724a4d64259;p=perl%2Fmodules%2Findirect.git

diff --git a/t/42-threads-global.t b/t/42-threads-global.t
index b3e0bff..2f68d43 100644
--- a/t/42-threads-global.t
+++ b/t/42-threads-global.t
@@ -1,14 +1,10 @@
-#!perl -T
+#!perl
 
 use strict;
 use warnings;
 
-BEGIN { require indirect; }
-
 use lib 't/lib';
-use VPIT::TestHelpers (
- threads => [ 'indirect' => indirect::I_THREADSAFE ],
-);
+use VPIT::TestHelpers threads => [ 'indirect' => 'indirect::I_THREADSAFE()' ];
 
 use Test::Leaner;
 
@@ -42,4 +38,6 @@ my @threads = map spawn(\&try), 1 .. 10;
 
 $_->join for @threads;
 
-done_testing(scalar(@threads) * 3 * 2);
+pass 'done';
+
+done_testing;