Add test for stringreader

babashka · Apr 18, 2024 · 8723c67 · 8723c67
1 parent 7df8f56
commit 8723c67
Showing 1 changed file with 12 additions and 9 deletions.
diff --git a/test/babashka/http_client_test.clj b/test/babashka/http_client_test.clj
@@ -535,16 +535,19 @@
                                   "q=%26moo"))))))
 
 (deftest ring-client-test
-  (testing "string body"
-    (let [resp (http/get "https://clojure.org"
-                         {:client (fn [_req]
-                                    {:body "Hello"})})]
-      (is (= "Hello" (:body resp)))))
   (testing "inputstring body"
-    (let [resp (http/get "https://clojure.org"
-                         {:client (fn [req]
-                                    {:body (java.io.ByteArrayInputStream. (.getBytes "Hello"))
-                                     :clojure (= "https://clojure.org" (str (:uri req)))})})]
+    (doseq [resp [(http/get "https://clojure.org"
+                            {:client (fn [_req]
+                                       {:body "Hello"
+                                        :clojure true})})
+                  (http/get "https://clojure.org"
+                            {:client (fn [req]
+                                       {:body (java.io.ByteArrayInputStream. (.getBytes "Hello"))
+                                        :clojure (= "https://clojure.org" (str (:uri req)))})})
+                  (http/get "https://clojure.org"
+                            {:client (fn [_req]
+                                       {:body (java.io.StringReader. "Hello")
+                                        :clojure true})})]]
       (is (:clojure resp))
       (is (= "Hello" (:body resp))))))