X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=tests%2Fautomated%2Ftest-harness.el;h=8fcec7e651b72e08fda083e3025a4d4620b2c3c2;hp=52093f43c6831280d437df62526eb325bb35eaee;hb=82f6d62ee211b1d36e8f45fed3ee3edde82b6916;hpb=a40368ea9486a5da02004feb1254b9cceb857228;ds=sidebyside

diff --git a/tests/automated/test-harness.el b/tests/automated/test-harness.el
index 52093f4..8fcec7e 100644
--- a/tests/automated/test-harness.el
+++ b/tests/automated/test-harness.el
@@ -236,8 +236,11 @@ The output file's name is made by appending `c' to the end of FILENAME."
       (princ "\nTesting Compiled Lisp\n\n")
       (let (code)
 	(condition-case error-info
-	    (setq code (let ((byte-compile-warnings nil))
-			 (byte-compile (test-harness-read-from-buffer inbuffer))))
+	    (setq code
+		  ;; our lisp code is often intentionally dubious,
+		  ;; so throw away _all_ the byte compiler warnings.
+		  (letf (((symbol-function 'byte-compile-warn) 'ignore))
+		    (byte-compile (test-harness-read-from-buffer inbuffer))))
 	  (error
 	   (princ (format "Unexpected error %S while byte-compiling code\n"
 			  error-info))))