     (is (string? (:set-cookie header)))
     (is (= (:name cookie) "foo"))
     (is (= (:value cookie) "bar"))))
-
 
 (deftest await-string
   (let [resp (GET *client* "http://localhost:8123/stream")

      (is (thrown-with-msg? IOException #"Too many connections 1" (GET client url)))
      (is (not (failed? (await r1)))))))


(deftest single-set-cookie
  (let [resp (GET *client* "http://localhost:8123/cookie")

             "/timeout" (Thread/sleep 2000)
             "/empty" (.setHeader hResp "Nothing" "Yep")
             "/multi-query" (.setHeader hResp "query" (.getQueryString hReq))
             "/redirect" (.sendRedirect hResp "here")
             (doseq [n (enumeration-seq (.getParameterNames hReq))]
               (doseq [v (.getParameterValues hReq n)]
                 (.addHeader hResp n v))))
