15 lines
328 B
Clojure
15 lines
328 B
Clojure
|
#!/usr/bin/env bb
|
||
|
|
|
||
|
|
(require '[clojure.test :as t]
|
||
|
|
'[babashka.classpath :as cp])
|
||
|
|
|
||
|
|
(cp/add-classpath "src:test")
|
||
|
|
|
||
|
|
(require 'your.test-a 'your.test-b)
|
||
|
|
|
||
|
|
(def test-results
|
||
|
|
(t/run-tests 'your.test-a 'your.test-b))
|
||
|
|
|
||
|
|
(let [{:keys [fail error]} test-results]
|
||
|
|
(when (pos? (+ fail error))
|
||
|
|
(System/exit 1)))
|
