From 2f005129c7666f0fc0dd14fcd6201e5867133a87 Mon Sep 17 00:00:00 2001 From: Konrad Mrożek <konrad.mrozek@shareablee.com> Date: Tue, 18 Jul 2023 11:01:22 +0000 Subject: [PATCH] Print out which test var is executed --- clojure/src/test_runner.clj | 21 +++++++++++++++------ 1 files changed, 15 insertions(+), 6 deletions(-) diff --git a/clojure/src/test_runner.clj b/clojure/src/test_runner.clj index 82ba123..4a4cde9 100644 --- a/clojure/src/test_runner.clj +++ b/clojure/src/test_runner.clj @@ -7,9 +7,15 @@ (when-not (.exists (java.io.File. "classes")) (.. (java.io.File. "classes") mkdir)) -(defmulti emacs-report :type) +(defmulti vim-report :type) -(defmethod emacs-report :fail +(defmethod vim-report :begin-test-ns [m] + (println "\nTesting" (ns-name (:ns m)))) + +(defmethod vim-report :begin-test-var [m] + (println "\nExecuting" (:name (meta (:var m))))) + +(defmethod vim-report :fail [m] (t/with-test-out (when-let [source-file (some-> t/*testing-vars* @@ -32,7 +38,7 @@ e-line))))) (:line m))) -(defmethod emacs-report :error +(defmethod vim-report :error [m] (when-let [source-file (some-> t/*testing-vars* first @@ -46,7 +52,7 @@ (ex-message (:actual m)) (pr-str (:actual m)))))))) -(defmethod emacs-report :default +(defmethod vim-report :default [_]) (defn- clj-file? [f] @@ -65,6 +71,10 @@ (set))] (println "Loading test files...") (run! load-file test-files) + (when (find-ns 'malli.core) + (println "Malli detected. Instrument functions...") + (require 'malli.dev) + ((find-var 'malli.dev/start!))) (let [test-namespaces (->> (all-ns) (mapcat ns-publics) (map (comp meta second)) @@ -72,9 +82,8 @@ (filter (comp test-files :file)) (map :ns) (set))] - (println "Running tests on:" (map ns-name test-namespaces)) (System/exit (if (pos? (reduce (fn [total-fails n] - (with-redefs [t/report emacs-report] + (with-redefs [t/report vim-report] (let [results (t/run-tests n)] (+ total-fails (:fail results 0) -- Gitblit v1.9.3