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

Add a failing test

Browse source
This commit is contained in:
Tommi Reiman 2019-05-22 16:26:06 +03:00
parent 3381fe34e5
commit 4933927fa9
1 changed files with 18 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
test/cljc/reitit/ring_test.cljc
View file

@ -3,7 +3,8 @@
[clojure.set :as set]
[reitit.middleware :as middleware]
[reitit.ring :as ring]
[reitit.core :as r])
[reitit.core :as r]
[reitit.trie :as trie])
#?(:clj
(:import (clojure.lang ExceptionInfo))))
@ -577,3 +578,19 @@
(fn [{:keys [::r/router]} _ _]
(is router)))
{} ::respond ::raise)))
#?(:clj
(deftest invalid-path-parameters-parsing-concurrent-requests-277-test
(testing "in enought concurrent system, path-parameters can bleed"
(doseq [compiler [trie/java-trie-compiler trie/clojure-trie-compiler]]
(let [app (ring/ring-handler
(ring/router
["/:id" (fn [request]
{:status 200
:body (-> request :path-params :id)})])
{::trie/trie-compiler compiler})]
(dotimes [_ 10]
(future
(dotimes [n 100000]
(let [body (:body (app {:request-method :get, :uri (str "/" n)}))]
(is (= body (str n))))))))))))