variadic test, related to #142

This commit is contained in:
Tommi Reiman 2018-09-19 19:58:42 +03:00
parent d81f20ae79
commit 34827ccf1c

View file

@ -14,6 +14,9 @@
([request respond raise]
(handler (update request ::mw (fnil conj []) name) respond raise))))
(defn mw-variadic [handler name name2 name3]
(mw handler (keyword (str name "_" name2 "_" name3))))
(defn handler
([{:keys [::mw]}]
{:status 200 :body (conj mw :ok)})
@ -105,6 +108,14 @@
{:status 403, :body "forbidden"}
(handler request)))))
(deftest mw-variadic-test
(let [app (ring/ring-handler
(ring/router
["/" {:middleware [[mw-variadic "kikka" "kakka" "kukka"]]
:handler handler}]))]
(is (= {:status 200, :body [:kikka_kakka_kukka :ok]}
(app {:request-method :get, :uri "/"})))))
(deftest enforcing-data-rules-at-runtime-test
(let [handler (constantly {:status 200, :body "ok"})
app (ring/ring-handler