# HG changeset patch
# User adrian
# Date 1064775269 0
# Node ID c04bc2b126efba02d777f158bceff6a565cabe41
# Parent  03894aa3448258b0d6b9eba8745a4008b10a7f07
[xemacs-hg @ 2003-09-28 18:54:27 by adrian]
xemacs-21.5: Emergency fix for arithmetic error in test-harness.el

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

tests/ChangeLog addition:

2003-09-28  Adrian Aichner  <adrian@xemacs.org>

	* automated/test-harness.el (batch-test-emacs): Emergency fix for
	arithmetic error when no tests are run.

diff -r 03894aa34482 -r c04bc2b126ef tests/ChangeLog
--- a/tests/ChangeLog	Sat Sep 27 21:52:45 2003 +0000
+++ b/tests/ChangeLog	Sun Sep 28 18:54:29 2003 +0000
@@ -1,3 +1,8 @@
+2003-09-28  Adrian Aichner  <adrian@xemacs.org>
+
+	* automated/test-harness.el (batch-test-emacs): Emergency fix for
+	arithmetic error when no tests are run.
+
 2003-09-27  Adrian Aichner  <adrian@xemacs.org>
 
 	* automated/test-harness.el: Syntax emergency fix.
diff -r 03894aa34482 -r c04bc2b126ef tests/automated/test-harness.el
--- a/tests/automated/test-harness.el	Sat Sep 27 21:52:45 2003 +0000
+++ b/tests/automated/test-harness.el	Sun Sep 28 18:54:29 2003 +0000
@@ -477,11 +477,13 @@
 		 (fname (file-name-nondirectory (first head)))
 		 (nsucc (second head))
 		 (ntest (third head)))
-	    (message template
-		     (concat fname ":")
-		     nsucc
-		     ntest
-		     (/ (* 100 nsucc) ntest))
+	    (if (> ntest 0)
+		(message template
+			 (concat fname ":")
+			 nsucc
+			 ntest
+			 (/ (* 100 nsucc) ntest))
+	      (message "%s: No tests run\n" fname))
 	    (setq results (cdr results))))))
     (message "\nDone")
     (kill-emacs (if error 1 0))))