diff --git a/ansi-tests/makefile b/ansi-tests/makefile index be1dee4f956274ea39ff5de9a6a27c9202e89870..45ea1f0b50c57d183922d63c6dd66d96fede6aa2 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