diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2019-07-26 09:41:30 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2019-07-26 09:41:55 -0700 |
| commit | 40b067522fe122668350777451bb5b08e666842b (patch) | |
| tree | d75bd9944141925070cfd701a3145fa79407fbae /lisp/emacs-lisp | |
| parent | 225a3554d1daee803928061b9b95ba770a51033d (diff) | |
| download | emacs-40b067522fe122668350777451bb5b08e666842b.tar.gz emacs-40b067522fe122668350777451bb5b08e666842b.tar.bz2 emacs-40b067522fe122668350777451bb5b08e666842b.zip | |
Fix ‘make check’ failure
Problem introduced in 2019-07-26T07:08:40!larsi@gnus.org.
* lisp/emacs-lisp/ert.el (ert-summarize-tests-batch-and-exit):
Don’t count "0 unexpected" as unexpected.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/ert.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el index 272fd4aec2f..da241e6304f 100644 --- a/lisp/emacs-lisp/ert.el +++ b/lisp/emacs-lisp/ert.el @@ -1503,9 +1503,10 @@ Ran \\([0-9]+\\) tests, \\([0-9]+\\) results as expected\ (setq nrun (+ nrun (string-to-number (match-string 2))) nexpected (+ nexpected (string-to-number (match-string 3)))) (when (match-string 4) - (push logfile unexpected) - (setq nunexpected (+ nunexpected - (string-to-number (match-string 4))))) + (let ((n (string-to-number (match-string 4)))) + (unless (zerop n) + (push logfile unexpected) + (setq nunexpected (+ nunexpected n))))) (when (match-string 5) (push logfile skipped) (setq nskipped (+ nskipped |