Mercurial > vim
view src/testdir/test_quickfix.vim @ 7668:21b0a39d13ed v7.4.1133
commit https://github.com/vim/vim/commit/ef26954a35207c3f17d6ed35d9a40c918d974892
Author: Bram Moolenaar <Bram@vim.org>
Date: Tue Jan 19 13:22:12 2016 +0100
patch 7.4.1133
Problem: Generated function prototypes still have __ARGS().
Solution: Generate function prototypes without __ARGS().
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Tue, 19 Jan 2016 13:30:06 +0100 |
parents | 87e607fb6853 |
children | 85a7a945fb87 |
line wrap: on
line source
" Test for the quickfix commands. if !has('quickfix') finish endif " 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 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 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 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 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 Xlist . " -6,-4" redir END let l = split(result, "\n") call assert_equal([' 2 Xtestfile1:1 col 3: Line1'], l) redir => result exe 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 function Test_clist() call XlistTests('c') call XlistTests('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 function Test_cage() let list = [{'bufnr': 1, 'lnum': 1}] call setqflist(list) call XageTests('c') call setloclist(0, list) call XageTests('l') 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 function Test_cwindow() call XwindowTests('c') call XwindowTests('l') 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 function Test_cfile() call XfileTests('c') call XfileTests('l') 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_cbuffer() call XbufferTests('c') call XbufferTests('l') endfunction function Test_nomem() call alloc_fail(GetAllocId('qf_dirname_start'), 0, 0) call assert_fails('vimgrep vim runtest.vim', 'E342:') call alloc_fail(GetAllocId('qf_dirname_now'), 0, 0) call assert_fails('vimgrep vim runtest.vim', 'E342:') call alloc_fail(GetAllocId('qf_namebuf'), 0, 0) call assert_fails('cfile runtest.vim', 'E342:') call alloc_fail(GetAllocId('qf_errmsg'), 0, 0) call assert_fails('cfile runtest.vim', 'E342:') call alloc_fail(GetAllocId('qf_pattern'), 0, 0) call assert_fails('cfile runtest.vim', 'E342:') endfunc