Commit d34845d4 authored by pfdietz's avatar pfdietz

Fixed typo, made the random test targets more useful.

parent 521c3dbc
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment