From: Mike Guy <mjtg@cam.ac.uk>
Date: Fri, 1 Sep 2000 16:49:27 +0000 (+0100)
Subject: [ID 20000901.017] [PATCH] Basic test failure in an untidy world
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a3318c00b76dd58714c012a4fdc948dc1bd47fe1;p=p5sagit%2Fp5-mst-13.2.git

[ID 20000901.017] [PATCH] Basic test failure in an untidy world
Message-Id: <E13Ut4J-0002sd-00@draco.cus.cam.ac.uk>

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

diff --git a/t/base/rs.t b/t/base/rs.t
index 021d699..e470f3a 100755
--- a/t/base/rs.t
+++ b/t/base/rs.t
@@ -6,6 +6,8 @@ print "1..14\n";
 $teststring = "1\n12\n123\n1234\n1234\n12345\n\n123456\n1234567\n";
 
 # Create our test datafile
+1 while unlink 'foo';                # in case junk left around
+rmdir 'foo';
 open TESTFILE, ">./foo" or die "error $! $^E opening";
 binmode TESTFILE;
 print TESTFILE $teststring;