gistfile1.txt

(defn- start-server []
  (-> (duct/resource "my_project/config.edn")
      (duct/read-config)
      (duct/prep-config [:duct.profile/test])
      (ig/init [:duct.router/ataraxy :duct.migrator/ragtime])))

(def #^:dynamic the-system
  "During the test, this var holds the initialized system map."
  nil)

(defn my-fixture [test-thunk]
  "Run the test while binding the-system to the initialized system map."
  (binding [the-system (start-server)]
    (try
      (test-thunk)
      (finally
        (ig/halt! the-system)))))

(defn call-handler [request]
  "Call the toplevel router handler"
  (let [handler (:duct.router/ataraxy the-system)]
    (handler request)))