Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 04:21:24 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix failing help-fns-test

Browse source 
* test/lisp/help-fns-tests.el (help-fns-test-lisp-defun):
Fix failing test.
This commit is contained in:
Stefan Kangas 2024-06-23 20:54:22 +02:00
parent 0f01cb0ebd
commit 75ca15f2a3
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -63,9 +63,8 @@ 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 (if (featurep 'native-compile)
"a native-compiled Lisp function in .+subr\\.el"
"a byte-compiled Lisp function in .+subr\\.el"))
(let ((regexp (rx "a " (or "byte-compiled" "native-compiled")
" Lisp function in " nonl "subr.el" nonl))
(result (help-fns-tests--describe-function 'last)))
(should (string-match regexp result))))