     (is (= @(:completed request) true))
     (is (= (@response :status) 200))
     (is (= (@response :content-type) "text/plain"))
-    (is (= (take-while (complement zero?) (@response :body))
-           (seq (.getBytes "Hello World"))))))
+    (is (= (.toString (@response :body)) "Hello World"))))
 
 (defservice "foo-"
   (fn [_]

        (is (= (@response :status) 200))
        (is (= (@response :content-type) "text/plain"))
        (is (= (get-in @response [:headers "X-Server"]) "Bar"))
        (is (= (take-while (complement zero?) (@response :body))
               (seq (.getBytes "Hello World"))))))))

(deftest servlet-cps-test
  (let [handler  (fn [_ respond _]

                 (servlet-response response))
    (is (= (@response :status) 200))
    (is (= (get-in @response [:headers "Content-Type" ]) "text/plain"))
    (is (= (.toString (@response :body)) "Hello World"))))
