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

add windows-specific clojure test (#950)

Browse source
This commit is contained in:
Bob 2021-07-22 06:34:07 -04:00 committed by GitHub
parent 7fac0f1eb9
commit 2863dce99c
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 22 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
test/babashka/deps_test.clj
View file

@ -3,8 +3,8 @@
[babashka.fs :as fs] [babashka.fs :as fs]
[babashka.test-utils :as test-utils] [babashka.test-utils :as test-utils]
[clojure.edn :as edn] [clojure.edn :as edn]
[clojure.test :as test :refer [deftest is testing]] [clojure.string :as str]
[clojure.string :as str])) [clojure.test :as test :refer [deftest is testing]]))
(defn bb [& args] (defn bb [& args]
(edn/read-string (edn/read-string
@ -93,3 +93,23 @@ true
(str/replace ":env-key" ":extra-env"))) (str/replace ":env-key" ":extra-env")))
(is (fs/exists? libs-dir)) (is (fs/exists? libs-dir))
(is (fs/exists? libs-dir2)))))) (is (fs/exists? libs-dir2))))))
(deftest ^:windows-only win-clojure-test
(testing "GITLIBS can set location of .gitlibs dir"
(let [tmp-dir (fs/create-temp-dir)
libs-dir (fs/file tmp-dir ".gitlibs")
libs-dir2 (fs/file tmp-dir ".gitlibs2")
; nested quotes need different escaping for Windows based on jvm/native test
escape-quote (if test-utils/native? "\\\\\"" "\\\"")
deps-map (str/join escape-quote [" \"{:deps {babashka/process {:git/url "
"https://github.com/babashka/process" " :sha "
"4c6699d06b49773d3e5c5b4c11d3334fb78cc996" "}}}\""])
template (str "(do (babashka.deps/clojure [\"-Sforce\" \"-Spath\" \"-Sdeps\"" deps-map "]
{:out :string :env-key {\"PATH\" (System/getenv \"PATH\")
\"GITLIBS\" :gitlibs}}) nil)")]
(bb (-> template (str/replace ":gitlibs" (pr-str (str libs-dir)))
(str/replace ":env-key" ":env")))
(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)))))