diff options
Diffstat (limited to 'test/lisp/emacs-lisp/find-func-tests.el')
| -rw-r--r-- | test/lisp/emacs-lisp/find-func-tests.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/test/lisp/emacs-lisp/find-func-tests.el b/test/lisp/emacs-lisp/find-func-tests.el index d29d9ff6563..d18a9dc1a94 100644 --- a/test/lisp/emacs-lisp/find-func-tests.el +++ b/test/lisp/emacs-lisp/find-func-tests.el @@ -95,6 +95,13 @@ expected function symbol and function library, respectively." (advice-remove #'mark-sexp 'my-message)) (ert-deftest find-func-tests--find-library-verbose () + (unwind-protect + (progn + (advice-add 'dired :before #'ignore) + ;; bug#41104 + (should (equal (find-function-library #'dired) '(dired . "dired")))) + (advice-remove 'dired #'ignore)) + (find-function-library #'join-line nil t) (with-current-buffer "*Messages*" (save-excursion @@ -102,9 +109,7 @@ expected function symbol and function library, respectively." (skip-chars-backward "\n") (should (string-match-p ".join-line. is an alias for .delete-indentation." - (buffer-substring - (line-beginning-position) - (point))))))) + (buffer-substring (pos-bol) (point))))))) ;; Avoid a byte-compilation warning that may confuse people reading ;; the result of the following test. |