From c3a249111486bc4a78a78a4d456991e81657ea6a Mon Sep 17 00:00:00 2001 From: Michiel Borkent Date: Wed, 1 Oct 2025 20:02:51 +0200 Subject: [PATCH] Tweak tests --- test/babashka/process/test_utils.clj | 4 ++-- test/babashka/process_exec_test.clj | 2 +- test/babashka/process_test.cljc | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/test/babashka/process/test_utils.clj b/test/babashka/process/test_utils.clj index 3cf3b65..ab85967 100644 --- a/test/babashka/process/test_utils.clj +++ b/test/babashka/process/test_utils.clj @@ -28,8 +28,8 @@ (defn always-present-env-vars "Even when requesting an empty environment, some OSes do not return an empty environment" [] - (os {:mac ["__CF_USER_TEXT_ENCODING"] - :win ["SystemRoot"]})) + (os {:mac #{"__CF_USER_TEXT_ENCODING" "TMPDIR"} + :win #{"SystemRoot"}})) (defn print-test-env[] (let [bb (*find-bb)] diff --git a/test/babashka/process_exec_test.clj b/test/babashka/process_exec_test.clj index f948990..f0b1d2e 100644 --- a/test/babashka/process_exec_test.clj +++ b/test/babashka/process_exec_test.clj @@ -135,7 +135,7 @@ :out edn/read-string) expected-vars (u/always-present-env-vars)] - (is (= expected-vars (keys vars))))) + (is (empty? (remove expected-vars (keys vars)))))) (testing "add to existing env" (is (= (-> (into {} (System/getenv)) (assoc "FOO" "BAR")) (-> (run-exec {:extra-env {"FOO" "BAR"}} diff --git a/test/babashka/process_test.cljc b/test/babashka/process_test.cljc index 6f875f3..08e98cf 100644 --- a/test/babashka/process_test.cljc +++ b/test/babashka/process_test.cljc @@ -348,7 +348,7 @@ slurp edn/read-string) expected-vars (u/always-present-env-vars)] - (is (= expected-vars (keys vars))))) + (is (empty? (remove expected-vars (keys vars)))))) (testing "add to existing env" (let [out (-> (sh (format "%s %s :env" bb u/wd) {:extra-env {:FOO "BAR"}}) :out)]