diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/ert.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el index 9c6b0e15bbe..b6c5b7d6b91 100644 --- a/lisp/emacs-lisp/ert.el +++ b/lisp/emacs-lisp/ert.el | |||
| @@ -1423,7 +1423,8 @@ Returns the stats object." | |||
| 1423 | (message "%9s %S%s" | 1423 | (message "%9s %S%s" |
| 1424 | (ert-string-for-test-result result nil) | 1424 | (ert-string-for-test-result result nil) |
| 1425 | (ert-test-name test) | 1425 | (ert-test-name test) |
| 1426 | (if (getenv "EMACS_TEST_VERBOSE") | 1426 | (if (cl-plusp |
| 1427 | (length (getenv "EMACS_TEST_VERBOSE"))) | ||
| 1427 | (ert-reason-for-test-result result) | 1428 | (ert-reason-for-test-result result) |
| 1428 | "")))) | 1429 | "")))) |
| 1429 | (message "%s" "")) | 1430 | (message "%s" "")) |
| @@ -1435,7 +1436,8 @@ Returns the stats object." | |||
| 1435 | (message "%9s %S%s" | 1436 | (message "%9s %S%s" |
| 1436 | (ert-string-for-test-result result nil) | 1437 | (ert-string-for-test-result result nil) |
| 1437 | (ert-test-name test) | 1438 | (ert-test-name test) |
| 1438 | (if (getenv "EMACS_TEST_VERBOSE") | 1439 | (if (cl-plusp |
| 1440 | (length (getenv "EMACS_TEST_VERBOSE"))) | ||
| 1439 | (ert-reason-for-test-result result) | 1441 | (ert-reason-for-test-result result) |
| 1440 | "")))) | 1442 | "")))) |
| 1441 | (message "%s" "")) | 1443 | (message "%s" "")) |