]> git.vpit.fr Git - perl/modules/indirect.git/blobdiff - t/40-threads.t
Update VPIT::TestHelpers to 3ba261a5
[perl/modules/indirect.git] / t / 40-threads.t
index 33f583795e67afaf2451a95190813618fd2c9788..a6a38aeeab5edcfb98b2b33e319001bfde292585 100644 (file)
@@ -1,10 +1,10 @@
-#!perl -T
+#!perl
 
 use strict;
 use warnings;
 
 use lib 't/lib';
-use indirect::TestThreads;
+use VPIT::TestHelpers threads => [ 'indirect' => 'indirect::I_THREADSAFE()' ];
 
 use Test::Leaner;
 
@@ -60,4 +60,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);