develooper Front page | perl.perl5.porters | Postings from September 2000

[ID 20000901.017] [PATCH] Basic test failure in an untidy world

Thread Next
From:
Mike Guy
Date:
September 1, 2000 08:49
Subject:
[ID 20000901.017] [PATCH] Basic test failure in an untidy world
Message ID:
E13Ut4J-0002sd-00@draco.cus.cam.ac.uk
Running "make test" after a previous failure, I got

base/rs..............error Is a directory Is a directory opening at base/rs.t line 10.
FAILED at test 1

because some other test had left a directory  t/foo  lying around.

Brute force seems the obvious fix, as in the attached patch for bleedperl.


Mike Guy

--- ./t/base/rs.t.orig	Tue Aug  1 03:32:08 2000
+++ ./t/base/rs.t	Fri Sep  1 16:42:08 2000
@@ -6,6 +6,8 @@
 $teststring = "1\n12\n123\n1234\n1234\n12345\n\n123456\n1234567\n";
 
 # Create our test datafile
+unlink './foo';		# in case junk left around
+rmdir './foo';
 open TESTFILE, ">./foo" or die "error $! $^E opening";
 binmode TESTFILE;
 print TESTFILE $teststring;

End of patch


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About