mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-30 02:02:38 -07:00
Code Issues Projects Releases Wiki Activity

Give a more informative failure in module assertion test

Browse source 
* test/src/emacs-module-tests.el (module--test-assertions):
Rephrase final check to give a more informative failure.
This commit is contained in:
Glenn Morris 2017-06-12 17:37:30 -04:00
parent 1da7bc7e46
commit 73b50a1073
1 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
test/src/emacs-module-tests.el
View file

@ -205,11 +205,14 @@ changes."
;; module assertions.
(mod-test-invalid-store)
(mod-test-invalid-load)))))))
;; FIXME a failure here gives an uninformative error.
(re-search-backward (rx bos "Emacs module assertion: "
"Emacs value not found in "
(+ digit) " values of "
(+ digit) " environments" ?\n eos)))
(search-backward "Emacs module assertion:")
(should (string-match-p (rx bos "Emacs module assertion: "
"Emacs value not found in "
(+ digit) " values of "
(+ digit) " environments" eos)
(buffer-substring-no-properties
(line-beginning-position)
(line-end-position)))))
(delete-directory tempdir t))))
;;; emacs-module-tests.el ends here