Fix for #26.

Fix based on patch by btatnall. Response body will always be delivered on response completion.
cch1 · Feb 4, 2012 · e040f5c · e040f5c
1 parent dbae286
commit e040f5c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/src/clj/http/async/client/request.clj b/src/clj/http/async/client/request.clj
@@ -255,6 +255,8 @@
             onCompleted [this]
             (do
               (completed resp)
+              (when-not (realized? (:body resp))
+                (deliver (:body resp) nil))
               (deliver (:done resp) true)))
            (^{:tag void}
             onThrowable [this #^Throwable t]

diff --git a/test/http/async/client/test.clj b/test/http/async/client/test.clj
@@ -598,7 +598,7 @@
     (is (thrown-with-msg? RuntimeException #"Closed" (GET client "http://localhost:8123/")))))
 
 (deftest extract-empty-body
-  (let [resp (await (GET *client* "http://localhost:8123/empty"))]
+  (let [resp (GET *client* "http://localhost:8123/empty")]
     (is (nil? (string resp)))))
 
 ;;(deftest profile-get-stream