mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

Always include the number of unexpected results here too

Browse source 
* lisp/emacs-lisp/ert.el (ert-run-tests-batch): Always include the
number of unexpected results here as well.
This commit is contained in:
Lars Ingebrigtsen 2019-07-26 09:08:40 +02:00
parent 71f76a8025
commit 66db7b2c36
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/ert.el
View file

@ -1351,15 +1351,13 @@ Returns the stats object."
(let ((unexpected (ert-stats-completed-unexpected stats)) (let ((unexpected (ert-stats-completed-unexpected stats))
(skipped (ert-stats-skipped stats)) (skipped (ert-stats-skipped stats))
(expected-failures (ert--stats-failed-expected stats))) (expected-failures (ert--stats-failed-expected stats)))
(message "\n%sRan %s tests, %s results as expected%s%s (%s, %f sec)%s\n" (message "\n%sRan %s tests, %s results as expected, %s unexpected%s (%s, %f sec)%s\n"
(if (not abortedp) (if (not abortedp)
"" ""
"Aborted: ") "Aborted: ")
(ert-stats-total stats) (ert-stats-total stats)
(ert-stats-completed-expected stats) (ert-stats-completed-expected stats)
(if (zerop unexpected) unexpected
""
(format ", %s unexpected" unexpected))
(if (zerop skipped) (if (zerop skipped)
"" ""
(format ", %s skipped" skipped)) (format ", %s skipped" skipped))