X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=blobdiff_plain;f=t%2F80-threads.t;fp=t%2F80-threads.t;h=62a23b24e886a1b714b14baefd79947dd1447042;hp=73359c3da8c727c364c7eecd9f01b92eed6ce327;hb=0c5eb4d19c4c97d9b26e6a3152e447d37db0a36e;hpb=edd9e21a17be0119fc8cdb76fd2d0d26cf913463

diff --git a/t/80-threads.t b/t/80-threads.t
index 73359c3..62a23b2 100644
--- 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;