Merge pull request #22 from r0man/print-length

Bind *print-length* to false in EDN serde
FundingCircle · Jan 4, 2019 · a0987cb · a0987cb
2 parents 1319db6 + 456f086
commit a0987cb
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 1 deletion.
diff --git a/src/jackdaw/serdes/edn.clj b/src/jackdaw/serdes/edn.clj
@@ -23,7 +23,10 @@
   []
   (jsfn/new-serializer {:serialize (fn [_ _ data]
                                      (when data
-                                       (to-bytes (prn-str data))))}))
+                                       (to-bytes
+                                        (binding [*print-length* false
+                                                  *print-level* false]
+                                          (prn-str data)))))}))
 
 (defn deserializer
   "Returns an EDN deserializer."

diff --git a/test/jackdaw/serdes/edn_test.clj b/test/jackdaw/serdes/edn_test.clj
@@ -20,6 +20,13 @@
                (seq (->> (.deserialize (jse/deserializer) nil bytes)
                          (.serialize (jse/serializer) nil)))))))))
 
+(defspec edn-print-length-test 20
+  (testing "EDN data is the same after serialization and deserialization with *print-length*."
+    (binding [*print-length* 100]
+      (prop/for-all [x (gen/vector gen/int (inc *print-length*))]
+        (is (= x (->> (.serialize (jse/serializer) nil x)
+                      (.deserialize (jse/deserializer) nil))))))))
+
 (defmethod print-method java.net.URI
   [obj writer]
   (.write writer "#jackdaw/uri ")