Add test for comma separated header and numeric value as well

gnarroway · Jun 2, 2023 · 278abe9 · 278abe9
1 parent cd406d7
commit 278abe9
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/test/hato/client_test.clj b/test/hato/client_test.clj
@@ -349,14 +349,16 @@
                               "content-type" "application/json"}
                     :body    (json/generate-string
                               (-> (:headers req)
-                                  (select-keys ["a" "b"])
+                                  (select-keys ["a" "b" "c" "d"])
                                   ;; ring spec will take multi value headers as a comma separated string.
                                   (update "b" #(str/split % #","))))})
       (let [response (get "http://localhost:1234" {:headers {"a" "single"
-                                                             "b" ["1" "2"]}
+                                                             "b" ["1" "2"]
+                                                             "c" "1,2"
+                                                             "d" 123}
                                                    :as      :json})]
         (is (= {"content-type" "application/json"
                 "foo"          ["bar" "baz"]}
                (select-keys (:headers response) ["foo" "content-type"])))
-        (is (= {:a "single" :b ["1" "2"]}
+        (is (= {:a "single" :b ["1" "2"] :c "1,2" :d "123"}
                (:body response)))))))