Fix jump location for :RunTests error
This commit is contained in:
parent
bc8f3af299
commit
c48adc045b
@ -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)))'
|
||||
|
Loading…
Reference in New Issue
Block a user