Lines Matching refs:tmpfile
41 my $tmpfile = 'Op_stat.tmp';
42 my $tmpfile_link = $tmpfile.'2';
45 1 while unlink $tmpfile;
46 open(FOO, ">$tmpfile") || DIE("Can't open temp test file: $!");
49 open(FOO, ">$tmpfile") || DIE("Can't open temp test file: $!");
79 my $lnk_result = eval { link $tmpfile, $tmpfile_link };
84 ok( chmod(0644, $tmpfile), 'chmoded tmp testfile' );
86 my($nlink, $mtime, $ctime) = (stat($tmpfile))[$NLINK, $MTIME, $CTIME];
127 # truncate and touch $tmpfile.
128 open(F, ">$tmpfile") || DIE("Can't open temp test file: $!");
131 ok(-z $tmpfile, '-z on empty file');
132 ok(! -s $tmpfile, ' and -s');
134 open(F, ">$tmpfile") || DIE("Can't open temp test file: $!");
138 ok(! -z $tmpfile, '-z on non-empty file');
139 ok(-s $tmpfile, ' and -s');
143 ok( chmod(0000, $tmpfile), 'chmod 0000' );
157 ok(!-r $tmpfile, " -r");
160 ok(!-w $tmpfile, " -w");
166 ok(! -x $tmpfile, ' -x');
172 # in ms windows, $tmpfile inherits owner uid from directory
174 eval { chown $>,$tmpfile; 1 } or print "# $@" ;
176 ok(chmod(0700,$tmpfile), 'chmod 0700');
177 ok(-r $tmpfile, ' -r');
178 ok(-w $tmpfile, ' -w');
184 ok(-x $tmpfile, ' -x');
187 ok( -f $tmpfile, ' -f');
188 ok(! -d $tmpfile, ' !-d');
197 my $symlink_rslt = eval { symlink $tmpfile, $tmpfile_link };
205 ok(-o $tmpfile, '-o');
207 ok(-e $tmpfile, '-e');
399 $_ = $tmpfile;
403 unlink $tmpfile or print "# unlink failed: $!\n";
451 1 while unlink $tmpfile;