Mercurial > hg > xemacs-beta

diff tests/automated/test-harness.el @ 1758:90502933fb98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-10-21 08:21:00 by stephent] revert "fix space leak" patch <87oewb0zqn.fsf_-_@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Tue, 21 Oct 2003 08:21:08 +0000
parents 5a9a66ba67ca
children db7c7e251153
line wrap: on
line diff
--- a/tests/automated/test-harness.el	Sun Oct 19 03:18:15 2003 +0000
+++ b/tests/automated/test-harness.el	Tue Oct 21 08:21:08 2003 +0000
@@ -44,6 +44,9 @@
 
 (require 'bytecomp)
 
+(defvar test-harness-test-compiled nil
+  "Non-nil means the test code was compiled before execution.")
+
 (defvar test-harness-verbose
   (and (not noninteractive) (> (device-baud-rate) search-slow-speed))
   "*Non-nil means print messages describing progress of emacs-tester.")
@@ -316,7 +319,8 @@
 	 (message "Test suite execution aborted." error-info)
 	 ))
       (princ "\nTesting Compiled Lisp\n\n")
-      (let (code)
+      (let (code
+	    (test-harness-test-compiled t))
 	(condition-case error-info
 	    (setq code
 		  ;; our lisp code is often intentionally dubious,