Ensure that we handle interactively defined functions

Also add a test

1 files changed, 5 insertions, 0 deletions

diff --git a/test/unit-test.el b/test/unit-test.el
index 88602d3..cf50f35 100644
--- a/test/unit-test.el
+++ b/test/unit-test.el
@@ -40,6 +40,11 @@
   "We should not crash on a function without a docstring."
   (should (null (helpful--docstring #'test-foo-no-docstring t))))
 
+(ert-deftest helpful--interacively-defined-fn ()
+  "We should not crash on a function without source code."
+  (eval '(defun test-foo-defined-interactively () 42))
+  (helpful-function #'test-foo-defined-interactively))
+
 (defun test-foo-usage-docstring ()
   "\n\n(fn &rest ARGS)"
   nil)