From ea05b98280aa1c5ecc76ac299c127dd9d4a345f0 Mon Sep 17 00:00:00 2001 From: Nathan Marz Date: Sat, 18 Apr 2015 12:17:09 -0400 Subject: [PATCH] added benchmark helper to impl --- src/clj/com/rpl/specter/impl.clj | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/clj/com/rpl/specter/impl.clj b/src/clj/com/rpl/specter/impl.clj index f6c4e6c..5ca3064 100644 --- a/src/clj/com/rpl/specter/impl.clj +++ b/src/clj/com/rpl/specter/impl.clj @@ -4,6 +4,11 @@ [clojure.core.reducers :as r]) ) +(defn benchmark [iters afn] + (time + (dotimes [_ iters] + (afn)))) + (defprotocol CoerceStructureValsPath (coerce-path [this]))