diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/help-fns-tests.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test/lisp/help-fns-tests.el b/test/lisp/help-fns-tests.el index 98e6b335b90..6dc5299ef3c 100644 --- a/test/lisp/help-fns-tests.el +++ b/test/lisp/help-fns-tests.el | |||
| @@ -81,6 +81,11 @@ Return first line of the output of (describe-function-1 FUNC)." | |||
| 81 | (result (help-fns-tests--describe-function 'search-forward-regexp))) | 81 | (result (help-fns-tests--describe-function 'search-forward-regexp))) |
| 82 | (should (string-match regexp result)))) | 82 | (should (string-match regexp result)))) |
| 83 | 83 | ||
| 84 | (ert-deftest help-fns-test-dangling-alias () | ||
| 85 | "Make sure we don't burp on bogus aliases." | ||
| 86 | (let ((f (make-symbol "bogus-alias"))) | ||
| 87 | (define-obsolete-function-alias f 'help-fns-test--undefined-function "past") | ||
| 88 | (describe-symbol f))) | ||
| 84 | 89 | ||
| 85 | ;;; Test describe-function over functions with funny names | 90 | ;;; Test describe-function over functions with funny names |
| 86 | (defun abc\\\[universal-argument\]b\`c\'d\\e\"f (x) | 91 | (defun abc\\\[universal-argument\]b\`c\'d\\e\"f (x) |