aboutsummaryrefslogtreecommitdiff
path: root/test/unit-test.el
diff options
context:
space:
mode:
Diffstat (limited to 'test/unit-test.el')
-rw-r--r--test/unit-test.el10
1 files changed, 10 insertions, 0 deletions
diff --git a/test/unit-test.el b/test/unit-test.el
index 51029da..db75500 100644
--- a/test/unit-test.el
+++ b/test/unit-test.el
@@ -34,6 +34,16 @@
(should
(not (s-contains-p "\\=" formatted-docstring)))))
+(ert-deftest helpful--docstring-keymap ()
+ "Handle keymap references in docstrings."
+ (let* ((formatted-docstring
+ (helpful--format-docstring
+ "\\<minibuffer-local-map>\\[next-history-element]")))
+ ;; This test will fail in a local Emacs instance that has modified
+ ;; minibuffer keybindings.
+ (should
+ (string-equal formatted-docstring "M-n"))))
+
(ert-deftest helpful--docstring-advice ()
"Get the docstring on advised functions."
(should