From 7494d94ad9b5f1e4d9c78168317ce96b49ea597e Mon Sep 17 00:00:00 2001 From: Julien Vincent Date: Mon, 5 Aug 2024 11:01:55 +0100 Subject: [PATCH] Exit with non-0 status code on failure --- src/k16/forge/reporting.clj | 5 ++--- src/k16/forge/runner.clj | 9 ++++++--- 2 files changed, 8 insertions(+), 6 deletions(-) diff --git a/src/k16/forge/reporting.clj b/src/k16/forge/reporting.clj index 43f2d36..7c1f28b 100644 --- a/src/k16/forge/reporting.clj +++ b/src/k16/forge/reporting.clj @@ -86,6 +86,5 @@ results)) -(defn print-summary [results] - (let [summary (calculate-summary results)] - (puget/pprint summary puget-opts))) +(defn print-summary [summary] + (puget/pprint summary puget-opts)) diff --git a/src/k16/forge/runner.clj b/src/k16/forge/runner.clj index 6080867..96ec552 100644 --- a/src/k16/forge/runner.clj +++ b/src/k16/forge/runner.clj @@ -89,10 +89,13 @@ (->> namespaces (mapv (fn [test-ns] (.submit pool ^Callable (fn [] (run-test-ns test-ns))))) - (mapv deref))] + (mapv deref)) + + summary (reporting/calculate-summary results) + failed? (< 0 (-> summary :tests :failed))] (println \newline) (reporting/print-failures results) - (reporting/print-summary results)) + (reporting/print-summary summary) - (System/exit 0)))) + (System/exit (if failed? 1 0))))))