Commit 73b50a10 authored by Glenn Morris's avatar Glenn Morris

Give a more informative failure in module assertion test

* test/src/emacs-module-tests.el (module--test-assertions):
Rephrase final check to give a more informative failure.
parent 1da7bc7e
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment