From 0891ab626cc40aca833d9079ca11aa6ce204511a Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sat, 8 May 2004 13:25:33 +0000 Subject: [PATCH] More fixes for random testing targets --- ansi-tests/makefile | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/ansi-tests/makefile b/ansi-tests/makefile index 0fe62f86..be1dee4f 100644 --- a/ansi-tests/makefile +++ b/ansi-tests/makefile @@ -17,11 +17,12 @@ random-test: (compile-and-load \"random-int-form.lsp\") \ (in-package :cl-test) \ (let ((x (cl-test::test-random-integer-forms 1000 6 100))) \ + (setq x (cl-test::prune-results x)) \ (with-open-file (*standard-output* \"failures.lsp\" \ :direction :output \ :if-exists :append \ :if-does-not-exist :create) \ - (mapc #'print (cl-test::prune-results x))) \ + (mapc #'print x)) \ (quit)))" | $(LISP) random-acl-test: @@ -31,12 +32,13 @@ 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))) \ + (setq x (cl-test::prune-results x)) \ (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) + (mapc #'print x)) \ + (exit)))" | $(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