Add BABASHKA_FAIL_FAST

.gitignore

@@ -22,3 +22,9 @@ pom.xml.asc
 *.dylib
 *.log
 org_babashka*.h
+/babashka-0.1.4-SNAPSHOT-windows-amd64.zip
+/bb.exe
+/bb.exp
+/bb.lib
+/bb.pdb
+/bb.stripped.pdb

test/babashka/main_test.clj

@@ -7,7 +7,7 @@
    [clojure.java.io :as io]
    [clojure.java.shell :refer [sh]]
    [clojure.string :as str]
-   [clojure.test :as test :refer [deftest is testing]]
+   [clojure.test :as test :refer [deftest is testing *report-counters*]]
    [flatland.ordered.map :refer [ordered-map]]
    [sci.core :as sci]))
 
@@ -15,6 +15,13 @@
   (println "===" (-> m :var meta :name))
   (println))
 
+(defmethod clojure.test/report :end-test-var [m]
+  (let [{:keys [:fail :error]} @*report-counters*]
+    (when (and (= "true" (System/getenv "BABASHKA_FAIL_FAST"))
+               (or (pos? fail) (pos? error)))
+      (println "=== Failing fast")
+      (System/exit 1))))
+
 (defn bb [input & args]
   (edn/read-string
    {:readers *data-readers*