Exit with non-0 status code on failure

kepler16 · Aug 5, 2024 · 7494d94 · 7494d94
1 parent 60df404
commit 7494d94
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 6 deletions.
diff --git 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
@@ -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))))))