X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F40-threads.t;h=41ce0a51494f8f10e53f97d510fd8f7ec031c4b2;hb=0a8741013832fe465960ec1d6c7618f697f3d21e;hp=33f583795e67afaf2451a95190813618fd2c9788;hpb=1868a5983f5045def63a5cc7edf41454b407f66c;p=perl%2Fmodules%2Findirect.git

diff --git a/t/40-threads.t b/t/40-threads.t
index 33f5837..41ce0a5 100644
--- a/t/40-threads.t
+++ b/t/40-threads.t
@@ -3,8 +3,12 @@
 use strict;
 use warnings;
 
+BEGIN { require indirect; }
+
 use lib 't/lib';
-use indirect::TestThreads;
+use VPIT::TestHelpers (
+ threads => [ 'indirect' => indirect::I_THREADSAFE ],
+);
 
 use Test::Leaner;
 
@@ -60,4 +64,6 @@ my @threads = map spawn(\&try), 1 .. 10;
 
 $_->join for @threads;
 
-done_testing(scalar(@threads) * 2 * (2 + 3));
+pass 'done';
+
+done_testing(scalar(@threads) * 2 * (2 + 3) + 1);