added a test for generate-string with a nil object

mmcgrana · Sep 28, 2011 · 312b5fa · 312b5fa
1 parent 5853c13
commit 312b5fa
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/test/clj_json/core_test.clj b/test/clj_json/core_test.clj
@@ -39,4 +39,11 @@
                                        (fn [x] (reduce (fn [acc x] (assoc acc x true)) {} x))}]
     (is (= {"foo" {"bang" true, "bar" true}}
            (json/parse-string
-            (json/generate-string {"foo" #{"bar" "bang"}}))))))
+            (json/generate-string {"foo" #{"bar" "bang"}}))))))
+
+(deftest test-redefine-coercions-with-nil
+  (binding [clj-json.core/*coercions* {clojure.lang.PersistentHashSet
+                                       (fn [x] (reduce (fn [acc x] (assoc acc x true)) {} x))}]
+    (is (= nil 
+           (json/parse-string
+            (json/generate-string nil))))))