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

4 files changed, 5 insertions, 5 deletions

diff --git a/lib/File/Spec/t/rel2abs2rel.t b/lib/File/Spec/t/rel2abs2rel.t
index 4c2e2bb993..34f313c4dc 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 dfbb7b0a0b..fa7f5f0e08 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 6b3b4c86e7..603edebc7f 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 07edb7aa79..a6ba6f3aac 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";