            (finally (.close http-server))))))
 
 (defn ^:private store-reqs-fixture
+  "A fixture that resets the request store."
   [f]
   (with-redefs [recvd-reqs (atom [])]
     (f)))

            [manifold.deferred :refer [let-flow]]
            [taoensso.timbre :refer [info spy]]))

(def http-server)
(def recvd-reqs)

(defn handler
  [req]
  (swap! recvd-reqs conj req)
  {:status 200

   :body "xyzzy"})

(def http-server-port
  "The port the test HTTP server will listen on."
  8378) ;; 8378 => TEST

(def http-server-base-url
  "The base URL of the test HTTP server."
  (str "http://localhost:" http-server-port))

(defn ^:private http-server-fixture
  "A fixture that listens on `http-server-port` and cleans up afterwards."
  [f]
  (let [server (http/start-server handler {:port http-server-port})]
    (with-redefs [http-server server]
