changeset 1656:f8bd59163c60

[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.
author adrian
date Sun, 31 Aug 2003 17:30:19 +0000
parents 6f3d0f871934
children 5c8854104e13
files tests/ChangeLog tests/automated/test-harness.el
diffstat 2 files changed, 10 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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>
 
--- 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))))