luciano/nippy
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use tools.reader.edn in benchmarks

Browse source
This commit is contained in:
Peter Taoussanis 2013-08-07 16:27:30 +07:00
parent 05907403dc
commit efa56eca73
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/taoensso/nippy/benchmarks.clj
View file

@ -1,6 +1,7 @@
(ns taoensso.nippy.benchmarks (ns taoensso.nippy.benchmarks
{:author "Peter Taoussanis"} {:author "Peter Taoussanis"}
(:require [taoensso.nippy :as nippy :refer (freeze thaw)] (:require [clojure.tools.reader.edn :as edn]
[taoensso.nippy :as nippy :refer (freeze thaw)]
[taoensso.nippy.utils :as utils])) [taoensso.nippy.utils :as utils]))
;; Remove stuff from stress-data that breaks reader ;; Remove stuff from stress-data that breaks reader
@ -9,7 +10,7 @@
(defmacro bench* [& body] `(utils/bench 10000 (do ~@body) :warmup-laps 2000)) (defmacro bench* [& body] `(utils/bench 10000 (do ~@body) :warmup-laps 2000))
(defn freeze-reader [x] (binding [*print-dup* false] (pr-str x))) (defn freeze-reader [x] (binding [*print-dup* false] (pr-str x)))
(defn thaw-reader [x] (binding [*read-eval* false] (read-string x))) (defn thaw-reader [x] (edn/read-string x))
(def roundtrip-reader (comp thaw-reader freeze-reader)) (def roundtrip-reader (comp thaw-reader freeze-reader))
(def roundtrip-defaults (comp thaw freeze)) (def roundtrip-defaults (comp thaw freeze))