@@ -75,7 +75,7 @@ #^String pad #^String current-indent #^Integer indent-size] (let [next-indent (get-next-indent current-indent indent-size) k (key pair) - ke (if (integer? k) (str k) k)] + ke (if (number? k) (str k) k)] (encode-helper ke writer pad current-indent indent-size) (.append writer ":") (encode-helper (val pair) writer pad "" indent-size next-indent))) src/org/danlarkin/json/encoder.clj @@ -56,6 +56,10 @@ (is (= "{\"1\":1}" (json/encode-to-str {1 1})))) +(deftest single-object-bignum-key + (is (= "{\"1.0E25\":1}" + (json/encode-to-str {1e25 1})))) + (deftest easy-number (is (:json= 10))) test/test.clj 5253caf91fe456a75e059fc56cc752e16d740f21 Dan Larkin dan@danlarkin.org http://github.com/dysinger/clojure-json/commit/944a3e33596e83a0c56ed08cf981778af38aecfe 944a3e33596e83a0c56ed08cf981778af38aecfe 2009-11-01T09:09:02-08:00 2009-11-01T09:09:02-08:00 handle when hashmap keys are bignums dccdb30b4dab2824bae2f41ef5740270ffb21a6e Dan Larkin dan@danlarkin.org