From 12798cfe937a915b23f0be0c95545f5ebad6b7d1 Mon Sep 17 00:00:00 2001
From: Konrad Mrożek <kmrozek+git@proton.me>
Date: Tue, 12 Dec 2023 11:07:03 +0000
Subject: [PATCH] Print testing contexts before test
---
clojure/src/test_runner.clj | 19 +++++++++++++++++--
1 files changed, 17 insertions(+), 2 deletions(-)
diff --git a/clojure/src/test_runner.clj b/clojure/src/test_runner.clj
index e8cc9f9..598d130 100644
--- a/clojure/src/test_runner.clj
+++ b/clojure/src/test_runner.clj
@@ -1,4 +1,7 @@
-(ns test-runner)
+(ns test-runner
+ (:require
+ [clojure.string :as string]
+ [clojure.test :as t]))
(def class-cache-dir ".cache/classes")
(.mkdirs (java.io.File. class-cache-dir))
@@ -72,7 +75,9 @@
(println (str "ERROR-CONTINUE:ACTUAL:"
(if (instance? Throwable (:actual m))
(ex-message (:actual m))
- (pr-str (:actual m))))))))
+ (pr-str (:actual m)))))
+ (when (instance? Throwable (:actual m))
+ (.printStackTrace (:actual m))))))
(defmethod vim-report :default
[_])
@@ -117,6 +122,16 @@
(filter (comp test-files :file))
(map :ns)
(set))]
+
+ (set-validator! #'t/*testing-contexts*
+ (let [validator (get-validator #'t/*testing-contexts*)]
+ (fn [v]
+ (println "Testing:" (string/join " " v))
+ (println)
+ (if validator
+ (validator v)
+ true))))
+
(with-redefs [t/report vim-report]
(System/exit
(if (pos? (if (and -test-file -test-line)
--
Gitblit v1.9.3