wip

Author: borkdude

test/babashka/process_test.cljc

@@ -628,15 +628,15 @@
       (is (bytes? result))
       (is (= (seq ba) (seq result))))))
 
-(defmacro if-jdk9+ [then else]
+(defmacro if-pre-jdk9+ [then else]
   (if (identical? ::pre-jdk9
                   (try (import 'java.lang.ProcessHandle)
                        (catch Exception _ ::pre-jdk9)))
     then else))
 
 (deftest discard-test
   (when-let [bb (u/find-bb)]
-    (doseq [out [:discard (if-jdk9+ java.lang.ProcessBuilder$Redirect/DISCARD :discard)]]
+    (doseq [out [:discard (if-pre-jdk9+ :discard java.lang.ProcessBuilder$Redirect/DISCARD)]]
       (is (= "" (slurp (:out @(p/process {:out out} bb "-e" "(println :dude) (binding [*out* *err*] (println :bye))")))))
       (is (= (with-out-str (println :bye)) (slurp (:err @(p/process {:out out} bb "-e" "(println :dude) (binding [*out* *err*] (println :bye))")))))
       (is (= "" (slurp (:err @(p/process {:err out} bb "-e" "(println :dude) (binding [*out* *err*] (println :bye))")))))