 (when (not (in-container?))
   ;; TODO: Run this in-container. The only thing stopping us is our
   ;; jersey sse client seems to be incompatible with resteasy
-  (deftest server-sent-events
+  (marktest server-sent-events
     (let [closed (promise)
           result (atom [])
           client (as-> (event-source (str (url) "sse")) c

    (is (map? (:headers request)))
    (is (< 3 (count (:headers request))))))

(deftest upgrade-request-map-entries
  (let [request (promise)]
    (with-open [s (ws/connect (str (url "ws") "dump?x=y&j=k")
                    :on-receive (fn [m] (deliver request (decode m))))]

    (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))
