[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 (executable)
--- 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;