Skip to content
Snippets Groups Projects
Commit 4de2973d authored by pfdietz's avatar pfdietz
Browse files

Got rid of random-acl-test, tweaked to reduce verbosity on random-test

parent f75c764b
No related branches found
No related tags found
No related merge requests found
# LISP=gcl # LISP=gcl
# ACL=~/acl62_trial/alisp
test: test:
@rm -rf scratch @rm -rf scratch
...@@ -13,32 +12,20 @@ test-unixport: ...@@ -13,32 +12,20 @@ test-unixport:
echo "(load \"doit.lsp\")" | ../unixport/saved_ansi_gcl | tee test.out echo "(load \"doit.lsp\")" | ../unixport/saved_ansi_gcl | tee test.out
random-test: random-test:
echo "(load \"gclload1.lsp\") \ echo "(progn (setq *load-verbose* nil) \
(compile-and-load \"random-int-form.lsp\") \ (let* ((*standard-output* (make-broadcast-stream)) \
(in-package :cl-test) \ (*error-output* *standard-output*)) \
(let ((x (cl-test::test-random-integer-forms 1000 6 100))) \ (load \"gclload1.lsp\") \
(setq x (cl-test::prune-results x)) \ (funcall (symbol-function 'compile-and-load) \"random-int-form.lsp\"))) \
(with-open-file (*standard-output* \"failures.lsp\" \ (in-package :cl-test) \
:direction :output \ (let ((x (cl-test::test-random-integer-forms 1000 10 100 :random-size t :random-nvars t))) \
:if-exists :append \ (setq x (cl-test::prune-results x)) \
:if-does-not-exist :create) \ (with-open-file (*standard-output* \"failures.lsp\" \
(mapc #'print x)) \ :direction :output \
(quit)))" | $(LISP) :if-exists :append \
:if-does-not-exist :create) \
random-acl-test: (mapc #'print x)) \
echo "(progn (setq *load-verbose* nil) (load \"gclload1.lsp\")) \ #-allegro (quit) #+allegro (excl::exit)))" | $(LISP)
(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)
clean: 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 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
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment