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