mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-18 18:05:07 +00:00
Code Issues Releases Activity

* Fix two tests in help-fns-tests.el for native code

Browse Source 
* test/lisp/help-fns-tests.el (help-fns-test-lisp-defun)
	(help-fns-test-lisp-defsubst): Fix description string
	for native compiled functions.
This commit is contained in:
Andrea Corallo 2020-10-03 20:57:57 +02:00
parent 825e85b393
commit 0373bb838a
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
test/lisp/help-fns-tests.el
View File

@ -61,12 +61,16 @@ Return first line of the output of (describe-function-1 FUNC)."
(should (string-match regexp result))))
(ert-deftest help-fns-test-lisp-defun ()
(let ((regexp "a compiled Lisp function in .subr\\.el")
(let ((regexp (if (boundp 'comp-ctxt)
"a native compiled Lisp function in .subr\\.el"
"a compiled Lisp function in .subr\\.el"))
(result (help-fns-tests--describe-function 'last)))
(should (string-match regexp result))))
(ert-deftest help-fns-test-lisp-defsubst ()
(let ((regexp "a compiled Lisp function in .subr\\.el")
(let ((regexp (if (boundp 'comp-ctxt)
"a native compiled Lisp function in .subr\\.el"
"a compiled Lisp function in .subr\\.el"))
(result (help-fns-tests--describe-function 'posn-window)))
(should (string-match regexp result))))