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

Fix windows tests

Browse source
This commit is contained in:
Michiel Borkent 2021-07-10 14:00:14 +02:00
parent 0832b0a480
commit 02237c47ce
1 changed files with 12 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
test/babashka/test_utils.clj
View file

@ -14,15 +14,19 @@
(set! *warn-on-reflection* true)
(defn string-replace-if-windows [match replacement]
(fn [s]
(if main/windows?
(str/replace s match replacement)
s)))
(def normalize
(if main/windows?
(fn [s] (if (string? s)
(str/replace s "\r\n" "\n")
s))
identity))
(def normalize (string-replace-if-windows "\r\n" "\n"))
(def escape-file-paths (string-replace-if-windows "\\" "\\\\"))
(def escape-file-paths
(if main/windows?
(fn [s] (if (string? s)
(str/replace s "\\" "\\\\")
s))
identity))
(def ^:dynamic *bb-edn-path* nil)