| (deftest post-request | |
| ;; Handler function die altijd een created response geeft | |
| (let [handler (fn [request] {:status 201 | |
| :headers {"Location" | |
| (str "/api/" (get-in request [:body :id]))}}) | |
| ;; Hier maken we de request en response objecten | |
| http-request (servlet-request {:request-method :post :body {:id 1}}) | |
| http-response (servlet-response)] | |
| ;; Voer de service method uit op onze servlet | |
| (.service (servlet handler) | |
| http-request | |
| http-response) | |
| ;; Assert de resultaten | |
| (is (= 201 (.getStatus http-response))) | |
| (is (= "/api/1" (.getHeader http-response "Location"))))) |