1 files changed, 46 insertions, 0 deletions
diff --git a/compojure-3.2/test/compojure/http/response_test.clj b/compojure-3.2/test/compojure/http/response_test.clj
new file mode 100755
index 0000000..45a0d01
--- /dev/null
+++ b/compojure-3.2/test/compojure/http/response_test.clj
@@ -0,0 +1,46 @@
+(ns compojure.http.response-test
+  (:use compojure.http.response
+        clojure.contrib.test-is))
+
+(deftest nil-response
+  (is (= (create-response {} nil)
+         {:status 200, :headers {}})))
+
+(deftest int-response
+  (is (= (:status (create-response {} 404))
+         404)))
+         
+(deftest next-response
+  (is (nil? (create-response {} :next))))
+
+(deftest string-response
+  (is (= (:body (create-response {} "Lorem Ipsum"))
+         "Lorem Ipsum")))
+
+(deftest seq-response
+  (is (= (:body (create-response {} (list "a" "b" "c")))
+         (list "a" "b" "c"))))
+
+(deftest map-response
+  (let [response {:status  200
+                  :headers {"Content-Type" "text/plain"}
+                  :body    "Lorem Ipsum"}]
+    (is (= (create-response {} response) response))))
+
+(deftest vector-string-response
+  (is (= (:body (create-response {} ["Foo" "Bar" "Baz"]))
+         "FooBarBaz")))
+
+(deftest vector-int-response
+  (is (= (:status (create-response {} [200 500 403]))
+         403)))
+
+(deftest default-content-type
+  (let [response {:headers {"Foo" "Bar"}}]
+    (is (= (:headers (update-response {} response "Foo"))
+           {"Foo" "Bar" "Content-Type" "text/html"}))))
+
+(deftest supplied-content-type
+  (let [response {:headers {"Content-Type" "text/plain" "Foo" "Bar"}}]
+    (is (= (:headers (update-response {} response "Foo"))
+           {"Content-Type" "text/plain" "Foo" "Bar"}))))