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

Try fixing test on Windows

Browse source
This commit is contained in:
Michiel Borkent 2023-01-23 18:13:47 +01:00
parent 4931048284
commit 4220902927
2 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
test/babashka/bb_edn_test.clj
View file

@ -303,6 +303,13 @@
(let [s (bb "run" "--prn" "a")]
(is (str/includes? s "paths")))))))
(deftest tasks:clojure-test
(testing "tokenization when called from tasks"
(test-utils/with-config
(pr-str '{:tasks {foo (-> (clojure {:out :string} "-J-Dfoo=\"{:port 5555 :accept clojure.core.server/repl}\" -M -e \"(clojure.edn/read-string (System/getProperty (name :foo)))\"") :out clojure.edn/read-string prn)}})
(is (= '{:port 5555, :accept clojure.core.server/repl}
(bb "run" "foo"))))))
(deftest list-tasks-test
(test-utils/with-config {}
(let [res (test-utils/bb nil "tasks")]

5
test/babashka/deps_test.clj
View file

@ -103,10 +103,7 @@ true
(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)))))
(testing "tokenization when called from tasks"
(is (= '{:port 5555, :accept clojure.core.server/repl}
(bb (pr-str '(-> (babashka.tasks/clojure {:out :string} "-J-Dfoo=\"{:port 5555 :accept clojure.core.server/repl}\" -M -e \"(clojure.edn/read-string (System/getProperty (name :foo)))\"") :out edn/read-string)))))))
(is (fs/exists? libs-dir2))))))
(deftest ^:windows-only win-clojure-test
(testing "GITLIBS can set location of .gitlibs dir"