From d34845d4d33deacba936f38cfdb150a300263335 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 8 May 2004 01:21:16 +0000
Subject: [PATCH] Fixed typo, made the random test targets more useful.

---
 ansi-tests/makefile | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

diff --git a/ansi-tests/makefile b/ansi-tests/makefile
index fe6b6798..0fe62f86 100644
--- a/ansi-tests/makefile
+++ b/ansi-tests/makefile
@@ -6,7 +6,7 @@ test:
 	echo "(load \"doit.lsp\")" | $(LISP) | tee test.out
 
 test-compiled:
-	@rmdir -rf scratch
+	@rm -rf scratch
 	echo "(load \"compileit.lsp\")" | $(LISP) | tee test.out
 
 test-unixport:
@@ -16,8 +16,13 @@ random-test:
 	echo "(load \"gclload1.lsp\") \
 		(compile-and-load \"random-int-form.lsp\")  \
 		(in-package :cl-test) \
-		(let ((x (cl-test::test-random-integer-forms 1000 3 1000))) \
-		  (print (cl-test::prune-results x)) nil)" | $(LISP)
+		(let ((x (cl-test::test-random-integer-forms 1000 6 100))) \
+		  (with-open-file (*standard-output* \"failures.lsp\" \
+			 :direction :output \
+			 :if-exists :append \
+			 :if-does-not-exist :create) \
+		      (mapc #'print (cl-test::prune-results x))) \
+		   (quit)))" | $(LISP)
 
 random-acl-test:
 	echo "(progn (setq *load-verbose* nil) (load \"gclload1.lsp\")) \
@@ -26,7 +31,12 @@ random-acl-test:
 		(in-package :cl-test) \
 		(setq cl-test::*compile-unoptimized-form* nil) \
 		(let ((x (cl-test::test-random-integer-forms 1000 3 1000))) \
-		  (print (cl-test::prune-results x)) nil))" | $(ACL)
+		  (with-open-file (*standard-output* \"failures.lsp\" \
+			 :direction :output \
+			 :if-exists :append \
+			 :if-does-not-exist :create) \
+		      (print (cl-test::prune-results x))) \
+		   nil))" | $(ACL)
 
 clean:
 	rm -f test.out *.cls *.fasl *.o *.so *~ *.fn *.x86f *.fasl *.ufsl *.fas *.lib \#*\#; rm -rf scratch/; rm -f foo.txt foo.lsp file-that-was-renamed.txt tmp.dat temp.dat
-- 
GitLab