luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2025-12-21 01:51:11 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

test interceptor call counts

Browse source
This commit is contained in:
Tommi Reiman 2018-09-03 19:05:55 +03:00
parent e25c90010d
commit 34f0e24bb3
1 changed files with 23 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
test/clj/reitit/http_test.clj
View file

@ -420,3 +420,26 @@
(is (= "text/xml" (get-in @result [:headers "Content-Type"])))
(is (get-in @result [:headers "Last-Modified"]))
(is (= "<xml><hello>file</hello></xml>\n" (slurp (:body @result))))))))))))
(deftest execution-times-test
(let [times (atom {})
response {:status 200, :body "pong"}
interceptor (fn [x] {:enter (fn [ctx] (swap! times update-in [:enter x] (fnil inc 0)) ctx)
:leave (fn [ctx] (swap! times update-in [:leave x] (fnil inc 0)) ctx)})
app (http/ring-handler
(http/router
["/api"
{:interceptors [(interceptor :api)]}
["/ping"
{:interceptors [(interceptor :ping)]
:get {:interceptors [(interceptor :get)]
:handler (fn [_] response)}}]])
(ring/routes
(ring/create-default-handler)
{:data {:interceptors [(interceptor :router)]}})
{:executor sieppari/executor
:interceptors [(interceptor :top)]})]
(is (= response (app {:request-method :get, :uri "/api/ping"})))
(is (= {:enter {:top 1, :api 1, :ping 1, :get 1}
:leave {:get 1, :ping 1, :api 1, :top 1}}
@times))))