diff options
author | Juri Linkov <juri@linkov.net> | 2019-07-12 21:57:18 +0300 |
---|---|---|
committer | Juri Linkov <juri@linkov.net> | 2019-07-12 21:57:18 +0300 |
commit | 391e8e530a6a271810f96ee7aa2d544b8c01d597 (patch) | |
tree | 9abced817727b5318ea506e3d2bfafe83c0da1ca /test/lisp/progmodes/compile-tests.el | |
parent | 8179cbff9ed37e7d8892643859adfad448ae1c7a (diff) | |
download | emacs-391e8e530a6a271810f96ee7aa2d544b8c01d597.tar.gz |
* lisp/progmodes/compile.el (compilation-filter): `compilation--ensure-parse'
is used instead of `font-lock-ensure' (bug#36564).
* test/lisp/progmodes/compile-tests.el (compile-test-error-regexps)
(compile-test-grep-regexps): Check the number of errors.
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 |