Fix jump location for :RunTests error

This commit is contained in:
Tim Pope 2014-04-12 20:28:21 -04:00
parent bc8f3af299
commit c48adc045b
1 changed files with 2 additions and 2 deletions

View File

@ -1330,9 +1330,9 @@ function! fireplace#capture_test_run(expr) abort
\ . '(binding [clojure.test/report (fn [m]'
\ . ' (case (:type m)'
\ . ' (:fail :error)'
\ . ' (let [{file :file test :name} (meta (last clojure.test/*testing-vars*))]'
\ . ' (let [{file :file line :line test :name} (meta (last clojure.test/*testing-vars*))]'
\ . ' (clojure.test/with-test-out'
\ . ' (println (clojure.string/join "\t" [file (:line m) (name (:type m)) test]))'
\ . ' (println (clojure.string/join "\t" [file line (name (:type m)) test]))'
\ . ' (when (seq clojure.test/*testing-contexts*) (println (clojure.test/testing-contexts-str)))'
\ . ' (when-let [message (:message m)] (println message))'
\ . ' (println "expected:" (pr-str (:expected m)))'