Mercurial > hg > xemacs-beta
changeset 1722:c04bc2b126ef
[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.
| author | adrian |
|---|---|
| date | Sun, 28 Sep 2003 18:54:29 +0000 |
| parents | 03894aa34482 |
| children | b7290aecae9d |
| files | tests/ChangeLog tests/automated/test-harness.el |
| diffstat | 2 files changed, 12 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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))))