core.clj

(ns cljson-shootout.core
  (:require cheshire.core clj-json.core clojure.data.json
            [criterium.core :refer :all]))



(def +json+ "{\"apple\":\"pie\", \"banana\":{\"qwertyuiopasdfghjklzxcvbnm,\":100, \"askdfj adlskfj\":[1,2,3,4,5,1,2,3,4,1,2,3,4,3,3,2,2,2,2,2,2,2,\"Whoa there!\"]}, \"anarray\":[893172,19203809,12093810928309123,1237732,123,0.111]}")


(defn cheshire-test
  []
  (cheshire.core/generate-string (cheshire.core/parse-string +json+)))

(defn clj-json-test
  []
  (clj-json.core/generate-string (clj-json.core/parse-string +json+)))

(defn clojure-data-test
  []
  (clojure.data.json/write-str (clojure.data.json/read-str +json+)))


(bench (cheshire-test))
(bench (clj-json-test))
(bench (clojure-data-test))