yogsototh/leiningen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge pull request #1933 from shalu214patil/update-lein-failure

Browse source 
Modify .lein-failures. Help retest individual tests.
This commit is contained in:
Jean Niklas L'orange 2015-08-18 11:35:01 +02:00
commit 123bfd61b2
2 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/leiningen/retest.clj
View file

@ -10,6 +10,6 @@
(apply test/test project
(concat (if (.exists (java.io.File. ".lein-failures"))
(->> (slurp ".lein-failures")
read-string sort (map name)))
read-string keys sort))
selectors))
(main/abort "Cannot retest when :monkeypatch-clojure-test is disabled.")))

14
src/leiningen/test.clj
View file

@ -71,7 +71,7 @@
`(let [~ns-sym ~(form-for-select-namespaces namespaces selectors)]
(when (seq ~ns-sym)
(apply require :reload ~ns-sym))
(let [failures# (atom #{})
(let [failures# (atom {})
selected-namespaces# ~(form-for-nses-selectors-match selectors ns-sym)
_# (when ~*monkeypatch?*
(leiningen.core.injected/add-hook
@ -79,11 +79,13 @@
(fn [report# m# & args#]
(when (#{:error :fail} (:type m#))
(when-let [first-var# (-> clojure.test/*testing-vars* first meta)]
(swap! failures# conj (ns-name (:ns first-var#)))
(newline)
(println "lein test :only"
(str (ns-name (:ns first-var#)) "/"
(:name first-var#)))))
(let [ns-name# (-> first-var# :ns ns-name name)
test-name# (-> first-var# :name name)]
(swap! failures#
(fn [_#]
(update-in @failures# [ns-name#] (fnil conj []) test-name#)))
(newline)
(println "lein test :only" (str ns-name# "/" test-name#)))))
(if (= :begin-test-ns (:type m#))
(clojure.test/with-test-out
(newline)