started the rest api

test/book/rest/util_test.clj

@@ -0,0 +1,43 @@
+(ns book.rest.util-test
+  (:require [book.rest.util :refer [build-response]]
+            [midje.sweet :refer :all]
+            [clojure.test :refer :all]))
+
+(defn expt-response [body content-type status]
+  {:body body
+   :headers {"Content-Type" content-type}
+   :status status})
+
+(facts "the building the response"
+       (fact "building the response in edn"
+         (let [content-type "application/edn"
+               request {:headers {"accept" content-type}}
+               response "foo"
+               expt (expt-response "foo" "application/edn" 200)]
+           (build-response request response) => expt))
+       (fact "building the response in edn"
+             (let [content-type "application/edn"
+                   request {:headers {"accept" content-type}}
+                   response {:foo [1 2 3]}
+                   expt (expt-response "{:foo [1 2 3]}" "application/edn" 200)]
+               (build-response request response) => expt))
+       (fact "building the response in edn"
+             (let [content-type "application/edn,application/json"
+                   request {:headers {"accept" content-type}}
+                   response {:foo [1 2 3]}
+                   expt (expt-response "{:foo [1 2 3]}" "application/edn" 200)]
+               (build-response request response) => expt))
+       (fact "building the response in json"
+             (let [content-type "text/html,application/xhtml+xml,application/json,application/xml;q=0.9,*/*;q=0.8"
+                   request {:headers {"accept" content-type}}
+                   response {:foo [1 2 3]}
+                   expt (expt-response "{\"foo\":[1,2,3]}" "application/json" 200)]
+               (build-response request response) => expt))
+       (fact "My browser should receive json"
+           (let [content-type "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
+                 request {:headers {"accept" content-type}}
+                 response {:foo [1 2 3]}
+                 expt (expt-response "{\"foo\":[1,2,3]}" "application/json" 200)]
+             (build-response request response) => expt)))
+
+