Fix JSON request on Windows (#23)

appveyor.yml

@@ -43,9 +43,8 @@ clone_script:
 - cmd: >-
     powershell -Command "(New-Object Net.WebClient).DownloadFile('https://github.com/borkdude/deps.clj/releases/download/v0.0.9/deps.clj-0.0.9-windows-amd64.zip', 'deps.zip')"
 
-    expand-archive -path 'deps.zip'
-
-    call deps
+    powershell -Command "expand-archive -path 'deps.zip' -destination ."
 
+build_script:
 - cmd: >-
-    call deps -A:test
+    call deps.exe -A:test

src/babashka/curl.clj

@@ -10,6 +10,10 @@
 
 ;;;; Utils
 
+(def windows? (-> (System/getProperty "os.name")
+                  (str/lower-case)
+                  (str/includes? "win")))
+
 (defn- shell-command
   "Executes shell command.
   Accepts the following options:
@@ -19,7 +23,10 @@
   `:throw?`: Unless `false`, exits script when the shell-command has a
   non-zero exit code, unless `throw?` is set to false."
   [args opts]
-  (let [pb (ProcessBuilder. ^java.util.List args)
+  (let [args (if windows?
+               (mapv #(str/replace % "\"" "\\\"") args)
+               args)
+        pb (ProcessBuilder. ^java.util.List args)
         proc (.start pb)
         _ (when-let [is (:in-stream opts)]
             (with-open [stdin (.getOutputStream proc)]

test/babashka/curl_test.clj

@@ -44,6 +44,14 @@
          (:body (curl/post "https://postman-echo.com/post"
                            {:body (io/file "README.md")}))
          "babashka.curl")))
+  (testing "JSON body"
+    (let [response (curl/post "https://postman-echo.com/post"
+                              {:headers {"Content-Type" "application/json"}
+                               :body (json/generate-string {:a "foo"})})
+          body (:body response)
+          body (json/parse-string body true)
+          json (:json body)]
+      (is (= {:a "foo"} json))))
   (testing "stream body"
     (is (str/includes?
          (:body (curl/post "https://postman-echo.com/post"