test and fix input coercion

Author: mmcgrana

src/clj_http/client.clj

@@ -75,7 +75,7 @@
 (defn wrap-input-coercion [client]
   (fn [{:keys [body] :as req}]
     (if (string? body)
-      (client (-> req (assoc :body (.toString body "UTF-8")
+      (client (-> req (assoc :body (.getBytes body "UTF-8")
                              :character-encoding "UTF-8")))
       (client req))))
 

test/clj_http/client_test.clj

@@ -1,7 +1,8 @@
 (ns clj-http.client-test
   (:use clojure.test)
   (:require [clj-http.client :as client])
-  (:require [clj-http.util :as util]))
+  (:require [clj-http.util :as util])
+  (:import (java.util Arrays)))
 
 (def base-req
   {:scheme "http"
@@ -113,6 +114,17 @@
     {:uri "/foo"}))
 
 
+(deftest apply-on-input-coercion
+  (let [i-client (client/wrap-input-coercion identity)
+        resp (i-client {:body "foo"})]
+    (is (= "UTF-8" (:character-encoding resp)))
+    (is (Arrays/equals (.getBytes "foo" "UTF-8") (:body resp)))))
+
+(deftest pass-on-no-input-coercion
+  (is-passed client/wrap-input-coercion
+    {:body (.getBytes "foo" "UTF-8")}))
+
+
 (deftest apply-on-content-type
   (is-applied client/wrap-content-type
     {:content-type :json}