dev

src/babashka/main.clj

@@ -419,8 +419,17 @@ Everything after that is bound to *command-line-args*."))
 
 (defn -main
   [& args]
+  (if-let [dev-opts (System/getenv "BABASHKA_DEV")]
+    (let [{:keys [:n]} (edn/read-string dev-opts)
+          last-iteration (dec n)]
+      (dotimes [i n]
+        (if (< i last-iteration)
+          (with-out-str (apply main args))
+          (do (apply main args)
+              (binding [*out* *err*]
+                (println "ran" n "times"))))))
     (let [exit-code (apply main args)]
-    (System/exit exit-code)))
+      (System/exit exit-code))))
 
 ;;;; Scratch
 

test/babashka/profile.clj

@@ -8,5 +8,6 @@
 (require '[clj-async-profiler.core :as prof])
 
 (defn -main [& options]
-  (prof/profile (apply main/main options))
+  (prof/profile (dotimes [_ 100]
+                  (apply main/main options)))
   (shutdown-agents))