Skip to content
Snippets Groups Projects
makefile 5.71 KiB
Newer Older
# LISP=gcl
# LISP=../unixport/saved_ansi_gcl
# LISP=sbcl --noinform
pfdietz's avatar
pfdietz committed
# LISP=~/sbcl/src/runtime/sbcl --core ~/sbcl/output/sbcl.core --noinform
# LISP=clisp -ansi -q
# LISP=abcl
Daniel Kochmański's avatar
Daniel Kochmański committed
LISP=ecl
# LISP=/usr/local/lib/LispWorks/nongraphic-lispworks-4450
	@rm -rf sandbox/scratch
	cat doit.lsp | $(LISP) | tee test.out
	(cat doit1.lsp ; echo "(load \"symbols/load.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-symbols.out
	(cat doit1.lsp ; echo "(load \"eval-and-compile/load.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-eval-and-compile.out
	(cat doit1.lsp ; echo "(load \"data-and-control-flow/load.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-data-and-control-flow.out
	(cat doit1.lsp ; echo "(load \"iteration/load.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-iteration.out
	(cat doit1.lsp ; echo "(load \"objects/load.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-objects.out
	(cat doit1.lsp ; echo "(load \"conditions/load.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-conditions.out
	(cat doit1.lsp ; echo "(load \"cons/load.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-cons.out
	(cat doit1.lsp ; echo "(load \"arrays/load.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-arrays.out
	(cat doit1.lsp ; echo "(load \"hash-tables/load.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-hash-tables.out
	(cat doit1.lsp ; echo "(load \"packages/load.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-packages.out
	(cat doit1.lsp ; echo "(load \"numbers/load.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-numbers.out
	(cat doit1.lsp ; echo "(load \"sequences/load.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-sequences.out
	(cat doit1.lsp ; echo "(load \"structures/load.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-structures.out
	(cat doit1.lsp ; echo "(load \"types-and-class/load.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-types-and-class.out
	(cat doit1.lsp ; echo "(load \"strings/load.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-strings.out
	(cat doit1.lsp ; echo "(load \"characters/load.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-characters.out
	(cat doit1.lsp ; echo "(load \"pathnames/load.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-pathnames.out
	(cat doit1.lsp ; echo "(load \"files/load.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-files.out
	(cat doit1.lsp ; echo "(load \"streams/load.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-streams.out
	(cat doit1.lsp ; echo "(load \"printer/load.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-printer.out
	(cat doit1.lsp ; echo "(load \"reader/load.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-reader.out
	(cat doit1.lsp ; echo "(load \"system-construction/load.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-system-construction.out
	(cat doit1.lsp ; echo "(load \"environment/load.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-environment.out
	(cat doit1.lsp ; echo "(load \"misc/load.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

test-compiled:
	echo "(load \"compileit.lsp\")" | $(LISP) | tee test.out
	echo "(load \"doit.lsp\")" | ../unixport/saved_ansi_gcl | tee test.out
random-test:
pfdietz's avatar
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) \
pfdietz's avatar
pfdietz committed
	      (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) \
pfdietz's avatar
pfdietz committed
		  (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)
pfdietz's avatar
pfdietz committed
	rm -f gazonk*
mjthomas's avatar
mjthomas committed
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)


	@rm -f */*.{out,fas,cls,fasl,o,so,~,fn,x86f,ufsl,abcl,lib}
	@rm -f */*/*.{out,fas,cls,fasl,o,so,~,fn,x86f,ufsl,abcl,lib}
	@rm -f test*.out *.cls *.fasl *.o *.so *~ *.fn *.x86f *.fasl *.ufsl *.abcl *.fas *.lib \#*\#
	@rm -f *.dfsl *.d64fsl
	@(cd beyond-ansi; $(MAKE) clean)
	@rm -rf sandbox/scratch/ sandbox/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
pfdietz's avatar
pfdietz committed
	@rm -rf TMP/
	@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