use strict;
use utf8;
my $pid = fork();
die $! unless defined $pid;
if ($pid) { # parent
subtest 'Heh', sub {
ok { 1 }; # Parent
diag "Diagnostic from parent";
waitpid($pid, 0);
};
} else {
ok { 0 }; # Child
diag "Diagnostic from child";
exit 0;
}
done_testing;