Mercurial > hg > xemacs-beta

comparison tests/automated/test-harness.el @ 1722:c04bc2b126ef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 58c2d4f889be
children 5a9a66ba67ca
comparison
equal deleted inserted replaced
1721:03894aa34482 1722:c04bc2b126ef
475 (while results 475 (while results
476 (let* ((head (car results)) 476 (let* ((head (car results))
477 (fname (file-name-nondirectory (first head))) 477 (fname (file-name-nondirectory (first head)))
478 (nsucc (second head)) 478 (nsucc (second head))
479 (ntest (third head))) 479 (ntest (third head)))
480 (message template 480 (if (> ntest 0)
481 (concat fname ":") 481 (message template
482 nsucc 482 (concat fname ":")
483 ntest 483 nsucc
484 (/ (* 100 nsucc) ntest)) 484 ntest
485 (/ (* 100 nsucc) ntest))
486 (message "%s: No tests run\n" fname))
485 (setq results (cdr results)))))) 487 (setq results (cdr results))))))
486 (message "\nDone") 488 (message "\nDone")
487 (kill-emacs (if error 1 0)))) 489 (kill-emacs (if error 1 0))))
488 490
489 (provide 'test-harness) 491 (provide 'test-harness)