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 | 15 ++++++++++++++- 1 files changed, 14 insertions(+), 1 deletions(-) diff --git a/clojure/src/test_runner.clj b/clojure/src/test_runner.clj index c617c67..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)) @@ -119,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