-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
# Test for mktemp family of commands in File::Temp
# Use STANDARD safe level for these tests
+BEGIN {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ require Test; import Test;
+ plan(tests => 9);
+}
+
use strict;
-use Test;
-BEGIN { plan tests => 9 }
use File::Spec;
use File::Path;
use File::Temp qw/ :mktemp unlink0 /;
+use FileHandle;
ok(1);
ok( (-e $template) );
# Autoflush
-$fh->autoflush(1) if $] >= 5.006;
+$fh->autoflush(1) if $] >= 5.006;
# Try printing something to the file
my $string = "woohoo\n";
if ($^O eq 'MSWin32') {
sleep 3;
}
-ok( unlink0($fh, $template) );
-
+my $status = unlink0($fh, $template);
+if ($status) {
+ ok( $status );
+} else {
+ skip("Skip test failed probably due to \$TMPDIR being on NFS",1);
+}
# MKSTEMPS
-# File with suffix. This is created in the current directory
+# File with suffix. This is created in the current directory so
+# may be problematic on NFS
$template = "suffixXXXXXX";
my $suffix = ".dat";
# This fails if you are running on NFS
# If this test fails simply skip it rather than doing a hard failure
-my $status = unlink0($fh, $fname);
+$status = unlink0($fh, $fname);
if ($status) {
ok($status);
} else {
- skip("Skip test failed probably due to NFS",1)
+ skip("Skip test failed probably due to cwd being on NFS",1)
}
# MKDTEMP