   (testing "Using manifold stream as body."
     (letfn [(handler [ctx]
               (let [d (ms/stream 3)]
-                (async/thread
+                (a/thread
                   @(ms/put! d "hello")
                   @(ms/put! d " ")
                   @(ms/put! d "world")

  (testing "Using manifold deferred as body."
    (letfn [(handler [ctx]
              (let [d (md/deferred)]
                (async/thread
                  (md/success! d "hello world"))
                (http/accepted d)))]
      (with-server {:handler handler}

  (testing "Using completable future as body."
    (letfn [(handler [ctx]
              (http/ok (p/promise (fn [resolve reject]
                                    (a/<!! (a/timeout 1000))
                                    (resolve "hello world")))))]
      (with-server {:handler handler}
        (let [response (client/get base-url)]
