Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
22 lines (16 sloc) 339 Bytes
#!perl -w
use strict;
use constant HAS_THREADS => eval { require threads };
use if !HAS_THREADS, 'Test::More',
skip_all => 'multi-threading tests';
use Test::More;
use Types;
my @threads;
for (1 .. 3) {
push @threads, threads->create(sub {
# use Types here
pass;
});
}
$_->join for @threads;
done_testing;