Support different 1 exit code for failure

Konrad Mrożek

2023-06-06 10d3e262e1ebcba08208cde2b7fd0ffc6856f1b0

Support different 1 exit code for failure

 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)))))