Cleanup tests

This commit is contained in:
Tommi Reiman 2017-08-14 09:50:12 +03:00
parent d21f051868
commit cf06a1757d

View file

@ -17,6 +17,12 @@
#(respond (update % :body (fnil conj []) name)) #(respond (update % :body (fnil conj []) name))
raise)))) raise))))
(defn handler
([{:keys [::mw]}]
{:status 200 :body (conj mw :ok)})
([request respond raise]
(respond (handler request))))
(deftest ring-test (deftest ring-test
(testing "simple-router" (testing "simple-router"
@ -29,11 +35,6 @@
(testing "ring-handler" (testing "ring-handler"
(let [api-mw #(mw % :api) (let [api-mw #(mw % :api)
handler (fn handle
([{:keys [::mw]}]
{:status 200 :body (conj mw :ok)})
([request respond raise]
(respond (handle request))))
router (ring/simple-router router (ring/simple-router
[["/ping" handler] [["/ping" handler]
["/api" {:middleware [api-mw]} ["/api" {:middleware [api-mw]}
@ -77,11 +78,6 @@
(testing "ring-handler" (testing "ring-handler"
(let [api-mw #(mw % :api) (let [api-mw #(mw % :api)
handler (fn handle
([{:keys [::mw]}]
{:status 200 :body (conj mw :ok)})
([request respond raise]
(respond (handle request))))
router (ring/method-router router (ring/method-router
[["/api" {:middleware [api-mw]} [["/api" {:middleware [api-mw]}
["/all" handler] ["/all" handler]