Update VPIT::TestHelpers to ba865c42

[perl/modules/Lexical-Types.git] / t / 80-threads.t

diff --git a/t/80-threads.t b/t/80-threads.t
index 73359c3da8c727c364c7eecd9f01b92eed6ce327..62a23b24e886a1b714b14baefd79947dd1447042 100644 (file)
--- a/t/80-threads.t
+++ b/t/80-threads.t
@@ -1,12 +1,14 @@
-#!perl -T
+#!perl
 
 use strict;
 use warnings;
 
 use lib 't/lib';
-use Lexical::Types::TestThreads;
+use VPIT::TestHelpers (
+ threads => [ 'Lexical::Types' => 'Lexical::Types::LT_THREADSAFE()' ],
+);
 
-use Test::More 'no_plan';
+use Test::Leaner;
 
 my $threads = 10;
 my $runs    = 2;
@@ -19,8 +21,8 @@ my $runs    = 2;
   my ($file, $line) = (caller(0))[1, 2];
   my $where = "at $file line $line in thread $tid";
   local $Test::Builder::Level = $Test::Builder::Level + 1;
-  Test::More::is($_[0], __PACKAGE__, "base type is correct $where");
-  Test::More::is($_[2], 'Tag', "original type is correct $where");
+  Test::Leaner::is($_[0], __PACKAGE__, "base type is correct $where");
+  Test::Leaner::is($_[2], 'Tag', "original type is correct $where");
   $_[1] = $tid;
   ();
  }
@@ -61,3 +63,5 @@ my @t = map spawn(\&try), 1 .. $threads;
 $_->join for @t;
 
 pass 'done';
+
+done_testing;