From 9136889771b3d076642b98f635af9f7a8ced520e Mon Sep 17 00:00:00 2001
From: Christophe Grand <christophe@cgrand.net>
Date: Thu, 15 Feb 2024 09:22:32 +0100
Subject: [PATCH] fix exit-code casting error when tests pass

---
 clj/src/cljd/build.clj | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/clj/src/cljd/build.clj b/clj/src/cljd/build.clj
index b36725c1..e491af75 100644
--- a/clj/src/cljd/build.clj
+++ b/clj/src/cljd/build.clj
@@ -107,7 +107,16 @@
 (defn timestamp []
   (.format (java.text.SimpleDateFormat. "@HH:mm:ss" (java.util.Locale/getDefault)) (java.util.Date.)))
 
-(defn exec [& args]
+(defn exec
+  "If first arg is a map, it's an option map.
+   Supported options:
+   :in, :out and :err are either nil, a File or a ProcessBuilder$Redirect -- default to ProcessBuilder$Redirect/INHERIT
+   :env a map of extra environment variables (strings to strings)
+   :dir the current directory
+   :async a boolean (defaults to false), when true exec returns immediatly.
+   When async, exec returns a Process.
+   When not async exec returns nil (for exit code 0) or non-zero exit code"
+  [& args]
   (let [{:keys [async in err out env dir] :as opts
          :or {env {}
               in java.lang.ProcessBuilder$Redirect/INHERIT
@@ -314,7 +323,7 @@
     (newline)
     (println (title "Running tests..."))
     (let [bin (some-> *deps* :cljd/opts :kind name)]
-      (System/exit (exec {:in nil #_#_:out nil} bin "test")))))
+      (System/exit (or (exec {:in nil #_#_:out nil} bin "test") 0)))))
 
 (defn gen-entry-point []
   (let [deps-cljd-opts (:cljd/opts *deps*)