Perf test query wrapper

This commit is contained in:
Sean Corfield 2019-01-10 13:16:29 -08:00
parent 01a13fe4fa
commit a5027066f9

View file

@ -428,6 +428,8 @@
(require '[criterium.core :refer [bench quick-bench]])
;; calibrate
(quick-bench (reduce + (take 10e6 (range))))
(quick-bench
(query con ["select * from fruit where appearance = ?" "red"]))
(with-open [ps (prepare con ["select * from fruit where appearance = ?"] {})]
(quick-bench
(reduce (fn [_ row] (reduced (:name row)))