From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 20 Jul 2003 10:43:32 +0000 (-0500)
Subject: Re: [PATCH] test clean-up for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=98a392ecbb7845edc25cfe254ee96c1a58aa132c;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH] test clean-up for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3F1AB8A4.2070207@mac.com>

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

diff --git a/ext/PerlIO/t/encoding.t b/ext/PerlIO/t/encoding.t
index 06a0ba7..23266a0 100644
--- a/ext/PerlIO/t/encoding.t
+++ b/ext/PerlIO/t/encoding.t
@@ -151,5 +151,5 @@ print "not " unless ($dstr eq $str);
 print "ok 14\n";
 
 END {
-    unlink($grk, $utf, $fail1, $fail2, $russki, $threebyte);
+    1 while unlink($grk, $utf, $fail1, $fail2, $russki, $threebyte);
 }
diff --git a/lib/File/Spec/t/rel2abs2rel.t b/lib/File/Spec/t/rel2abs2rel.t
index 4c2e2bb..34f313c 100644
--- a/lib/File/Spec/t/rel2abs2rel.t
+++ b/lib/File/Spec/t/rel2abs2rel.t
@@ -14,8 +14,8 @@ BEGIN {                                # Set up a tiny script file
     close(F);
 }
 END {
-    unlink("rel2abs2rel$$.pl");
-    unlink("rel2abs2rel$$.tmp");
+    1 while unlink("rel2abs2rel$$.pl");
+    1 while unlink("rel2abs2rel$$.tmp");
 }
 
 use Config;
diff --git a/lib/FileCache/t/01open.t b/lib/FileCache/t/01open.t
index dfbb7b0..fa7f5f0 100644
--- a/lib/FileCache/t/01open.t
+++ b/lib/FileCache/t/01open.t
@@ -10,7 +10,7 @@ BEGIN {
     END;
 }
 END{
-  unlink @files;
+  1 while unlink @files;
 }
 
 
diff --git a/lib/FileCache/t/02maxopen.t b/lib/FileCache/t/02maxopen.t
index 6b3b4c8..603edeb 100644
--- a/lib/FileCache/t/02maxopen.t
+++ b/lib/FileCache/t/02maxopen.t
@@ -12,7 +12,7 @@ BEGIN {
     plan tests=>5;
 }
 END{
-  unlink @files;
+  1 while unlink @files;
 }
 
 {# Test 2: that we actually adhere to maxopen
diff --git a/lib/FileCache/t/03append.t b/lib/FileCache/t/03append.t
index 07edb7a..a6ba6f3 100644
--- a/lib/FileCache/t/03append.t
+++ b/lib/FileCache/t/03append.t
@@ -10,7 +10,7 @@ BEGIN {
     END;
 }
 END{
-  unlink @files;
+  1 while unlink @files;
 }
 
 print "1..2\n";
diff --git a/t/io/argv.t b/t/io/argv.t
index f2f3245..33c4f1a 100755
--- a/t/io/argv.t
+++ b/t/io/argv.t
@@ -127,6 +127,6 @@ unlink "Io_argv3.tmp";
 **PROG**
 
 END {
-    unlink 'Io_argv1.tmp', 'Io_argv1.tmp_bak',
+    1 while unlink 'Io_argv1.tmp', 'Io_argv1.tmp_bak',
 	'Io_argv2.tmp', 'Io_argv2.tmp_bak', 'Io_argv3.tmp';
 }
diff --git a/t/op/stat.t b/t/op/stat.t
index 89046c3..69caf8c 100755
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -40,7 +40,7 @@ my $tmpfile = 'Op_stat.tmp';
 my $tmpfile_link = $tmpfile.'2';
 
 
-unlink $tmpfile;
+1 while unlink $tmpfile;
 open(FOO, ">$tmpfile") || DIE("Can't open temp test file: $!");
 close FOO;
 
@@ -426,3 +426,7 @@ SKIP: {
 	'-l _ croaks after -T _' );
     unlink $linkname or print "# unlink $linkname failed: $!\n";
 }
+
+END {
+    1 while unlink $tmpfile;
+}
diff --git a/t/uni/write.t b/t/uni/write.t
index 717fcab..0d5cedc 100644
--- a/t/uni/write.t
+++ b/t/uni/write.t
@@ -101,4 +101,4 @@ $ulite1
 $bmulti$blite2
 EOEXPECT
 
-unlink 'Uni_write.tmp';
+1 while unlink 'Uni_write.tmp';