blob: a651691906607a37fd7e82536304732d62d7b36a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(use 'clojure.contrib.find-namespaces
'clojure.test)
(defn find-tests []
(filter
#(re-find #"-test" (str %)) (find-namespaces-in-dir (java.io.File. "test"))))
(defn require-tests []
(doseq [test (find-tests)]
(require test)))
(require-tests)
(let [results (apply merge-with + (map test-ns (find-tests)))]
(if (or (> (results :fail) 0)
(> (results :error) 0))
(System/exit -1)
(System/exit 0)))
|
