This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use tempfile() in tests
authorBram <p5p@perl.wizbit.be>
Mon, 16 Feb 2009 15:07:19 +0000 (16:07 +0100)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 16 Feb 2009 15:07:19 +0000 (16:07 +0100)
t/op/filetest.t
t/op/sysio.t
t/op/taint.t

index 97ce3f9..c73d747 100755 (executable)
@@ -80,13 +80,14 @@ ok( (-s -f 'TEST' > 1), "-s returns real size" );
 ok( -f -s 'TEST' == 1 );
 
 # now with an empty file
-open my $fh, ">", "foo";
+my $tempfile = tempfile();
+open my $fh, ">", $tempfile;
 close $fh;
-ok( -f "foo" );
-is( -s "foo", 0 );
-is( -f -s "foo", 0 );
-is( -s -f "foo", 0 );
-unlink "foo";
+ok( -f $tempfile );
+is( -s $tempfile, 0 );
+is( -f -s $tempfile, 0 );
+is( -s -f $tempfile, 0 );
+unlink $tempfile;
 
 # test that _ is a bareword after filetest operators
 
index 435be12..dd63a15 100755 (executable)
@@ -4,6 +4,7 @@ print "1..42\n";
 
 chdir('op') || chdir('t/op') || die "sysio.t: cannot look for myself: $!";
 @INC = '../../lib';
+require '../test.pl';
 
 open(I, 'sysio.t') || die "sysio.t: cannot find myself: $!";
 
@@ -60,7 +61,7 @@ print "ok 9\n";
 print 'not ' unless ($a eq "#!.\0\0erl");
 print "ok 10\n";
 
-$outfile = 'sysio.out';
+$outfile = tempfile();
 
 open(O, ">$outfile") || die "sysio.t: cannot write $outfile: $!";
 
index 2dc1bb9..01ab368 100755 (executable)
@@ -285,7 +285,7 @@ my $TEST = catfile(curdir(), 'TEST');
 # How about command-line arguments? The problem is that we don't
 # always get some, so we'll run another process with some.
 SKIP: {
-    my $arg = catfile(curdir(), tempfile());
+    my $arg = tempfile();
     open PROG, "> $arg" or die "Can't create $arg: $!";
     print PROG q{
        eval { join('', @ARGV), kill 0 };