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

Remove useless testing calls

Browse source
This commit is contained in:
Miikka Koskinen 2021-02-26 07:41:03 +02:00
parent 07dfb91d96
commit 88897a2264
1 changed files with 105 additions and 109 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -474,35 +474,34 @@
(ring/router (ring/router
["/*" (create nil)]) ["/*" (create nil)])
(ring/create-default-handler))] (ring/create-default-handler))]
(testing test (testing "different file-types"
(testing "different file-types" (let [response (app (request "/hello.json"))]
(let [response (app (request "/hello.json"))] (is (= "application/json" (get-in response [:headers "Content-Type"])))
(is (= "application/json" (get-in response [:headers "Content-Type"]))) (is (get-in response [:headers "Last-Modified"]))
(is (get-in response [:headers "Last-Modified"])) (is (= "{\"hello\": \"file\"}" (slurp (:body response)))))
(is (= "{\"hello\": \"file\"}" (slurp (:body response))))) (let [response (app (request "/hello.xml"))]
(let [response (app (request "/hello.xml"))] (is (= "text/xml" (get-in response [:headers "Content-Type"])))
(is (= "text/xml" (get-in response [:headers "Content-Type"]))) (is (get-in response [:headers "Last-Modified"]))
(is (get-in response [:headers "Last-Modified"])) (is (= "<xml><hello>file</hello></xml>\n" (slurp (:body response))))))
(is (= "<xml><hello>file</hello></xml>\n" (slurp (:body response))))))
(testing "index-files" (testing "index-files"
(let [response (app (request "/docs"))] (let [response (app (request "/docs"))]
(is (= (redirect "/docs/index.html") response))) (is (= (redirect "/docs/index.html") response)))
(let [response (app (request "/docs/"))] (let [response (app (request "/docs/"))]
(is (= (redirect "/docs/index.html") response)))) (is (= (redirect "/docs/index.html") response))))
(testing "not found" (testing "not found"
(let [response (app (request "/not-found"))] (let [response (app (request "/not-found"))]
(is (= 404 (:status response))))) (is (= 404 (:status response)))))
(testing "3-arity" (testing "3-arity"
(let [result (atom nil) (let [result (atom nil)
respond (partial reset! result) respond (partial reset! result)
raise ::not-called] raise ::not-called]
(app (request "/hello.xml") respond raise) (app (request "/hello.xml") respond raise)
(is (= "text/xml" (get-in @result [:headers "Content-Type"]))) (is (= "text/xml" (get-in @result [:headers "Content-Type"])))
(is (get-in @result [:headers "Last-Modified"])) (is (get-in @result [:headers "Last-Modified"]))
(is (= "<xml><hello>file</hello></xml>\n" (slurp (:body @result))))))))) (is (= "<xml><hello>file</hello></xml>\n" (slurp (:body @result))))))))
(testing "from path" (testing "from path"
(let [app (ring/ring-handler (let [app (ring/ring-handler
@ -511,35 +510,34 @@
(ring/create-default-handler)) (ring/create-default-handler))
request #(request (str "/files" %)) request #(request (str "/files" %))
redirect #(redirect (str "/files" %))] redirect #(redirect (str "/files" %))]
(testing test (testing "different file-types"
(testing "different file-types" (let [response (app (request "/hello.json"))]
(let [response (app (request "/hello.json"))] (is (= "application/json" (get-in response [:headers "Content-Type"])))
(is (= "application/json" (get-in response [:headers "Content-Type"]))) (is (get-in response [:headers "Last-Modified"]))
(is (get-in response [:headers "Last-Modified"])) (is (= "{\"hello\": \"file\"}" (slurp (:body response)))))
(is (= "{\"hello\": \"file\"}" (slurp (:body response))))) (let [response (app (request "/hello.xml"))]
(let [response (app (request "/hello.xml"))] (is (= "text/xml" (get-in response [:headers "Content-Type"])))
(is (= "text/xml" (get-in response [:headers "Content-Type"]))) (is (get-in response [:headers "Last-Modified"]))
(is (get-in response [:headers "Last-Modified"])) (is (= "<xml><hello>file</hello></xml>\n" (slurp (:body response))))))
(is (= "<xml><hello>file</hello></xml>\n" (slurp (:body response))))))
(testing "index-files" (testing "index-files"
(let [response (app (request "/docs"))] (let [response (app (request "/docs"))]
(is (= (redirect "/docs/index.html") response))) (is (= (redirect "/docs/index.html") response)))
(let [response (app (request "/docs/"))] (let [response (app (request "/docs/"))]
(is (= (redirect "/docs/index.html") response)))) (is (= (redirect "/docs/index.html") response))))
(testing "not found" (testing "not found"
(let [response (app (request "/not-found"))] (let [response (app (request "/not-found"))]
(is (= 404 (:status response))))) (is (= 404 (:status response)))))
(testing "3-arity" (testing "3-arity"
(let [result (atom nil) (let [result (atom nil)
respond (partial reset! result) respond (partial reset! result)
raise ::not-called] raise ::not-called]
(app (request "/hello.xml") respond raise) (app (request "/hello.xml") respond raise)
(is (= "text/xml" (get-in @result [:headers "Content-Type"]))) (is (= "text/xml" (get-in @result [:headers "Content-Type"])))
(is (get-in @result [:headers "Last-Modified"])) (is (get-in @result [:headers "Last-Modified"]))
(is (= "<xml><hello>file</hello></xml>\n" (slurp (:body @result)))))))))) (is (= "<xml><hello>file</hello></xml>\n" (slurp (:body @result)))))))))
(testing "outside a router" (testing "outside a router"
@ -549,36 +547,35 @@
(ring/routes (ring/routes
(create {:path "/" :not-found-handler (fn [x] {:status 404 :body "resource-handler"})}) (create {:path "/" :not-found-handler (fn [x] {:status 404 :body "resource-handler"})})
(ring/create-default-handler)))] (ring/create-default-handler)))]
(testing test (testing "different file-types"
(testing "different file-types" (let [response (app (request "/hello.json"))]
(let [response (app (request "/hello.json"))] (is (= "application/json" (get-in response [:headers "Content-Type"])))
(is (= "application/json" (get-in response [:headers "Content-Type"]))) (is (get-in response [:headers "Last-Modified"]))
(is (get-in response [:headers "Last-Modified"])) (is (= "{\"hello\": \"file\"}" (slurp (:body response)))))
(is (= "{\"hello\": \"file\"}" (slurp (:body response))))) (let [response (app (request "/hello.xml"))]
(let [response (app (request "/hello.xml"))] (is (= "text/xml" (get-in response [:headers "Content-Type"])))
(is (= "text/xml" (get-in response [:headers "Content-Type"]))) (is (get-in response [:headers "Last-Modified"]))
(is (get-in response [:headers "Last-Modified"])) (is (= "<xml><hello>file</hello></xml>\n" (slurp (:body response))))))
(is (= "<xml><hello>file</hello></xml>\n" (slurp (:body response))))))
(testing "index-files" (testing "index-files"
(let [response (app (request "/docs"))] (let [response (app (request "/docs"))]
(is (= (redirect "/docs/index.html") response))) (is (= (redirect "/docs/index.html") response)))
(let [response (app (request "/docs/"))] (let [response (app (request "/docs/"))]
(is (= (redirect "/docs/index.html") response)))) (is (= (redirect "/docs/index.html") response))))
(testing "not found" (testing "not found"
(let [response (app (request "/not-found"))] (let [response (app (request "/not-found"))]
(is (= 404 (:status response))) (is (= 404 (:status response)))
(is (= "resource-handler" (:body response))))) (is (= "resource-handler" (:body response)))))
(testing "3-arity" (testing "3-arity"
(let [result (atom nil) (let [result (atom nil)
respond (partial reset! result) respond (partial reset! result)
raise ::not-called] raise ::not-called]
(app (request "/hello.xml") respond raise) (app (request "/hello.xml") respond raise)
(is (= "text/xml" (get-in @result [:headers "Content-Type"]))) (is (= "text/xml" (get-in @result [:headers "Content-Type"])))
(is (get-in @result [:headers "Last-Modified"])) (is (get-in @result [:headers "Last-Modified"]))
(is (= "<xml><hello>file</hello></xml>\n" (slurp (:body @result))))))))) (is (= "<xml><hello>file</hello></xml>\n" (slurp (:body @result))))))))
(testing "from path" (testing "from path"
(let [app (ring/ring-handler (let [app (ring/ring-handler
@ -588,39 +585,38 @@
(ring/create-default-handler))) (ring/create-default-handler)))
request #(request (str "/files" %)) request #(request (str "/files" %))
redirect #(redirect (str "/files" %))] redirect #(redirect (str "/files" %))]
(testing test (testing "different file-types"
(testing "different file-types" (let [response (app (request "/hello.json"))]
(let [response (app (request "/hello.json"))] (is (= "application/json" (get-in response [:headers "Content-Type"])))
(is (= "application/json" (get-in response [:headers "Content-Type"]))) (is (get-in response [:headers "Last-Modified"]))
(is (get-in response [:headers "Last-Modified"])) (is (= "{\"hello\": \"file\"}" (slurp (:body response)))))
(is (= "{\"hello\": \"file\"}" (slurp (:body response))))) (let [response (app (request "/hello.xml"))]
(let [response (app (request "/hello.xml"))] (is (= "text/xml" (get-in response [:headers "Content-Type"])))
(is (= "text/xml" (get-in response [:headers "Content-Type"]))) (is (get-in response [:headers "Last-Modified"]))
(is (get-in response [:headers "Last-Modified"])) (is (= "<xml><hello>file</hello></xml>\n" (slurp (:body response))))))
(is (= "<xml><hello>file</hello></xml>\n" (slurp (:body response))))))
(testing "index-files" (testing "index-files"
(let [response (app (request "/docs"))] (let [response (app (request "/docs"))]
(is (= (redirect "/docs/index.html") response))) (is (= (redirect "/docs/index.html") response)))
(let [response (app (request "/docs/"))] (let [response (app (request "/docs/"))]
(is (= (redirect "/docs/index.html") response)))) (is (= (redirect "/docs/index.html") response))))
(testing "not found" (testing "not found"
(let [response (app {:uri "/not-found" :request-method :get})] (let [response (app {:uri "/not-found" :request-method :get})]
(is (= 404 (:status response))) (is (= 404 (:status response)))
(is (= "" (:body response)))) (is (= "" (:body response))))
(let [response (app {:uri "/files/not-found" :request-method :get})] (let [response (app {:uri "/files/not-found" :request-method :get})]
(is (= 404 (:status response))) (is (= 404 (:status response)))
(is (= "resource-handler" (:body response))))) (is (= "resource-handler" (:body response)))))
(testing "3-arity" (testing "3-arity"
(let [result (atom nil) (let [result (atom nil)
respond (partial reset! result) respond (partial reset! result)
raise ::not-called] raise ::not-called]
(app (request "/hello.xml") respond raise) (app (request "/hello.xml") respond raise)
(is (= "text/xml" (get-in @result [:headers "Content-Type"]))) (is (= "text/xml" (get-in @result [:headers "Content-Type"])))
(is (get-in @result [:headers "Last-Modified"])) (is (get-in @result [:headers "Last-Modified"]))
(is (= "<xml><hello>file</hello></xml>\n" (slurp (:body @result))))))))))))))) (is (= "<xml><hello>file</hello></xml>\n" (slurp (:body @result))))))))))))))
(deftest router-available-in-default-branch (deftest router-available-in-default-branch
(testing "1-arity" (testing "1-arity"