Add semi-functional version (with :parallel) as the flag.

lambdaisland · Aug 19, 2022 · 47627b7 · 47627b7
1 parent 56c1dc3
commit 47627b7
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/kaocha/test_suite.clj b/src/kaocha/test_suite.clj
@@ -2,6 +2,16 @@
   (:require [clojure.test :as t]
             [kaocha.testable :as testable]))
 
+(defn deref-recur [testables]
+  (cond (future? testables) (deref testables)
+        (vector? testables) (doall (mapv deref-recur testables))
+        (seq? testables) (deref-recur (into [] (doall testables)))
+        (contains? testables :kaocha.test-plan/tests)
+        (update testables :kaocha.test-plan/tests deref-recur)
+        (contains? testables :kaocha.result/tests)
+        (update testables :kaocha.result/tests deref-recur)
+        :else testables))
+
 (defn run [testable test-plan]
   (t/do-report {:type :begin-test-suite})
   (let [results (testable/run-testables (:kaocha.test-plan/tests testable) test-plan)