Using criterium to benchmark every fact in a midge-tested repo

benchmarking-in-repo.clj

;; lein repl
(use 'midje.repl)
(load-facts 'push.type.*)
(use 'criterium.core)
(defn benchmark-fact
   [fact]
  (println "\n\n")
  (println (:midje/namespace (meta fact)))
  (println (:midje/file (meta fact)))
  (println (:midje/description (meta fact)))
  (with-progress-reporting
    (quick-bench (check-one-fact fact) :verbose)
    ))
(map benchmark-fact (fetch-facts))