1N/A chdir 't' if -d 't'; 1N/A# print "Pe" to a file from a parent process and "rl" to the same file 1N/A# from a child process. If buffers are flushed appropriately, the 1N/A# file should contain "Perl". We'll see... 1N/A# This attempts to mirror the #ifdef forest found in perl.h so that we 1N/A# know when to run these tests. If that forest ever changes, change 1N/A# it here too or expect test gratuitous test failures. 1N/A print "1..0 # Skip: fflush(NULL) or equivalent not available\n"; 1N/A# This script will be used as the command to execute from 1N/A$| = 0; # we want buffered output 1N/A print "ok 1 # skipped: no fork\n"; 1N/A my $f = "ff-fork-$$"; 1N/A print file_eq($f, "Perl") ? "ok 1\n" : "not ok 1\n"; 1N/A print file_eq($f, "Perl") ? "ok $t\n" : "not ok $t\n"; 1N/A sprintf('print qq[ok $_] for (%d..%d)', $t, $t+2));