Add unit tests for helpful--pretty-print

Ensure Wilfred#54 stays fixed.
kljohann · Dec 16, 2017 · 77932d1 · 77932d1
1 parent b1ba2cf
commit 77932d1
Showing 1 changed file with 7 additions and 0 deletions.
diff --git 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)))