This is 0.39

[perl/modules/indirect.git] / t / 40-threads.t

diff --git a/t/40-threads.t b/t/40-threads.t
index 41ce0a51494f8f10e53f97d510fd8f7ec031c4b2..f7d87bc061cbd792c7973e59aa855920980f89f0 100644 (file)
--- a/t/40-threads.t
+++ b/t/40-threads.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;
 
@@ -66,4 +62,4 @@ $_->join for @threads;
 
 pass 'done';
 
-done_testing(scalar(@threads) * 2 * (2 + 3) + 1);
+done_testing;