diff options
Diffstat (limited to 'test/unit-test.el')
| -rw-r--r-- | test/unit-test.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test/unit-test.el b/test/unit-test.el index db75500..2579316 100644 --- a/test/unit-test.el +++ b/test/unit-test.el @@ -27,6 +27,18 @@ (helpful--docstring #'test-foo t) "Docstring here."))) +(ert-deftest helpful--docstring-symbol () + "Correctly handle quotes around symbols." + ;; We should replace quoted symbols with links, so the punctuation + ;; should not be in the output. + (let* ((formatted-docstring (helpful--format-docstring "`message'"))) + (should + (equal formatted-docstring "message"))) + ;; We should handle stray backquotes. + (let* ((formatted-docstring (helpful--format-docstring "`foo `message'"))) + (should + (equal formatted-docstring "`foo message")))) + (ert-deftest helpful--docstring-unescape () "Discard \\=\\= in docstrings." (let* ((docstring (helpful--docstring #'apply t)) |