io_pipe.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
}
}
use Config;
BEGIN {
if(-d "lib" && -f "TEST") {
my $reason;
}
}
exit 0;
}
}
}
my $perl = './perl';
$| = 1;
print "1..10\n";
while (<$pipe>) {
s/^not //;
print;
}
print "ok 2\n";
print $pipe "not ok 3\n" ;
print "ok 4\n";
# Check if can fork with dynamic extensions (bug in CRT):
print "ok $_ # skipped: broken fork\n" for 5..10;
exit 0;
}
if($pid)
{
wait;
}
{
exec 'tr', 'YX', 'ko';
}
else
{
}
if($pid)
{
s/^not //;
print;
}
wait;
}
{
exec 'echo', 'not ok 8';
}
else
{
die;
}
sub broken_pipe {
print "ok 9\n";
}
print $pipe "not ok 9\n";
sleep 1;
print "ok 10\n";