Skip to content
Snippets Groups Projects
Commit b6bd7407 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Test tweaks

parent 8fdf8013
No related branches found
No related tags found
No related merge requests found
...@@ -142,7 +142,7 @@ test-all-lisps: ...@@ -142,7 +142,7 @@ test-all-lisps:
done done
# test upgrade is a very long run... This does just the regression tests # test upgrade is a very long run... This does just the regression tests
test-all-noupgrade: test-all-no-upgrade:
@for lisp in ${lisps} ; do \ @for lisp in ${lisps} ; do \
${MAKE} test-lisp test-clean-load l=$$lisp || exit 1 ; \ ${MAKE} test-lisp test-clean-load l=$$lisp || exit 1 ; \
done done
...@@ -196,7 +196,7 @@ release: TODO test-all test-on-other-machines-too debian-changelog debian-packag ...@@ -196,7 +196,7 @@ release: TODO test-all test-on-other-machines-too debian-changelog debian-packag
.PHONY: install archive archive-copy push doc website clean mrproper \ .PHONY: install archive archive-copy push doc website clean mrproper \
test-forward-references test test-lisp test-upgrade test-forward-references \ test-forward-references test test-lisp test-upgrade test-forward-references \
test-all test-all-lisps test-all-noupgrade \ test-all test-all-lisps test-all-no-upgrade \
debian-package release \ debian-package release \
replace-sbcl-asdf replace-ccl-asdf \ replace-sbcl-asdf replace-ccl-asdf \
fix-local-git-tags fix-remote-git-tags wc wc-driver wc-asdf fix-local-git-tags fix-remote-git-tags wc wc-driver wc-asdf
......
...@@ -56,7 +56,7 @@ ...@@ -56,7 +56,7 @@
nil))) nil)))
(unless *warnings-file-type* (unless *warnings-file-type*
(leave-test 0 "Your Lisp does not support deferred-warnings")) (leave-test "Your Lisp does not support deferred-warnings" 0))
(assert (assert
(handler-case (handler-case
......
...@@ -2,3 +2,6 @@ ...@@ -2,3 +2,6 @@
(defun use-foo (x) (defun use-foo (x)
(foo x)) (foo x))
#+clisp (eval-when (:compile-toplevel :load-toplevel :execute)
(format t "~&~S~%" `(sys::*unknown-functions* ,sys::*unknown-functions*)))
...@@ -2,3 +2,6 @@ ...@@ -2,3 +2,6 @@
(defun use-setf-foo (v x) (defun use-setf-foo (v x)
(setf (foo x) v)) (setf (foo x) v))
#+clisp (eval-when (:compile-toplevel :load-toplevel :execute)
(format t "~&~S~%" `(sys::*unknown-functions* ,sys::*unknown-functions*)))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment