From 8edda770540b7bd139b914b154dd4f780550518b Mon Sep 17 00:00:00 2001
From: Michiel Borkent <michielborkent@gmail.com>
Date: Thu, 30 Jul 2020 20:39:31 +0200
Subject: [PATCH] Add BABASHKA_FAIL_FAST

---
 .gitignore                  | 6 ++++++
 test/babashka/main_test.clj | 9 ++++++++-
 2 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/.gitignore b/.gitignore
index 3e801a5d..6d9c3d11 100644
--- a/.gitignore
+++ b/.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
diff --git a/test/babashka/main_test.clj b/test/babashka/main_test.clj
index 2f516f72..11a9bdbe 100644
--- a/test/babashka/main_test.clj
+++ b/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*