luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2026-01-09 16:49:50 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

middleware/chain

Browse source
This commit is contained in:
Tommi Reiman 2017-12-03 17:42:47 +02:00
parent b210a98f83
commit 59aa364932
2 changed files with 25 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
modules/reitit-ring/src/reitit/ring/middleware.cljc
View file

@ -101,3 +101,11 @@
:result
:handler))
{::router router}))
(defn chain
"Creates a vanilla ring middleware chain out of sequence of
IntoMiddleware thingies."
([middleware handler data]
(chain middleware handler data nil))
([middleware handler data opts]
(compile-handler (expand middleware data opts) handler)))

17
test/cljc/reitit/middleware_test.cljc
View file

@ -170,3 +170,20 @@
:middleware
(map :name))))))))))
(deftest chain-test
(testing "chain can produce middlware chain of any IntoMiddleware"
(let [mw (fn [handler value]
#(conj (handler (conj % value)) value))
handler #(conj % :ok)
mw1 {:gen-wrap (constantly #(mw % ::mw1))}
mw2 {:gen-wrap (constantly nil)}
mw3 {:wrap #(mw % ::mw3)}
mw4 #(mw % ::mw4)
mw5 {:gen-wrap (fn [{:keys [mount?]} _]
(when mount?
#(mw % ::mw5)))}
chain1 (middleware/chain [mw1 mw2 mw3 mw4 mw5] handler {:mount? true})
chain2 (middleware/chain [mw1 mw2 mw3 mw4 mw5] handler {:mount? false})]
(is (= [::mw1 ::mw3 ::mw4 ::mw5 :ok ::mw5 ::mw4 ::mw3 ::mw1] (chain1 [])))
(is (= [::mw1 ::mw3 ::mw4 :ok ::mw4 ::mw3 ::mw1] (chain2 []))))))