Konrad Mrożek
2023-07-25 11f9a1fae342a313457dabb773fecce63dc1d978
clojure/src/test_runner.clj
@@ -1,11 +1,15 @@
(binding [*compile-files* true]
  (require 'clojure.test))
(ns test-runner)
(ns test-runner
  (:require [clojure.test :as t]))
(def class-cache-dir ".cache/classes")
(.mkdirs (java.io.File. class-cache-dir))
(when-not (.exists (java.io.File. "classes"))
  (.. (java.io.File. "classes") mkdir))
(defmacro with-class-cache [& body]
  `(binding [*compile-path*  class-cache-dir
             *compile-files* true]
     ~@body))
(with-class-cache
  (require '[clojure.test :as t]))
(defmulti vim-report :type)
@@ -71,7 +75,7 @@
       first))
(defn -main [& {:strs [-test-file -test-line] :or {-test-file "test"}}]
  (binding [*compile-files* true]
  (with-class-cache
    (compile 'test-runner)
    (println "Detecting test files in" -test-file)
    (let [test-files (->> -test-file
@@ -110,7 +114,3 @@
                               test-namespaces)))
             1
             0)))))))