clojure/src/test_runner.clj
@@ -25,4 +25,13 @@ (map load-file) (map (comp :ns meta)) (into #{}))] (run! (fn [n] (t/run-tests n)) test-namespaces)))) (System/exit (if (pos? (reduce (fn [total-fails n] (with-redefs [t/report emacs-report] (let [results (t/run-tests n)] (+ total-fails (:fail results 0) (:error results 0))))) 0 test-namespaces)) 1 0)))))