| | |
| | | (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)) |
| | |
| | | (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) |