Commit b6bd7407 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Test tweaks

parent 8fdf8013
Loading
Loading
Loading
Loading
+2 −2
Original line number Diff line number Diff line
@@ -142,7 +142,7 @@ test-all-lisps:
	done

# 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 \
		${MAKE} test-lisp test-clean-load l=$$lisp || exit 1 ; \
	done
@@ -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 \
	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 \
	replace-sbcl-asdf replace-ccl-asdf \
	fix-local-git-tags fix-remote-git-tags wc wc-driver wc-asdf
+1 −1
Original line number Diff line number Diff line
@@ -56,7 +56,7 @@
     nil)))

(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
 (handler-case
+3 −0
Original line number Diff line number Diff line
@@ -2,3 +2,6 @@

(defun use-foo (x)
  (foo x))

#+clisp (eval-when (:compile-toplevel :load-toplevel :execute)
          (format t "~&~S~%" `(sys::*unknown-functions* ,sys::*unknown-functions*)))
+3 −0
Original line number Diff line number Diff line
@@ -2,3 +2,6 @@

(defun use-setf-foo (v x)
  (setf (foo x) v))

#+clisp (eval-when (:compile-toplevel :load-toplevel :execute)
          (format t "~&~S~%" `(sys::*unknown-functions* ,sys::*unknown-functions*)))