/usr/share/doc/perl-Test-Simple/t/Legacy/subtest
NameSizeModeActions
args.t6200644editdlrm
bail_out.t12800644editdlrm
basic.t48120644editdlrm
callback.t10160644editdlrm
die.t5350644editdlrm
do.t2830644editdlrm
events.t3760644editdlrm
fork.t12280644editdlrm
for_do_t.test1120644editdlrm
implicit_done.t4790644editdlrm
line_numbers.t38580644editdlrm
plan.t13770644editdlrm
predicate.t48440644editdlrm
singleton.t7120644editdlrm
threads.t4300644editdlrm
todo.t54620644editdlrm
wstat.t3690644editdlrm
Edit: /usr/share/doc/perl-Test-Simple/t/Legacy/subtest/threads.t (430B)
#!/usr/bin/perl -w use strict; use warnings; use Test2::Util qw/CAN_THREAD/; BEGIN { unless(CAN_THREAD) { require Test::More; Test::More->import(skip_all => "threads are not supported"); } } use threads; use Test::More; subtest 'simple test with threads on' => sub { is( 1+1, 2, "simple test" ); is( "a", "a", "another simple test" ); }; pass("Parent retains sharedness"); done_testing(2);