Fix #148: accept Path in :out, :err and :in

CHANGELOG.md

@@ -7,6 +7,7 @@ Clojure library for shelling out / spawning sub-processes
 
 - [#123](https://github.com/babashka/process/issues/123): `exec` now converts `:env` and `:extra-env` keywords ([@lread](https://github.com/lread))
 - [#140](https://github.com/babashka/process/issues/140): accept `java.nio.file.Path` as `:dir` argument
+- [#148](https://github.com/babashka/process/issues/148): accept `Path` in `:out`, `:err` and `:in`
 
 ## 0.5.21 (2023-05-18)
 

src/babashka/process.cljc

@@ -261,7 +261,9 @@
        nil)
      (case in
        :inherit (.redirectInput pb ProcessBuilder$Redirect/INHERIT)
-       nil)
+       (when (or (instance? java.io.File in)
+                 (instance? java.nio.file.Path in))
+         (.redirectInput pb (fs/file in))))
      pb)))
 
 (defrecord ProcessBuilder [pb opts prev])
@@ -379,9 +381,16 @@
               (future (copy stderr err err-enc))
               stderr)]
     ;; wrap in futures, see https://github.com/clojure/clojure/commit/7def88afe28221ad78f8d045ddbd87b5230cb03e
-    (when (and in (not (identical? :inherit in)))
-      (future (with-open [stdin stdin] ;; needed to close stdin after writing
-                (io/copy in stdin :encoding in-enc))))
+    (when (and in
+               (not (or (instance? java.io.File in)
+                        (instance? java.nio.file.Path in)))
+               (not (keyword? in)))
+      (future
+        (try (with-open [stdin stdin] ;; needed to close stdin after writing
+               (io/copy in stdin :encoding in-enc))
+             (catch Exception e
+               (binding [*out* *err*]
+                 (println "ERROR while copying :in option: "(ex-message e)))))))
     (let [;; bb doesn't support map->Process at the moment
           res (->Process proc
                          nil

test/babashka/process_test.cljc

@@ -8,6 +8,10 @@
             [clojure.string :as str]
             [clojure.test :as t :refer [deftest is testing use-fixtures]]))
 
+(defmethod clojure.test/report :begin-test-var [m]
+  (println "===" (-> m :var meta :name))
+  (println))
+
 (defn print-env [f]
   (u/print-test-env)
   (println "- testing clojure version:" (clojure-version))
@@ -111,11 +115,17 @@
 
 (deftest process-copy-input-from-string-test
   (when-let [bb (u/find-bb)]
-    (let [proc (process [(symbol bb) (symbol u/wd) ':upper] {:in "foo"})
-          out (:out proc)
-          ret (:exit @proc)]
-      (is (= 0 ret))
-      (is (= (u/ols "FOO\n") (slurp out))))))
+    (doseq [inf [identity fs/file fs/path]]
+      (let [tmp-file (doto (fs/create-temp-file)
+                       fs/delete-on-exit)]
+        (spit (fs/file tmp-file) "foo")
+        (let [proc (process [(symbol bb) (symbol u/wd) ':upper] {:in (if (= inf identity)
+                                                                       "foo"
+                                                                       (inf tmp-file))})
+              out (:out proc)
+              ret (:exit @proc)]
+          (is (= 0 ret))
+          (is (= (u/ols "FOO\n") (slurp out))))))))
 
 (deftest process-redirect-err-out-test
   (when-let [bb (u/find-bb)]