mirror of
https://github.com/metosin/reitit.git
synced 2025-12-17 08:21:11 +00:00
32 lines
1.2 KiB
Clojure
32 lines
1.2 KiB
Clojure
|
(ns example.server-test
|
||
|
|
(:require [clojure.test :refer :all]
|
||
|
|
[example.server :refer [app]]))
|
||
|
|
|
||
|
|
(deftest example-server
|
||
|
|
|
||
|
|
(testing "GET"
|
||
|
|
(is (= (-> {:request-method :get :uri "/math/plus" :query-params {:x 20 :y 3}}
|
||
|
|
app :body slurp)
|
||
|
|
"{\"total\":23}")))
|
||
|
|
|
||
|
|
(testing "POST"
|
||
|
|
(is (= (-> {:request-method :post :uri "/math/plus" :body-params {:x 40 :y 2}}
|
||
|
|
app :body slurp)
|
||
|
|
"{\"total\":42}")))
|
||
|
|
|
||
|
|
(testing "Download"
|
||
|
|
(is (= (-> {:request-method :get :uri "/files/download"}
|
||
|
|
app :body (#(slurp % :encoding "ascii")) count) ;; binary
|
||
|
|
(.length (clojure.java.io/file "resources/reitit.png"))
|
||
|
|
506325)))
|
||
|
|
|
||
|
|
(testing "Upload"
|
||
|
|
(let [file (clojure.java.io/file "resources/reitit.png")
|
||
|
|
multipart-temp-file-part {:tempfile file
|
||
|
|
:size (.length file)
|
||
|
|
:filename (.getName file)
|
||
|
|
:content-type "image/png;"}]
|
||
|
|
(is (= (-> {:request-method :post :uri "/files/upload" :multipart-params {:file multipart-temp-file-part}}
|
||
|
|
app :body slurp)
|
||
|
|
"{\"name\":\"reitit.png\",\"size\":506325}")))))
|