[PATCH] testsuite quick fixes

--pf9I7BMVVzbSWLtt
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline

More progress.  perl -e is still segfaulting, but that's just
happening within the call to mktemp that the -e causes so I think
that's an easy thing to fix.

If I build against the system malloc (-Uusemymalloc) everything
suddenly gets a lot better.  It might be fun for someone to see where
the bitrot is in malloc.c, but mostly it just hurts my brain.

make test runs, with a few small fixes, mostly to do with expecting
'.' to be in $PATH, and relying on there being an /etc/termcap, both
of which are less likely these days.

7 test scripts still fail, but they seem like real bugs rather than
just dodgyness in the test harness.

-- 
Richard Clamp <[email protected]>

--pf9I7BMVVzbSWLtt
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename="testsuite.patch"

diff -urb perl1.010~/Makefile.SH perl1.010~go/Makefile.SH
--- perl1.010~/Makefile.SH	2002-08-03 15:39:39.000000000 +0100
+++ perl1.010~go/Makefile.SH	2002-08-03 17:12:32.000000000 +0100
@@ -152,7 +152,7 @@
 
 test: perl
 	chmod 755 t/TEST t/base.* t/comp.* t/cmd.* t/io.* t/op.*
-	cd t && (rm -f perl; ln -s ../perl . || ln ../perl .) && TEST
+	cd t && (rm -f perl; ln -s ../perl . || ln ../perl .) && ./TEST
 
 clist:
 	echo $(c) | tr ' ' '\012' >.clist
diff -urb perl1.010~/t/TEST perl1.010~go/t/TEST
--- perl1.010~/t/TEST	2002-08-03 15:29:06.000000000 +0100
+++ perl1.010~go/t/TEST	2002-08-03 17:12:08.000000000 +0100
@@ -25,7 +25,7 @@
 while ($test = shift) {
     print "$test...";
     if ($sharpbang) {
-	open(results,"$test|") || (print "can't run.\n");
+	open(results,"./$test|") || (print "can't run.\n");
     } else {
 	open(script,"$test") || die "Can't run $test";
 	$_ = <script>;
diff -urb perl1.010~/t/base.term perl1.010~go/t/base.term
--- perl1.010~/t/base.term	2002-08-03 15:29:06.000000000 +0100
+++ perl1.010~go/t/base.term	2002-08-03 17:12:08.000000000 +0100
@@ -32,5 +32,5 @@
 open(try, "/dev/null") || (die "Can't open /dev/null.");
 if (<try> eq '') {print "ok 5\n";} else {print "not ok 5\n";}
 
-open(try, "/etc/termcap") || (die "Can't open /etc/termcap.");
+open(try, "/etc/passwd") || (die "Can't open /etc/passwd.");
 if (<try> ne '') {print "ok 6\n";} else {print "not ok 6\n";}

--pf9I7BMVVzbSWLtt--