This commit is contained in:
Tommi Reiman 2018-08-25 15:44:58 +03:00
parent f9e2331539
commit 8b4f7af241

View file

@ -264,7 +264,6 @@
(is (= {:status 200, :body [:olipa "debug" :kerran "debug" :avaruus "debug" :ok]} (is (= {:status 200, :body [:olipa "debug" :kerran "debug" :avaruus "debug" :ok]}
(app request))))))) (app request)))))))
#?(:clj
(deftest resource-handler-test (deftest resource-handler-test
(let [redirect (fn [uri] {:status 302, :body "", :headers {"Location" uri}}) (let [redirect (fn [uri] {:status 302, :body "", :headers {"Location" uri}})
request (fn [uri] {:uri uri, :request-method :get})] request (fn [uri] {:uri uri, :request-method :get})]
@ -420,4 +419,4 @@
(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))))))))))))