[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 57b22f4: * test/lisp/help-fns-tests.el (help-fns-te
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master 57b22f4: * test/lisp/help-fns-tests.el (help-fns-test-dangling-alias): New test. |
Date: |
Thu, 12 Oct 2017 10:19:17 -0400 (EDT) |
branch: master
commit 57b22f490dfb32d3b298c83716cf8f7d7d2c6e25
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* test/lisp/help-fns-tests.el (help-fns-test-dangling-alias): New test.
---
test/lisp/help-fns-tests.el | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/test/lisp/help-fns-tests.el b/test/lisp/help-fns-tests.el
index 98e6b33..6dc5299 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 57b22f4: * test/lisp/help-fns-tests.el (help-fns-test-dangling-alias): New test.,
Stefan Monnier <=