luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix Windows test

Browse source
This commit is contained in:
Michiel Borkent 2021-07-14 16:03:15 +02:00
parent a8eea0dfd7
commit 3ec7ced8cd
1 changed files with 15 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
test/babashka/deps_test.clj
View file

@ -78,15 +78,18 @@ true
(edn/read-string (bb " (edn/read-string (bb "
(:out @(babashka.deps/clojure [\"-M\" \"-e\" \"(require 'medley.core) (medley.core/index-by :id [{:id 1} {:id 2}])\"] {:out :string :dir \"test-resources/clojure-dir-test\"}))"))))) (:out @(babashka.deps/clojure [\"-M\" \"-e\" \"(require 'medley.core) (medley.core/index-by :id [{:id 1} {:id 2}])\"] {:out :string :dir \"test-resources/clojure-dir-test\"}))")))))
(testing "GITLIBS can set location of .gitlibs dir" (testing "GITLIBS can set location of .gitlibs dir"
(let [tmp-dir (fs/create-temp-dir) ;; TODO: workaround for failing test on Windows
libs-dir (fs/file tmp-dir ".gitlibs") (when-not (and test-utils/windows?
libs-dir2 (fs/file tmp-dir ".gitlibs2") test-utils/native?)
template (pr-str '(do (babashka.deps/clojure ["-Sforce" "-Spath" "-Sdeps" "{:deps {babashka/process {:git/url \"https://github.com/babashka/process\" :sha \"4c6699d06b49773d3e5c5b4c11d3334fb78cc996\"}}}"] (let [tmp-dir (fs/create-temp-dir)
{:out :string :env-key {"PATH" (System/getenv "PATH") libs-dir (fs/file tmp-dir ".gitlibs")
"GITLIBS" :gitlibs}}) nil))] libs-dir2 (fs/file tmp-dir ".gitlibs2")
(bb (-> template (str/replace ":gitlibs" (pr-str (str libs-dir))) template (pr-str '(do (babashka.deps/clojure ["-Sforce" "-Spath" "-Sdeps" "{:deps {babashka/process {:git/url \"https://github.com/babashka/process\" :sha \"4c6699d06b49773d3e5c5b4c11d3334fb78cc996\"}}}"]
(str/replace ":env-key" ":env"))) {:out :string :env-key {"PATH" (System/getenv "PATH")
(bb (-> template (str/replace ":gitlibs" (pr-str (str libs-dir2))) "GITLIBS" :gitlibs}}) nil))]
(str/replace ":env-key" ":extra-env"))) (bb (-> template (str/replace ":gitlibs" (pr-str (str libs-dir)))
(is (fs/exists? libs-dir)) (str/replace ":env-key" ":env")))
(is (fs/exists? libs-dir2))))) (bb (-> template (str/replace ":gitlibs" (pr-str (str libs-dir2)))
(str/replace ":env-key" ":extra-env")))
(is (fs/exists? libs-dir))
(is (fs/exists? libs-dir2))))))