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

More fixes for random testing targets

parent ffd28ba5
Branches
Tags
No related merge requests found
......@@ -17,11 +17,12 @@ random-test:
(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 (cl-test::prune-results x))) \
(mapc #'print x)) \
(quit)))" | $(LISP)
random-acl-test:
......@@ -31,12 +32,13 @@ 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))) \
(setq x (cl-test::prune-results x)) \
(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)
(mapc #'print x)) \
(exit)))" | $(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.
Please register or to comment