procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adjust help-fns.el tests for recent change

Browse source 
* test/lisp/help-fns-tests.el (help-fns-test-lisp-defun)
(help-fns-test-lisp-defsubst): Adjust tests for recent change.
This commit is contained in:
Stefan Kangas 2022-07-23 00:06:38 +02:00
parent 04bdcf4aaa
commit ae1ace1cf4
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test/lisp/help-fns-tests.el
View file

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