Add callees button smoke tests

Currently helpful--show-callees chokes on anonymous functions

(I don't understand the finer points of button operation, so I
couldn't figure out a more elegant way to write these tests.)

1 files changed, 19 insertions, 0 deletions

diff --git a/test/unit-test.el b/test/unit-test.el
index 55da4e2..0fbcd3b 100644
--- a/test/unit-test.el
+++ b/test/unit-test.el
@@ -708,3 +708,22 @@ find the source code."
                     (apply #'bar 2)))))
     (should (memq 'foo result))
     (should (memq 'bar result))))
+
+(ert-deftest helpful--callees-button--smoke ()
+  (with-temp-buffer
+    (let ((button (helpful--make-callees-button
+                   'whatever
+                   '(defun whatever () (something) (test 5)))))
+      (insert button)
+      (goto-char (point-min))
+      (push-button))))
+
+(ert-deftest helpful--callees-button--smoke-fail ()
+  :expected-result :failed
+  (with-temp-buffer
+    (let ((button (helpful--make-callees-button
+                   '(lambda () (interactive) (other-window -1))
+                   '(lambda () (interactive) (other-window -1)))))
+      (insert button)
+      (goto-char (point-min))
+      (push-button))))