Added the response? function

@@ -128,3 +128,10 @@
   wrap-cookies middleware."
   [resp name value & [opts]]
   (assoc-in resp [:cookies name] (merge {:value value} opts)))
+
+(defn response?
+  "True if the supplied value is a valid response map."
+  [resp]
+  (and (map? resp)
+       (integer? (:status resp))
+       (map? (:headers resp))))

@@ -32,6 +32,12 @@
   (is (= {:status 200 :headers {"X-Foo" "Bar"}}
          (header {:status 200 :headers {}} "X-Foo" "Bar"))))
 
+(deftest test-response?
+  (is (response? {:status 200, :headers {}}))
+  (is (response? {:status 200, :headers {}, :body "Foo"}))
+  (is (not (response? {})))
+  (is (not (response? {:users []}))))
+
 (defmacro with-classloader
   "Temporarily replaces the current context classloader with one that
    includes everything in dir"