helpful

commit 77932d1fb4df5128c7d50c09852a181172a01021
parent b1ba2cf78e2d8e4a3b78fcf18478aa0b5bc6c721
Author: Wilfred Hughes <me@wilfred.me.uk>
Date:   Sat, 16 Dec 2017 14:51:19 +0000

Add unit tests for helpful--pretty-print

Ensure #54 stays fixed.

Diffstat:
M
test/unit-test.el
 | 
7
+++++++

1 file changed, 7 insertions(+), 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)))