diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-10-17 08:00:34 +0200 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-10-17 08:00:34 +0200 |
| commit | d5791ba5feeb5500433ca43506dda13c7c67ce14 (patch) | |
| tree | 4b2049feafd9d01e57d40e2743c81a44129fbede /test/lisp/help-fns-tests.el | |
| parent | 03dfa83dc35738c9228b66b3d3f72753b344f939 (diff) | |
| parent | 86dd9d12aa5a273da2efd4ce8c6e35ae343f1494 (diff) | |
| download | emacs-d5791ba5feeb5500433ca43506dda13c7c67ce14.tar.gz | |
Merge remote-tracking branch 'savannah/master' into HEAD
Diffstat (limited to 'test/lisp/help-fns-tests.el')
| -rw-r--r-- | test/lisp/help-fns-tests.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/test/lisp/help-fns-tests.el b/test/lisp/help-fns-tests.el index 2f6abfb56dd..d9344c355fe 100644 --- a/test/lisp/help-fns-tests.el +++ b/test/lisp/help-fns-tests.el @@ -56,32 +56,32 @@ Return first line of the output of (describe-function-1 FUNC)." (should (string-match regexp result)))) (ert-deftest help-fns-test-lisp-macro () - (let ((regexp "a Lisp macro in .subr\\.el") + (let ((regexp "a Lisp macro in .+subr\\.el") (result (help-fns-tests--describe-function 'when))) (should (string-match regexp result)))) (ert-deftest help-fns-test-lisp-defun () (let ((regexp (if (boundp 'comp-ctxt) - "a native compiled Lisp function in .subr\\.el" - "a compiled Lisp function in .subr\\.el")) + "a native compiled Lisp function in .+subr\\.el" + "a compiled Lisp function in .+subr\\.el")) (result (help-fns-tests--describe-function 'last))) (should (string-match regexp result)))) (ert-deftest help-fns-test-lisp-defsubst () (let ((regexp (if (boundp 'comp-ctxt) - "a native compiled Lisp function in .subr\\.el" - "a compiled Lisp function in .subr\\.el")) + "a native compiled Lisp function in .+subr\\.el" + "a compiled Lisp function in .+subr\\.el")) (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") + (let ((regexp "an alias for .set-file-modes. in .+subr\\.el") (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") + (let ((regexp "an alias for .re-search-forward. in .+subr\\.el") (result (help-fns-tests--describe-function 'search-forward-regexp))) (should (string-match regexp result)))) |