data.test-json : add round-trip tests

Author: jmglov

tests/pixie/tests/data/test-json.pxi

@@ -17,3 +17,12 @@
                                        :non-empty {:vector [1 2 3], :list '(1 2 3), :seq (take 3 (range))}}
                                :maps {:empty {}, :non-empty {:this "is covered, right? ;)"}}})
            "{ \"strings\": { \"b\": \"b\", \"c\": \"\", \"a\": \"a\", \"d\": \"d\" }, \"maps\": { \"non-empty\": { \"this\": \"is covered, right? ;)\" }, \"empty\": {} }, \"lists\": { \"non-empty\": { \"seq\": [ 0, 1, 2 ], \"list\": [ 1, 2, 3 ], \"vector\": [ 1, 2, 3 ] }, \"empty\": { \"seq\": [], \"list\": [], \"vector\": [] } }, \"numbers\": { \"one\": 1, \"two\": 2.000000, \"three\": 3 } }"))
+
+(deftest test-round-trip
+  (let [data {"foo" 1, "bar" [2 3]}]  ; won't work with keywords because the parser doesn't keywordise them (yet)
+    (assert= (-> data json/write-string json/read-string)
+             data))
+
+  (let [string "{ \"foo\": [ 1, 2, 3 ] }"]
+    (assert= (-> string json/read-string json/write-string)
+             string)))