Select Code to Download

use Test::More tests => 2;

...
# child process

ok(1, "Second test");

1..2
ok 1 - First test
ok 2 - Second test
# Looks like you planned 2 tests but only ran 1.

print "1..2\n";
print "ok 1 - First test\n";
...
    exit 0;
}
print "ok 2 - Second test\n";

# perl -MTest::Harness -e 'runtests("test_plain_fork.t", "test_more_fo
+rk.t")'

...
----------------------------------------------------------------------
+---------
test_more_fork.t    1   256     2    0   0.00%  ??
Failed 1/2 test scripts, 50.00% okay. 0/4 subtests failed, 100.00% oka
+y.