From 6a8c40c998974717c8f7647f30608abb70199a78 Mon Sep 17 00:00:00 2001
From: Sean Corfield <sean@corfield.org>
Date: Sun, 17 Dec 2023 11:40:26 -0800
Subject: [PATCH] enable multi-version testing

---
 run-tests.clj | 20 ++++++++++++++------
 1 file changed, 14 insertions(+), 6 deletions(-)

diff --git a/run-tests.clj b/run-tests.clj
index aedb8ed..12e47f6 100755
--- a/run-tests.clj
+++ b/run-tests.clj
@@ -2,14 +2,22 @@
 
 (require '[babashka.process :as p])
 
-(let [maria? (= "maria" (first *command-line-args*))
+(defn- run-tests [env v]
+  (when v (println "\nTesting Clojure" v))
+  (let [{:keys [exit]}
+        (p/shell {:extra-env env} "clojure" (str "-X"
+                                                 (when v (str ":" v))
+                                                 ":test"))]
+    (when-not (zero? exit)
+      (System/exit exit))))
+
+(let [maria? (some #(= "maria" %) *command-line-args*)
+      all?   (some #(= "all"   %) *command-line-args*)
       env
       (cond-> {"NEXT_JDBC_TEST_MSSQL" "yes"
                "NEXT_JDBC_TEST_MYSQL" "yes"
                "MSSQL_SA_PASSWORD"    "Str0ngP4ssw0rd"}
         maria?
-        (assoc "NEXT_JDBC_TEST_MARIA" "yes"))
-      {:keys [exit]}
-      (p/shell {:extra-env env} "clojure" "-X:test")]
-  (when-not (zero? exit)
-    (System/exit exit)))
+        (assoc "NEXT_JDBC_TEST_MARIA" "yes"))]
+  (doseq [v (if all? ["1.10" "1.11" "master"] [nil])]
+    (run-tests env v)))