Profiling Magrathea

profiling.clj

(ns profiling
  (:require [magrathea.server.routes :refer (app)]
            [ring.mock.request :as mock]
            [taoensso.timbre.profiling :as p]))

(def req (mock/request
           :get
           "/organization/085cafea-868b-4db2-958c-641988553c5b/my-account"))

(defn do-with-orgs
  [orgs-fn label times]
  (with-redefs-fn {#'magrathea.server.middleware/wrap-authentication identity
                   #'magrathea.server.middleware/wrap-authorization  identity
                   #'magrathea.db.users/orgs orgs-fn}
    #(dotimes [n times] (p/p label (app req)))))

(def do-without-memo (partial do-with-orgs magrathea.db.users/orgs :no-memo))
(def do-with-memo    (partial do-with-orgs (memoize magrathea.db.users/orgs)
                              :memo))

(defn do-it
  [times]
  (do-without-memo times)
  (do-with-memo times))

#_(p/profile :info :requests (do-it 1000)