From cdb7cc02e4041f28e3bd9f0f78cf862f4b63e96f Mon Sep 17 00:00:00 2001 From: Konrad Mrożek <kmrozek@comscore.com> Date: Fri, 12 Jan 2024 13:16:08 +0000 Subject: [PATCH] Disable colors in malli pretty output --- clojure/src/test_runner.clj | 17 ++++++++++++++++- 1 files changed, 16 insertions(+), 1 deletions(-) diff --git a/clojure/src/test_runner.clj b/clojure/src/test_runner.clj index c617c67..eb7c47e 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)) @@ -111,6 +114,8 @@ (println "Malli detected. Instrument functions...") (require 'malli.dev) (require 'malli.dev.pretty) + (require 'malli.dev.virhe) + (alter-var-root (get (ns-publics 'malli.dev.virhe) '-color) (constantly (fn [_ body _] [:span body]))) ((find-var 'malli.dev/start!) {:report ((find-var 'malli.dev.pretty/thrower))})) (let [test-namespaces (->> (all-ns) (mapcat ns-publics) @@ -119,6 +124,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