diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-10-12 10:19:26 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-10-12 10:19:26 -0400 |
| commit | 57b22f490dfb32d3b298c83716cf8f7d7d2c6e25 (patch) | |
| tree | d13ead675abd7c1860d4506cc8ee1c512b4571eb /test/lisp/help-fns-tests.el | |
| parent | 7ed1c0483830c9d985685ebfe43b7157e8f49fc9 (diff) | |
| download | emacs-57b22f490dfb32d3b298c83716cf8f7d7d2c6e25.tar.gz | |
* test/lisp/help-fns-tests.el (help-fns-test-dangling-alias): New test.
Diffstat (limited to 'test/lisp/help-fns-tests.el')
| -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)." (result (help-fns-tests--describe-function 'search-forward-regexp))) (should (string-match regexp result)))) +(ert-deftest help-fns-test-dangling-alias () + "Make sure we don't burp on bogus aliases." + (let ((f (make-symbol "bogus-alias"))) + (define-obsolete-function-alias f 'help-fns-test--undefined-function "past") + (describe-symbol f))) ;;; Test describe-function over functions with funny names (defun abc\\\[universal-argument\]b\`c\'d\\e\"f (x) |