aboutsummaryrefslogtreecommitdiffstats
path: root/test/lisp/help-fns-tests.el
diff options
context:
space:
mode:
Diffstat (limited to 'test/lisp/help-fns-tests.el')
-rw-r--r--test/lisp/help-fns-tests.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/test/lisp/help-fns-tests.el b/test/lisp/help-fns-tests.el
index 1beeb77640c..82350a4bc71 100644
--- a/test/lisp/help-fns-tests.el
+++ b/test/lisp/help-fns-tests.el
@@ -63,14 +63,14 @@ Return first line of the output of (describe-function-1 FUNC)."
63 (should (string-match regexp result)))) 63 (should (string-match regexp result))))
64 64
65(ert-deftest help-fns-test-lisp-defun () 65(ert-deftest help-fns-test-lisp-defun ()
66 (let ((regexp (if (featurep 'native-compile) 66 (let ((regexp "a \\([^ ]+\\) in .+subr\\.el")
67 "a subr-native-elisp in .+subr\\.el"
68 "a compiled-function in .+subr\\.el"))
69 (result (help-fns-tests--describe-function 'last))) 67 (result (help-fns-tests--describe-function 'last)))
70 (should (string-match regexp result)))) 68 (should (string-match regexp result))
69 (should (member (match-string 1 result)
70 '("subr-native-elisp" "byte-code-function")))))
71 71
72(ert-deftest help-fns-test-lisp-defsubst () 72(ert-deftest help-fns-test-lisp-defsubst ()
73 (let ((regexp "a compiled-function in .+subr\\.el") 73 (let ((regexp "a byte-code-function in .+subr\\.el")
74 (result (help-fns-tests--describe-function 'posn-window))) 74 (result (help-fns-tests--describe-function 'posn-window)))
75 (should (string-match regexp result)))) 75 (should (string-match regexp result))))
76 76