clj-http-server-template/resources/clj/new/http_server_template/response_test.clj

(ns {{namespace}}.response-test
  (:require [{{namespace}}.response :as sut]
            [clojure.test :as t]))

(t/deftest response-invalid-status-returns-500-test
  (t/testing "Invalid status value returns 500 response."
    (t/is (= 500 (:status (sut/response :non-existent-status :plain ""))))))

(t/deftest response-invalid-content-type-returns-plain-test
  (t/testing "Invalid content type returns text/plain response."
    (t/is (= {"Content-Type" "text/plain"} (-> (sut/response :ok :non-existent-type "")
                                               :headers)))))