Use placeholder current-var if not found

kepler16 · Aug 5, 2024 · 6377cff · 6377cff
1 parent 7494d94
commit 6377cff
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/k16/forge/runner.clj b/src/k16/forge/runner.clj
@@ -43,7 +43,10 @@
     (try
       (test/test-ns test-ns)
       (catch Exception ex
-        (let [current-var @*current-test-var*]
+        (let [current-var @*current-test-var*
+              current-var (if current-var
+                            current-var
+                            (symbol (str test-ns "/" "unknown")))]
           (swap! *reports* update current-var
                  (fn [reports]
                    (conj reports {:type :fail