         (is (= {:count 2} (:session upgrade))))))
   (is (= "2" (get-body (url)))))
 
-(deftest request-map-entries
+(marktest request-map-entries
   (get-body (url)) ;; ensure there's something in the session
   (let [request (decode (get-body (str (url) "dump/request?query=help") :headers {:content-type "text/html; charset=utf-8"}))]
     (are [x expected] (= expected (x request))

  (is (= "ahoy" (get-body (cdef-url))))
  (is (= :complete! (read-string (get-body (str (cdef-url) "state"))))))

(deftest stream-on-error-is-called-if-on-success-throws
  (replace-handler
    '(do
       (reset! client-state (promise))

    (is (= 201 status))
    (is (= "biscuit" (:ham headers)))))

(marktest stream-on-close-should-be-invoked-when-closing-on-server-side
  (replace-handler
    '(do
       (reset! client-state (promise))
