Add unit tests for helpful--pretty-print

Ensure #54 stays fixed.

1 files changed, 7 insertions, 0 deletions

diff --git a/test/unit-test.el b/test/unit-test.el
index 69e45be..a24f3f9 100644
--- a/test/unit-test.el
+++ b/test/unit-test.el
@@ -188,3 +188,10 @@ buffers lying around."
    (equal
     (helpful--kind-name 'save-excursion t)
     "special form")))
+
+(ert-deftest helpful--pretty-print ()
+  ;; Strings should be formatted with double-quotes.
+  (should (equal "\"foo\"" (helpful--pretty-print "foo")))
+  ;; Don't crash on large plists using keywords.
+  (helpful--pretty-print
+   '(:foo foooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo :bar bar)))