defmacro

Author: borkdude

test/babashka/process_test.cljc

@@ -628,9 +628,15 @@
       (is (bytes? result))
       (is (= (seq ba) (seq result))))))
 
+(defmacro if-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 java.lang.ProcessBuilder$Redirect/DISCARD]]
+    (doseq [out [:discard (if-jdk9+ java.lang.ProcessBuilder$Redirect/DISCARD :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))")))))