Add more ring.util.response tests.

@@ -14,8 +14,8 @@
   headers."
   [body]
   {:status  200
-   :body    body
-   :headers {}})
+   :headers {}
+   :body    body})
 
 (defn- safe-path?
   "Is a filepath safe for a particular root?"

@@ -6,3 +6,13 @@
   (is (= {:status 302 :headers {"Location" "http://google.com"} :body ""}
          (redirect "http://google.com"))))
 
+(deftest test-response
+  (is (= {:status 200 :headers {} :body "foobar"}
+         (response "foobar"))))
+
+(deftest test-status
+  (is (= {:status 200 :body ""} (status {:status nil :body ""} 200))))
+
+(deftest test-content-type
+  (is (= {:status 200 :headers {"Content-Type" "text/html" "Content-Length" "10"}}
+         (content-type {:status 200 :headers {"Content-Length" "10"}} "text/html"))))