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

Capture test run errors

Browse Source
This commit is contained in:
Tim Pope 2014-05-05 01:23:30 -04:00
parent 0b17709b56
commit af14811869
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
plugin/fireplace.vim
View File

@ -1408,6 +1408,7 @@ augroup END
function! fireplace#capture_test_run(expr) abort
let expr = '(require ''clojure.test) '
\ . '(try '
\ . '(binding [clojure.test/report (fn [m]'
\ . ' (case (:type m)'
\ . ' (:fail :error)'
@ -1420,6 +1421,9 @@ function! fireplace#capture_test_run(expr) abort
\ . ' (println " actual:" (pr-str (:actual m)))))'
\ . ' ((.getRawRoot #''clojure.test/report) m)))]'
\ . ' ' . a:expr . ')'
\ . ' (catch Exception e'
\ . ' (println (str e))'
\ . ' (println (clojure.string/join "\n" (.getStackTrace e)))))'
let qflist = []
let response = s:eval(expr, {'session': 0})
if !has_key(response, 'out')
@ -1427,8 +1431,8 @@ function! fireplace#capture_test_run(expr) abort
return s:output_response(response)
endif
for line in split(response.out, "\n")
let entry = {'text': line}
if line =~# '\t.*\t.*\t'
let entry = {'text': line}
let [resource, lnum, type, name] = split(line, "\t", 1)
let entry.lnum = lnum
let entry.type = (type ==# 'fail' ? 'W' : 'E')
@ -1441,6 +1445,8 @@ function! fireplace#capture_test_run(expr) abort
if empty(entry.filename)
let entry.lnum = 0
endif
else
let entry = s:qfmassage(line, fireplace#path())
endif
call add(qflist, entry)
endfor