                      {:status  200
                       :body async-body}))
   (GET "/async2" [] test-async)
+  (GET "/ws" [] ws-handler)
   (GET "/just-body" [] test-async-just-body))
 
 (use-fixtures :once (fn [f]

    (is (= (:status resp) 200))
    (is (:headers resp))
    (is (= (:body resp) "just-body"))))

(defasync test-async-just-body [req] cb
  (cb "just-body"))

(defwshandler ws-handler [req] con
  (receive con (fn [msg]
                 (write con msg))))

(defonce tmp-server (atom nil))

(defn -main [& args]
