/usr/share/doc/perl-Test-Simple/t/regression
NameSizeModeActions
642_persistent_end.t4450644editdlrm
662-tbt-no-plan.t5640644editdlrm
684-nested_todo_diag.t5200644editdlrm
694_note_diag_return_values.t4010644editdlrm
696-intercept_skip_all.t10050644editdlrm
721-nested-streamed-subtest.t29560644editdlrm
757-reset_in_subtest.t2890644editdlrm
812-todo.t6540644editdlrm
817-subtest-todo.t9400644editdlrm
862-intercept_tb_todo.t14600644editdlrm
buffered_subtest_plan_buffered.t6240644editdlrm
builder_does_not_init.t3620644editdlrm
errors_facet.t9860644editdlrm
fork_first.t5520644editdlrm
inherit_trace.t5480644editdlrm
no_name_in_subtest.t1350644editdlrm
todo_and_facets.t9060644editdlrm
Edit: /usr/share/doc/perl-Test-Simple/t/regression/fork_first.t (552B)
use Test2::Tools::Tiny; use strict; use warnings; use Test2::IPC; use Test2::Util qw/CAN_THREAD CAN_REALLY_FORK/; skip_all 'No IPC' unless CAN_REALLY_FORK || CAN_THREAD; if (CAN_REALLY_FORK) { my $pid = fork; die "Failed to fork: $!" unless defined $pid; if ($pid) { waitpid($pid, 0) } else { ok(1, "Pass fork"); exit 0; } } if (CAN_THREAD) { require threads; my $thread = threads->create( sub { ok(1, "Pass thread"); } ); $thread->join; } done_testing;