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

More fixes for random testing targets

parent ffd28ba5
No related branches found
No related tags found
No related merge requests found
...@@ -17,11 +17,12 @@ random-test: ...@@ -17,11 +17,12 @@ random-test:
(compile-and-load \"random-int-form.lsp\") \ (compile-and-load \"random-int-form.lsp\") \
(in-package :cl-test) \ (in-package :cl-test) \
(let ((x (cl-test::test-random-integer-forms 1000 6 100))) \ (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\" \ (with-open-file (*standard-output* \"failures.lsp\" \
:direction :output \ :direction :output \
:if-exists :append \ :if-exists :append \
:if-does-not-exist :create) \ :if-does-not-exist :create) \
(mapc #'print (cl-test::prune-results x))) \ (mapc #'print x)) \
(quit)))" | $(LISP) (quit)))" | $(LISP)
random-acl-test: random-acl-test:
...@@ -31,12 +32,13 @@ random-acl-test: ...@@ -31,12 +32,13 @@ random-acl-test:
(in-package :cl-test) \ (in-package :cl-test) \
(setq cl-test::*compile-unoptimized-form* nil) \ (setq cl-test::*compile-unoptimized-form* nil) \
(let ((x (cl-test::test-random-integer-forms 1000 3 1000))) \ (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\" \ (with-open-file (*standard-output* \"failures.lsp\" \
:direction :output \ :direction :output \
:if-exists :append \ :if-exists :append \
:if-does-not-exist :create) \ :if-does-not-exist :create) \
(print (cl-test::prune-results x))) \ (mapc #'print x)) \
nil))" | $(ACL) (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