diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2010-02-10 16:11:45 -0500 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2010-02-10 16:11:45 -0500 |
| commit | 319057dbf324b5c10577c25bfe9e0179692684f5 (patch) | |
| tree | 71d87a3c222be20e0cef5c1520d6059be26fb5a6 /src/test | |
| parent | 724e7678339a8772bde8677214920c939d16a48f (diff) | |
c.c.json: add pretty printing
Diffstat (limited to 'src/test')
| -rw-r--r-- | src/test/clojure/clojure/contrib/test_json.clj | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/test/clojure/clojure/contrib/test_json.clj b/src/test/clojure/clojure/contrib/test_json.clj index 564f6a49..f5b5b448 100644 --- a/src/test/clojure/clojure/contrib/test_json.clj +++ b/src/test/clojure/clojure/contrib/test_json.clj @@ -170,3 +170,9 @@ (deftest characters-in-symbols-are-escaped (is (= "\"foo\\u1b1b\"" (json-str (symbol "foo\u1b1b"))))) + +;;; Pretty-printer + +(deftest pretty-printing + (let [x (read-json *pass1-string* false)] + (is (= x (read-json (with-out-str (pprint-json x)) false))))) |