From: Paul Eggert Date: Fri, 26 Jul 2019 16:41:30 +0000 (-0700) Subject: Fix ‘make check’ failure X-Git-Tag: emacs-27.0.90~1817^2~95 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=40b067522fe122668350777451bb5b08e666842b;p=emacs.git 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. --- 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