1N/A chdir 't' if -d 't'; 1N/A# A modest test: exercises only O_WRONLY, O_CREAT, and O_RDONLY. 1N/A# Have to be modest to be portable: could possibly extend testing 1N/A# also to O_RDWR and O_APPEND, but dunno about the portability of, 1N/A# say, O_TRUNC and O_EXCL, not to mention O_NONBLOCK. 1N/A print "not ok 6 # content '$read' not ok\n"; 1N/A print "not ok 5 # sysread failed: $!\n"; 1N/A print "not ok 4 # sysopen O_RDONLY failed: $!\n"; 1N/A print "not ok 3 # syswrite failed: $!\n"; 1N/A print "not ok 2 # sysopen O_WRONLY failed: $!\n"; 1N/A# Opening of character special devices gets special treatment in doio.c 1N/A# Didn't work as of perl-5.8.0-RC2. 1N/A print "ok 7 # Skipping /dev/null sysopen O_WRONLY test\n";