From 4de2973d9ba24e09448852b1988745b3e05d773e Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sun, 16 May 2004 13:02:09 +0000 Subject: [PATCH] Got rid of random-acl-test, tweaked to reduce verbosity on random-test --- ansi-tests/makefile | 41 ++++++++++++++--------------------------- 1 file changed, 14 insertions(+), 27 deletions(-) diff --git a/ansi-tests/makefile b/ansi-tests/makefile index be1dee4f..45ea1f0b 100644 --- a/ansi-tests/makefile +++ b/ansi-tests/makefile @@ -1,5 +1,4 @@ # LISP=gcl -# ACL=~/acl62_trial/alisp test: @rm -rf scratch @@ -13,32 +12,20 @@ test-unixport: echo "(load \"doit.lsp\")" | ../unixport/saved_ansi_gcl | tee test.out 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 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 x)) \ - (quit)))" | $(LISP) - -random-acl-test: - echo "(progn (setq *load-verbose* nil) (load \"gclload1.lsp\")) \ - (progn \ - (compile-and-load \"random-int-form.lsp\") \ - (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) \ - (mapc #'print x)) \ - (exit)))" | $(ACL) + echo "(progn (setq *load-verbose* nil) \ + (let* ((*standard-output* (make-broadcast-stream)) \ + (*error-output* *standard-output*)) \ + (load \"gclload1.lsp\") \ + (funcall (symbol-function 'compile-and-load) \"random-int-form.lsp\"))) \ + (in-package :cl-test) \ + (let ((x (cl-test::test-random-integer-forms 1000 10 100 :random-size t :random-nvars t))) \ + (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 x)) \ + #-allegro (quit) #+allegro (excl::exit)))" | $(LISP) 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