Cleanup example

This commit is contained in:
Tommi Reiman 2017-12-04 08:49:15 +02:00
parent 33260396d2
commit 7167c76af8

View file

@ -155,7 +155,11 @@
(is (= ::nil (raise))))))) (is (= ::nil (raise)))))))
(deftest middleware-transform-test (deftest middleware-transform-test
(let [middleware (fn [name] {:name name, :wrap #(mw % name)}) (let [middleware (fn [name] {:name name
:wrap (fn [handler]
(fn [request]
(handler (update request ::mw (fnil conj []) name))))})
handler (fn [{:keys [::mw]}] {:status 200 :body (conj mw :ok)})
request {:uri "/api/avaruus" :request-method :get} request {:uri "/api/avaruus" :request-method :get}
create (fn [options] create (fn [options]
(ring/ring-handler (ring/ring-handler