]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix ‘make check’ failure
authorPaul Eggert <eggert@cs.ucla.edu>
Fri, 26 Jul 2019 16:41:30 +0000 (09:41 -0700)
committerPaul Eggert <eggert@cs.ucla.edu>
Fri, 26 Jul 2019 16:41:55 +0000 (09:41 -0700)
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.

lisp/emacs-lisp/ert.el

index 272fd4aec2fa38f621673328368257b0e4e574c3..da241e6304fc46ae5b0f491ff51ec318aff6b7d5 100644 (file)
@@ -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