; 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)

diff --git a/test/lisp/help-fns-tests.el b/test/lisp/help-fns-tests.el
index b697bb894ed28731f0799a5d99294805dcc527cd..4f65db028e4a7ec1f3c1e6a7a3b375c20ea68308 100644 (file)
--- 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'."