1use Test2::Tools::Tiny; 2use strict; 3use warnings; 4 5use Test2::IPC; 6use Test::Builder; 7use Test2::Util qw/CAN_REALLY_FORK/; 8 9skip_all 'No IPC' unless CAN_REALLY_FORK; 10 11ok(1, "pre-test"); 12 13my $pid = fork; 14die "Could not fork: $!" unless defined $pid; 15 16if ($pid) { 17 my $ret = waitpid($pid, 0); 18 is($ret, $pid, "Got correct pid"); 19 is($?, 0, "Exited without issue"); 20} 21else { 22 ok(1, "A test"); 23 24 my $obj = bless({foo => \*STDOUT}, 'FOO'); 25 26 Test::Builder->new->skip($obj, $obj); 27 28 ok(1, "Another Test"); 29 30 exit 0; 31} 32 33done_testing; 34