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

; Quote function symbols in help-fns-tests.el

Browse source 
* test/lisp/help-fns-tests.el: Properly quote function symbols as such.
This commit is contained in:
Stefan Kangas 2025-02-10 23:46:18 +01:00
parent 2d257fa24f
commit 71c369bf66
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -44,50 +44,50 @@ Return first line of the output of (describe-function-1 FUNC)."
(ert-deftest help-fns-test-bug17410 ()
"Test for https://debbugs.gnu.org/17410 ."
(let ((regexp "autoloaded Lisp macro")
(result (help-fns-tests--describe-function 'help-fns-test--macro)))
(result (help-fns-tests--describe-function #'help-fns-test--macro)))
(should (string-match regexp result))))
(ert-deftest help-fns-test-built-in ()
(let ((regexp "a primitive-function in .C source code")
(result (help-fns-tests--describe-function 'mapcar)))
(result (help-fns-tests--describe-function #'mapcar)))
(should (string-match regexp result))))
(ert-deftest help-fns-test-interactive-built-in ()
(let ((regexp "an interactive primitive-function in .C source code")
(result (help-fns-tests--describe-function 're-search-forward)))
(result (help-fns-tests--describe-function #'re-search-forward)))
(should (string-match regexp result))))
(ert-deftest help-fns-test-lisp-macro ()
(let ((regexp "a Lisp macro in .+subr\\.el")
(result (help-fns-tests--describe-function 'when)))
(result (help-fns-tests--describe-function #'when)))
(should (string-match regexp result))))
(ert-deftest help-fns-test-lisp-defun ()
(let ((regexp "a \\([^ ]+\\) in .+subr\\.el")
(result (help-fns-tests--describe-function 'last)))
(result (help-fns-tests--describe-function #'last)))
(should (string-match regexp result))
(should (member (match-string 1 result)
'("native-comp-function" "byte-code-function")))))
(ert-deftest help-fns-test-lisp-defsubst ()
(let ((regexp "a byte-code-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))))
(ert-deftest help-fns-test-alias-to-defun ()
(let ((regexp "an alias for .set-file-modes. in .+subr\\.el")
(result (help-fns-tests--describe-function 'chmod)))
(result (help-fns-tests--describe-function #'chmod)))
(should (string-match regexp result))))
(ert-deftest help-fns-test-bug23887 ()
"Test for https://debbugs.gnu.org/23887 ."
(let ((regexp "an alias for .re-search-forward. in .+subr\\.el")
(result (help-fns-tests--describe-function 'search-forward-regexp)))
(result (help-fns-tests--describe-function #'search-forward-regexp)))
(should (string-match regexp result))))
(ert-deftest help-fns-test-bug76172 ()
"No error when describing `menu-bar-open-mouse'."
(should (stringp (help-fns-tests--describe-function 'menu-bar-open-mouse))))
(should (stringp (help-fns-tests--describe-function #'menu-bar-open-mouse))))
(ert-deftest help-fns-test-bug76179 ()
"No error when describing `bindat--type'."