mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-10 13:40:36 -08:00
Code Issues Projects Releases Wiki Activity

* test/src/comp-tests.el (comp-tests-doc): Update test.

Browse source
This commit is contained in:
Andrea Corallo 2020-08-29 15:15:46 +02:00
parent 59a40b0d75
commit ea35a62e6e
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test/src/comp-tests.el
View file

@ -322,7 +322,9 @@ Check that the resulting binaries do not differ."
(ert-deftest comp-tests-doc ()
(should (string= (documentation #'comp-tests-doc-f)
"A nice docstring"))
(should (string-match "\\.*.eln\\'" (symbol-file #'comp-tests-doc-f))))
;; Check a preloaded function, we can't use `comp-tests-doc-f' now
;; as this is loaded manually with no .elc.
(should (string-match "\\.*.elc\\'" (symbol-file #'error))))
(ert-deftest comp-test-interactive-form ()
(should (equal (interactive-form #'comp-test-interactive-form0-f)