This commit is contained in:
Michiel Borkent 2021-03-20 14:11:09 +01:00
parent 612edd6fc9
commit f9f6fa8621

View file

@ -4,7 +4,7 @@
[babashka.fs :as fs]
[babashka.test-utils :as test-utils]
[clojure.edn :as edn]
[clojure.test :as test :refer [deftest is]]))
[clojure.test :as test :refer [deftest is testing]]))
(defn bb [& args]
(edn/read-string
@ -35,6 +35,7 @@
(is (not (fs/exists? temp-file))))))
(deftest do-task-test
(testing ":and-do"
(let [temp-dir (fs/create-temp-dir)
temp-file (fs/create-file (fs/path temp-dir "temp-file.txt"))]
(with-config {:tasks {:clean {:task/type :shell
@ -47,3 +48,12 @@
(let [res (bb :all)]
(is (= 6 res)))
(is (not (fs/exists? temp-file))))))
(testing ":or-do"
(with-config {:tasks {:div-by-zero {:task/type :babashka
:args ["-e" "(/ 1 0)"]}
:sum {:task/type :babashka
:args ["-e" "(+ 1 2 3)"]}
:all {:task/type :babashka
:args [:do :div-by-zero :and-do :sum]}}}
(is (thrown-with-msg? Exception #"Divide"
(bb :all))))))