diff options
Diffstat (limited to 'test/lisp/progmodes/compile-tests.el')
| -rw-r--r-- | test/lisp/progmodes/compile-tests.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/test/lisp/progmodes/compile-tests.el b/test/lisp/progmodes/compile-tests.el index a7d1c6bc5e5..0d4f7f2ff28 100644 --- a/test/lisp/progmodes/compile-tests.el +++ b/test/lisp/progmodes/compile-tests.el @@ -401,7 +401,10 @@ can only work with the NUL byte to disambiguate colons.") The test data is in `compile-tests--test-regexps-data'." (with-temp-buffer (font-lock-mode -1) - (mapc #'compile--test-error-line compile-tests--test-regexps-data))) + (mapc #'compile--test-error-line compile-tests--test-regexps-data) + (should (eq compilation-num-errors-found 87)) + (should (eq compilation-num-warnings-found 32)) + (should (eq compilation-num-infos-found 20)))) (ert-deftest compile-test-grep-regexps () "Test the `grep-regexp-alist' regexps. @@ -421,6 +424,7 @@ The test data is in `compile-tests--grep-regexp-testcases'." (should (equal msg1 msg2)))) (dolist (testcase compile-tests--grep-regexp-tricky-testcases) (ert-info ((format "%S" testcase) :prefix "testcase: ") - (compile--test-error-line testcase))))) + (compile--test-error-line testcase))) + (should (eq compilation-num-errors-found 8)))) ;;; compile-tests.el ends here |