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

Fixed typo, made the random test targets more useful.

parent 521c3dbc
No related branches found
No related tags found
No related merge requests found
......@@ -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
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