From 7a77786248ccf3b50430e1877f85c3c0e2e89c69 Mon Sep 17 00:00:00 2001 From: Justin Balthrop Date: Tue, 24 Apr 2012 14:35:36 -0700 Subject: [PATCH] make lein test print ns-specific commands that can be copied and pasted --- src/leiningen/test.clj | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/leiningen/test.clj b/src/leiningen/test.clj index d5d39371..6ff5a355 100644 --- a/src/leiningen/test.clj +++ b/src/leiningen/test.clj @@ -31,12 +31,15 @@ ;; TODO: fall back for :disable-injected? already pretty hairy =\ _# (leiningen.core.injected/add-hook #'clojure.test/report - (fn report-with-failures [report# m# & args#] + (fn [report# m# & args#] (when (#{:error :fail} (:type m#)) (swap! failures# conj (-> clojure.test/*testing-vars* first meta :ns ns-name))) - (apply report# m# args#))) + (if (= :begin-test-ns (:type m#)) + (clojure.test/with-test-out + (println "\nlein test" (ns-name (:ns m#)))) + (apply report# m# args#)))) summary# (binding [clojure.test/*test-out* *out*] (apply ~'clojure.test/run-tests '~namespaces))] (spit ".lein-failures" (pr-str @failures#))