Ring handler to record req/responses

capture.clj

(defn capture
  [handler]
  (let [a (atom [])
        _ (.addShutdownHook (Runtime/getRuntime)
                            (Thread. #(->> a
                                           (deref)
                                           (pr-str)
                                           (spit (str "./test-requests-" (System/currentTimeMillis) ".edn")))))]
    (fn
      ([request]
       (let [buffer (java.io.ByteArrayOutputStream.)
             _ (clojure.java.io/copy (:body request) buffer)
             bytes (.toByteArray buffer)
             req-text (String. bytes "utf-8")
             response (handler (assoc request :body (java.io.ByteArrayInputStream. bytes)) )]
         (let [{:keys [request-method uri]} request
               {:keys [status body]} response]
           (swap! a conj [uri request-method req-text status body])
           response)))
      ([request respond raise]
       (handler request (fn [response] (respond response)) raise)))))