From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 23 Jan 2005 14:23:17 +0000 (-0600)
Subject: assorted tempfile clean-up in the test suite
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4e7ee149460a1e80f981e3148f5aa709e27ebacb;p=p5sagit%2Fp5-mst-13.2.git

assorted tempfile clean-up in the test suite
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <41F407B5.7020106@mac.com>

p4raw-id: //depot/perl@23874
---

diff --git a/lib/Test/Simple/t/reset.t b/lib/Test/Simple/t/reset.t
index bc1546b..320fd86 100644
--- a/lib/Test/Simple/t/reset.t
+++ b/lib/Test/Simple/t/reset.t
@@ -27,7 +27,7 @@ my $tmpfile = 'foo.tmp';
 $tb->output($tmpfile);
 $tb->failure_output($tmpfile);
 $tb->todo_output($tmpfile);
-END { unlink $tmpfile }
+END { 1 while unlink $tmpfile }
 
 # This won't print since we just sent output off to oblivion.
 $tb->ok(0, "And a failure for fun");
diff --git a/t/io/fs.t b/t/io/fs.t
index eb305a9..30423f1 100755
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -373,4 +373,4 @@ if ($^O eq 'VMS') {
 ok(-d 'tmp1', "rename on directories working");
 
 # need to remove 'tmp' if rename() in test 28 failed!
-END { rmdir 'tmp1'; rmdir 'tmp'; unlink "Iofs.tmp"; }
+END { rmdir 'tmp1'; rmdir 'tmp'; 1 while unlink "Iofs.tmp"; }
diff --git a/t/io/tell.t b/t/io/tell.t
index 1e1f661..dcb4ee9 100755
--- a/t/io/tell.t
+++ b/t/io/tell.t
@@ -100,7 +100,7 @@ if (tell(ether) == -1)  { print "ok 23\n"; } else { print "not ok 23\n"; }
 
 my $written = "tell_write.txt";
 
-END { unlink($written) }
+END { 1 while unlink($written) }
 
 close($tst);
 open($tst,">$written")  || die "Cannot open $written:$!";