Lines Matching refs:tempfile
18 my $tempfile = File::Spec->catfile( $tempdir, "tempfile.txt" );
29 1 while unlink $tempfile;
52 open my $fh, ">", $tempfile;
54 utime $mtime, $mtime, $tempfile;
58 $timestamp{$url_basename} = (stat $tempfile)[9];
70 my @call_args = %options ? ($url, $tempfile, \%options) : ($url, $tempfile);
85 ok( -e $tempfile, "$label file created" );
89 is( (stat($tempfile))[9], $timestamp{$url_basename},
94 ok( ! -e $tempfile, "$label file not created" );