# HG changeset patch
# User adrian
# Date 1062351019 0
# Node ID f8bd59163c60b611bbd6290431f7a3de3e1631d9
# Parent  6f3d0f871934cb4c92692b3efdf0a91779bcddb6
[xemacs-hg @ 2003-08-31 17:30:17 by adrian]
[AC21.5R21.4] [PATCH] xemacs-21.5: test-harness.el to log results when run noninteractive

-------------------- ChangeLog entries follow: --------------------

tests/ChangeLog addition:

2003-08-31  Adrian Aichner  <adrian@xemacs.org>

	* automated/test-harness.el (test-harness-from-buffer): Log
	results when running noninteractive.
	* automated/test-harness.el (batch-test-emacs): Remove misplaced
	debugging code.

diff -r 6f3d0f871934 -r f8bd59163c60 tests/ChangeLog
--- a/tests/ChangeLog	Sun Aug 31 01:28:03 2003 +0000
+++ b/tests/ChangeLog	Sun Aug 31 17:30:19 2003 +0000
@@ -1,3 +1,10 @@
+2003-08-31  Adrian Aichner  <adrian@xemacs.org>
+
+	* automated/test-harness.el (test-harness-from-buffer): Log
+	results when running noninteractive.
+	* automated/test-harness.el (batch-test-emacs): Remove misplaced
+	debugging code.
+
 2003-08-19  Marcus Crestani  <crestani@informatik.uni-tuebingen.de>
 	    Markus Kaltenbach  <makalten@informatik.uni-tuebingen.de>
 
diff -r 6f3d0f871934 -r f8bd59163c60 tests/automated/test-harness.el
--- a/tests/automated/test-harness.el	Sun Aug 31 01:28:03 2003 +0000
+++ b/tests/automated/test-harness.el	Sun Aug 31 17:30:19 2003 +0000
@@ -353,7 +353,9 @@
       (fmakunbound 'Check-Error-Message)
       (fmakunbound 'Ignore-Ebola)
       (fmakunbound 'Int-to-Marker)
-      )))
+      (and noninteractive
+	   (message "%s" (buffer-substring-no-properties
+			  nil nil "*Test-Log*"))))))
 
 (defvar test-harness-results-point-max nil)
 (defmacro displaying-emacs-test-results (&rest body)
@@ -432,7 +434,6 @@
 		  (setq error t))))
 	(or (batch-test-emacs-1 file)
 	    (setq error t))))
-    ;;(message "%s" (buffer-string nil nil "*Test-Log*"))
     (message "Done")
     (kill-emacs (if error 1 0))))