-#!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;
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;
();
}
$_->join for @t;
pass 'done';
+
+done_testing;