Smoke test for helpful-visit-reference

1 files changed, 9 insertions, 0 deletions

diff --git a/test/unit-test.el b/test/unit-test.el
index 0ed0b36..910819d 100644
--- a/test/unit-test.el
+++ b/test/unit-test.el
@@ -312,6 +312,15 @@ variables defined without `defvar'."
   "Smoke test for `helpful-variable'."
   (helpful-variable 'tab-width))
 
+(ert-deftest helpful-visit-reference ()
+  "Smoke test for `helpful-visit-reference'."
+  (helpful-function 'replace-regexp-in-string)
+  (goto-char (point-min))
+  ;; Move forward to the first reference.
+  (while (not (get-text-property (point) 'helpful-pos))
+    (forward-char 1))
+  (helpful-visit-reference))
+
 (ert-deftest helpful--signature ()
   "Ensure that autoloaded functions are handled gracefully"
   (should