added benchmark helper to impl

2015-04-18 12:17:09 -04:00 · 2015-04-18 12:17:09 -04:00 · ea05b98280
commit ea05b98280
parent ca1940a026
1 changed files with 5 additions and 0 deletions
--- 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]))