; Add test for my last commit
* test/lisp/help-fns-tests.el (help-fns-test-bug76172): New test.
This commit is contained in:
parent
0c7214dc97
commit
af528d9ea4
1 changed files with 4 additions and 0 deletions
|
@ -85,6 +85,10 @@ 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-bug76172 ()
|
||||
"No error when describing `menu-bar-open-mouse'."
|
||||
(should (stringp (help-fns-tests--describe-function 'menu-bar-open-mouse))))
|
||||
|
||||
(ert-deftest help-fns-test-dangling-alias ()
|
||||
"Make sure we don't burp on bogus aliases."
|
||||
(let ((f (make-symbol "bogus-alias")))
|
||||
|
|
Loading…
Add table
Reference in a new issue