Add unit test for linkifying URLs

1 files changed, 10 insertions, 0 deletions

diff --git a/test/unit-test.el b/test/unit-test.el
index f232569..0309876 100644
--- a/test/unit-test.el
+++ b/test/unit-test.el
@@ -229,6 +229,16 @@ symbol (not a form)."
     (should
      (get-text-property paren-position 'button formatted))))
 
+(ert-deftest helpful--format-docstring--url ()
+  "Ensure we propertize URLs."
+  ;; This is the typical format.
+  (let* ((formatted (helpful--format-docstring "URL `http://example.com'"))
+         (url-position (s-index-of "h" formatted)))
+    (should
+     (string-equal formatted "URL http://example.com"))
+    (should
+     (get-text-property url-position 'button formatted))))
+
 (ert-deftest helpful--definition-c-vars ()
   "Handle definitions of variables in C source code."
   (let* ((emacs-src-path (f-join default-directory "emacs-25.3" "src")))