clojure-test.vim.git

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