Don't discard body for HEAD requests. (#615)

Fixes #614

Author: AustinHaas-cisco

src/clj_http/core.clj

@@ -391,6 +391,7 @@
             (getMethod [] (.toUpperCase (name method) Locale/ROOT)))
       (.setURI (URI. url)))))
 
+(def proxy-head-with-body (make-proxy-method-with-body :head))
 (def proxy-delete-with-body (make-proxy-method-with-body :delete))
 (def proxy-get-with-body (make-proxy-method-with-body :get))
 (def proxy-copy-with-body (make-proxy-method-with-body :copy))
@@ -413,7 +414,9 @@
     :get     (if body
                (proxy-get-with-body http-url)
                (HttpGet. http-url))
-    :head    (HttpHead. http-url)
+    :head    (if body
+               (proxy-head-with-body http-url)
+               (HttpHead. http-url))
     :put     (HttpPut. http-url)
     :post    (HttpPost. http-url)
     :options (HttpOptions. http-url)

test/clj_http/test/core_test.clj

@@ -104,6 +104,8 @@
     {:status 200 :body "delete-with-body"}
     [:post "/multipart"]
     {:status 200 :body (:body req)}
+    [:head "/head-with-body"]
+    {:status 200 :headers {"body" (slurp (:body req))}}
     [:get "/get-with-body"]
     {:status 200 :body (:body req)}
     [:options "/options"]
@@ -412,8 +414,10 @@
 
 (deftest ^:integration head-with-body
   (run-server)
-  (let [resp (request {:request-method :head :uri "/head" :body "foo"})]
-    (is (= 200 (:status resp)))))
+  (let [resp (request {:request-method :head :uri "/head-with-body"
+                       :body (.getBytes "foo")})]
+    (is (= 200 (:status resp)))
+    (is (= "foo" (get-in resp [:headers "body"])))))
 
 (deftest ^:integration t-clojure-output-coercion
   (run-server)