-- Test for the quickfix commands. local helpers = require('test.functional.helpers')(after_each) local source, clear = helpers.source, helpers.clear local eq, nvim, call = helpers.eq, helpers.meths, helpers.call local eval = helpers.eval local execute = helpers.execute local function expected_empty() eq({}, nvim.get_vvar('errors')) end describe('helpgrep', function() before_each(function() clear() source([[ " Tests for the :clist and :llist commands function XlistTests(cchar) let Xlist = a:cchar . 'list' let Xgetexpr = a:cchar . 'getexpr' " With an empty list, command should return error exe Xgetexpr . ' []' exe 'silent! ' . Xlist call assert_true(v:errmsg ==# 'E42: No Errors') " Populate the list and then try exe Xgetexpr . " ['non-error 1', 'Xtestfile1:1:3:Line1', \ 'non-error 2', 'Xtestfile2:2:2:Line2', \ 'non-error 3', 'Xtestfile3:3:1:Line3']" " List only valid entries redir => result exe 'silent ' . Xlist redir END let l = split(result, "\n") call assert_equal([' 2 Xtestfile1:1 col 3: Line1', \ ' 4 Xtestfile2:2 col 2: Line2', \ ' 6 Xtestfile3:3 col 1: Line3'], l) " List all the entries redir => result exe 'silent ' . Xlist . "!" redir END let l = split(result, "\n") call assert_equal([' 1: non-error 1', ' 2 Xtestfile1:1 col 3: Line1', \ ' 3: non-error 2', ' 4 Xtestfile2:2 col 2: Line2', \ ' 5: non-error 3', ' 6 Xtestfile3:3 col 1: Line3'], l) " List a range of errors redir => result exe 'silent '. Xlist . " 3,6" redir END let l = split(result, "\n") call assert_equal([' 4 Xtestfile2:2 col 2: Line2', \ ' 6 Xtestfile3:3 col 1: Line3'], l) redir => result exe 'silent ' . Xlist . "! 3,4" redir END let l = split(result, "\n") call assert_equal([' 3: non-error 2', ' 4 Xtestfile2:2 col 2: Line2'], l) redir => result exe 'silent ' . Xlist . " -6,-4" redir END let l = split(result, "\n") call assert_equal([' 2 Xtestfile1:1 col 3: Line1'], l) redir => result exe 'silent ' . Xlist . "! -5,-3" redir END let l = split(result, "\n") call assert_equal([' 2 Xtestfile1:1 col 3: Line1', \ ' 3: non-error 2', ' 4 Xtestfile2:2 col 2: Line2'], l) endfunction " Tests for the :colder, :cnewer, :lolder and :lnewer commands " Note that this test assumes that a quickfix/location list is " already set by the caller function XageTests(cchar) let Xolder = a:cchar . 'older' let Xnewer = a:cchar . 'newer' let Xgetexpr = a:cchar . 'getexpr' if a:cchar == 'c' let Xgetlist = 'getqflist()' else let Xgetlist = 'getloclist(0)' endif " Jumping to a non existent list should return error exe 'silent! ' . Xolder . ' 99' call assert_true(v:errmsg ==# 'E380: At bottom of quickfix stack') exe 'silent! ' . Xnewer . ' 99' call assert_true(v:errmsg ==# 'E381: At top of quickfix stack') " Add three quickfix/location lists exe Xgetexpr . " ['Xtestfile1:1:3:Line1']" exe Xgetexpr . " ['Xtestfile2:2:2:Line2']" exe Xgetexpr . " ['Xtestfile3:3:1:Line3']" " Go back two lists exe Xolder exe 'let l = ' . Xgetlist call assert_equal('Line2', l[0].text) " Go forward two lists exe Xnewer exe 'let l = ' . Xgetlist call assert_equal('Line3', l[0].text) " Test for the optional count argument exe Xolder . ' 2' exe 'let l = ' . Xgetlist call assert_equal('Line1', l[0].text) exe Xnewer . ' 2' exe 'let l = ' . Xgetlist call assert_equal('Line3', l[0].text) endfunction " Tests for the :cwindow, :lwindow :cclose, :lclose, :copen and :lopen " commands function XwindowTests(cchar) let Xwindow = a:cchar . 'window' let Xclose = a:cchar . 'close' let Xopen = a:cchar . 'open' let Xgetexpr = a:cchar . 'getexpr' " Create a list with no valid entries exe Xgetexpr . " ['non-error 1', 'non-error 2', 'non-error 3']" " Quickfix/Location window should not open with no valid errors exe Xwindow call assert_true(winnr('$') == 1) " Create a list with valid entries exe Xgetexpr . " ['Xtestfile1:1:3:Line1', 'Xtestfile2:2:2:Line2', \ 'Xtestfile3:3:1:Line3']" " Open the window exe Xwindow call assert_true(winnr('$') == 2 && winnr() == 2 && \ getline('.') ==# 'Xtestfile1|1 col 3| Line1') " Close the window exe Xclose call assert_true(winnr('$') == 1) " Create a list with no valid entries exe Xgetexpr . " ['non-error 1', 'non-error 2', 'non-error 3']" " Open the window exe Xopen . ' 5' call assert_true(winnr('$') == 2 && getline('.') ==# '|| non-error 1' \ && winheight('.') == 5) " Opening the window again, should move the cursor to that window wincmd t exe Xopen . ' 7' call assert_true(winnr('$') == 2 && winnr() == 2 && \ winheight('.') == 7 && \ getline('.') ==# '|| non-error 1') " Calling cwindow should close the quickfix window with no valid errors exe Xwindow call assert_true(winnr('$') == 1) endfunction " Tests for the :cfile, :lfile, :caddfile, :laddfile, :cgetfile and :lgetfile " commands. function XfileTests(cchar) let Xfile = a:cchar . 'file' let Xgetfile = a:cchar . 'getfile' let Xaddfile = a:cchar . 'addfile' if a:cchar == 'c' let Xgetlist = 'getqflist()' else let Xgetlist = 'getloclist(0)' endif call writefile(['Xtestfile1:700:10:Line 700', \ 'Xtestfile2:800:15:Line 800'], 'Xqftestfile1') enew! exe Xfile . ' Xqftestfile1' exe 'let l = ' . Xgetlist call assert_true(len(l) == 2 && \ l[0].lnum == 700 && l[0].col == 10 && l[0].text ==# 'Line 700' && \ l[1].lnum == 800 && l[1].col == 15 && l[1].text ==# 'Line 800') " Run cfile/lfile from a modified buffer enew! silent! put ='Quickfix' exe 'silent! ' . Xfile . ' Xqftestfile1' call assert_true(v:errmsg ==# 'E37: No write since last change (add ! to override)') call writefile(['Xtestfile3:900:30:Line 900'], 'Xqftestfile1') exe Xaddfile . ' Xqftestfile1' exe 'let l = ' . Xgetlist call assert_true(len(l) == 3 && \ l[2].lnum == 900 && l[2].col == 30 && l[2].text ==# 'Line 900') call writefile(['Xtestfile1:222:77:Line 222', \ 'Xtestfile2:333:88:Line 333'], 'Xqftestfile1') enew! exe Xgetfile . ' Xqftestfile1' exe 'let l = ' . Xgetlist call assert_true(len(l) == 2 && \ l[0].lnum == 222 && l[0].col == 77 && l[0].text ==# 'Line 222' && \ l[1].lnum == 333 && l[1].col == 88 && l[1].text ==# 'Line 333') call delete('Xqftestfile1') endfunction " Tests for the :cbuffer, :lbuffer, :caddbuffer, :laddbuffer, :cgetbuffer and " :lgetbuffer commands. function XbufferTests(cchar) let Xbuffer = a:cchar . 'buffer' let Xgetbuffer = a:cchar . 'getbuffer' let Xaddbuffer = a:cchar . 'addbuffer' if a:cchar == 'c' let Xgetlist = 'getqflist()' else let Xgetlist = 'getloclist(0)' endif enew! silent! call setline(1, ['Xtestfile7:700:10:Line 700', \ 'Xtestfile8:800:15:Line 800']) exe Xbuffer . "!" exe 'let l = ' . Xgetlist call assert_true(len(l) == 2 && \ l[0].lnum == 700 && l[0].col == 10 && l[0].text ==# 'Line 700' && \ l[1].lnum == 800 && l[1].col == 15 && l[1].text ==# 'Line 800') enew! silent! call setline(1, ['Xtestfile9:900:55:Line 900', \ 'Xtestfile10:950:66:Line 950']) exe Xgetbuffer exe 'let l = ' . Xgetlist call assert_true(len(l) == 2 && \ l[0].lnum == 900 && l[0].col == 55 && l[0].text ==# 'Line 900' && \ l[1].lnum == 950 && l[1].col == 66 && l[1].text ==# 'Line 950') enew! silent! call setline(1, ['Xtestfile11:700:20:Line 700', \ 'Xtestfile12:750:25:Line 750']) exe Xaddbuffer exe 'let l = ' . Xgetlist call assert_true(len(l) == 4 && \ l[1].lnum == 950 && l[1].col == 66 && l[1].text ==# 'Line 950' && \ l[2].lnum == 700 && l[2].col == 20 && l[2].text ==# 'Line 700' && \ l[3].lnum == 750 && l[3].col == 25 && l[3].text ==# 'Line 750') endfunction function Test_locationlist_curwin_was_closed() augroup testgroup au! autocmd BufReadCmd t call R(expand("")) augroup END function! R(n) quit endfunc new let q = [] call add(q, {'filename': 't' }) call setloclist(0, q) call assert_fails('lrewind', 'E924:') augroup! testgroup endfunction " This will test for problems in quickfix: " A. incorrectly copying location lists which caused the location list to show " a different name than the file that was actually being displayed. " B. not reusing the window for which the location list window is opened but " instead creating new windows. " C. make sure that the location list window is not reused instead of the " window it belongs to. " " Set up the test environment: function! ReadTestProtocol(name) let base = substitute(a:name, '\v^test://(.*)%(\.[^.]+)?', '\1', '') let word = substitute(base, '\v(.*)\..*', '\1', '') setl modifiable setl noreadonly setl noswapfile setl bufhidden=delete %del _ " For problem 2: " 'buftype' has to be set to reproduce the constant opening of new windows setl buftype=nofile call setline(1, word) setl nomodified setl nomodifiable setl readonly exe 'doautocmd BufRead ' . substitute(a:name, '\v^test://(.*)', '\1', '') endfunction function Test_locationlist() enew augroup testgroup au! autocmd BufReadCmd test://* call ReadTestProtocol(expand("")) augroup END let words = [ "foo", "bar", "baz", "quux", "shmoo", "spam", "eggs" ] let qflist = [] for word in words call add(qflist, {'filename': 'test://' . word . '.txt', 'text': 'file ' . word . '.txt', }) " NOTE: problem 1: " intentionally not setting 'lnum' so that the quickfix entries are not " valid call setloclist(0, qflist, ' ') endfor " Test A lrewind enew lopen lnext lnext lnext lnext vert split wincmd L lopen wincmd p lnext let fileName = expand("%") wincmd p let locationListFileName = substitute(getline(line('.')), '\([^|]*\)|.*', '\1', '') let fileName = substitute(fileName, '\\', '/', 'g') let locationListFileName = substitute(locationListFileName, '\\', '/', 'g') call assert_equal("test://bar.txt", fileName) call assert_equal("test://bar.txt", locationListFileName) wincmd n | only " Test B: lrewind lopen 2 exe "normal \" wincmd p 3 exe "normal \" wincmd p 4 exe "normal \" call assert_equal(2, winnr('$')) wincmd n | only " Test C: lrewind lopen " Let's move the location list window to the top to check whether it (the " first window found) will be reused when we try to open new windows: wincmd K 2 exe "normal \" wincmd p 3 exe "normal \" wincmd p 4 exe "normal \" 1wincmd w call assert_equal('quickfix', &buftype) 2wincmd w let bufferName = expand("%") let bufferName = substitute(bufferName, '\\', '/', 'g') call assert_equal('test://quux.txt', bufferName) wincmd n | only augroup! testgroup endfunction func Test_vimgreptitle() augroup QfBufWinEnter au! au BufWinEnter * :let g:a=get(w:, 'quickfix_title', 'NONE') augroup END try vimgrep /pattern/j file catch /E480/ endtry copen call assert_equal(': vimgrep /pattern/j file', g:a) augroup QfBufWinEnter au! augroup END augroup! QfBufWinEnter endfunc function XquickfixChangedByAutocmd(cchar) let Xolder = a:cchar . 'older' let Xgetexpr = a:cchar . 'getexpr' let Xrewind = a:cchar . 'rewind' if a:cchar == 'c' let Xsetlist = 'setqflist(' let ErrorNr = 'E925' function! ReadFunc() colder cgetexpr [] endfunc else let Xsetlist = 'setloclist(0,' let ErrorNr = 'E926' function! ReadFunc() lolder lgetexpr [] endfunc endif augroup testgroup au! autocmd BufReadCmd t call ReadFunc() augroup END bwipe! let words = [ "a", "b" ] let qflist = [] for word in words call add(qflist, {'filename': 't'}) exec "call " . Xsetlist . "qflist, '')" endfor exec "call assert_fails('" . Xrewind . "', '" . ErrorNr . ":')" augroup! testgroup endfunc func Test_caddbuffer_to_empty() helpgr quickfix call setqflist([], 'r') cad try silent cn catch " number of matches is unknown call assert_true(v:exception =~ 'E553:') endtry quit! endfunc ]]) end) it('copen/cclose work', function() source([[ helpgrep quickfix copen " This wipes out the buffer, make sure that doesn't cause trouble. cclose ]]) end) it('clist/llist work', function() call('XlistTests', 'c') expected_empty() call('XlistTests', 'l') expected_empty() end) it('colder/cnewer and lolder/lnewer work', function() local list = {{bufnr = 1, lnum = 1}} call('setqflist', list) call('XageTests', 'c') expected_empty() call('setloclist', 0, list) call('XageTests', 'l') expected_empty() end) it('quickfix/location list window commands work', function() call('XwindowTests', 'c') expected_empty() call('XwindowTests', 'l') expected_empty() end) it('quickfix/location list file commands work', function() call('XfileTests', 'c') expected_empty() call('XfileTests', 'l') expected_empty() end) it('quickfix/location list buffer commands work', function() call('XbufferTests', 'c') expected_empty() call('XbufferTests', 'l') expected_empty() end) it('autocommands triggered by quickfix can get title', function() execute('au FileType qf let g:foo = get(w:, "quickfix_title", "NONE")') execute('call setqflist([])') execute('copen') eq(':setqflist()', eval('g:foo')) end) it('does not truncate quickfix title', function() call('Test_vimgreptitle') expected_empty() end) it('errors when an autocommand closes the location list\'s window', function() call('Test_locationlist_curwin_was_closed') expected_empty() end) it('checks locationlist protocol read', function() call('Test_locationlist') expected_empty() end) it('is changed by autocmd', function() call('XquickfixChangedByAutocmd', 'c') expected_empty() call('XquickfixChangedByAutocmd', 'l') expected_empty() end) it('does not crash after using caddbuffer with an empty qf list', function() call('Test_caddbuffer_to_empty') expected_empty() end) it('cgetexpr does not crash with a NULL element in a list', function() execute('cgetexpr [$x]') -- Still alive? eq(2, eval('1+1')) end) end) describe('errorformat', function() before_each(function() clear() source([[ " More tests for 'errorformat' function! Test_efm1() if !has('unix') " The 'errorformat' setting is different on non-Unix systems. " This test works only on Unix-like systems. return endif let l = [ \ '"Xtestfile", line 4.12: 1506-045 (S) Undeclared identifier fd_set.', \ '"Xtestfile", line 6 col 19; this is an error', \ 'gcc -c -DHAVE_CONFIsing-prototypes -I/usr/X11R6/include version.c', \ 'Xtestfile:9: parse error before `asd''', \ 'make: *** [vim] Error 1', \ 'in file "Xtestfile" linenr 10: there is an error', \ '', \ '2 returned', \ '"Xtestfile", line 11 col 1; this is an error', \ '"Xtestfile", line 12 col 2; this is another error', \ '"Xtestfile", line 14:10; this is an error in column 10', \ '=Xtestfile=, line 15:10; this is another error, but in vcol 10 this time', \ '"Xtestfile", linenr 16: yet another problem', \ 'Error in "Xtestfile" at line 17:', \ 'x should be a dot', \ ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 17', \ ' ^', \ 'Error in "Xtestfile" at line 18:', \ 'x should be a dot', \ ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 18', \ '.............^', \ 'Error in "Xtestfile" at line 19:', \ 'x should be a dot', \ ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 19', \ '--------------^', \ 'Error in "Xtestfile" at line 20:', \ 'x should be a dot', \ ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 20', \ ' ^', \ '', \ 'Does anyone know what is the problem and how to correction it?', \ '"Xtestfile", line 21 col 9: What is the title of the quickfix window?', \ '"Xtestfile", line 22 col 9: What is the title of the quickfix window?' \ ] call writefile(l, 'Xerrorfile1') call writefile(l[:-2], 'Xerrorfile2') let m = [ \ ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 2', \ ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 3', \ ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 4', \ ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 5', \ ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 6', \ ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 7', \ ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 8', \ ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 9', \ ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 10', \ ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 11', \ ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 12', \ ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 13', \ ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 14', \ ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 15', \ ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 16', \ ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 17', \ ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 18', \ ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 19', \ ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 20', \ ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 21', \ ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 22' \ ] call writefile(m, 'Xtestfile') let save_efm = &efm set efm+==%f=\\,\ line\ %l%*\\D%v%*[^\ ]\ %m set efm^=%AError\ in\ \"%f\"\ at\ line\ %l:,%Z%p^,%C%m exe 'cf Xerrorfile2' clast copen call assert_equal(':cf Xerrorfile2', w:quickfix_title) wincmd p exe 'cf Xerrorfile1' call assert_equal([4, 12], [line('.'), col('.')]) cn call assert_equal([6, 19], [line('.'), col('.')]) cn call assert_equal([9, 2], [line('.'), col('.')]) cn call assert_equal([10, 2], [line('.'), col('.')]) cn call assert_equal([11, 1], [line('.'), col('.')]) cn call assert_equal([12, 2], [line('.'), col('.')]) cn call assert_equal([14, 10], [line('.'), col('.')]) cn call assert_equal([15, 3, 10], [line('.'), col('.'), virtcol('.')]) cn call assert_equal([16, 2], [line('.'), col('.')]) cn call assert_equal([17, 6], [line('.'), col('.')]) cn call assert_equal([18, 7], [line('.'), col('.')]) cn call assert_equal([19, 8], [line('.'), col('.')]) cn call assert_equal([20, 9], [line('.'), col('.')]) clast cprev cprev wincmd w call assert_equal(':cf Xerrorfile1', w:quickfix_title) wincmd p let &efm = save_efm call delete('Xerrorfile1') call delete('Xerrorfile2') call delete('Xtestfile') endfunction ]]) end) it('works', function() call('Test_efm1') expected_empty() end) end)