diff options
| -rw-r--r-- | lisp/emacs-lisp/ert.el | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el index ab24efe5a71..fe6eb19451b 100644 --- a/lisp/emacs-lisp/ert.el +++ b/lisp/emacs-lisp/ert.el | |||
| @@ -1524,16 +1524,10 @@ Ran \\([0-9]+\\) tests, \\([0-9]+\\) results as expected\ | |||
| 1524 | (message "\nSUMMARY OF TEST RESULTS") | 1524 | (message "\nSUMMARY OF TEST RESULTS") |
| 1525 | (message "-----------------------") | 1525 | (message "-----------------------") |
| 1526 | (message "Files examined: %d" nlogs) | 1526 | (message "Files examined: %d" nlogs) |
| 1527 | (message "Ran %d tests%s, %d results as expected%s%s" | 1527 | (message "Ran %d tests%s, %d results as expected, %d unexpected, %d skipped" |
| 1528 | nrun | 1528 | nrun |
| 1529 | (if (zerop nnotrun) "" (format ", %d failed to run" nnotrun)) | 1529 | (if (zerop nnotrun) "" (format ", %d failed to run" nnotrun)) |
| 1530 | nexpected | 1530 | nexpected nunexpected nskipped) |
| 1531 | (if (zerop nunexpected) | ||
| 1532 | "" | ||
| 1533 | (format ", %d unexpected" nunexpected)) | ||
| 1534 | (if (zerop nskipped) | ||
| 1535 | "" | ||
| 1536 | (format ", %d skipped" nskipped))) | ||
| 1537 | (when notests | 1531 | (when notests |
| 1538 | (message "%d files did not contain any tests:" (length notests)) | 1532 | (message "%d files did not contain any tests:" (length notests)) |
| 1539 | (mapc (lambda (l) (message " %s" l)) notests)) | 1533 | (mapc (lambda (l) (message " %s" l)) notests)) |