Newer
Older
# LISP=../unixport/saved_ansi_gcl
# LISP=~/sbcl/src/runtime/sbcl --core ~/sbcl/output/sbcl.core --noinform
# LISP=clisp -ansi -q
# LISP=abcl
# LISP=/usr/local/lib/LispWorks/nongraphic-lispworks-4450
pfdietz
committed
pfdietz
committed
test:
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
test-symbols:
(cat doit1.lsp ; echo "(load \"load-symbols.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-symbols.out
test-eval-and-compile:
(cat doit1.lsp ; echo "(load \"load-eval-and-compile.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-eval-and-compile.out
test-data-and-control-flow:
(cat doit1.lsp ; echo "(load \"load-data-and-control-flow.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-data-and-control-flow.out
test-iteration:
(cat doit1.lsp ; echo "(load \"load-iteration.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-iteration.out
test-objects:
(cat doit1.lsp ; echo "(load \"load-objects.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-objects.out
test-conditions:
(cat doit1.lsp ; echo "(load \"load-conditions.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-conditions.out
test-cons:
(cat doit1.lsp ; echo "(load \"load-cons.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-cons.out
test-arrays:
(cat doit1.lsp ; echo "(load \"load-arrays.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-arrays.out
test-hash-tables:
(cat doit1.lsp ; echo "(load \"load-hash-tables.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-hash-tables.out
test-packages:
(cat doit1.lsp ; echo "(load \"load-packages.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-packages.out
test-numbers:
(cat doit1.lsp ; echo "(load \"load-numbers.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-numbers.out
test-sequences:
(cat doit1.lsp ; echo "(load \"load-sequences.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-sequences.out
test-structures:
(cat doit1.lsp ; echo "(load \"load-structures.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-structures.out
test-types-and-class:
(cat doit1.lsp ; echo "(load \"load-types-and-class.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-types-and-class.out
test-strings:
(cat doit1.lsp ; echo "(load \"load-strings.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-strings.out
test-characters:
(cat doit1.lsp ; echo "(load \"load-characters.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-characters.out
test-pathnames:
(cat doit1.lsp ; echo "(load \"load-pathnames.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-pathnames.out
test-files:
(cat doit1.lsp ; echo "(load \"load-files.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-files.out
test-streams:
(cat doit1.lsp ; echo "(load \"load-streams.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-streams.out
test-printer:
(cat doit1.lsp ; echo "(load \"load-printer.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-printer.out
test-reader:
(cat doit1.lsp ; echo "(load \"load-reader.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-reader.out
test-system-construction:
(cat doit1.lsp ; echo "(load \"load-system-construction.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-system-construction.out
test-environment:
(cat doit1.lsp ; echo "(load \"load-environment.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-environment.out
test-misc:
(cat doit1.lsp ; echo "(load \"load-misc.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-misc.out
test-all: test-symbols test-eval-and-compile test-data-and-control-flow test-iteration test-objects \
test-conditions test-cons test-arrays test-hash-tables test-packages test-numbers \
test-sequences test-structures test-types-and-class test-strings test-characters test-pathnames \
test-files test-streams test-printer test-reader test-system-construction test-environment \
test-misc
echo "(load \"compileit.lsp\")" | $(LISP) | tee test.out
pfdietz
committed
pfdietz
committed
test-unixport:
echo "(load \"doit.lsp\")" | ../unixport/saved_ansi_gcl | tee test.out
pfdietz
committed
(echo "(progn #+gcl (setq compiler::*cc* \"gcc -c -DVOL=volatile -fsigned-char -pipe \") \
(setq *load-verbose* nil) \
(let* ((*standard-output* (make-broadcast-stream)) \
(*error-output* *standard-output*)) \
(load \"gclload1.lsp\") \
(funcall (symbol-function 'compile-and-load) \"random-int-form.lsp\"))) \
(in-package :cl-test) \
(let ((x (cl-test::test-random-integer-forms 1000 3 1000 :random-size t :random-nvars t))) \
(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))) \
#+allegro (excl::exit) \
; extra quits added to avoid being trapped in debugger in some lisps \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit)") | $(LISP)
rt_1000_8:
echo "(load \"gclload1.lsp\") \
(compile-and-load \"random-int-form.lsp\") \
(in-package :cl-test) (loop-random-int-forms 1000 8)" | $(LISP)
pfdietz
committed
clean:
@rm -f auxiliary/*.{out,fas,cls,fasl,o,so,~,fn,x86f,ufsl,abcl,lib}
@rm -f sample-files/*.{out,fas,cls,fasl,o,so,~,fn,x86f,ufsl,abcl,lib}x
@rm -f test*.out *.cls *.fasl *.o *.so *~ *.fn *.x86f *.fasl *.ufsl *.abcl *.fas *.lib \#*\#
@rm -rf scratch/ scratch.txt
@rm -f foo.txt foo.lsp foo.dat
@rm -f tmp.txt tmp.dat tmp2.dat temp.dat
@rm -f gazonk* out.class
@rm -f "CLTEST:file-that-was-renamed.txt" file-that-was-renamed.txt
@rm -f compile-file-test-lp.lsp compile-file-test-lp.out ldtest.lsp