github-migration/vim-fireplace
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix jump location for :RunTests error

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
plugin/fireplace.vim
View File

@ -1330,9 +1330,9 @@ function! fireplace#capture_test_run(expr) abort
\ . '(binding [clojure.test/report (fn [m]' \ . '(binding [clojure.test/report (fn [m]'
\ . ' (case (:type m)' \ . ' (case (:type m)'
\ . ' (:fail :error)' \ . ' (: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' \ . ' (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 (seq clojure.test/*testing-contexts*) (println (clojure.test/testing-contexts-str)))'
\ . ' (when-let [message (:message m)] (println message))' \ . ' (when-let [message (:message m)] (println message))'
\ . ' (println "expected:" (pr-str (:expected m)))' \ . ' (println "expected:" (pr-str (:expected m)))'