io_poll.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
}
}
exit 0;
}
select(STDERR); $| = 1;
select(STDOUT); $| = 1;
print "1..10\n";
print "not "
print "ok 1\n";
print "not "
print "ok 2\n";
print "ok 3 # skipped, doesn't work on non-socket fds\n";
print "ok 4 # skipped, doesn't work on non-socket fds\n";
}
else {
print "not "
print "ok 3\n";
print "not "
print "ok 4\n";
}
print "not "
unless @h == 2;
print "ok 5\n";
print "not "
unless @h == 1;
print "ok 6\n";
print "not "
print "ok 7\n";
print "not "
print "ok 8\n";
print "not "
print "ok 9\n";
print "not "
print "ok 10\n";