From b6bd740713f312523165a375f841b0d4cdb2edd1 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Sat, 16 Feb 2013 15:04:10 +0100 Subject: [PATCH] Test tweaks --- Makefile | 4 ++-- test/test-deferred-warnings.script | 2 +- test/use-foo.lisp | 3 +++ test/use-setf-foo.lisp | 3 +++ 4 files changed, 9 insertions(+), 3 deletions(-) diff --git a/Makefile b/Makefile index d4815b62..386a1132 100644 --- a/Makefile +++ b/Makefile @@ -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 diff --git a/test/test-deferred-warnings.script b/test/test-deferred-warnings.script index 97672af1..70f52226 100644 --- a/test/test-deferred-warnings.script +++ b/test/test-deferred-warnings.script @@ -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 diff --git a/test/use-foo.lisp b/test/use-foo.lisp index 3c91622b..824c562d 100644 --- a/test/use-foo.lisp +++ b/test/use-foo.lisp @@ -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*))) diff --git a/test/use-setf-foo.lisp b/test/use-setf-foo.lisp index 89737212..0c2dc861 100644 --- a/test/use-setf-foo.lisp +++ b/test/use-setf-foo.lisp @@ -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*))) -- GitLab