From ffe6e3d3bcccc02cb6789dcd1a95fc93a6364ece Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 10 Feb 2025 23:46:18 +0100 Subject: [PATCH] ; Quote function symbols in help-fns-tests.el * test/lisp/help-fns-tests.el: Properly quote function symbols as such. (cherry picked from commit 71c369bf666d529712be54fc1bc7fd3dffd8ace6) --- test/lisp/help-fns-tests.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/test/lisp/help-fns-tests.el b/test/lisp/help-fns-tests.el index b697bb894ed..4f65db028e4 100644 --- a/test/lisp/help-fns-tests.el +++ b/test/lisp/help-fns-tests.el @@ -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'." -- 2.39.5