ftmp-posix.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
# Test for File::Temp - POSIX functions
BEGIN {
chdir 't' if -d 't';
}
use strict;
ok(1);
# TMPNAM - scalar
print "# TMPNAM: in a scalar context: \n";
# simply check that the file does not exist
# Not a 100% water tight test though if another program
# has managed to create one in the meantime.
print "# TMPNAM file name: $tmpnam\n";
# TMPNAM list context
# Not strict posix behaviour
# File is opened - make sure it exists
# Unlink it - a possible NFS issue again if TMPDIR is not a local disk
if ($status) {
} else {
}
# TMPFILE
# print something to it
# rewind it
# Read from it
} else {
# Skip all the remaining tests
foreach (1..3) {
}
}