1" Test for the quickfix feature. 2 3source check.vim 4CheckFeature quickfix 5 6source screendump.vim 7 8set encoding=utf-8 9 10func s:setup_commands(cchar) 11 if a:cchar == 'c' 12 command! -nargs=* -bang Xlist <mods>clist<bang> <args> 13 command! -nargs=* Xgetexpr <mods>cgetexpr <args> 14 command! -nargs=* Xaddexpr <mods>caddexpr <args> 15 command! -nargs=* -count Xolder <mods><count>colder <args> 16 command! -nargs=* Xnewer <mods>cnewer <args> 17 command! -nargs=* Xopen <mods> copen <args> 18 command! -nargs=* Xwindow <mods>cwindow <args> 19 command! -nargs=* Xbottom <mods>cbottom <args> 20 command! -nargs=* Xclose <mods>cclose <args> 21 command! -nargs=* -bang Xfile <mods>cfile<bang> <args> 22 command! -nargs=* Xgetfile <mods>cgetfile <args> 23 command! -nargs=* Xaddfile <mods>caddfile <args> 24 command! -nargs=* -bang Xbuffer <mods>cbuffer<bang> <args> 25 command! -nargs=* Xgetbuffer <mods>cgetbuffer <args> 26 command! -nargs=* Xaddbuffer <mods>caddbuffer <args> 27 command! -nargs=* Xrewind <mods>crewind <args> 28 command! -count -nargs=* -bang Xnext <mods><count>cnext<bang> <args> 29 command! -count -nargs=* -bang Xprev <mods><count>cprev<bang> <args> 30 command! -nargs=* -bang Xfirst <mods>cfirst<bang> <args> 31 command! -nargs=* -bang Xlast <mods>clast<bang> <args> 32 command! -count -nargs=* -bang Xnfile <mods><count>cnfile<bang> <args> 33 command! -nargs=* -bang Xpfile <mods>cpfile<bang> <args> 34 command! -nargs=* Xexpr <mods>cexpr <args> 35 command! -count -nargs=* Xvimgrep <mods> <count>vimgrep <args> 36 command! -nargs=* Xvimgrepadd <mods> vimgrepadd <args> 37 command! -nargs=* Xgrep <mods> grep <args> 38 command! -nargs=* Xgrepadd <mods> grepadd <args> 39 command! -nargs=* Xhelpgrep helpgrep <args> 40 command! -nargs=0 -count Xcc <count>cc 41 command! -count=1 -nargs=0 Xbelow <mods><count>cbelow 42 command! -count=1 -nargs=0 Xabove <mods><count>cabove 43 command! -count=1 -nargs=0 Xbefore <mods><count>cbefore 44 command! -count=1 -nargs=0 Xafter <mods><count>cafter 45 let g:Xgetlist = function('getqflist') 46 let g:Xsetlist = function('setqflist') 47 call setqflist([], 'f') 48 else 49 command! -nargs=* -bang Xlist <mods>llist<bang> <args> 50 command! -nargs=* Xgetexpr <mods>lgetexpr <args> 51 command! -nargs=* Xaddexpr <mods>laddexpr <args> 52 command! -nargs=* -count Xolder <mods><count>lolder <args> 53 command! -nargs=* Xnewer <mods>lnewer <args> 54 command! -nargs=* Xopen <mods> lopen <args> 55 command! -nargs=* Xwindow <mods>lwindow <args> 56 command! -nargs=* Xbottom <mods>lbottom <args> 57 command! -nargs=* Xclose <mods>lclose <args> 58 command! -nargs=* -bang Xfile <mods>lfile<bang> <args> 59 command! -nargs=* Xgetfile <mods>lgetfile <args> 60 command! -nargs=* Xaddfile <mods>laddfile <args> 61 command! -nargs=* -bang Xbuffer <mods>lbuffer<bang> <args> 62 command! -nargs=* Xgetbuffer <mods>lgetbuffer <args> 63 command! -nargs=* Xaddbuffer <mods>laddbuffer <args> 64 command! -nargs=* Xrewind <mods>lrewind <args> 65 command! -count -nargs=* -bang Xnext <mods><count>lnext<bang> <args> 66 command! -count -nargs=* -bang Xprev <mods><count>lprev<bang> <args> 67 command! -nargs=* -bang Xfirst <mods>lfirst<bang> <args> 68 command! -nargs=* -bang Xlast <mods>llast<bang> <args> 69 command! -count -nargs=* -bang Xnfile <mods><count>lnfile<bang> <args> 70 command! -nargs=* -bang Xpfile <mods>lpfile<bang> <args> 71 command! -nargs=* Xexpr <mods>lexpr <args> 72 command! -count -nargs=* Xvimgrep <mods> <count>lvimgrep <args> 73 command! -nargs=* Xvimgrepadd <mods> lvimgrepadd <args> 74 command! -nargs=* Xgrep <mods> lgrep <args> 75 command! -nargs=* Xgrepadd <mods> lgrepadd <args> 76 command! -nargs=* Xhelpgrep lhelpgrep <args> 77 command! -nargs=0 -count Xcc <count>ll 78 command! -count=1 -nargs=0 Xbelow <mods><count>lbelow 79 command! -count=1 -nargs=0 Xabove <mods><count>labove 80 command! -count=1 -nargs=0 Xbefore <mods><count>lbefore 81 command! -count=1 -nargs=0 Xafter <mods><count>lafter 82 let g:Xgetlist = function('getloclist', [0]) 83 let g:Xsetlist = function('setloclist', [0]) 84 call setloclist(0, [], 'f') 85 endif 86endfunc 87 88" Tests for the :clist and :llist commands 89func XlistTests(cchar) 90 call s:setup_commands(a:cchar) 91 92 if a:cchar == 'l' 93 call assert_fails('llist', 'E776:') 94 endif 95 " With an empty list, command should return error 96 Xgetexpr [] 97 silent! Xlist 98 call assert_true(v:errmsg ==# 'E42: No Errors') 99 100 " Populate the list and then try 101 Xgetexpr ['non-error 1', 'Xtestfile1:1:3:Line1', 102 \ 'non-error 2', 'Xtestfile2:2:2:Line2', 103 \ 'non-error| 3', 'Xtestfile3:3:1:Line3'] 104 105 " List only valid entries 106 let l = split(execute('Xlist', ''), "\n") 107 call assert_equal([' 2 Xtestfile1:1 col 3: Line1', 108 \ ' 4 Xtestfile2:2 col 2: Line2', 109 \ ' 6 Xtestfile3:3 col 1: Line3'], l) 110 111 " List all the entries 112 let l = split(execute('Xlist!', ''), "\n") 113 call assert_equal([' 1: non-error 1', ' 2 Xtestfile1:1 col 3: Line1', 114 \ ' 3: non-error 2', ' 4 Xtestfile2:2 col 2: Line2', 115 \ ' 5: non-error| 3', ' 6 Xtestfile3:3 col 1: Line3'], l) 116 117 " List a range of errors 118 let l = split(execute('Xlist 3,6', ''), "\n") 119 call assert_equal([' 4 Xtestfile2:2 col 2: Line2', 120 \ ' 6 Xtestfile3:3 col 1: Line3'], l) 121 122 let l = split(execute('Xlist! 3,4', ''), "\n") 123 call assert_equal([' 3: non-error 2', ' 4 Xtestfile2:2 col 2: Line2'], l) 124 125 let l = split(execute('Xlist -6,-4', ''), "\n") 126 call assert_equal([' 2 Xtestfile1:1 col 3: Line1'], l) 127 128 let l = split(execute('Xlist! -5,-3', ''), "\n") 129 call assert_equal([' 2 Xtestfile1:1 col 3: Line1', 130 \ ' 3: non-error 2', ' 4 Xtestfile2:2 col 2: Line2'], l) 131 132 " Test for '+' 133 let l = split(execute('Xlist! +2', ''), "\n") 134 call assert_equal([' 2 Xtestfile1:1 col 3: Line1', 135 \ ' 3: non-error 2', ' 4 Xtestfile2:2 col 2: Line2'], l) 136 137 " Different types of errors 138 call g:Xsetlist([{'lnum':10,'col':5,'type':'W', 'text':'Warning','nr':11}, 139 \ {'lnum':20,'col':10,'type':'e','text':'Error','nr':22}, 140 \ {'lnum':30,'col':15,'type':'i','text':'Info','nr':33}, 141 \ {'lnum':40,'col':20,'type':'x', 'text':'Other','nr':44}, 142 \ {'lnum':50,'col':25,'type':"\<C-A>",'text':'one','nr':55}]) 143 let l = split(execute('Xlist', ""), "\n") 144 call assert_equal([' 1:10 col 5 warning 11: Warning', 145 \ ' 2:20 col 10 error 22: Error', 146 \ ' 3:30 col 15 info 33: Info', 147 \ ' 4:40 col 20 x 44: Other', 148 \ ' 5:50 col 25 55: one'], l) 149 150 " Test for module names, one needs to explicitly set `'valid':v:true` so 151 call g:Xsetlist([ 152 \ {'lnum':10,'col':5,'type':'W','module':'Data.Text','text':'ModuleWarning','nr':11,'valid':v:true}, 153 \ {'lnum':20,'col':10,'type':'W','module':'Data.Text','filename':'Data/Text.hs','text':'ModuleWarning','nr':22,'valid':v:true}, 154 \ {'lnum':30,'col':15,'type':'W','filename':'Data/Text.hs','text':'FileWarning','nr':33,'valid':v:true}]) 155 let l = split(execute('Xlist', ""), "\n") 156 call assert_equal([' 1 Data.Text:10 col 5 warning 11: ModuleWarning', 157 \ ' 2 Data.Text:20 col 10 warning 22: ModuleWarning', 158 \ ' 3 Data/Text.hs:30 col 15 warning 33: FileWarning'], l) 159 160 " For help entries in the quickfix list, only the filename without directory 161 " should be displayed 162 Xhelpgrep setqflist() 163 let l = split(execute('Xlist 1', ''), "\n") 164 call assert_match('^ 1 [^\\/]\{-}:', l[0]) 165 166 " Error cases 167 call assert_fails('Xlist abc', 'E488:') 168endfunc 169 170func Test_clist() 171 call XlistTests('c') 172 call XlistTests('l') 173endfunc 174 175" Tests for the :colder, :cnewer, :lolder and :lnewer commands 176" Note that this test assumes that a quickfix/location list is 177" already set by the caller. 178func XageTests(cchar) 179 call s:setup_commands(a:cchar) 180 181 if a:cchar == 'l' 182 " No location list for the current window 183 call assert_fails('lolder', 'E776:') 184 call assert_fails('lnewer', 'E776:') 185 endif 186 187 let list = [{'bufnr': bufnr('%'), 'lnum': 1}] 188 call g:Xsetlist(list) 189 190 " Jumping to a non existent list should return error 191 silent! Xolder 99 192 call assert_true(v:errmsg ==# 'E380: At bottom of quickfix stack') 193 194 silent! Xnewer 99 195 call assert_true(v:errmsg ==# 'E381: At top of quickfix stack') 196 197 " Add three quickfix/location lists 198 Xgetexpr ['Xtestfile1:1:3:Line1'] 199 Xgetexpr ['Xtestfile2:2:2:Line2'] 200 Xgetexpr ['Xtestfile3:3:1:Line3'] 201 202 " Go back two lists 203 Xolder 204 let l = g:Xgetlist() 205 call assert_equal('Line2', l[0].text) 206 207 " Go forward two lists 208 Xnewer 209 let l = g:Xgetlist() 210 call assert_equal('Line3', l[0].text) 211 212 " Test for the optional count argument 213 Xolder 2 214 let l = g:Xgetlist() 215 call assert_equal('Line1', l[0].text) 216 217 Xnewer 2 218 let l = g:Xgetlist() 219 call assert_equal('Line3', l[0].text) 220endfunc 221 222func Test_cage() 223 call XageTests('c') 224 call XageTests('l') 225endfunc 226 227" Tests for the :cwindow, :lwindow :cclose, :lclose, :copen and :lopen 228" commands 229func XwindowTests(cchar) 230 call s:setup_commands(a:cchar) 231 232 " Opening the location list window without any errors should fail 233 if a:cchar == 'l' 234 call assert_fails('lopen', 'E776:') 235 endif 236 237 " Create a list with no valid entries 238 Xgetexpr ['non-error 1', 'non-error 2', 'non-error 3'] 239 240 " Quickfix/Location window should not open with no valid errors 241 Xwindow 242 call assert_true(winnr('$') == 1) 243 244 " Create a list with valid entries 245 Xgetexpr ['Xtestfile1:1:3:Line1', 'Xtestfile2:2:2:Line2', 246 \ 'Xtestfile3:3:1:Line3'] 247 248 " Open the window 249 Xwindow 250 call assert_true(winnr('$') == 2 && winnr() == 2 && 251 \ getline('.') ==# 'Xtestfile1|1 col 3| Line1') 252 redraw! 253 254 " Close the window 255 Xclose 256 call assert_true(winnr('$') == 1) 257 258 " Create a list with no valid entries 259 Xgetexpr ['non-error 1', 'non-error 2', 'non-error 3'] 260 261 " Open the window 262 Xopen 5 263 call assert_true(winnr('$') == 2 && getline('.') ==# '|| non-error 1' 264 \ && winheight(0) == 5) 265 266 " Opening the window again, should move the cursor to that window 267 wincmd t 268 Xopen 7 269 call assert_true(winnr('$') == 2 && winnr() == 2 && 270 \ winheight(0) == 7 && 271 \ getline('.') ==# '|| non-error 1') 272 273 " :cnext in quickfix window should move to the next entry 274 Xnext 275 call assert_equal(2, g:Xgetlist({'idx' : 0}).idx) 276 277 " Calling cwindow should close the quickfix window with no valid errors 278 Xwindow 279 call assert_true(winnr('$') == 1) 280 281 " Specifying the width should adjust the width for a vertically split 282 " quickfix window. 283 vert Xopen 284 call assert_equal(10, winwidth(0)) 285 vert Xopen 12 286 call assert_equal(12, winwidth(0)) 287 Xclose 288 289 " Horizontally or vertically splitting the quickfix window should create a 290 " normal window/buffer 291 Xopen 292 wincmd s 293 call assert_equal(0, getwininfo(win_getid())[0].quickfix) 294 call assert_equal(0, getwininfo(win_getid())[0].loclist) 295 call assert_notequal('quickfix', &buftype) 296 close 297 Xopen 298 wincmd v 299 call assert_equal(0, getwininfo(win_getid())[0].quickfix) 300 call assert_equal(0, getwininfo(win_getid())[0].loclist) 301 call assert_notequal('quickfix', &buftype) 302 close 303 Xopen 304 Xclose 305 306 if a:cchar == 'c' 307 " Opening the quickfix window in multiple tab pages should reuse the 308 " quickfix buffer 309 Xgetexpr ['Xtestfile1:1:3:Line1', 'Xtestfile2:2:2:Line2', 310 \ 'Xtestfile3:3:1:Line3'] 311 Xopen 312 let qfbufnum = bufnr('%') 313 tabnew 314 Xopen 315 call assert_equal(qfbufnum, bufnr('%')) 316 new | only | tabonly 317 endif 318endfunc 319 320func Test_cwindow() 321 call XwindowTests('c') 322 call XwindowTests('l') 323endfunc 324 325func Test_copenHeight() 326 copen 327 wincmd H 328 let height = winheight(0) 329 copen 10 330 call assert_equal(height, winheight(0)) 331 quit 332endfunc 333 334func Test_copenHeight_tabline() 335 set tabline=foo showtabline=2 336 copen 337 wincmd H 338 let height = winheight(0) 339 copen 10 340 call assert_equal(height, winheight(0)) 341 quit 342 set tabline& showtabline& 343endfunc 344 345 346" Tests for the :cfile, :lfile, :caddfile, :laddfile, :cgetfile and :lgetfile 347" commands. 348func XfileTests(cchar) 349 call s:setup_commands(a:cchar) 350 351 call writefile(['Xtestfile1:700:10:Line 700', 352 \ 'Xtestfile2:800:15:Line 800'], 'Xqftestfile1') 353 354 enew! 355 Xfile Xqftestfile1 356 let l = g:Xgetlist() 357 call assert_true(len(l) == 2 && 358 \ l[0].lnum == 700 && l[0].col == 10 && l[0].text ==# 'Line 700' && 359 \ l[1].lnum == 800 && l[1].col == 15 && l[1].text ==# 'Line 800') 360 361 " Test with a non existent file 362 call assert_fails('Xfile non_existent_file', 'E40:') 363 364 " Run cfile/lfile from a modified buffer 365 enew! 366 silent! put ='Quickfix' 367 silent! Xfile Xqftestfile1 368 call assert_true(v:errmsg ==# 'E37: No write since last change (add ! to override)') 369 370 call writefile(['Xtestfile3:900:30:Line 900'], 'Xqftestfile1') 371 Xaddfile Xqftestfile1 372 let l = g:Xgetlist() 373 call assert_true(len(l) == 3 && 374 \ l[2].lnum == 900 && l[2].col == 30 && l[2].text ==# 'Line 900') 375 376 call writefile(['Xtestfile1:222:77:Line 222', 377 \ 'Xtestfile2:333:88:Line 333'], 'Xqftestfile1') 378 379 enew! 380 Xgetfile Xqftestfile1 381 let l = g:Xgetlist() 382 call assert_true(len(l) == 2 && 383 \ l[0].lnum == 222 && l[0].col == 77 && l[0].text ==# 'Line 222' && 384 \ l[1].lnum == 333 && l[1].col == 88 && l[1].text ==# 'Line 333') 385 386 " Test for a file with a long line and without a newline at the end 387 let text = repeat('x', 1024) 388 let t = 'a.txt:18:' . text 389 call writefile([t], 'Xqftestfile1', 'b') 390 silent! Xfile Xqftestfile1 391 call assert_equal(text, g:Xgetlist()[0].text) 392 393 call delete('Xqftestfile1') 394endfunc 395 396func Test_cfile() 397 call XfileTests('c') 398 call XfileTests('l') 399endfunc 400 401" Tests for the :cbuffer, :lbuffer, :caddbuffer, :laddbuffer, :cgetbuffer and 402" :lgetbuffer commands. 403func XbufferTests(cchar) 404 call s:setup_commands(a:cchar) 405 406 enew! 407 silent! call setline(1, ['Xtestfile7:700:10:Line 700', 408 \ 'Xtestfile8:800:15:Line 800']) 409 Xbuffer! 410 let l = g:Xgetlist() 411 call assert_true(len(l) == 2 && 412 \ l[0].lnum == 700 && l[0].col == 10 && l[0].text ==# 'Line 700' && 413 \ l[1].lnum == 800 && l[1].col == 15 && l[1].text ==# 'Line 800') 414 415 enew! 416 silent! call setline(1, ['Xtestfile9:900:55:Line 900', 417 \ 'Xtestfile10:950:66:Line 950']) 418 Xgetbuffer 419 let l = g:Xgetlist() 420 call assert_true(len(l) == 2 && 421 \ l[0].lnum == 900 && l[0].col == 55 && l[0].text ==# 'Line 900' && 422 \ l[1].lnum == 950 && l[1].col == 66 && l[1].text ==# 'Line 950') 423 424 enew! 425 silent! call setline(1, ['Xtestfile11:700:20:Line 700', 426 \ 'Xtestfile12:750:25:Line 750']) 427 Xaddbuffer 428 let l = g:Xgetlist() 429 call assert_true(len(l) == 4 && 430 \ l[1].lnum == 950 && l[1].col == 66 && l[1].text ==# 'Line 950' && 431 \ l[2].lnum == 700 && l[2].col == 20 && l[2].text ==# 'Line 700' && 432 \ l[3].lnum == 750 && l[3].col == 25 && l[3].text ==# 'Line 750') 433 enew! 434 435 " Check for invalid buffer 436 call assert_fails('Xbuffer 199', 'E474:') 437 438 " Check for unloaded buffer 439 edit Xtestfile1 440 let bnr = bufnr('%') 441 enew! 442 call assert_fails('Xbuffer ' . bnr, 'E681:') 443 444 " Check for invalid range 445 " Using Xbuffer will not run the range check in the cbuffer/lbuffer 446 " commands. So directly call the commands. 447 if (a:cchar == 'c') 448 call assert_fails('900,999cbuffer', 'E16:') 449 else 450 call assert_fails('900,999lbuffer', 'E16:') 451 endif 452endfunc 453 454func Test_cbuffer() 455 call XbufferTests('c') 456 call XbufferTests('l') 457endfunc 458 459func XexprTests(cchar) 460 call s:setup_commands(a:cchar) 461 462 call assert_fails('Xexpr 10', 'E777:') 463endfunc 464 465func Test_cexpr() 466 call XexprTests('c') 467 call XexprTests('l') 468endfunc 469 470" Tests for :cnext, :cprev, :cfirst, :clast commands 471func Xtest_browse(cchar) 472 call s:setup_commands(a:cchar) 473 474 call g:Xsetlist([], 'f') 475 " Jumping to first or next location list entry without any error should 476 " result in failure 477 if a:cchar == 'c' 478 let err = 'E42:' 479 let cmd = '$cc' 480 else 481 let err = 'E776:' 482 let cmd = '$ll' 483 endif 484 call assert_fails('Xnext', err) 485 call assert_fails('Xprev', err) 486 call assert_fails('Xnfile', err) 487 call assert_fails('Xpfile', err) 488 call assert_fails(cmd, err) 489 490 Xexpr '' 491 call assert_fails(cmd, 'E42:') 492 493 call s:create_test_file('Xqftestfile1') 494 call s:create_test_file('Xqftestfile2') 495 496 Xgetexpr ['Xqftestfile1:5:Line5', 497 \ 'Xqftestfile1:6:Line6', 498 \ 'Xqftestfile2:10:Line10', 499 \ 'Xqftestfile2:11:Line11', 500 \ 'RegularLine1', 501 \ 'RegularLine2'] 502 503 Xfirst 504 call assert_fails('-5Xcc', 'E16:') 505 call assert_fails('Xprev', 'E553:') 506 call assert_fails('Xpfile', 'E553:') 507 Xnfile 508 call assert_equal('Xqftestfile2', @%) 509 call assert_equal(10, line('.')) 510 Xpfile 511 call assert_equal('Xqftestfile1', @%) 512 call assert_equal(6, line('.')) 513 5Xcc 514 call assert_equal(5, g:Xgetlist({'idx':0}).idx) 515 2Xcc 516 call assert_equal(2, g:Xgetlist({'idx':0}).idx) 517 if a:cchar == 'c' 518 cc 519 else 520 ll 521 endif 522 call assert_equal(2, g:Xgetlist({'idx':0}).idx) 523 10Xcc 524 call assert_equal(6, g:Xgetlist({'idx':0}).idx) 525 Xlast 526 Xprev 527 call assert_equal('Xqftestfile2', @%) 528 call assert_equal(11, line('.')) 529 call assert_fails('Xnext', 'E553:') 530 call assert_fails('Xnfile', 'E553:') 531 " To process the range using quickfix list entries, directly use the 532 " quickfix commands (don't use the user defined commands) 533 if a:cchar == 'c' 534 $cc 535 else 536 $ll 537 endif 538 call assert_equal(6, g:Xgetlist({'idx':0}).idx) 539 Xrewind 540 call assert_equal('Xqftestfile1', @%) 541 call assert_equal(5, line('.')) 542 543 10Xnext 544 call assert_equal('Xqftestfile2', @%) 545 call assert_equal(11, line('.')) 546 10Xprev 547 call assert_equal('Xqftestfile1', @%) 548 call assert_equal(5, line('.')) 549 550 " Jumping to an error from the error window using cc command 551 Xgetexpr ['Xqftestfile1:5:Line5', 552 \ 'Xqftestfile1:6:Line6', 553 \ 'Xqftestfile2:10:Line10', 554 \ 'Xqftestfile2:11:Line11'] 555 Xopen 556 10Xcc 557 call assert_equal(11, line('.')) 558 call assert_equal('Xqftestfile2', @%) 559 Xopen 560 call cursor(2, 1) 561 if a:cchar == 'c' 562 .cc 563 else 564 .ll 565 endif 566 call assert_equal(6, line('.')) 567 call assert_equal('Xqftestfile1', @%) 568 569 " Jumping to an error from the error window (when only the error window is 570 " present) 571 Xopen | only 572 Xlast 1 573 call assert_equal(5, line('.')) 574 call assert_equal('Xqftestfile1', @%) 575 576 Xexpr "" 577 call assert_fails('Xnext', 'E42:') 578 579 call delete('Xqftestfile1') 580 call delete('Xqftestfile2') 581 582 " Should be able to use next/prev with invalid entries 583 Xexpr "" 584 call assert_equal(0, g:Xgetlist({'idx' : 0}).idx) 585 call assert_equal(0, g:Xgetlist({'size' : 0}).size) 586 Xaddexpr ['foo', 'bar', 'baz', 'quux', 'sh|moo'] 587 call assert_equal(5, g:Xgetlist({'size' : 0}).size) 588 Xlast 589 call assert_equal(5, g:Xgetlist({'idx' : 0}).idx) 590 Xfirst 591 call assert_equal(1, g:Xgetlist({'idx' : 0}).idx) 592 2Xnext 593 call assert_equal(3, g:Xgetlist({'idx' : 0}).idx) 594endfunc 595 596func Test_browse() 597 call Xtest_browse('c') 598 call Xtest_browse('l') 599endfunc 600 601func Test_nomem() 602 call test_alloc_fail(GetAllocId('qf_dirname_start'), 0, 0) 603 call assert_fails('vimgrep vim runtest.vim', 'E342:') 604 605 call GetAllocId('qf_dirname_now')->test_alloc_fail(0, 0) 606 call assert_fails('vimgrep vim runtest.vim', 'E342:') 607 608 call test_alloc_fail(GetAllocId('qf_namebuf'), 0, 0) 609 call assert_fails('cfile runtest.vim', 'E342:') 610 611 call test_alloc_fail(GetAllocId('qf_errmsg'), 0, 0) 612 call assert_fails('cfile runtest.vim', 'E342:') 613 614 call test_alloc_fail(GetAllocId('qf_pattern'), 0, 0) 615 call assert_fails('cfile runtest.vim', 'E342:') 616 617endfunc 618 619func s:test_xhelpgrep(cchar) 620 call s:setup_commands(a:cchar) 621 Xhelpgrep quickfix 622 Xopen 623 if a:cchar == 'c' 624 let title_text = ':helpgrep quickfix' 625 else 626 let title_text = ':lhelpgrep quickfix' 627 endif 628 call assert_true(w:quickfix_title =~ title_text, w:quickfix_title) 629 630 " Jumping to a help topic should open the help window 631 only 632 Xnext 633 call assert_true(&buftype == 'help') 634 call assert_true(winnr('$') == 2) 635 " Jumping to the next match should reuse the help window 636 Xnext 637 call assert_true(&buftype == 'help') 638 call assert_true(winnr() == 1) 639 call assert_true(winnr('$') == 2) 640 " Jumping to the next match from the quickfix window should reuse the help 641 " window 642 Xopen 643 Xnext 644 call assert_true(&buftype == 'help') 645 call assert_true(winnr() == 1) 646 call assert_true(winnr('$') == 2) 647 648 " This wipes out the buffer, make sure that doesn't cause trouble. 649 Xclose 650 651 " When the current window is vertically split, jumping to a help match 652 " should open the help window at the top. 653 only | enew 654 let w1 = win_getid() 655 vert new 656 let w2 = win_getid() 657 Xnext 658 let w3 = win_getid() 659 call assert_true(&buftype == 'help') 660 call assert_true(winnr() == 1) 661 " See jump_to_help_window() for details 662 let w2_width = winwidth(w2) 663 if w2_width != &columns && w2_width < 80 664 call assert_equal(['col', [['leaf', w3], 665 \ ['row', [['leaf', w2], ['leaf', w1]]]]], winlayout()) 666 else 667 call assert_equal(['row', [['col', [['leaf', w3], ['leaf', w2]]], 668 \ ['leaf', w1]]] , winlayout()) 669 endif 670 671 new | only 672 set buftype=help 673 set modified 674 call assert_fails('Xnext', 'E37:') 675 set nomodified 676 new | only 677 678 if a:cchar == 'l' 679 " When a help window is present, running :lhelpgrep should reuse the 680 " help window and not the current window 681 new | only 682 call g:Xsetlist([], 'f') 683 help index.txt 684 wincmd w 685 lhelpgrep quickfix 686 call assert_equal(1, winnr()) 687 call assert_notequal([], getloclist(1)) 688 call assert_equal([], getloclist(2)) 689 endif 690 691 new | only 692 693 " Search for non existing help string 694 call assert_fails('Xhelpgrep a1b2c3', 'E480:') 695 " Invalid regular expression 696 call assert_fails('Xhelpgrep \@<!', 'E866:') 697endfunc 698 699func Test_helpgrep() 700 call s:test_xhelpgrep('c') 701 helpclose 702 call s:test_xhelpgrep('l') 703endfunc 704 705func Test_errortitle() 706 augroup QfBufWinEnter 707 au! 708 au BufWinEnter * :let g:a=get(w:, 'quickfix_title', 'NONE') 709 augroup END 710 copen 711 let a=[{'lnum': 308, 'bufnr': bufnr(''), 'col': 58, 'valid': 1, 'vcol': 0, 'nr': 0, 'type': '', 'pattern': '', 'text': ' au BufWinEnter * :let g:a=get(w:, ''quickfix_title'', ''NONE'')'}] 712 call setqflist(a) 713 call assert_equal(':setqflist()', g:a) 714 augroup QfBufWinEnter 715 au! 716 augroup END 717 augroup! QfBufWinEnter 718endfunc 719 720func Test_vimgreptitle() 721 augroup QfBufWinEnter 722 au! 723 au BufWinEnter * :let g:a=get(w:, 'quickfix_title', 'NONE') 724 augroup END 725 try 726 vimgrep /pattern/j file 727 catch /E480/ 728 endtry 729 copen 730 call assert_equal(': vimgrep /pattern/j file', g:a) 731 augroup QfBufWinEnter 732 au! 733 augroup END 734 augroup! QfBufWinEnter 735endfunc 736 737func XqfTitleTests(cchar) 738 call s:setup_commands(a:cchar) 739 740 Xgetexpr ['file:1:1:message'] 741 let l = g:Xgetlist() 742 if a:cchar == 'c' 743 call setqflist(l, 'r') 744 else 745 call setloclist(0, l, 'r') 746 endif 747 748 Xopen 749 if a:cchar == 'c' 750 let title = ':setqflist()' 751 else 752 let title = ':setloclist()' 753 endif 754 call assert_equal(title, w:quickfix_title) 755 Xclose 756endfunc 757 758" Tests for quickfix window's title 759func Test_qf_title() 760 call XqfTitleTests('c') 761 call XqfTitleTests('l') 762endfunc 763 764" Tests for 'errorformat' 765func Test_efm() 766 let save_efm = &efm 767 set efm=%EEEE%m,%WWWW%m,%+CCCC%.%#,%-GGGG%.%# 768 cgetexpr ['WWWW', 'EEEE', 'CCCC'] 769 let l = strtrans(string(map(getqflist(), '[v:val.text, v:val.valid]'))) 770 call assert_equal("[['W', 1], ['E^@CCCC', 1]]", l) 771 cgetexpr ['WWWW', 'GGGG', 'EEEE', 'CCCC'] 772 let l = strtrans(string(map(getqflist(), '[v:val.text, v:val.valid]'))) 773 call assert_equal("[['W', 1], ['E^@CCCC', 1]]", l) 774 cgetexpr ['WWWW', 'GGGG', 'ZZZZ', 'EEEE', 'CCCC', 'YYYY'] 775 let l = strtrans(string(map(getqflist(), '[v:val.text, v:val.valid]'))) 776 call assert_equal("[['W', 1], ['ZZZZ', 0], ['E^@CCCC', 1], ['YYYY', 0]]", l) 777 let &efm = save_efm 778endfunc 779 780" This will test for problems in quickfix: 781" A. incorrectly copying location lists which caused the location list to show 782" a different name than the file that was actually being displayed. 783" B. not reusing the window for which the location list window is opened but 784" instead creating new windows. 785" C. make sure that the location list window is not reused instead of the 786" window it belongs to. 787" 788" Set up the test environment: 789func ReadTestProtocol(name) 790 let base = substitute(a:name, '\v^test://(.*)%(\.[^.]+)?', '\1', '') 791 let word = substitute(base, '\v(.*)\..*', '\1', '') 792 793 setl modifiable 794 setl noreadonly 795 setl noswapfile 796 setl bufhidden=delete 797 %del _ 798 " For problem 2: 799 " 'buftype' has to be set to reproduce the constant opening of new windows 800 setl buftype=nofile 801 802 call setline(1, word) 803 804 setl nomodified 805 setl nomodifiable 806 setl readonly 807 exe 'doautocmd BufRead ' . substitute(a:name, '\v^test://(.*)', '\1', '') 808endfunc 809 810func Test_locationlist() 811 enew 812 813 augroup testgroup 814 au! 815 autocmd BufReadCmd test://* call ReadTestProtocol(expand("<amatch>")) 816 augroup END 817 818 let words = [ "foo", "bar", "baz", "quux", "shmoo", "spam", "eggs" ] 819 820 let qflist = [] 821 for word in words 822 call add(qflist, {'filename': 'test://' . word . '.txt', 'text': 'file ' . word . '.txt', }) 823 " NOTE: problem 1: 824 " intentionally not setting 'lnum' so that the quickfix entries are not 825 " valid 826 eval qflist->setloclist(0, ' ') 827 endfor 828 829 " Test A 830 lrewind 831 enew 832 lopen 833 4lnext 834 vert split 835 wincmd L 836 lopen 837 wincmd p 838 lnext 839 let fileName = expand("%") 840 wincmd p 841 let locationListFileName = substitute(getline(line('.')), '\([^|]*\)|.*', '\1', '') 842 let fileName = substitute(fileName, '\\', '/', 'g') 843 let locationListFileName = substitute(locationListFileName, '\\', '/', 'g') 844 call assert_equal("test://bar.txt", fileName) 845 call assert_equal("test://bar.txt", locationListFileName) 846 847 wincmd n | only 848 849 " Test B: 850 lrewind 851 lopen 852 2 853 exe "normal \<CR>" 854 wincmd p 855 3 856 exe "normal \<CR>" 857 wincmd p 858 4 859 exe "normal \<CR>" 860 call assert_equal(2, winnr('$')) 861 wincmd n | only 862 863 " Test C: 864 lrewind 865 lopen 866 " Let's move the location list window to the top to check whether it (the 867 " first window found) will be reused when we try to open new windows: 868 wincmd K 869 2 870 exe "normal \<CR>" 871 wincmd p 872 3 873 exe "normal \<CR>" 874 wincmd p 875 4 876 exe "normal \<CR>" 877 1wincmd w 878 call assert_equal('quickfix', &buftype) 879 2wincmd w 880 let bufferName = expand("%") 881 let bufferName = substitute(bufferName, '\\', '/', 'g') 882 call assert_equal('test://quux.txt', bufferName) 883 884 wincmd n | only 885 886 augroup! testgroup 887endfunc 888 889func Test_locationlist_curwin_was_closed() 890 augroup testgroup 891 au! 892 autocmd BufReadCmd test_curwin.txt call R(expand("<amatch>")) 893 augroup END 894 895 func! R(n) 896 quit 897 endfunc 898 899 new 900 let q = [] 901 call add(q, {'filename': 'test_curwin.txt' }) 902 call setloclist(0, q) 903 call assert_fails('lrewind', 'E924:') 904 905 augroup! testgroup 906endfunc 907 908func Test_locationlist_cross_tab_jump() 909 call writefile(['loclistfoo'], 'loclistfoo') 910 call writefile(['loclistbar'], 'loclistbar') 911 set switchbuf=usetab 912 913 edit loclistfoo 914 tabedit loclistbar 915 silent lgrep loclistfoo loclist* 916 call assert_equal(1, tabpagenr()) 917 918 enew | only | tabonly 919 set switchbuf&vim 920 call delete('loclistfoo') 921 call delete('loclistbar') 922endfunc 923 924" More tests for 'errorformat' 925func Test_efm1() 926 " The 'errorformat' setting is different on non-Unix systems. 927 " This test works only on Unix-like systems. 928 CheckUnix 929 930 let l =<< trim [DATA] 931 "Xtestfile", line 4.12: 1506-045 (S) Undeclared identifier fd_set. 932 "Xtestfile", line 6 col 19; this is an error 933 gcc -c -DHAVE_CONFIsing-prototypes -I/usr/X11R6/include version.c 934 Xtestfile:9: parse error before `asd' 935 make: *** [vim] Error 1 936 in file "Xtestfile" linenr 10: there is an error 937 938 2 returned 939 "Xtestfile", line 11 col 1; this is an error 940 "Xtestfile", line 12 col 2; this is another error 941 "Xtestfile", line 14:10; this is an error in column 10 942 =Xtestfile=, line 15:10; this is another error, but in vcol 10 this time 943 "Xtestfile", linenr 16: yet another problem 944 Error in "Xtestfile" at line 17: 945 x should be a dot 946 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 17 947 ^ 948 Error in "Xtestfile" at line 18: 949 x should be a dot 950 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 18 951 .............^ 952 Error in "Xtestfile" at line 19: 953 x should be a dot 954 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 19 955 --------------^ 956 Error in "Xtestfile" at line 20: 957 x should be a dot 958 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 20 959 ^ 960 961 Does anyone know what is the problem and how to correction it? 962 "Xtestfile", line 21 col 9: What is the title of the quickfix window? 963 "Xtestfile", line 22 col 9: What is the title of the quickfix window? 964 [DATA] 965 966 call writefile(l, 'Xerrorfile1') 967 call writefile(l[:-2], 'Xerrorfile2') 968 969 let m =<< [DATA] 970 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 2 971 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 3 972 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 4 973 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 5 974 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 6 975 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 7 976 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 8 977 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 9 978 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 10 979 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 11 980 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 12 981 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 13 982 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 14 983 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 15 984 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 16 985 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 17 986 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 18 987 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 19 988 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 20 989 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 21 990 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 22 991[DATA] 992 call writefile(m, 'Xtestfile') 993 994 let save_efm = &efm 995 set efm+==%f=\\,\ line\ %l%*\\D%v%*[^\ ]\ %m 996 set efm^=%AError\ in\ \"%f\"\ at\ line\ %l:,%Z%p^,%C%m 997 998 exe 'cf Xerrorfile2' 999 clast 1000 copen 1001 call assert_equal(':cf Xerrorfile2', w:quickfix_title) 1002 wincmd p 1003 1004 exe 'cf Xerrorfile1' 1005 call assert_equal([4, 12], [line('.'), col('.')]) 1006 cn 1007 call assert_equal([6, 19], [line('.'), col('.')]) 1008 cn 1009 call assert_equal([9, 2], [line('.'), col('.')]) 1010 cn 1011 call assert_equal([10, 2], [line('.'), col('.')]) 1012 cn 1013 call assert_equal([11, 1], [line('.'), col('.')]) 1014 cn 1015 call assert_equal([12, 2], [line('.'), col('.')]) 1016 cn 1017 call assert_equal([14, 10], [line('.'), col('.')]) 1018 cn 1019 call assert_equal([15, 3, 10], [line('.'), col('.'), virtcol('.')]) 1020 cn 1021 call assert_equal([16, 2], [line('.'), col('.')]) 1022 cn 1023 call assert_equal([17, 6], [line('.'), col('.')]) 1024 cn 1025 call assert_equal([18, 7], [line('.'), col('.')]) 1026 cn 1027 call assert_equal([19, 8], [line('.'), col('.')]) 1028 cn 1029 call assert_equal([20, 9], [line('.'), col('.')]) 1030 clast 1031 cprev 1032 cprev 1033 wincmd w 1034 call assert_equal(':cf Xerrorfile1', w:quickfix_title) 1035 wincmd p 1036 1037 let &efm = save_efm 1038 call delete('Xerrorfile1') 1039 call delete('Xerrorfile2') 1040 call delete('Xtestfile') 1041endfunc 1042 1043" Test for quickfix directory stack support 1044func s:dir_stack_tests(cchar) 1045 call s:setup_commands(a:cchar) 1046 1047 let save_efm=&efm 1048 set efm=%DEntering\ dir\ '%f',%f:%l:%m,%XLeaving\ dir\ '%f' 1049 1050 let lines = ["Entering dir 'dir1/a'", 1051 \ 'habits2.txt:1:Nine Healthy Habits', 1052 \ "Entering dir 'b'", 1053 \ 'habits3.txt:2:0 Hours of television', 1054 \ 'habits2.txt:7:5 Small meals', 1055 \ "Entering dir 'dir1/c'", 1056 \ 'habits4.txt:3:1 Hour of exercise', 1057 \ "Leaving dir 'dir1/c'", 1058 \ "Leaving dir 'dir1/a'", 1059 \ 'habits1.txt:4:2 Liters of water', 1060 \ "Entering dir 'dir2'", 1061 \ 'habits5.txt:5:3 Cups of hot green tea', 1062 \ "Leaving dir 'dir2'" 1063 \] 1064 1065 Xexpr "" 1066 for l in lines 1067 Xaddexpr l 1068 endfor 1069 1070 let qf = g:Xgetlist() 1071 1072 call assert_equal('dir1/a/habits2.txt', bufname(qf[1].bufnr)) 1073 call assert_equal(1, qf[1].lnum) 1074 call assert_equal('dir1/a/b/habits3.txt', bufname(qf[3].bufnr)) 1075 call assert_equal(2, qf[3].lnum) 1076 call assert_equal('dir1/a/habits2.txt', bufname(qf[4].bufnr)) 1077 call assert_equal(7, qf[4].lnum) 1078 call assert_equal('dir1/c/habits4.txt', bufname(qf[6].bufnr)) 1079 call assert_equal(3, qf[6].lnum) 1080 call assert_equal('habits1.txt', bufname(qf[9].bufnr)) 1081 call assert_equal(4, qf[9].lnum) 1082 call assert_equal('dir2/habits5.txt', bufname(qf[11].bufnr)) 1083 call assert_equal(5, qf[11].lnum) 1084 1085 let &efm=save_efm 1086endfunc 1087 1088" Tests for %D and %X errorformat options 1089func Test_efm_dirstack() 1090 " Create the directory stack and files 1091 call mkdir('dir1') 1092 call mkdir('dir1/a') 1093 call mkdir('dir1/a/b') 1094 call mkdir('dir1/c') 1095 call mkdir('dir2') 1096 1097 let lines = ["Nine Healthy Habits", 1098 \ "0 Hours of television", 1099 \ "1 Hour of exercise", 1100 \ "2 Liters of water", 1101 \ "3 Cups of hot green tea", 1102 \ "4 Short mental breaks", 1103 \ "5 Small meals", 1104 \ "6 AM wake up time", 1105 \ "7 Minutes of laughter", 1106 \ "8 Hours of sleep (at least)", 1107 \ "9 PM end of the day and off to bed" 1108 \ ] 1109 call writefile(lines, 'habits1.txt') 1110 call writefile(lines, 'dir1/a/habits2.txt') 1111 call writefile(lines, 'dir1/a/b/habits3.txt') 1112 call writefile(lines, 'dir1/c/habits4.txt') 1113 call writefile(lines, 'dir2/habits5.txt') 1114 1115 call s:dir_stack_tests('c') 1116 call s:dir_stack_tests('l') 1117 1118 call delete('dir1', 'rf') 1119 call delete('dir2', 'rf') 1120 call delete('habits1.txt') 1121endfunc 1122 1123" Test for resync after continuing an ignored message 1124func Xefm_ignore_continuations(cchar) 1125 call s:setup_commands(a:cchar) 1126 1127 let save_efm = &efm 1128 1129 let &efm = 1130 \ '%Eerror %m %l,' . 1131 \ '%-Wignored %m %l,' . 1132 \ '%+Cmore ignored %m %l,' . 1133 \ '%Zignored end' 1134 Xgetexpr ['ignored warning 1', 'more ignored continuation 2', 'ignored end', 'error resync 4'] 1135 let l = map(g:Xgetlist(), '[v:val.text, v:val.valid, v:val.lnum, v:val.type]') 1136 call assert_equal([['resync', 1, 4, 'E']], l) 1137 1138 let &efm = save_efm 1139endfunc 1140 1141func Test_efm_ignore_continuations() 1142 call Xefm_ignore_continuations('c') 1143 call Xefm_ignore_continuations('l') 1144endfunc 1145 1146" Tests for invalid error format specifies 1147func Xinvalid_efm_Tests(cchar) 1148 call s:setup_commands(a:cchar) 1149 1150 let save_efm = &efm 1151 1152 set efm=%f:%l:%m,%f:%f:%l:%m 1153 call assert_fails('Xexpr "abc.txt:1:Hello world"', 'E372:') 1154 1155 set efm=%f:%l:%m,%f:%l:%r:%m 1156 call assert_fails('Xexpr "abc.txt:1:Hello world"', 'E373:') 1157 1158 set efm=%f:%l:%m,%O:%f:%l:%m 1159 call assert_fails('Xexpr "abc.txt:1:Hello world"', 'E373:') 1160 1161 set efm=%f:%l:%m,%f:%l:%*[^a-z 1162 call assert_fails('Xexpr "abc.txt:1:Hello world"', 'E374:') 1163 1164 set efm=%f:%l:%m,%f:%l:%*c 1165 call assert_fails('Xexpr "abc.txt:1:Hello world"', 'E375:') 1166 1167 set efm=%f:%l:%m,%L%M%N 1168 call assert_fails('Xexpr "abc.txt:1:Hello world"', 'E376:') 1169 1170 set efm=%f:%l:%m,%f:%l:%m:%R 1171 call assert_fails('Xexpr "abc.txt:1:Hello world"', 'E377:') 1172 1173 " Invalid regular expression 1174 set efm=%\\%%k 1175 call assert_fails('Xexpr "abc.txt:1:Hello world"', 'E867:') 1176 1177 set efm= 1178 call assert_fails('Xexpr "abc.txt:1:Hello world"', 'E378:') 1179 1180 set efm=%DEntering\ dir\ abc,%f:%l:%m 1181 call assert_fails('Xexpr ["Entering dir abc", "abc.txt:1:Hello world"]', 'E379:') 1182 1183 let &efm = save_efm 1184endfunc 1185 1186func Test_invalid_efm() 1187 call Xinvalid_efm_Tests('c') 1188 call Xinvalid_efm_Tests('l') 1189endfunc 1190 1191" TODO: 1192" Add tests for the following formats in 'errorformat' 1193" %r %O 1194func Test_efm2() 1195 let save_efm = &efm 1196 1197 " Test for %s format in efm 1198 set efm=%f:%s 1199 cexpr 'Xtestfile:Line search text' 1200 let l = getqflist() 1201 call assert_equal('^\VLine search text\$', l[0].pattern) 1202 call assert_equal(0, l[0].lnum) 1203 1204 let l = split(execute('clist', ''), "\n") 1205 call assert_equal([' 1 Xtestfile:^\VLine search text\$: '], l) 1206 1207 " Test for a long line 1208 cexpr 'Xtestfile:' . repeat('a', 1026) 1209 let l = getqflist() 1210 call assert_equal('^\V' . repeat('a', 1019) . '\$', l[0].pattern) 1211 1212 " Test for %P, %Q and %t format specifiers 1213 let lines =<< trim [DATA] 1214 [Xtestfile1] 1215 (1,17) error: ';' missing 1216 (21,2) warning: variable 'z' not defined 1217 (67,3) error: end of file found before string ended 1218 -- 1219 1220 [Xtestfile2] 1221 -- 1222 1223 [Xtestfile3] 1224 NEW compiler v1.1 1225 (2,2) warning: variable 'x' not defined 1226 (67,3) warning: 's' already defined 1227 -- 1228 [DATA] 1229 1230 set efm=%+P[%f]%r,(%l\\,%c)%*[\ ]%t%*[^:]:\ %m,%+Q--%r 1231 " To exercise the push/pop file functionality in quickfix, the test files 1232 " need to be created. 1233 call writefile(['Line1'], 'Xtestfile1') 1234 call writefile(['Line2'], 'Xtestfile2') 1235 call writefile(['Line3'], 'Xtestfile3') 1236 cexpr "" 1237 for l in lines 1238 caddexpr l 1239 endfor 1240 let l = getqflist() 1241 call assert_equal(12, len(l)) 1242 call assert_equal(21, l[2].lnum) 1243 call assert_equal(2, l[2].col) 1244 call assert_equal('w', l[2].type) 1245 call assert_equal('e', l[3].type) 1246 call delete('Xtestfile1') 1247 call delete('Xtestfile2') 1248 call delete('Xtestfile3') 1249 1250 " Test for %P, %Q with non-existing files 1251 cexpr lines 1252 let l = getqflist() 1253 call assert_equal(14, len(l)) 1254 call assert_equal('[Xtestfile1]', l[0].text) 1255 call assert_equal('[Xtestfile2]', l[6].text) 1256 call assert_equal('[Xtestfile3]', l[9].text) 1257 1258 " Tests for %E, %C and %Z format specifiers 1259 let lines =<< trim [DATA] 1260 Error 275 1261 line 42 1262 column 3 1263 ' ' expected after '--' 1264 [DATA] 1265 1266 set efm=%EError\ %n,%Cline\ %l,%Ccolumn\ %c,%Z%m 1267 cgetexpr lines 1268 let l = getqflist() 1269 call assert_equal(275, l[0].nr) 1270 call assert_equal(42, l[0].lnum) 1271 call assert_equal(3, l[0].col) 1272 call assert_equal('E', l[0].type) 1273 call assert_equal("\n' ' expected after '--'", l[0].text) 1274 1275 " Test for %> 1276 let lines =<< trim [DATA] 1277 Error in line 147 of foo.c: 1278 unknown variable 'i' 1279 [DATA] 1280 1281 set efm=unknown\ variable\ %m,%E%>Error\ in\ line\ %l\ of\ %f:,%Z%m 1282 cgetexpr lines 1283 let l = getqflist() 1284 call assert_equal(147, l[0].lnum) 1285 call assert_equal('E', l[0].type) 1286 call assert_equal("\nunknown variable 'i'", l[0].text) 1287 1288 " Test for %A, %C and other formats 1289 let lines =<< trim [DATA] 1290 ============================================================== 1291 FAIL: testGetTypeIdCachesResult (dbfacadeTest.DjsDBFacadeTest) 1292 -------------------------------------------------------------- 1293 Traceback (most recent call last): 1294 File "unittests/dbfacadeTest.py", line 89, in testFoo 1295 self.assertEquals(34, dtid) 1296 File "/usr/lib/python2.2/unittest.py", line 286, in 1297 failUnlessEqual 1298 raise self.failureException, \\ 1299 W:AssertionError: 34 != 33 1300 1301 -------------------------------------------------------------- 1302 Ran 27 tests in 0.063s 1303 [DATA] 1304 1305 set efm=%C\ %.%#,%A\ \ File\ \"%f\"\\,\ line\ %l%.%#,%Z%[%^\ ]%\\@=%t:%m 1306 cgetexpr lines 1307 let l = getqflist() 1308 call assert_equal(8, len(l)) 1309 call assert_equal(89, l[4].lnum) 1310 call assert_equal(1, l[4].valid) 1311 call assert_equal('unittests/dbfacadeTest.py', bufname(l[4].bufnr)) 1312 call assert_equal('W', l[4].type) 1313 1314 " Test for %o 1315 set efm=%f(%o):%l\ %m 1316 cgetexpr ['Xotestfile(Language.PureScript.Types):20 Error'] 1317 call writefile(['Line1'], 'Xotestfile') 1318 let l = getqflist() 1319 call assert_equal(1, len(l), string(l)) 1320 call assert_equal('Language.PureScript.Types', l[0].module) 1321 copen 1322 call assert_equal('Language.PureScript.Types|20| Error', getline(1)) 1323 call feedkeys("\<CR>", 'xn') 1324 call assert_equal('Xotestfile', expand('%:t')) 1325 cclose 1326 bd 1327 call delete("Xotestfile") 1328 1329 " Test for a long module name 1330 cexpr 'Xtest(' . repeat('m', 1026) . '):15 message' 1331 let l = getqflist() 1332 call assert_equal(repeat('m', 1024), l[0].module) 1333 call assert_equal(15, l[0].lnum) 1334 call assert_equal('message', l[0].text) 1335 1336 " The following sequence of commands used to crash Vim 1337 set efm=%W%m 1338 cgetexpr ['msg1'] 1339 let l = getqflist() 1340 call assert_equal(1, len(l), string(l)) 1341 call assert_equal('msg1', l[0].text) 1342 set efm=%C%m 1343 lexpr 'msg2' 1344 let l = getloclist(0) 1345 call assert_equal(1, len(l), string(l)) 1346 call assert_equal('msg2', l[0].text) 1347 lopen 1348 call setqflist([], 'r') 1349 caddbuf 1350 let l = getqflist() 1351 call assert_equal(1, len(l), string(l)) 1352 call assert_equal('|| msg2', l[0].text) 1353 1354 " When matching error lines, case should be ignored. Test for this. 1355 set noignorecase 1356 let l=getqflist({'lines' : ['Xtest:FOO10:Line 20'], 'efm':'%f:foo%l:%m'}) 1357 call assert_equal(10, l.items[0].lnum) 1358 call assert_equal('Line 20', l.items[0].text) 1359 set ignorecase& 1360 1361 new | only 1362 let &efm = save_efm 1363endfunc 1364 1365" Test for '%t' (error type) field in 'efm' 1366func Test_efm_error_type() 1367 let save_efm = &efm 1368 1369 " error type 1370 set efm=%f:%l:%t:%m 1371 cexpr ["Xfile1:10:E:msg1", "Xfile1:20:W:msg2", "Xfile1:30:I:msg3", 1372 \ "Xfile1:40:N:msg4", "Xfile1:50:R:msg5"] 1373 let output = split(execute('clist'), "\n") 1374 call assert_equal([ 1375 \ ' 1 Xfile1:10 error: msg1', 1376 \ ' 2 Xfile1:20 warning: msg2', 1377 \ ' 3 Xfile1:30 info: msg3', 1378 \ ' 4 Xfile1:40 note: msg4', 1379 \ ' 5 Xfile1:50 R: msg5'], output) 1380 1381 " error type and a error number 1382 set efm=%f:%l:%t:%n:%m 1383 cexpr ["Xfile1:10:E:2:msg1", "Xfile1:20:W:4:msg2", "Xfile1:30:I:6:msg3", 1384 \ "Xfile1:40:N:8:msg4", "Xfile1:50:R:3:msg5"] 1385 let output = split(execute('clist'), "\n") 1386 call assert_equal([ 1387 \ ' 1 Xfile1:10 error 2: msg1', 1388 \ ' 2 Xfile1:20 warning 4: msg2', 1389 \ ' 3 Xfile1:30 info 6: msg3', 1390 \ ' 4 Xfile1:40 note 8: msg4', 1391 \ ' 5 Xfile1:50 R 3: msg5'], output) 1392 let &efm = save_efm 1393endfunc 1394 1395func XquickfixChangedByAutocmd(cchar) 1396 call s:setup_commands(a:cchar) 1397 if a:cchar == 'c' 1398 let ErrorNr = 'E925' 1399 func! ReadFunc() 1400 colder 1401 cgetexpr [] 1402 endfunc 1403 else 1404 let ErrorNr = 'E926' 1405 func! ReadFunc() 1406 lolder 1407 lgetexpr [] 1408 endfunc 1409 endif 1410 1411 augroup testgroup 1412 au! 1413 autocmd BufReadCmd test_changed.txt call ReadFunc() 1414 augroup END 1415 1416 new | only 1417 let words = [ "a", "b" ] 1418 let qflist = [] 1419 for word in words 1420 call add(qflist, {'filename': 'test_changed.txt'}) 1421 call g:Xsetlist(qflist, ' ') 1422 endfor 1423 call assert_fails('Xrewind', ErrorNr . ':') 1424 1425 augroup! testgroup 1426endfunc 1427 1428func Test_quickfix_was_changed_by_autocmd() 1429 call XquickfixChangedByAutocmd('c') 1430 call XquickfixChangedByAutocmd('l') 1431endfunc 1432 1433func Test_setloclist_in_autocommand() 1434 call writefile(['test1', 'test2'], 'Xfile') 1435 edit Xfile 1436 let s:bufnr = bufnr() 1437 call setloclist(1, 1438 \ [{'bufnr' : s:bufnr, 'lnum' : 1, 'text' : 'test1'}, 1439 \ {'bufnr' : s:bufnr, 'lnum' : 2, 'text' : 'test2'}]) 1440 1441 augroup Test_LocList 1442 au! 1443 autocmd BufEnter * call setloclist(1, 1444 \ [{'bufnr' : s:bufnr, 'lnum' : 1, 'text' : 'test1'}, 1445 \ {'bufnr' : s:bufnr, 'lnum' : 2, 'text' : 'test2'}], 'r') 1446 augroup END 1447 1448 lopen 1449 call assert_fails('exe "normal j\<CR>"', 'E926:') 1450 1451 augroup Test_LocList 1452 au! 1453 augroup END 1454 call delete('Xfile') 1455endfunc 1456 1457func Test_caddbuffer_to_empty() 1458 helpgr quickfix 1459 call setqflist([], 'r') 1460 cad 1461 try 1462 cn 1463 catch 1464 " number of matches is unknown 1465 call assert_true(v:exception =~ 'E553:') 1466 endtry 1467 quit! 1468endfunc 1469 1470func Test_cgetexpr_works() 1471 " this must not crash Vim 1472 cgetexpr [$x] 1473 lgetexpr [$x] 1474endfunc 1475 1476" Tests for the setqflist() and setloclist() functions 1477func SetXlistTests(cchar, bnum) 1478 call s:setup_commands(a:cchar) 1479 1480 call g:Xsetlist([{'bufnr': a:bnum, 'lnum': 1}, 1481 \ {'bufnr': a:bnum, 'lnum': 2}]) 1482 let l = g:Xgetlist() 1483 call assert_equal(2, len(l)) 1484 call assert_equal(2, l[1].lnum) 1485 1486 Xnext 1487 call g:Xsetlist([{'bufnr': a:bnum, 'lnum': 3}], 'a') 1488 let l = g:Xgetlist() 1489 call assert_equal(3, len(l)) 1490 Xnext 1491 call assert_equal(3, line('.')) 1492 1493 " Appending entries to the list should not change the cursor position 1494 " in the quickfix window 1495 Xwindow 1496 1 1497 call g:Xsetlist([{'bufnr': a:bnum, 'lnum': 4}, 1498 \ {'bufnr': a:bnum, 'lnum': 5}], 'a') 1499 call assert_equal(1, line('.')) 1500 close 1501 1502 call g:Xsetlist([{'bufnr': a:bnum, 'lnum': 3}, 1503 \ {'bufnr': a:bnum, 'lnum': 4}, 1504 \ {'bufnr': a:bnum, 'lnum': 5}], 'r') 1505 let l = g:Xgetlist() 1506 call assert_equal(3, len(l)) 1507 call assert_equal(5, l[2].lnum) 1508 1509 call g:Xsetlist([]) 1510 let l = g:Xgetlist() 1511 call assert_equal(0, len(l)) 1512 1513 " Tests for setting the 'valid' flag 1514 call g:Xsetlist([{'bufnr':a:bnum, 'lnum':4, 'valid':0}]) 1515 Xwindow 1516 call assert_equal(1, winnr('$')) 1517 let l = g:Xgetlist() 1518 call g:Xsetlist(l) 1519 call assert_equal(0, g:Xgetlist()[0].valid) 1520 " Adding a non-valid entry should not mark the list as having valid entries 1521 call g:Xsetlist([{'bufnr':a:bnum, 'lnum':5, 'valid':0}], 'a') 1522 Xwindow 1523 call assert_equal(1, winnr('$')) 1524 1525 " :cnext/:cprev should still work even with invalid entries in the list 1526 let l = [{'bufnr' : a:bnum, 'lnum' : 1, 'text' : '1', 'valid' : 0}, 1527 \ {'bufnr' : a:bnum, 'lnum' : 2, 'text' : '2', 'valid' : 0}] 1528 call g:Xsetlist(l) 1529 Xnext 1530 call assert_equal(2, g:Xgetlist({'idx' : 0}).idx) 1531 Xprev 1532 call assert_equal(1, g:Xgetlist({'idx' : 0}).idx) 1533 " :cnext/:cprev should still work after appending invalid entries to an 1534 " empty list 1535 call g:Xsetlist([]) 1536 call g:Xsetlist(l, 'a') 1537 Xnext 1538 call assert_equal(2, g:Xgetlist({'idx' : 0}).idx) 1539 Xprev 1540 call assert_equal(1, g:Xgetlist({'idx' : 0}).idx) 1541 1542 call g:Xsetlist([{'text':'Text1', 'valid':1}]) 1543 Xwindow 1544 call assert_equal(2, winnr('$')) 1545 Xclose 1546 let save_efm = &efm 1547 set efm=%m 1548 Xgetexpr 'TestMessage' 1549 let l = g:Xgetlist() 1550 call g:Xsetlist(l) 1551 call assert_equal(1, g:Xgetlist()[0].valid) 1552 let &efm = save_efm 1553 1554 " Error cases: 1555 " Refer to a non-existing buffer and pass a non-dictionary type 1556 call assert_fails("call g:Xsetlist([{'bufnr':998, 'lnum':4}," . 1557 \ " {'bufnr':999, 'lnum':5}])", 'E92:') 1558 call g:Xsetlist([[1, 2,3]]) 1559 call assert_equal(0, len(g:Xgetlist())) 1560 call assert_fails('call g:Xsetlist([], [])', 'E928:') 1561endfunc 1562 1563func Test_setqflist() 1564 new Xtestfile | only 1565 let bnum = bufnr('%') 1566 call setline(1, range(1,5)) 1567 1568 call SetXlistTests('c', bnum) 1569 call SetXlistTests('l', bnum) 1570 1571 enew! 1572 call delete('Xtestfile') 1573endfunc 1574 1575func Xlist_empty_middle(cchar) 1576 call s:setup_commands(a:cchar) 1577 1578 " create three quickfix lists 1579 let @/ = 'Test_' 1580 Xvimgrep // test_quickfix.vim 1581 let testlen = len(g:Xgetlist()) 1582 call assert_true(testlen > 0) 1583 Xvimgrep empty test_quickfix.vim 1584 call assert_true(len(g:Xgetlist()) > 0) 1585 Xvimgrep matches test_quickfix.vim 1586 let matchlen = len(g:Xgetlist()) 1587 call assert_true(matchlen > 0) 1588 Xolder 1589 " make the middle list empty 1590 call g:Xsetlist([], 'r') 1591 call assert_true(len(g:Xgetlist()) == 0) 1592 Xolder 1593 call assert_equal(testlen, len(g:Xgetlist())) 1594 Xnewer 1595 Xnewer 1596 call assert_equal(matchlen, len(g:Xgetlist())) 1597endfunc 1598 1599func Test_setqflist_empty_middle() 1600 call Xlist_empty_middle('c') 1601 call Xlist_empty_middle('l') 1602endfunc 1603 1604func Xlist_empty_older(cchar) 1605 call s:setup_commands(a:cchar) 1606 1607 " create three quickfix lists 1608 Xvimgrep one test_quickfix.vim 1609 let onelen = len(g:Xgetlist()) 1610 call assert_true(onelen > 0) 1611 Xvimgrep two test_quickfix.vim 1612 let twolen = len(g:Xgetlist()) 1613 call assert_true(twolen > 0) 1614 Xvimgrep three test_quickfix.vim 1615 let threelen = len(g:Xgetlist()) 1616 call assert_true(threelen > 0) 1617 Xolder 2 1618 " make the first list empty, check the others didn't change 1619 call g:Xsetlist([], 'r') 1620 call assert_true(len(g:Xgetlist()) == 0) 1621 Xnewer 1622 call assert_equal(twolen, len(g:Xgetlist())) 1623 Xnewer 1624 call assert_equal(threelen, len(g:Xgetlist())) 1625endfunc 1626 1627func Test_setqflist_empty_older() 1628 call Xlist_empty_older('c') 1629 call Xlist_empty_older('l') 1630endfunc 1631 1632func XquickfixSetListWithAct(cchar) 1633 call s:setup_commands(a:cchar) 1634 1635 let list1 = [{'filename': 'fnameA', 'text': 'A'}, 1636 \ {'filename': 'fnameB', 'text': 'B'}] 1637 let list2 = [{'filename': 'fnameC', 'text': 'C'}, 1638 \ {'filename': 'fnameD', 'text': 'D'}, 1639 \ {'filename': 'fnameE', 'text': 'E'}] 1640 1641 " {action} is unspecified. Same as specifying ' '. 1642 new | only 1643 silent! Xnewer 99 1644 call g:Xsetlist(list1) 1645 call g:Xsetlist(list2) 1646 let li = g:Xgetlist() 1647 call assert_equal(3, len(li)) 1648 call assert_equal('C', li[0]['text']) 1649 call assert_equal('D', li[1]['text']) 1650 call assert_equal('E', li[2]['text']) 1651 silent! Xolder 1652 let li = g:Xgetlist() 1653 call assert_equal(2, len(li)) 1654 call assert_equal('A', li[0]['text']) 1655 call assert_equal('B', li[1]['text']) 1656 1657 " {action} is specified ' '. 1658 new | only 1659 silent! Xnewer 99 1660 call g:Xsetlist(list1) 1661 call g:Xsetlist(list2, ' ') 1662 let li = g:Xgetlist() 1663 call assert_equal(3, len(li)) 1664 call assert_equal('C', li[0]['text']) 1665 call assert_equal('D', li[1]['text']) 1666 call assert_equal('E', li[2]['text']) 1667 silent! Xolder 1668 let li = g:Xgetlist() 1669 call assert_equal(2, len(li)) 1670 call assert_equal('A', li[0]['text']) 1671 call assert_equal('B', li[1]['text']) 1672 1673 " {action} is specified 'a'. 1674 new | only 1675 silent! Xnewer 99 1676 call g:Xsetlist(list1) 1677 call g:Xsetlist(list2, 'a') 1678 let li = g:Xgetlist() 1679 call assert_equal(5, len(li)) 1680 call assert_equal('A', li[0]['text']) 1681 call assert_equal('B', li[1]['text']) 1682 call assert_equal('C', li[2]['text']) 1683 call assert_equal('D', li[3]['text']) 1684 call assert_equal('E', li[4]['text']) 1685 1686 " {action} is specified 'r'. 1687 new | only 1688 silent! Xnewer 99 1689 call g:Xsetlist(list1) 1690 call g:Xsetlist(list2, 'r') 1691 let li = g:Xgetlist() 1692 call assert_equal(3, len(li)) 1693 call assert_equal('C', li[0]['text']) 1694 call assert_equal('D', li[1]['text']) 1695 call assert_equal('E', li[2]['text']) 1696 1697 " Test for wrong value. 1698 new | only 1699 call assert_fails("call g:Xsetlist(0)", 'E714:') 1700 call assert_fails("call g:Xsetlist(list1, '')", 'E927:') 1701 call assert_fails("call g:Xsetlist(list1, 'aa')", 'E927:') 1702 call assert_fails("call g:Xsetlist(list1, ' a')", 'E927:') 1703 call assert_fails("call g:Xsetlist(list1, 0)", 'E928:') 1704endfunc 1705 1706func Test_setqflist_invalid_nr() 1707 " The following command used to crash Vim 1708 eval []->setqflist(' ', {'nr' : $XXX_DOES_NOT_EXIST}) 1709endfunc 1710 1711func Test_setqflist_user_sets_buftype() 1712 call setqflist([{'text': 'foo'}, {'text': 'bar'}]) 1713 set buftype=quickfix 1714 call setqflist([], 'a') 1715 enew 1716endfunc 1717 1718func Test_quickfix_set_list_with_act() 1719 call XquickfixSetListWithAct('c') 1720 call XquickfixSetListWithAct('l') 1721endfunc 1722 1723func XLongLinesTests(cchar) 1724 let l = g:Xgetlist() 1725 1726 call assert_equal(4, len(l)) 1727 call assert_equal(1, l[0].lnum) 1728 call assert_equal(1, l[0].col) 1729 call assert_equal(1975, len(l[0].text)) 1730 call assert_equal(2, l[1].lnum) 1731 call assert_equal(1, l[1].col) 1732 call assert_equal(4070, len(l[1].text)) 1733 call assert_equal(3, l[2].lnum) 1734 call assert_equal(1, l[2].col) 1735 call assert_equal(4070, len(l[2].text)) 1736 call assert_equal(4, l[3].lnum) 1737 call assert_equal(1, l[3].col) 1738 call assert_equal(10, len(l[3].text)) 1739 1740 call g:Xsetlist([], 'r') 1741endfunc 1742 1743func s:long_lines_tests(cchar) 1744 call s:setup_commands(a:cchar) 1745 1746 let testfile = 'samples/quickfix.txt' 1747 1748 " file 1749 exe 'Xgetfile' testfile 1750 call XLongLinesTests(a:cchar) 1751 1752 " list 1753 Xexpr readfile(testfile) 1754 call XLongLinesTests(a:cchar) 1755 1756 " string 1757 Xexpr join(readfile(testfile), "\n") 1758 call XLongLinesTests(a:cchar) 1759 1760 " buffer 1761 exe 'edit' testfile 1762 exe 'Xbuffer' bufnr('%') 1763 call XLongLinesTests(a:cchar) 1764endfunc 1765 1766func Test_long_lines() 1767 call s:long_lines_tests('c') 1768 call s:long_lines_tests('l') 1769endfunc 1770 1771func Test_cgetfile_on_long_lines() 1772 " Problematic values if the line is longer than 4096 bytes. Then 1024 bytes 1773 " are read at a time. 1774 for len in [4078, 4079, 4080, 5102, 5103, 5104, 6126, 6127, 6128, 7150, 7151, 7152] 1775 let lines = [ 1776 \ '/tmp/file1:1:1:aaa', 1777 \ '/tmp/file2:1:1:%s', 1778 \ '/tmp/file3:1:1:bbb', 1779 \ '/tmp/file4:1:1:ccc', 1780 \ ] 1781 let lines[1] = substitute(lines[1], '%s', repeat('x', len), '') 1782 call writefile(lines, 'Xcqetfile.txt') 1783 cgetfile Xcqetfile.txt 1784 call assert_equal(4, getqflist(#{size: v:true}).size, 'with length ' .. len) 1785 endfor 1786 call delete('Xcqetfile.txt') 1787endfunc 1788 1789func s:create_test_file(filename) 1790 let l = [] 1791 for i in range(1, 20) 1792 call add(l, 'Line' . i) 1793 endfor 1794 call writefile(l, a:filename) 1795endfunc 1796 1797func Test_switchbuf() 1798 call s:create_test_file('Xqftestfile1') 1799 call s:create_test_file('Xqftestfile2') 1800 call s:create_test_file('Xqftestfile3') 1801 1802 new | only 1803 edit Xqftestfile1 1804 let file1_winid = win_getid() 1805 new Xqftestfile2 1806 let file2_winid = win_getid() 1807 cgetexpr ['Xqftestfile1:5:Line5', 1808 \ 'Xqftestfile1:6:Line6', 1809 \ 'Xqftestfile2:10:Line10', 1810 \ 'Xqftestfile2:11:Line11', 1811 \ 'Xqftestfile3:15:Line15', 1812 \ 'Xqftestfile3:16:Line16'] 1813 1814 new 1815 let winid = win_getid() 1816 cfirst | cnext 1817 call assert_equal(winid, win_getid()) 1818 2cnext 1819 call assert_equal(winid, win_getid()) 1820 2cnext 1821 call assert_equal(winid, win_getid()) 1822 1823 " Test for 'switchbuf' set to search for files in windows in the current 1824 " tabpage and jump to an existing window (if present) 1825 set switchbuf=useopen 1826 enew 1827 cfirst | cnext 1828 call assert_equal(file1_winid, win_getid()) 1829 2cnext 1830 call assert_equal(file2_winid, win_getid()) 1831 2cnext 1832 call assert_equal(file2_winid, win_getid()) 1833 1834 " Test for 'switchbuf' set to search for files in tabpages and jump to an 1835 " existing tabpage (if present) 1836 enew | only 1837 set switchbuf=usetab 1838 tabedit Xqftestfile1 1839 tabedit Xqftestfile2 1840 tabedit Xqftestfile3 1841 tabfirst 1842 cfirst | cnext 1843 call assert_equal(2, tabpagenr()) 1844 2cnext 1845 call assert_equal(3, tabpagenr()) 1846 6cnext 1847 call assert_equal(4, tabpagenr()) 1848 2cpfile 1849 call assert_equal(2, tabpagenr()) 1850 2cnfile 1851 call assert_equal(4, tabpagenr()) 1852 tabfirst | tabonly | enew 1853 1854 " Test for 'switchbuf' set to open a new window for every file 1855 set switchbuf=split 1856 cfirst | cnext 1857 call assert_equal(1, winnr('$')) 1858 cnext | cnext 1859 call assert_equal(2, winnr('$')) 1860 cnext | cnext 1861 call assert_equal(3, winnr('$')) 1862 1863 " Test for 'switchbuf' set to open a new tabpage for every file 1864 set switchbuf=newtab 1865 enew | only 1866 cfirst | cnext 1867 call assert_equal(1, tabpagenr('$')) 1868 cnext | cnext 1869 call assert_equal(2, tabpagenr('$')) 1870 cnext | cnext 1871 call assert_equal(3, tabpagenr('$')) 1872 tabfirst | enew | tabonly | only 1873 1874 set switchbuf=uselast 1875 split 1876 let last_winid = win_getid() 1877 copen 1878 exe "normal 1G\<CR>" 1879 call assert_equal(last_winid, win_getid()) 1880 enew | only 1881 1882 " With an empty 'switchbuf', jumping to a quickfix entry should open the 1883 " file in an existing window (if present) 1884 set switchbuf= 1885 edit Xqftestfile1 1886 let file1_winid = win_getid() 1887 new Xqftestfile2 1888 let file2_winid = win_getid() 1889 copen 1890 exe "normal 1G\<CR>" 1891 call assert_equal(file1_winid, win_getid()) 1892 copen 1893 exe "normal 3G\<CR>" 1894 call assert_equal(file2_winid, win_getid()) 1895 copen | only 1896 exe "normal 5G\<CR>" 1897 call assert_equal(2, winnr('$')) 1898 call assert_equal(1, bufwinnr('Xqftestfile3')) 1899 1900 " If only quickfix window is open in the current tabpage, jumping to an 1901 " entry with 'switchbuf' set to 'usetab' should search in other tabpages. 1902 enew | only 1903 set switchbuf=usetab 1904 tabedit Xqftestfile1 1905 tabedit Xqftestfile2 1906 tabedit Xqftestfile3 1907 tabfirst 1908 copen | only 1909 clast 1910 call assert_equal(4, tabpagenr()) 1911 tabfirst | tabonly | enew | only 1912 1913 " Jumping to a file that is not present in any of the tabpages and the 1914 " current tabpage doesn't have any usable windows, should open it in a new 1915 " window in the current tabpage. 1916 copen | only 1917 cfirst 1918 call assert_equal(1, tabpagenr()) 1919 call assert_equal('Xqftestfile1', @%) 1920 1921 " If opening a file changes 'switchbuf', then the new value should be 1922 " retained. 1923 set modeline&vim 1924 call writefile(["vim: switchbuf=split"], 'Xqftestfile1') 1925 enew | only 1926 set switchbuf&vim 1927 cexpr "Xqftestfile1:1:10" 1928 call assert_equal('split', &switchbuf) 1929 call writefile(["vim: switchbuf=usetab"], 'Xqftestfile1') 1930 enew | only 1931 set switchbuf=useopen 1932 cexpr "Xqftestfile1:1:10" 1933 call assert_equal('usetab', &switchbuf) 1934 call writefile(["vim: switchbuf&vim"], 'Xqftestfile1') 1935 enew | only 1936 set switchbuf=useopen 1937 cexpr "Xqftestfile1:1:10" 1938 call assert_equal('', &switchbuf) 1939 1940 call delete('Xqftestfile1') 1941 call delete('Xqftestfile2') 1942 call delete('Xqftestfile3') 1943 set switchbuf&vim 1944 1945 enew | only 1946endfunc 1947 1948func Xadjust_qflnum(cchar) 1949 call s:setup_commands(a:cchar) 1950 1951 enew | only 1952 1953 let fname = 'Xqftestfile' . a:cchar 1954 call s:create_test_file(fname) 1955 exe 'edit ' . fname 1956 1957 Xgetexpr [fname . ':5:Line5', 1958 \ fname . ':10:Line10', 1959 \ fname . ':15:Line15', 1960 \ fname . ':20:Line20'] 1961 1962 6,14delete 1963 call append(6, ['Buffer', 'Window']) 1964 1965 let l = g:Xgetlist() 1966 call assert_equal(5, l[0].lnum) 1967 call assert_equal(6, l[2].lnum) 1968 call assert_equal(13, l[3].lnum) 1969 1970 " If a file doesn't have any quickfix entries, then deleting lines in the 1971 " file should not update the quickfix list 1972 call g:Xsetlist([], 'f') 1973 1,2delete 1974 call assert_equal([], g:Xgetlist()) 1975 1976 enew! 1977 call delete(fname) 1978endfunc 1979 1980func Test_adjust_lnum() 1981 call setloclist(0, []) 1982 call Xadjust_qflnum('c') 1983 call setqflist([]) 1984 call Xadjust_qflnum('l') 1985endfunc 1986 1987" Tests for the :grep/:lgrep and :grepadd/:lgrepadd commands 1988func s:test_xgrep(cchar) 1989 call s:setup_commands(a:cchar) 1990 1991 " The following lines are used for the grep test. Don't remove. 1992 " Grep_Test_Text: Match 1 1993 " Grep_Test_Text: Match 2 1994 " GrepAdd_Test_Text: Match 1 1995 " GrepAdd_Test_Text: Match 2 1996 enew! | only 1997 set makeef&vim 1998 silent Xgrep Grep_Test_Text: test_quickfix.vim 1999 call assert_true(len(g:Xgetlist()) == 5) 2000 Xopen 2001 call assert_true(w:quickfix_title =~ '^:grep') 2002 Xclose 2003 enew 2004 set makeef=Temp_File_## 2005 silent Xgrepadd GrepAdd_Test_Text: test_quickfix.vim 2006 call assert_true(len(g:Xgetlist()) == 9) 2007 2008 " Try with 'grepprg' set to 'internal' 2009 set grepprg=internal 2010 silent Xgrep Grep_Test_Text: test_quickfix.vim 2011 silent Xgrepadd GrepAdd_Test_Text: test_quickfix.vim 2012 call assert_true(len(g:Xgetlist()) == 9) 2013 set grepprg&vim 2014 2015 call writefile(['Vim'], 'XtestTempFile') 2016 set makeef=XtestTempFile 2017 silent Xgrep Grep_Test_Text: test_quickfix.vim 2018 call assert_equal(5, len(g:Xgetlist())) 2019 call assert_false(filereadable('XtestTempFile')) 2020 set makeef&vim 2021endfunc 2022 2023func Test_grep() 2024 " The grepprg may not be set on non-Unix systems 2025 CheckUnix 2026 2027 call s:test_xgrep('c') 2028 call s:test_xgrep('l') 2029endfunc 2030 2031func Test_two_windows() 2032 " Use one 'errorformat' for two windows. Add an expression to each of them, 2033 " make sure they each keep their own state. 2034 set efm=%DEntering\ dir\ '%f',%f:%l:%m,%XLeaving\ dir\ '%f' 2035 call mkdir('Xone/a', 'p') 2036 call mkdir('Xtwo/a', 'p') 2037 let lines = ['1', '2', 'one one one', '4', 'two two two', '6', '7'] 2038 call writefile(lines, 'Xone/a/one.txt') 2039 call writefile(lines, 'Xtwo/a/two.txt') 2040 2041 new one 2042 let one_id = win_getid() 2043 lexpr "" 2044 new two 2045 let two_id = win_getid() 2046 lexpr "" 2047 2048 laddexpr "Entering dir 'Xtwo/a'" 2049 call win_gotoid(one_id) 2050 laddexpr "Entering dir 'Xone/a'" 2051 call win_gotoid(two_id) 2052 laddexpr 'two.txt:5:two two two' 2053 call win_gotoid(one_id) 2054 laddexpr 'one.txt:3:one one one' 2055 2056 let loc_one = getloclist(one_id) 2057 call assert_equal('Xone/a/one.txt', bufname(loc_one[1].bufnr)) 2058 call assert_equal(3, loc_one[1].lnum) 2059 2060 let loc_two = getloclist(two_id) 2061 call assert_equal('Xtwo/a/two.txt', bufname(loc_two[1].bufnr)) 2062 call assert_equal(5, loc_two[1].lnum) 2063 2064 call win_gotoid(one_id) 2065 bwipe! 2066 call win_gotoid(two_id) 2067 bwipe! 2068 call delete('Xone', 'rf') 2069 call delete('Xtwo', 'rf') 2070endfunc 2071 2072func XbottomTests(cchar) 2073 call s:setup_commands(a:cchar) 2074 2075 " Calling lbottom without any errors should fail 2076 if a:cchar == 'l' 2077 call assert_fails('lbottom', 'E776:') 2078 endif 2079 2080 call g:Xsetlist([{'filename': 'foo', 'lnum': 42}]) 2081 Xopen 2082 let wid = win_getid() 2083 call assert_equal(1, line('.')) 2084 wincmd w 2085 call g:Xsetlist([{'filename': 'var', 'lnum': 24}], 'a') 2086 Xbottom 2087 call win_gotoid(wid) 2088 call assert_equal(2, line('.')) 2089 Xclose 2090endfunc 2091 2092" Tests for the :cbottom and :lbottom commands 2093func Test_cbottom() 2094 call XbottomTests('c') 2095 call XbottomTests('l') 2096endfunc 2097 2098func HistoryTest(cchar) 2099 call s:setup_commands(a:cchar) 2100 2101 " clear all lists after the first one, then replace the first one. 2102 call g:Xsetlist([]) 2103 call assert_fails('Xolder 99', 'E380:') 2104 let entry = {'filename': 'foo', 'lnum': 42} 2105 call g:Xsetlist([entry], 'r') 2106 call g:Xsetlist([entry, entry]) 2107 call g:Xsetlist([entry, entry, entry]) 2108 let res = split(execute(a:cchar . 'hist'), "\n") 2109 call assert_equal(3, len(res)) 2110 let common = 'errors :set' . (a:cchar == 'c' ? 'qf' : 'loc') . 'list()' 2111 call assert_equal(' error list 1 of 3; 1 ' . common, res[0]) 2112 call assert_equal(' error list 2 of 3; 2 ' . common, res[1]) 2113 call assert_equal('> error list 3 of 3; 3 ' . common, res[2]) 2114 2115 " Test for changing the quickfix lists 2116 call assert_equal(3, g:Xgetlist({'nr' : 0}).nr) 2117 exe '1' . a:cchar . 'hist' 2118 call assert_equal(1, g:Xgetlist({'nr' : 0}).nr) 2119 exe '3' . a:cchar . 'hist' 2120 call assert_equal(3, g:Xgetlist({'nr' : 0}).nr) 2121 call assert_fails('-2' . a:cchar . 'hist', 'E16:') 2122 call assert_fails('4' . a:cchar . 'hist', 'E16:') 2123 2124 call g:Xsetlist([], 'f') 2125 let l = split(execute(a:cchar . 'hist'), "\n") 2126 call assert_equal('No entries', l[0]) 2127 if a:cchar == 'c' 2128 call assert_fails('4chist', 'E16:') 2129 else 2130 call assert_fails('4lhist', 'E776:') 2131 endif 2132 2133 " An empty list should still show the stack history 2134 call g:Xsetlist([]) 2135 let res = split(execute(a:cchar . 'hist'), "\n") 2136 call assert_equal('> error list 1 of 1; 0 ' . common, res[0]) 2137 2138 call g:Xsetlist([], 'f') 2139endfunc 2140 2141func Test_history() 2142 call HistoryTest('c') 2143 call HistoryTest('l') 2144endfunc 2145 2146func Test_duplicate_buf() 2147 " make sure we can get the highest buffer number 2148 edit DoesNotExist 2149 edit DoesNotExist2 2150 let last_buffer = bufnr("$") 2151 2152 " make sure only one buffer is created 2153 call writefile(['this one', 'that one'], 'Xgrepthis') 2154 vimgrep one Xgrepthis 2155 vimgrep one Xgrepthis 2156 call assert_equal(last_buffer + 1, bufnr("$")) 2157 2158 call delete('Xgrepthis') 2159endfunc 2160 2161" Quickfix/Location list set/get properties tests 2162func Xproperty_tests(cchar) 2163 call s:setup_commands(a:cchar) 2164 2165 " Error cases 2166 call assert_fails('call g:Xgetlist(99)', 'E715:') 2167 call assert_fails('call g:Xsetlist(99)', 'E714:') 2168 call assert_fails('call g:Xsetlist([], "a", [])', 'E715:') 2169 2170 " Set and get the title 2171 call g:Xsetlist([]) 2172 Xopen 2173 wincmd p 2174 call g:Xsetlist([{'filename':'foo', 'lnum':27}]) 2175 let s = g:Xsetlist([], 'a', {'title' : 'Sample'}) 2176 call assert_equal(0, s) 2177 let d = g:Xgetlist({"title":1}) 2178 call assert_equal('Sample', d.title) 2179 " Try setting title to a non-string value 2180 call assert_equal(-1, g:Xsetlist([], 'a', {'title' : ['Test']})) 2181 call assert_equal('Sample', g:Xgetlist({"title":1}).title) 2182 2183 Xopen 2184 call assert_equal('Sample', w:quickfix_title) 2185 Xclose 2186 2187 " Tests for action argument 2188 silent! Xolder 999 2189 let qfnr = g:Xgetlist({'all':1}).nr 2190 call g:Xsetlist([], 'r', {'title' : 'N1'}) 2191 call assert_equal('N1', g:Xgetlist({'all':1}).title) 2192 call g:Xsetlist([], ' ', {'title' : 'N2'}) 2193 call assert_equal(qfnr + 1, g:Xgetlist({'all':1}).nr) 2194 2195 let res = g:Xgetlist({'nr': 0}) 2196 call assert_equal(qfnr + 1, res.nr) 2197 call assert_equal(['nr'], keys(res)) 2198 2199 call g:Xsetlist([], ' ', {'title' : 'N3'}) 2200 call assert_equal('N2', g:Xgetlist({'nr':2, 'title':1}).title) 2201 2202 " Changing the title of an earlier quickfix list 2203 call g:Xsetlist([], 'r', {'title' : 'NewTitle', 'nr' : 2}) 2204 call assert_equal('NewTitle', g:Xgetlist({'nr':2, 'title':1}).title) 2205 2206 " Changing the title of an invalid quickfix list 2207 call assert_equal(-1, g:Xsetlist([], ' ', 2208 \ {'title' : 'SomeTitle', 'nr' : 99})) 2209 call assert_equal(-1, g:Xsetlist([], ' ', 2210 \ {'title' : 'SomeTitle', 'nr' : 'abc'})) 2211 2212 if a:cchar == 'c' 2213 copen 2214 call assert_equal({'winid':win_getid()}, getqflist({'winid':1})) 2215 cclose 2216 endif 2217 2218 " Invalid arguments 2219 call assert_fails('call g:Xgetlist([])', 'E715:') 2220 call assert_fails('call g:Xsetlist([], "a", [])', 'E715:') 2221 let s = g:Xsetlist([], 'a', {'abc':1}) 2222 call assert_equal(-1, s) 2223 2224 call assert_equal({}, g:Xgetlist({'abc':1})) 2225 call assert_equal('', g:Xgetlist({'nr':99, 'title':1}).title) 2226 call assert_equal('', g:Xgetlist({'nr':[], 'title':1}).title) 2227 2228 if a:cchar == 'l' 2229 call assert_equal({}, getloclist(99, {'title': 1})) 2230 endif 2231 2232 " Context related tests 2233 let s = g:Xsetlist([], 'a', {'context':[1,2,3]}) 2234 call assert_equal(0, s) 2235 call test_garbagecollect_now() 2236 let d = g:Xgetlist({'context':1}) 2237 call assert_equal([1,2,3], d.context) 2238 call g:Xsetlist([], 'a', {'context':{'color':'green'}}) 2239 let d = g:Xgetlist({'context':1}) 2240 call assert_equal({'color':'green'}, d.context) 2241 call g:Xsetlist([], 'a', {'context':"Context info"}) 2242 let d = g:Xgetlist({'context':1}) 2243 call assert_equal("Context info", d.context) 2244 call g:Xsetlist([], 'a', {'context':246}) 2245 let d = g:Xgetlist({'context':1}) 2246 call assert_equal(246, d.context) 2247 " set other Vim data types as context 2248 call g:Xsetlist([], 'a', {'context' : test_null_blob()}) 2249 if has('channel') 2250 call g:Xsetlist([], 'a', {'context' : test_null_channel()}) 2251 endif 2252 if has('job') 2253 call g:Xsetlist([], 'a', {'context' : test_null_job()}) 2254 endif 2255 call g:Xsetlist([], 'a', {'context' : test_null_function()}) 2256 call g:Xsetlist([], 'a', {'context' : test_null_partial()}) 2257 call g:Xsetlist([], 'a', {'context' : ''}) 2258 call test_garbagecollect_now() 2259 if a:cchar == 'l' 2260 " Test for copying context across two different location lists 2261 new | only 2262 let w1_id = win_getid() 2263 let l = [1] 2264 call setloclist(0, [], 'a', {'context':l}) 2265 new 2266 let w2_id = win_getid() 2267 call add(l, 2) 2268 call assert_equal([1, 2], getloclist(w1_id, {'context':1}).context) 2269 call assert_equal([1, 2], getloclist(w2_id, {'context':1}).context) 2270 unlet! l 2271 call assert_equal([1, 2], getloclist(w2_id, {'context':1}).context) 2272 only 2273 call setloclist(0, [], 'f') 2274 call assert_equal('', getloclist(0, {'context':1}).context) 2275 endif 2276 2277 " Test for changing the context of previous quickfix lists 2278 call g:Xsetlist([], 'f') 2279 Xexpr "One" 2280 Xexpr "Two" 2281 Xexpr "Three" 2282 call g:Xsetlist([], 'r', {'context' : [1], 'nr' : 1}) 2283 call g:Xsetlist([], 'a', {'context' : [2], 'nr' : 2}) 2284 " Also, check for setting the context using quickfix list number zero. 2285 call g:Xsetlist([], 'r', {'context' : [3], 'nr' : 0}) 2286 call test_garbagecollect_now() 2287 let l = g:Xgetlist({'nr' : 1, 'context' : 1}) 2288 call assert_equal([1], l.context) 2289 let l = g:Xgetlist({'nr' : 2, 'context' : 1}) 2290 call assert_equal([2], l.context) 2291 let l = g:Xgetlist({'nr' : 3, 'context' : 1}) 2292 call assert_equal([3], l.context) 2293 2294 " Test for changing the context through reference and for garbage 2295 " collection of quickfix context 2296 let l = ["red"] 2297 call g:Xsetlist([], ' ', {'context' : l}) 2298 call add(l, "blue") 2299 let x = g:Xgetlist({'context' : 1}) 2300 call add(x.context, "green") 2301 call assert_equal(["red", "blue", "green"], l) 2302 call assert_equal(["red", "blue", "green"], x.context) 2303 unlet l 2304 call test_garbagecollect_now() 2305 let m = g:Xgetlist({'context' : 1}) 2306 call assert_equal(["red", "blue", "green"], m.context) 2307 2308 " Test for setting/getting items 2309 Xexpr "" 2310 let qfprev = g:Xgetlist({'nr':0}) 2311 let s = g:Xsetlist([], ' ', {'title':'Green', 2312 \ 'items' : [{'filename':'F1', 'lnum':10}]}) 2313 call assert_equal(0, s) 2314 let qfcur = g:Xgetlist({'nr':0}) 2315 call assert_true(qfcur.nr == qfprev.nr + 1) 2316 let l = g:Xgetlist({'items':1}) 2317 call assert_equal('F1', bufname(l.items[0].bufnr)) 2318 call assert_equal(10, l.items[0].lnum) 2319 call g:Xsetlist([], 'a', {'items' : [{'filename':'F2', 'lnum':20}, 2320 \ {'filename':'F2', 'lnum':30}]}) 2321 let l = g:Xgetlist({'items':1}) 2322 call assert_equal('F2', bufname(l.items[2].bufnr)) 2323 call assert_equal(30, l.items[2].lnum) 2324 call g:Xsetlist([], 'r', {'items' : [{'filename':'F3', 'lnum':40}]}) 2325 let l = g:Xgetlist({'items':1}) 2326 call assert_equal('F3', bufname(l.items[0].bufnr)) 2327 call assert_equal(40, l.items[0].lnum) 2328 call g:Xsetlist([], 'r', {'items' : []}) 2329 let l = g:Xgetlist({'items':1}) 2330 call assert_equal(0, len(l.items)) 2331 2332 call g:Xsetlist([], 'r', {'title' : 'TestTitle'}) 2333 call g:Xsetlist([], 'r', {'items' : [{'filename' : 'F1', 'lnum' : 10, 'text' : 'L10'}]}) 2334 call g:Xsetlist([], 'r', {'items' : [{'filename' : 'F1', 'lnum' : 10, 'text' : 'L10'}]}) 2335 call assert_equal('TestTitle', g:Xgetlist({'title' : 1}).title) 2336 2337 " Test for getting id of window associated with a location list window 2338 if a:cchar == 'l' 2339 only 2340 call assert_equal(0, g:Xgetlist({'all' : 1}).filewinid) 2341 let wid = win_getid() 2342 Xopen 2343 call assert_equal(wid, g:Xgetlist({'filewinid' : 1}).filewinid) 2344 wincmd w 2345 call assert_equal(0, g:Xgetlist({'filewinid' : 1}).filewinid) 2346 only 2347 endif 2348 2349 " The following used to crash Vim with address sanitizer 2350 call g:Xsetlist([], 'f') 2351 call g:Xsetlist([], 'a', {'items' : [{'filename':'F1', 'lnum':10}]}) 2352 call assert_equal(10, g:Xgetlist({'items':1}).items[0].lnum) 2353 2354 " Try setting the items using a string 2355 call assert_equal(-1, g:Xsetlist([], ' ', {'items' : 'Test'})) 2356 2357 " Save and restore the quickfix stack 2358 call g:Xsetlist([], 'f') 2359 call assert_equal(0, g:Xgetlist({'nr':'$'}).nr) 2360 Xexpr "File1:10:Line1" 2361 Xexpr "File2:20:Line2" 2362 Xexpr "File3:30:Line3" 2363 let last_qf = g:Xgetlist({'nr':'$'}).nr 2364 call assert_equal(3, last_qf) 2365 let qstack = [] 2366 for i in range(1, last_qf) 2367 let qstack = add(qstack, g:Xgetlist({'nr':i, 'all':1})) 2368 endfor 2369 call g:Xsetlist([], 'f') 2370 for i in range(len(qstack)) 2371 call g:Xsetlist([], ' ', qstack[i]) 2372 endfor 2373 call assert_equal(3, g:Xgetlist({'nr':'$'}).nr) 2374 call assert_equal(10, g:Xgetlist({'nr':1, 'items':1}).items[0].lnum) 2375 call assert_equal(20, g:Xgetlist({'nr':2, 'items':1}).items[0].lnum) 2376 call assert_equal(30, g:Xgetlist({'nr':3, 'items':1}).items[0].lnum) 2377 call g:Xsetlist([], 'f') 2378 2379 " Swap two quickfix lists 2380 Xexpr "File1:10:Line10" 2381 Xexpr "File2:20:Line20" 2382 Xexpr "File3:30:Line30" 2383 call g:Xsetlist([], 'r', {'nr':1,'title':'Colors','context':['Colors']}) 2384 call g:Xsetlist([], 'r', {'nr':2,'title':'Fruits','context':['Fruits']}) 2385 let l1=g:Xgetlist({'nr':1,'all':1}) 2386 let l2=g:Xgetlist({'nr':2,'all':1}) 2387 let save_id = l1.id 2388 let l1.id=l2.id 2389 let l2.id=save_id 2390 call g:Xsetlist([], 'r', l1) 2391 call g:Xsetlist([], 'r', l2) 2392 let newl1=g:Xgetlist({'nr':1,'all':1}) 2393 let newl2=g:Xgetlist({'nr':2,'all':1}) 2394 call assert_equal('Fruits', newl1.title) 2395 call assert_equal(['Fruits'], newl1.context) 2396 call assert_equal('Line20', newl1.items[0].text) 2397 call assert_equal('Colors', newl2.title) 2398 call assert_equal(['Colors'], newl2.context) 2399 call assert_equal('Line10', newl2.items[0].text) 2400 call g:Xsetlist([], 'f') 2401 2402 " Cannot specify both a non-empty list argument and a dict argument 2403 call assert_fails("call g:Xsetlist([{}], ' ', {})", 'E475:') 2404endfunc 2405 2406func Test_qf_property() 2407 call Xproperty_tests('c') 2408 call Xproperty_tests('l') 2409endfunc 2410 2411" Test for setting the current index in the location/quickfix list 2412func Xtest_setqfidx(cchar) 2413 call s:setup_commands(a:cchar) 2414 2415 Xgetexpr "F1:10:1:Line1\nF2:20:2:Line2\nF3:30:3:Line3" 2416 Xgetexpr "F4:10:1:Line1\nF5:20:2:Line2\nF6:30:3:Line3" 2417 Xgetexpr "F7:10:1:Line1\nF8:20:2:Line2\nF9:30:3:Line3" 2418 2419 call g:Xsetlist([], 'a', {'nr' : 3, 'idx' : 2}) 2420 call g:Xsetlist([], 'a', {'nr' : 2, 'idx' : 2}) 2421 call g:Xsetlist([], 'a', {'nr' : 1, 'idx' : 3}) 2422 Xolder 2 2423 Xopen 2424 call assert_equal(3, line('.')) 2425 Xnewer 2426 call assert_equal(2, line('.')) 2427 Xnewer 2428 call assert_equal(2, line('.')) 2429 " Update the current index with the quickfix window open 2430 wincmd w 2431 call g:Xsetlist([], 'a', {'nr' : 3, 'idx' : 3}) 2432 Xopen 2433 call assert_equal(3, line('.')) 2434 Xclose 2435 2436 " Set the current index to the last entry 2437 call g:Xsetlist([], 'a', {'nr' : 1, 'idx' : '$'}) 2438 call assert_equal(3, g:Xgetlist({'nr' : 1, 'idx' : 0}).idx) 2439 " A large value should set the index to the last index 2440 call g:Xsetlist([], 'a', {'nr' : 1, 'idx' : 1}) 2441 call g:Xsetlist([], 'a', {'nr' : 1, 'idx' : 999}) 2442 call assert_equal(3, g:Xgetlist({'nr' : 1, 'idx' : 0}).idx) 2443 " Invalid index values 2444 call g:Xsetlist([], 'a', {'nr' : 1, 'idx' : -1}) 2445 call assert_equal(3, g:Xgetlist({'nr' : 1, 'idx' : 0}).idx) 2446 call g:Xsetlist([], 'a', {'nr' : 1, 'idx' : 0}) 2447 call assert_equal(3, g:Xgetlist({'nr' : 1, 'idx' : 0}).idx) 2448 call g:Xsetlist([], 'a', {'nr' : 1, 'idx' : 'xx'}) 2449 call assert_equal(3, g:Xgetlist({'nr' : 1, 'idx' : 0}).idx) 2450 call assert_fails("call g:Xsetlist([], 'a', {'nr':1, 'idx':[]})", 'E745:') 2451 2452 call g:Xsetlist([], 'f') 2453 new | only 2454endfunc 2455 2456func Test_setqfidx() 2457 call Xtest_setqfidx('c') 2458 call Xtest_setqfidx('l') 2459endfunc 2460 2461" Tests for the QuickFixCmdPre/QuickFixCmdPost autocommands 2462func QfAutoCmdHandler(loc, cmd) 2463 call add(g:acmds, a:loc . a:cmd) 2464endfunc 2465 2466func Test_Autocmd() 2467 autocmd QuickFixCmdPre * call QfAutoCmdHandler('pre', expand('<amatch>')) 2468 autocmd QuickFixCmdPost * call QfAutoCmdHandler('post', expand('<amatch>')) 2469 2470 let g:acmds = [] 2471 cexpr "F1:10:Line 10" 2472 caddexpr "F1:20:Line 20" 2473 cgetexpr "F1:30:Line 30" 2474 cexpr "" 2475 caddexpr "" 2476 cgetexpr "" 2477 silent! cexpr non_existing_func() 2478 silent! caddexpr non_existing_func() 2479 silent! cgetexpr non_existing_func() 2480 let l = ['precexpr', 2481 \ 'postcexpr', 2482 \ 'precaddexpr', 2483 \ 'postcaddexpr', 2484 \ 'precgetexpr', 2485 \ 'postcgetexpr', 2486 \ 'precexpr', 2487 \ 'postcexpr', 2488 \ 'precaddexpr', 2489 \ 'postcaddexpr', 2490 \ 'precgetexpr', 2491 \ 'postcgetexpr', 2492 \ 'precexpr', 2493 \ 'precaddexpr', 2494 \ 'precgetexpr'] 2495 call assert_equal(l, g:acmds) 2496 2497 let g:acmds = [] 2498 enew! | call append(0, "F2:10:Line 10") 2499 cbuffer! 2500 enew! | call append(0, "F2:20:Line 20") 2501 cgetbuffer 2502 enew! | call append(0, "F2:30:Line 30") 2503 caddbuffer 2504 new 2505 let bnum = bufnr('%') 2506 bunload 2507 exe 'silent! cbuffer! ' . bnum 2508 exe 'silent! cgetbuffer ' . bnum 2509 exe 'silent! caddbuffer ' . bnum 2510 enew! 2511 let l = ['precbuffer', 2512 \ 'postcbuffer', 2513 \ 'precgetbuffer', 2514 \ 'postcgetbuffer', 2515 \ 'precaddbuffer', 2516 \ 'postcaddbuffer', 2517 \ 'precbuffer', 2518 \ 'precgetbuffer', 2519 \ 'precaddbuffer'] 2520 call assert_equal(l, g:acmds) 2521 2522 call writefile(['Xtest:1:Line1'], 'Xtest') 2523 call writefile([], 'Xempty') 2524 let g:acmds = [] 2525 cfile Xtest 2526 caddfile Xtest 2527 cgetfile Xtest 2528 cfile Xempty 2529 caddfile Xempty 2530 cgetfile Xempty 2531 silent! cfile do_not_exist 2532 silent! caddfile do_not_exist 2533 silent! cgetfile do_not_exist 2534 let l = ['precfile', 2535 \ 'postcfile', 2536 \ 'precaddfile', 2537 \ 'postcaddfile', 2538 \ 'precgetfile', 2539 \ 'postcgetfile', 2540 \ 'precfile', 2541 \ 'postcfile', 2542 \ 'precaddfile', 2543 \ 'postcaddfile', 2544 \ 'precgetfile', 2545 \ 'postcgetfile', 2546 \ 'precfile', 2547 \ 'postcfile', 2548 \ 'precaddfile', 2549 \ 'postcaddfile', 2550 \ 'precgetfile', 2551 \ 'postcgetfile'] 2552 call assert_equal(l, g:acmds) 2553 2554 let g:acmds = [] 2555 helpgrep quickfix 2556 silent! helpgrep non_existing_help_topic 2557 vimgrep test Xtest 2558 vimgrepadd test Xtest 2559 silent! vimgrep non_existing_test Xtest 2560 silent! vimgrepadd non_existing_test Xtest 2561 set makeprg= 2562 silent! make 2563 set makeprg& 2564 let l = ['prehelpgrep', 2565 \ 'posthelpgrep', 2566 \ 'prehelpgrep', 2567 \ 'posthelpgrep', 2568 \ 'previmgrep', 2569 \ 'postvimgrep', 2570 \ 'previmgrepadd', 2571 \ 'postvimgrepadd', 2572 \ 'previmgrep', 2573 \ 'postvimgrep', 2574 \ 'previmgrepadd', 2575 \ 'postvimgrepadd', 2576 \ 'premake', 2577 \ 'postmake'] 2578 call assert_equal(l, g:acmds) 2579 2580 if has('unix') 2581 " Run this test only on Unix-like systems. The grepprg may not be set on 2582 " non-Unix systems. 2583 " The following lines are used for the grep test. Don't remove. 2584 " Grep_Autocmd_Text: Match 1 2585 " GrepAdd_Autocmd_Text: Match 2 2586 let g:acmds = [] 2587 silent grep Grep_Autocmd_Text test_quickfix.vim 2588 silent grepadd GrepAdd_Autocmd_Text test_quickfix.vim 2589 silent grep abc123def Xtest 2590 silent grepadd abc123def Xtest 2591 set grepprg=internal 2592 silent grep Grep_Autocmd_Text test_quickfix.vim 2593 silent grepadd GrepAdd_Autocmd_Text test_quickfix.vim 2594 silent lgrep Grep_Autocmd_Text test_quickfix.vim 2595 silent lgrepadd GrepAdd_Autocmd_Text test_quickfix.vim 2596 set grepprg&vim 2597 let l = ['pregrep', 2598 \ 'postgrep', 2599 \ 'pregrepadd', 2600 \ 'postgrepadd', 2601 \ 'pregrep', 2602 \ 'postgrep', 2603 \ 'pregrepadd', 2604 \ 'postgrepadd', 2605 \ 'pregrep', 2606 \ 'postgrep', 2607 \ 'pregrepadd', 2608 \ 'postgrepadd', 2609 \ 'prelgrep', 2610 \ 'postlgrep', 2611 \ 'prelgrepadd', 2612 \ 'postlgrepadd'] 2613 call assert_equal(l, g:acmds) 2614 endif 2615 2616 call delete('Xtest') 2617 call delete('Xempty') 2618 au! QuickFixCmdPre 2619 au! QuickFixCmdPost 2620endfunc 2621 2622func Test_Autocmd_Exception() 2623 set efm=%m 2624 lgetexpr '?' 2625 2626 try 2627 call DoesNotExit() 2628 catch 2629 lgetexpr '1' 2630 finally 2631 lgetexpr '1' 2632 endtry 2633 2634 call assert_equal('1', getloclist(0)[0].text) 2635 2636 set efm&vim 2637endfunc 2638 2639func Test_caddbuffer_wrong() 2640 " This used to cause a memory access in freed memory. 2641 let save_efm = &efm 2642 set efm=%EEEE%m,%WWWW,%+CCCC%>%#,%GGGG%.# 2643 cgetexpr ['WWWW', 'EEEE', 'CCCC'] 2644 let &efm = save_efm 2645 caddbuffer 2646 bwipe! 2647endfunc 2648 2649func Test_caddexpr_wrong() 2650 " This used to cause a memory access in freed memory. 2651 cbuffer 2652 cbuffer 2653 copen 2654 let save_efm = &efm 2655 set efm=% 2656 call assert_fails('caddexpr ""', 'E376:') 2657 let &efm = save_efm 2658endfunc 2659 2660func Test_dirstack_cleanup() 2661 " This used to cause a memory access in freed memory. 2662 let save_efm = &efm 2663 lexpr '0' 2664 lopen 2665 fun X(c) 2666 let save_efm=&efm 2667 set efm=%D%f 2668 if a:c == 'c' 2669 caddexpr '::' 2670 else 2671 laddexpr ':0:0' 2672 endif 2673 let &efm=save_efm 2674 endfun 2675 call X('c') 2676 call X('l') 2677 call setqflist([], 'r') 2678 caddbuffer 2679 let &efm = save_efm 2680endfunc 2681 2682" Tests for jumping to entries from the location list window and quickfix 2683" window 2684func Test_cwindow_jump() 2685 set efm=%f%%%l%%%m 2686 lgetexpr ["F1%10%Line 10", "F2%20%Line 20", "F3%30%Line 30"] 2687 lopen | only 2688 lfirst 2689 call assert_true(winnr('$') == 2) 2690 call assert_true(winnr() == 1) 2691 " Location list for the new window should be set 2692 call assert_true(getloclist(0)[2].text == 'Line 30') 2693 2694 " Open a scratch buffer 2695 " Open a new window and create a location list 2696 " Open the location list window and close the other window 2697 " Jump to an entry. 2698 " Should create a new window and jump to the entry. The scratch buffer 2699 " should not be used. 2700 enew | only 2701 set buftype=nofile 2702 below new 2703 lgetexpr ["F1%10%Line 10", "F2%20%Line 20", "F3%30%Line 30"] 2704 lopen 2705 2wincmd c 2706 lnext 2707 call assert_true(winnr('$') == 3) 2708 call assert_true(winnr() == 2) 2709 2710 " Open two windows with two different location lists 2711 " Open the location list window and close the previous window 2712 " Jump to an entry in the location list window 2713 " Should open the file in the first window and not set the location list. 2714 enew | only 2715 lgetexpr ["F1%5%Line 5"] 2716 below new 2717 lgetexpr ["F1%10%Line 10", "F2%20%Line 20", "F3%30%Line 30"] 2718 lopen 2719 2wincmd c 2720 lnext 2721 call assert_true(winnr() == 1) 2722 call assert_true(getloclist(0)[0].text == 'Line 5') 2723 2724 enew | only 2725 cgetexpr ["F1%10%Line 10", "F2%20%Line 20", "F3%30%Line 30"] 2726 copen 2727 cnext 2728 call assert_true(winnr('$') == 2) 2729 call assert_true(winnr() == 1) 2730 2731 " open the quickfix buffer in two windows and jump to an entry. Should open 2732 " the file in the first quickfix window. 2733 enew | only 2734 copen 2735 let bnum = bufnr('') 2736 exe 'sbuffer ' . bnum 2737 wincmd b 2738 cfirst 2739 call assert_equal(2, winnr()) 2740 call assert_equal('F1', @%) 2741 enew | only 2742 exe 'sb' bnum 2743 exe 'botright sb' bnum 2744 wincmd t 2745 clast 2746 call assert_equal(2, winnr()) 2747 call assert_equal('quickfix', getwinvar(1, '&buftype')) 2748 call assert_equal('quickfix', getwinvar(3, '&buftype')) 2749 2750 " Jumping to a file from the location list window should find a usable 2751 " window by wrapping around the window list. 2752 enew | only 2753 call setloclist(0, [], 'f') 2754 new | new 2755 lgetexpr ["F1%10%Line 10", "F2%20%Line 20", "F3%30%Line 30"] 2756 lopen 2757 1close 2758 call assert_equal(0, getloclist(3, {'id' : 0}).id) 2759 lnext 2760 call assert_equal(3, winnr()) 2761 call assert_equal(getloclist(1, {'id' : 0}).id, getloclist(3, {'id' : 0}).id) 2762 2763 enew | only 2764 set efm&vim 2765endfunc 2766 2767func Test_cwindow_highlight() 2768 CheckScreendump 2769 2770 let lines =<< trim END 2771 call setline(1, ['some', 'text', 'with', 'matches']) 2772 write XCwindow 2773 vimgrep e XCwindow 2774 redraw 2775 cwindow 4 2776 END 2777 call writefile(lines, 'XtestCwindow') 2778 let buf = RunVimInTerminal('-S XtestCwindow', #{rows: 12}) 2779 call VerifyScreenDump(buf, 'Test_quickfix_cwindow_1', {}) 2780 2781 call term_sendkeys(buf, ":cnext\<CR>") 2782 call VerifyScreenDump(buf, 'Test_quickfix_cwindow_2', {}) 2783 2784 " clean up 2785 call StopVimInTerminal(buf) 2786 call delete('XtestCwindow') 2787 call delete('XCwindow') 2788endfunc 2789 2790func XvimgrepTests(cchar) 2791 call s:setup_commands(a:cchar) 2792 2793 call writefile(['Editor:VIM vim', 2794 \ 'Editor:Emacs EmAcS', 2795 \ 'Editor:Notepad NOTEPAD'], 'Xtestfile1') 2796 call writefile(['Linux', 'MacOS', 'MS-Windows'], 'Xtestfile2') 2797 2798 " Error cases 2799 call assert_fails('Xvimgrep /abc *', 'E682:') 2800 2801 let @/='' 2802 call assert_fails('Xvimgrep // *', 'E35:') 2803 2804 call assert_fails('Xvimgrep abc', 'E683:') 2805 call assert_fails('Xvimgrep a1b2c3 Xtestfile1', 'E480:') 2806 call assert_fails('Xvimgrep pat Xa1b2c3', 'E480:') 2807 2808 Xexpr "" 2809 Xvimgrepadd Notepad Xtestfile1 2810 Xvimgrepadd MacOS Xtestfile2 2811 let l = g:Xgetlist() 2812 call assert_equal(2, len(l)) 2813 call assert_equal('Editor:Notepad NOTEPAD', l[0].text) 2814 2815 10Xvimgrep #\cvim#g Xtestfile? 2816 let l = g:Xgetlist() 2817 call assert_equal(2, len(l)) 2818 call assert_equal(8, l[0].col) 2819 call assert_equal(12, l[1].col) 2820 2821 1Xvimgrep ?Editor? Xtestfile* 2822 let l = g:Xgetlist() 2823 call assert_equal(1, len(l)) 2824 call assert_equal('Editor:VIM vim', l[0].text) 2825 2826 edit +3 Xtestfile2 2827 Xvimgrep +\cemacs+j Xtestfile1 2828 let l = g:Xgetlist() 2829 call assert_equal('Xtestfile2', @%) 2830 call assert_equal('Editor:Emacs EmAcS', l[0].text) 2831 2832 " Test for unloading a buffer after vimgrep searched the buffer 2833 %bwipe 2834 Xvimgrep /Editor/j Xtestfile* 2835 call assert_equal(0, getbufinfo('Xtestfile1')[0].loaded) 2836 call assert_equal([], getbufinfo('Xtestfile2')) 2837 2838 call delete('Xtestfile1') 2839 call delete('Xtestfile2') 2840endfunc 2841 2842" Tests for the :vimgrep command 2843func Test_vimgrep() 2844 call XvimgrepTests('c') 2845 call XvimgrepTests('l') 2846endfunc 2847 2848" Test for incsearch highlighting of the :vimgrep pattern 2849" This test used to cause "E315: ml_get: invalid lnum" errors. 2850func Test_vimgrep_incsearch() 2851 enew 2852 set incsearch 2853 call test_override("char_avail", 1) 2854 2855 call feedkeys(":2vimgrep assert test_quickfix.vim test_cdo.vim\<CR>", "ntx") 2856 let l = getqflist() 2857 call assert_equal(2, len(l)) 2858 2859 call test_override("ALL", 0) 2860 set noincsearch 2861endfunc 2862 2863" Test vimgrep with the last search pattern not set 2864func Test_vimgrep_with_no_last_search_pat() 2865 let lines =<< trim [SCRIPT] 2866 call assert_fails('vimgrep // *', 'E35:') 2867 call writefile(v:errors, 'Xresult') 2868 qall! 2869 [SCRIPT] 2870 call writefile(lines, 'Xscript') 2871 if RunVim([], [], '--clean -S Xscript') 2872 call assert_equal([], readfile('Xresult')) 2873 endif 2874 call delete('Xscript') 2875 call delete('Xresult') 2876endfunc 2877 2878" Test vimgrep without swap file 2879func Test_vimgrep_without_swap_file() 2880 let lines =<< trim [SCRIPT] 2881 vimgrep grep test_c* 2882 call writefile(['done'], 'Xresult') 2883 qall! 2884 [SCRIPT] 2885 call writefile(lines, 'Xscript') 2886 if RunVim([], [], '--clean -n -S Xscript Xscript') 2887 call assert_equal(['done'], readfile('Xresult')) 2888 endif 2889 call delete('Xscript') 2890 call delete('Xresult') 2891endfunc 2892 2893func Test_vimgrep_existing_swapfile() 2894 call writefile(['match apple with apple'], 'Xapple') 2895 call writefile(['swapfile'], '.Xapple.swp') 2896 let g:foundSwap = 0 2897 let g:ignoreSwapExists = 1 2898 augroup grep 2899 au SwapExists * let foundSwap = 1 | let v:swapchoice = 'e' 2900 augroup END 2901 vimgrep apple Xapple 2902 call assert_equal(1, g:foundSwap) 2903 call assert_match('.Xapple.swo', swapname('')) 2904 2905 call delete('Xapple') 2906 call delete('.Xapple.swp') 2907 augroup grep 2908 au! SwapExists 2909 augroup END 2910 unlet g:ignoreSwapExists 2911endfunc 2912 2913func XfreeTests(cchar) 2914 call s:setup_commands(a:cchar) 2915 2916 enew | only 2917 2918 " Deleting the quickfix stack should work even When the current list is 2919 " somewhere in the middle of the stack 2920 Xexpr ['Xfile1:10:10:Line 10', 'Xfile1:15:15:Line 15'] 2921 Xexpr ['Xfile2:20:20:Line 20', 'Xfile2:25:25:Line 25'] 2922 Xexpr ['Xfile3:30:30:Line 30', 'Xfile3:35:35:Line 35'] 2923 Xolder 2924 call g:Xsetlist([], 'f') 2925 call assert_equal(0, len(g:Xgetlist())) 2926 2927 " After deleting the stack, adding a new list should create a stack with a 2928 " single list. 2929 Xexpr ['Xfile1:10:10:Line 10', 'Xfile1:15:15:Line 15'] 2930 call assert_equal(1, g:Xgetlist({'all':1}).nr) 2931 2932 " Deleting the stack from a quickfix window should update/clear the 2933 " quickfix/location list window. 2934 Xexpr ['Xfile1:10:10:Line 10', 'Xfile1:15:15:Line 15'] 2935 Xexpr ['Xfile2:20:20:Line 20', 'Xfile2:25:25:Line 25'] 2936 Xexpr ['Xfile3:30:30:Line 30', 'Xfile3:35:35:Line 35'] 2937 Xolder 2938 Xwindow 2939 call g:Xsetlist([], 'f') 2940 call assert_equal(2, winnr('$')) 2941 call assert_equal(1, line('$')) 2942 Xclose 2943 2944 " Deleting the stack from a non-quickfix window should update/clear the 2945 " quickfix/location list window. 2946 Xexpr ['Xfile1:10:10:Line 10', 'Xfile1:15:15:Line 15'] 2947 Xexpr ['Xfile2:20:20:Line 20', 'Xfile2:25:25:Line 25'] 2948 Xexpr ['Xfile3:30:30:Line 30', 'Xfile3:35:35:Line 35'] 2949 Xolder 2950 Xwindow 2951 wincmd p 2952 call g:Xsetlist([], 'f') 2953 call assert_equal(0, len(g:Xgetlist())) 2954 wincmd p 2955 call assert_equal(2, winnr('$')) 2956 call assert_equal(1, line('$')) 2957 2958 " After deleting the location list stack, if the location list window is 2959 " opened, then a new location list should be created. So opening the 2960 " location list window again should not create a new window. 2961 if a:cchar == 'l' 2962 lexpr ['Xfile1:10:10:Line 10', 'Xfile1:15:15:Line 15'] 2963 wincmd p 2964 lopen 2965 call assert_equal(2, winnr('$')) 2966 endif 2967 Xclose 2968endfunc 2969 2970" Tests for the quickfix free functionality 2971func Test_qf_free() 2972 call XfreeTests('c') 2973 call XfreeTests('l') 2974endfunc 2975 2976" Test for buffer overflow when parsing lines and adding new entries to 2977" the quickfix list. 2978func Test_bufoverflow() 2979 set efm=%f:%l:%m 2980 cgetexpr ['File1:100:' . repeat('x', 1025)] 2981 2982 set efm=%+GCompiler:\ %.%#,%f:%l:%m 2983 cgetexpr ['Compiler: ' . repeat('a', 1015), 'File1:10:Hello World'] 2984 2985 set efm=%DEntering\ directory\ %f,%f:%l:%m 2986 cgetexpr ['Entering directory ' . repeat('a', 1006), 2987 \ 'File1:10:Hello World'] 2988 set efm&vim 2989endfunc 2990 2991" Tests for getting the quickfix stack size 2992func XsizeTests(cchar) 2993 call s:setup_commands(a:cchar) 2994 2995 call g:Xsetlist([], 'f') 2996 call assert_equal(0, g:Xgetlist({'nr':'$'}).nr) 2997 call assert_equal('', g:Xgetlist({'nr':'$', 'all':1}).title) 2998 call assert_equal(0, g:Xgetlist({'nr':0}).nr) 2999 3000 Xexpr "File1:10:Line1" 3001 Xexpr "File2:20:Line2" 3002 Xexpr "File3:30:Line3" 3003 Xolder | Xolder 3004 call assert_equal(3, g:Xgetlist({'nr':'$'}).nr) 3005 call g:Xsetlist([], 'f') 3006 3007 Xexpr "File1:10:Line1" 3008 Xexpr "File2:20:Line2" 3009 Xexpr "File3:30:Line3" 3010 Xolder | Xolder 3011 call g:Xsetlist([], 'a', {'nr':'$', 'title':'Compiler'}) 3012 call assert_equal('Compiler', g:Xgetlist({'nr':3, 'all':1}).title) 3013endfunc 3014 3015func Test_Qf_Size() 3016 call XsizeTests('c') 3017 call XsizeTests('l') 3018endfunc 3019 3020func Test_cclose_from_copen() 3021 augroup QF_Test 3022 au! 3023 au FileType qf :call assert_fails(':cclose', 'E788:') 3024 augroup END 3025 copen 3026 augroup QF_Test 3027 au! 3028 augroup END 3029 augroup! QF_Test 3030endfunc 3031 3032func Test_cclose_in_autocmd() 3033 " Problem is only triggered if "starting" is zero, so that the OptionsSet 3034 " event will be triggered. 3035 call test_override('starting', 1) 3036 augroup QF_Test 3037 au! 3038 au FileType qf :call assert_fails(':cclose', 'E788:') 3039 augroup END 3040 copen 3041 augroup QF_Test 3042 au! 3043 augroup END 3044 augroup! QF_Test 3045 call test_override('starting', 0) 3046endfunc 3047 3048" Check that ":file" without an argument is possible even when "curbuf_lock" 3049" is set. 3050func Test_file_from_copen() 3051 " Works without argument. 3052 augroup QF_Test 3053 au! 3054 au FileType qf file 3055 augroup END 3056 copen 3057 3058 augroup QF_Test 3059 au! 3060 augroup END 3061 cclose 3062 3063 " Fails with argument. 3064 augroup QF_Test 3065 au! 3066 au FileType qf call assert_fails(':file foo', 'E788:') 3067 augroup END 3068 copen 3069 augroup QF_Test 3070 au! 3071 augroup END 3072 cclose 3073 3074 augroup! QF_Test 3075endfunc 3076 3077func Test_resize_from_copen() 3078 augroup QF_Test 3079 au! 3080 au FileType qf resize 5 3081 augroup END 3082 try 3083 " This should succeed without any exception. No other buffers are 3084 " involved in the autocmd. 3085 copen 3086 finally 3087 augroup QF_Test 3088 au! 3089 augroup END 3090 augroup! QF_Test 3091 endtry 3092endfunc 3093 3094" Tests for the quickfix buffer b:changedtick variable 3095func Xchangedtick_tests(cchar) 3096 call s:setup_commands(a:cchar) 3097 3098 new | only 3099 3100 Xexpr "" | Xexpr "" | Xexpr "" 3101 3102 Xopen 3103 Xolder 3104 Xolder 3105 Xaddexpr "F1:10:Line10" 3106 Xaddexpr "F2:20:Line20" 3107 call g:Xsetlist([{"filename":"F3", "lnum":30, "text":"Line30"}], 'a') 3108 call g:Xsetlist([], 'f') 3109 call assert_equal(8, getbufvar('%', 'changedtick')) 3110 Xclose 3111endfunc 3112 3113func Test_changedtick() 3114 call Xchangedtick_tests('c') 3115 call Xchangedtick_tests('l') 3116endfunc 3117 3118" Tests for parsing an expression using setqflist() 3119func Xsetexpr_tests(cchar) 3120 call s:setup_commands(a:cchar) 3121 3122 let t = ["File1:10:Line10", "File1:20:Line20"] 3123 call g:Xsetlist([], ' ', {'lines' : t}) 3124 call g:Xsetlist([], 'a', {'lines' : ["File1:30:Line30"]}) 3125 3126 let l = g:Xgetlist() 3127 call assert_equal(3, len(l)) 3128 call assert_equal(20, l[1].lnum) 3129 call assert_equal('Line30', l[2].text) 3130 call g:Xsetlist([], 'r', {'lines' : ["File2:5:Line5"]}) 3131 let l = g:Xgetlist() 3132 call assert_equal(1, len(l)) 3133 call assert_equal('Line5', l[0].text) 3134 call assert_equal(-1, g:Xsetlist([], 'a', {'lines' : 10})) 3135 call assert_equal(-1, g:Xsetlist([], 'a', {'lines' : "F1:10:L10"})) 3136 3137 call g:Xsetlist([], 'f') 3138 " Add entries to multiple lists 3139 call g:Xsetlist([], 'a', {'nr' : 1, 'lines' : ["File1:10:Line10"]}) 3140 call g:Xsetlist([], 'a', {'nr' : 2, 'lines' : ["File2:20:Line20"]}) 3141 call g:Xsetlist([], 'a', {'nr' : 1, 'lines' : ["File1:15:Line15"]}) 3142 call g:Xsetlist([], 'a', {'nr' : 2, 'lines' : ["File2:25:Line25"]}) 3143 call assert_equal('Line15', g:Xgetlist({'nr':1, 'items':1}).items[1].text) 3144 call assert_equal('Line25', g:Xgetlist({'nr':2, 'items':1}).items[1].text) 3145 3146 " Adding entries using a custom efm 3147 set efm& 3148 call g:Xsetlist([], ' ', {'efm' : '%f#%l#%m', 3149 \ 'lines' : ["F1#10#L10", "F2#20#L20"]}) 3150 call assert_equal(20, g:Xgetlist({'items':1}).items[1].lnum) 3151 call g:Xsetlist([], 'a', {'efm' : '%f#%l#%m', 'lines' : ["F3:30:L30"]}) 3152 call assert_equal('F3:30:L30', g:Xgetlist({'items':1}).items[2].text) 3153 call assert_equal(20, g:Xgetlist({'items':1}).items[1].lnum) 3154 call assert_equal(-1, g:Xsetlist([], 'a', {'efm' : [], 3155 \ 'lines' : ['F1:10:L10']})) 3156endfunc 3157 3158func Test_setexpr() 3159 call Xsetexpr_tests('c') 3160 call Xsetexpr_tests('l') 3161endfunc 3162 3163" Tests for per quickfix/location list directory stack 3164func Xmultidirstack_tests(cchar) 3165 call s:setup_commands(a:cchar) 3166 3167 call g:Xsetlist([], 'f') 3168 Xexpr "" | Xexpr "" 3169 3170 call g:Xsetlist([], 'a', {'nr' : 1, 'lines' : ["Entering dir 'Xone/a'"]}) 3171 call g:Xsetlist([], 'a', {'nr' : 2, 'lines' : ["Entering dir 'Xtwo/a'"]}) 3172 call g:Xsetlist([], 'a', {'nr' : 1, 'lines' : ["one.txt:3:one one one"]}) 3173 call g:Xsetlist([], 'a', {'nr' : 2, 'lines' : ["two.txt:5:two two two"]}) 3174 3175 let l1 = g:Xgetlist({'nr':1, 'items':1}) 3176 let l2 = g:Xgetlist({'nr':2, 'items':1}) 3177 call assert_equal('Xone/a/one.txt', bufname(l1.items[1].bufnr)) 3178 call assert_equal(3, l1.items[1].lnum) 3179 call assert_equal('Xtwo/a/two.txt', bufname(l2.items[1].bufnr)) 3180 call assert_equal(5, l2.items[1].lnum) 3181endfunc 3182 3183func Test_multidirstack() 3184 call mkdir('Xone/a', 'p') 3185 call mkdir('Xtwo/a', 'p') 3186 let lines = ['1', '2', 'one one one', '4', 'two two two', '6', '7'] 3187 call writefile(lines, 'Xone/a/one.txt') 3188 call writefile(lines, 'Xtwo/a/two.txt') 3189 let save_efm = &efm 3190 set efm=%DEntering\ dir\ '%f',%f:%l:%m,%XLeaving\ dir\ '%f' 3191 3192 call Xmultidirstack_tests('c') 3193 call Xmultidirstack_tests('l') 3194 3195 let &efm = save_efm 3196 call delete('Xone', 'rf') 3197 call delete('Xtwo', 'rf') 3198endfunc 3199 3200" Tests for per quickfix/location list file stack 3201func Xmultifilestack_tests(cchar) 3202 call s:setup_commands(a:cchar) 3203 3204 call g:Xsetlist([], 'f') 3205 Xexpr "" | Xexpr "" 3206 3207 call g:Xsetlist([], 'a', {'nr' : 1, 'lines' : ["[one.txt]"]}) 3208 call g:Xsetlist([], 'a', {'nr' : 2, 'lines' : ["[two.txt]"]}) 3209 call g:Xsetlist([], 'a', {'nr' : 1, 'lines' : ["(3,5) one one one"]}) 3210 call g:Xsetlist([], 'a', {'nr' : 2, 'lines' : ["(5,9) two two two"]}) 3211 3212 let l1 = g:Xgetlist({'nr':1, 'items':1}) 3213 let l2 = g:Xgetlist({'nr':2, 'items':1}) 3214 call assert_equal('one.txt', bufname(l1.items[1].bufnr)) 3215 call assert_equal(3, l1.items[1].lnum) 3216 call assert_equal('two.txt', bufname(l2.items[1].bufnr)) 3217 call assert_equal(5, l2.items[1].lnum) 3218 3219 " Test for start of a new error line in the same line where a previous 3220 " error line ends with a file stack. 3221 let efm_val = 'Error\ l%l\ in\ %f,' 3222 let efm_val .= '%-P%>(%f%r,Error\ l%l\ in\ %m,%-Q)%r' 3223 let l = g:Xgetlist({'lines' : [ 3224 \ '(one.txt', 3225 \ 'Error l4 in one.txt', 3226 \ ') (two.txt', 3227 \ 'Error l6 in two.txt', 3228 \ ')', 3229 \ 'Error l8 in one.txt' 3230 \ ], 'efm' : efm_val}) 3231 call assert_equal(3, len(l.items)) 3232 call assert_equal('one.txt', bufname(l.items[0].bufnr)) 3233 call assert_equal(4, l.items[0].lnum) 3234 call assert_equal('one.txt', l.items[0].text) 3235 call assert_equal('two.txt', bufname(l.items[1].bufnr)) 3236 call assert_equal(6, l.items[1].lnum) 3237 call assert_equal('two.txt', l.items[1].text) 3238 call assert_equal('one.txt', bufname(l.items[2].bufnr)) 3239 call assert_equal(8, l.items[2].lnum) 3240 call assert_equal('', l.items[2].text) 3241endfunc 3242 3243func Test_multifilestack() 3244 let lines = ['1', '2', 'one one one', '4', 'two two two', '6', '7'] 3245 call writefile(lines, 'one.txt') 3246 call writefile(lines, 'two.txt') 3247 let save_efm = &efm 3248 set efm=%+P[%f],(%l\\,%c)\ %m,%-Q 3249 3250 call Xmultifilestack_tests('c') 3251 call Xmultifilestack_tests('l') 3252 3253 let &efm = save_efm 3254 call delete('one.txt') 3255 call delete('two.txt') 3256endfunc 3257 3258" Tests for per buffer 'efm' setting 3259func Test_perbuf_efm() 3260 call writefile(["File1-10-Line10"], 'one.txt') 3261 call writefile(["File2#20#Line20"], 'two.txt') 3262 set efm=%f#%l#%m 3263 new | only 3264 new 3265 setlocal efm=%f-%l-%m 3266 cfile one.txt 3267 wincmd w 3268 caddfile two.txt 3269 3270 let l = getqflist() 3271 call assert_equal(10, l[0].lnum) 3272 call assert_equal('Line20', l[1].text) 3273 3274 set efm& 3275 new | only 3276 call delete('one.txt') 3277 call delete('two.txt') 3278endfunc 3279 3280" Open multiple help windows using ":lhelpgrep 3281" This test used to crash Vim 3282func Test_Multi_LL_Help() 3283 new | only 3284 lhelpgrep window 3285 lopen 3286 e# 3287 lhelpgrep buffer 3288 call assert_equal(3, winnr('$')) 3289 call assert_true(len(getloclist(1)) != 0) 3290 call assert_true(len(getloclist(2)) != 0) 3291 new | only 3292endfunc 3293 3294" Tests for adding new quickfix lists using setqflist() 3295func XaddQf_tests(cchar) 3296 call s:setup_commands(a:cchar) 3297 3298 " Create a new list using ' ' for action 3299 call g:Xsetlist([], 'f') 3300 call g:Xsetlist([], ' ', {'title' : 'Test1'}) 3301 let l = g:Xgetlist({'nr' : '$', 'all' : 1}) 3302 call assert_equal(1, l.nr) 3303 call assert_equal('Test1', l.title) 3304 3305 " Create a new list using ' ' for action and '$' for 'nr' 3306 call g:Xsetlist([], 'f') 3307 call g:Xsetlist([], ' ', {'title' : 'Test2', 'nr' : '$'}) 3308 let l = g:Xgetlist({'nr' : '$', 'all' : 1}) 3309 call assert_equal(1, l.nr) 3310 call assert_equal('Test2', l.title) 3311 3312 " Create a new list using 'a' for action 3313 call g:Xsetlist([], 'f') 3314 call g:Xsetlist([], 'a', {'title' : 'Test3'}) 3315 let l = g:Xgetlist({'nr' : '$', 'all' : 1}) 3316 call assert_equal(1, l.nr) 3317 call assert_equal('Test3', l.title) 3318 3319 " Create a new list using 'a' for action and '$' for 'nr' 3320 call g:Xsetlist([], 'f') 3321 call g:Xsetlist([], 'a', {'title' : 'Test3', 'nr' : '$'}) 3322 call g:Xsetlist([], 'a', {'title' : 'Test4'}) 3323 let l = g:Xgetlist({'nr' : '$', 'all' : 1}) 3324 call assert_equal(1, l.nr) 3325 call assert_equal('Test4', l.title) 3326 3327 " Adding a quickfix list should remove all the lists following the current 3328 " list. 3329 Xexpr "" | Xexpr "" | Xexpr "" 3330 silent! 10Xolder 3331 call g:Xsetlist([], ' ', {'title' : 'Test5'}) 3332 let l = g:Xgetlist({'nr' : '$', 'all' : 1}) 3333 call assert_equal(2, l.nr) 3334 call assert_equal('Test5', l.title) 3335 3336 " Add a quickfix list using '$' as the list number. 3337 let lastqf = g:Xgetlist({'nr':'$'}).nr 3338 silent! 99Xolder 3339 call g:Xsetlist([], ' ', {'nr' : '$', 'title' : 'Test6'}) 3340 let l = g:Xgetlist({'nr' : '$', 'all' : 1}) 3341 call assert_equal(lastqf + 1, l.nr) 3342 call assert_equal('Test6', l.title) 3343 3344 " Add a quickfix list using 'nr' set to one more than the quickfix 3345 " list size. 3346 let lastqf = g:Xgetlist({'nr':'$'}).nr 3347 silent! 99Xolder 3348 call g:Xsetlist([], ' ', {'nr' : lastqf + 1, 'title' : 'Test7'}) 3349 let l = g:Xgetlist({'nr' : '$', 'all' : 1}) 3350 call assert_equal(lastqf + 1, l.nr) 3351 call assert_equal('Test7', l.title) 3352 3353 " Add a quickfix list to a stack with 10 lists using 'nr' set to '$' 3354 exe repeat('Xexpr "" |', 9) . 'Xexpr ""' 3355 silent! 99Xolder 3356 call g:Xsetlist([], ' ', {'nr' : '$', 'title' : 'Test8'}) 3357 let l = g:Xgetlist({'nr' : '$', 'all' : 1}) 3358 call assert_equal(10, l.nr) 3359 call assert_equal('Test8', l.title) 3360 3361 " Add a quickfix list using 'nr' set to a value greater than 10 3362 call assert_equal(-1, g:Xsetlist([], ' ', {'nr' : 12, 'title' : 'Test9'})) 3363 3364 " Try adding a quickfix list with 'nr' set to a value greater than the 3365 " quickfix list size but less than 10. 3366 call g:Xsetlist([], 'f') 3367 Xexpr "" | Xexpr "" | Xexpr "" 3368 silent! 99Xolder 3369 call assert_equal(-1, g:Xsetlist([], ' ', {'nr' : 8, 'title' : 'Test10'})) 3370 3371 " Add a quickfix list using 'nr' set to a some string or list 3372 call assert_equal(-1, g:Xsetlist([], ' ', {'nr' : [1,2], 'title' : 'Test11'})) 3373endfunc 3374 3375func Test_add_qf() 3376 call XaddQf_tests('c') 3377 call XaddQf_tests('l') 3378endfunc 3379 3380" Test for getting the quickfix list items from some text without modifying 3381" the quickfix stack 3382func XgetListFromLines(cchar) 3383 call s:setup_commands(a:cchar) 3384 call g:Xsetlist([], 'f') 3385 3386 let l = g:Xgetlist({'lines' : ["File2:20:Line20", "File2:30:Line30"]}).items 3387 call assert_equal(2, len(l)) 3388 call assert_equal(30, l[1].lnum) 3389 3390 call assert_equal({}, g:Xgetlist({'lines' : 10})) 3391 call assert_equal({}, g:Xgetlist({'lines' : 'File1:10:Line10'})) 3392 call assert_equal([], g:Xgetlist({'lines' : []}).items) 3393 call assert_equal([], g:Xgetlist({'lines' : [10, 20]}).items) 3394 3395 " Parse text using a custom efm 3396 set efm& 3397 let l = g:Xgetlist({'lines':['File3#30#Line30'], 'efm' : '%f#%l#%m'}).items 3398 call assert_equal('Line30', l[0].text) 3399 let l = g:Xgetlist({'lines':['File3:30:Line30'], 'efm' : '%f-%l-%m'}).items 3400 call assert_equal('File3:30:Line30', l[0].text) 3401 let l = g:Xgetlist({'lines':['File3:30:Line30'], 'efm' : [1,2]}) 3402 call assert_equal({}, l) 3403 call assert_fails("call g:Xgetlist({'lines':['abc'], 'efm':'%2'})", 'E376:') 3404 call assert_fails("call g:Xgetlist({'lines':['abc'], 'efm':''})", 'E378:') 3405 3406 " Make sure that the quickfix stack is not modified 3407 call assert_equal(0, g:Xgetlist({'nr' : '$'}).nr) 3408endfunc 3409 3410func Test_get_list_from_lines() 3411 call XgetListFromLines('c') 3412 call XgetListFromLines('l') 3413endfunc 3414 3415" Tests for the quickfix list id 3416func Xqfid_tests(cchar) 3417 call s:setup_commands(a:cchar) 3418 3419 call g:Xsetlist([], 'f') 3420 call assert_equal(0, g:Xgetlist({'id':0}).id) 3421 Xexpr '' 3422 let start_id = g:Xgetlist({'id' : 0}).id 3423 Xexpr '' | Xexpr '' 3424 Xolder 3425 call assert_equal(start_id, g:Xgetlist({'id':0, 'nr':1}).id) 3426 call assert_equal(start_id + 1, g:Xgetlist({'id':0, 'nr':0}).id) 3427 call assert_equal(start_id + 2, g:Xgetlist({'id':0, 'nr':'$'}).id) 3428 call assert_equal(0, g:Xgetlist({'id':0, 'nr':99}).id) 3429 call assert_equal(2, g:Xgetlist({'id':start_id + 1, 'nr':0}).nr) 3430 call assert_equal(0, g:Xgetlist({'id':99, 'nr':0}).id) 3431 call assert_equal(0, g:Xgetlist({'id':"abc", 'nr':0}).id) 3432 3433 call g:Xsetlist([], 'a', {'id':start_id, 'context':[1,2]}) 3434 call assert_equal([1,2], g:Xgetlist({'nr':1, 'context':1}).context) 3435 call g:Xsetlist([], 'a', {'id':start_id+1, 'lines':['F1:10:L10']}) 3436 call assert_equal('L10', g:Xgetlist({'nr':2, 'items':1}).items[0].text) 3437 call assert_equal(-1, g:Xsetlist([], 'a', {'id':999, 'title':'Vim'})) 3438 call assert_equal(-1, g:Xsetlist([], 'a', {'id':'abc', 'title':'Vim'})) 3439 3440 let qfid = g:Xgetlist({'id':0, 'nr':0}) 3441 call g:Xsetlist([], 'f') 3442 call assert_equal(0, g:Xgetlist({'id':qfid, 'nr':0}).id) 3443endfunc 3444 3445func Test_qf_id() 3446 call Xqfid_tests('c') 3447 call Xqfid_tests('l') 3448endfunc 3449 3450func Xqfjump_tests(cchar) 3451 call s:setup_commands(a:cchar) 3452 3453 call writefile(["Line1\tFoo", "Line2"], 'F1') 3454 call writefile(["Line1\tBar", "Line2"], 'F2') 3455 call writefile(["Line1\tBaz", "Line2"], 'F3') 3456 3457 call g:Xsetlist([], 'f') 3458 3459 " Tests for 3460 " Jumping to a line using a pattern 3461 " Jumping to a column greater than the last column in a line 3462 " Jumping to a line greater than the last line in the file 3463 let l = [] 3464 for i in range(1, 7) 3465 call add(l, {}) 3466 endfor 3467 let l[0].filename='F1' 3468 let l[0].pattern='Line1' 3469 let l[1].filename='F2' 3470 let l[1].pattern='Line1' 3471 let l[2].filename='F3' 3472 let l[2].pattern='Line1' 3473 let l[3].filename='F3' 3474 let l[3].lnum=1 3475 let l[3].col=9 3476 let l[3].vcol=1 3477 let l[4].filename='F3' 3478 let l[4].lnum=99 3479 let l[5].filename='F3' 3480 let l[5].lnum=1 3481 let l[5].col=99 3482 let l[5].vcol=1 3483 let l[6].filename='F3' 3484 let l[6].pattern='abcxyz' 3485 3486 call g:Xsetlist([], ' ', {'items' : l}) 3487 Xopen | only 3488 2Xnext 3489 call assert_equal(3, g:Xgetlist({'idx' : 0}).idx) 3490 call assert_equal('F3', @%) 3491 Xnext 3492 call assert_equal(7, col('.')) 3493 Xnext 3494 call assert_equal(2, line('.')) 3495 Xnext 3496 call assert_equal(9, col('.')) 3497 2 3498 Xnext 3499 call assert_equal(2, line('.')) 3500 3501 if a:cchar == 'l' 3502 " When jumping to a location list entry in the location list window and 3503 " no usable windows are available, then a new window should be opened. 3504 enew! | new | only 3505 call g:Xsetlist([], 'f') 3506 setlocal buftype=nofile 3507 new 3508 call g:Xsetlist([], ' ', {'lines' : ['F1:1:1:Line1', 'F1:2:2:Line2', 'F2:1:1:Line1', 'F2:2:2:Line2', 'F3:1:1:Line1', 'F3:2:2:Line2']}) 3509 Xopen 3510 let winid = win_getid() 3511 wincmd p 3512 close 3513 call win_gotoid(winid) 3514 Xnext 3515 call assert_equal(3, winnr('$')) 3516 call assert_equal(1, winnr()) 3517 call assert_equal(2, line('.')) 3518 3519 " When jumping to an entry in the location list window and the window 3520 " associated with the location list is not present and a window containing 3521 " the file is already present, then that window should be used. 3522 close 3523 belowright new 3524 call g:Xsetlist([], 'f') 3525 edit F3 3526 call win_gotoid(winid) 3527 Xlast 3528 call assert_equal(3, winnr()) 3529 call assert_equal(6, g:Xgetlist({'size' : 1}).size) 3530 call assert_equal(winid, g:Xgetlist({'winid' : 1}).winid) 3531 endif 3532 3533 " Cleanup 3534 enew! 3535 new | only 3536 3537 call delete('F1') 3538 call delete('F2') 3539 call delete('F3') 3540endfunc 3541 3542func Test_qfjump() 3543 call Xqfjump_tests('c') 3544 call Xqfjump_tests('l') 3545endfunc 3546 3547" Tests for the getqflist() and getloclist() functions when the list is not 3548" present or is empty 3549func Xgetlist_empty_tests(cchar) 3550 call s:setup_commands(a:cchar) 3551 3552 " Empty quickfix stack 3553 call g:Xsetlist([], 'f') 3554 call assert_equal('', g:Xgetlist({'context' : 0}).context) 3555 call assert_equal(0, g:Xgetlist({'id' : 0}).id) 3556 call assert_equal(0, g:Xgetlist({'idx' : 0}).idx) 3557 call assert_equal([], g:Xgetlist({'items' : 0}).items) 3558 call assert_equal(0, g:Xgetlist({'nr' : 0}).nr) 3559 call assert_equal(0, g:Xgetlist({'size' : 0}).size) 3560 call assert_equal('', g:Xgetlist({'title' : 0}).title) 3561 call assert_equal(0, g:Xgetlist({'winid' : 0}).winid) 3562 call assert_equal(0, g:Xgetlist({'changedtick' : 0}).changedtick) 3563 if a:cchar == 'c' 3564 call assert_equal({'context' : '', 'id' : 0, 'idx' : 0, 3565 \ 'items' : [], 'nr' : 0, 'size' : 0, 'qfbufnr' : 0, 3566 \ 'title' : '', 'winid' : 0, 'changedtick': 0, 3567 \ 'quickfixtextfunc' : ''}, g:Xgetlist({'all' : 0})) 3568 else 3569 call assert_equal({'context' : '', 'id' : 0, 'idx' : 0, 3570 \ 'items' : [], 'nr' : 0, 'size' : 0, 'title' : '', 3571 \ 'winid' : 0, 'changedtick': 0, 'filewinid' : 0, 3572 \ 'qfbufnr' : 0, 'quickfixtextfunc' : ''}, 3573 \ g:Xgetlist({'all' : 0})) 3574 endif 3575 3576 " Quickfix window with empty stack 3577 silent! Xopen 3578 let qfwinid = (a:cchar == 'c') ? win_getid() : 0 3579 let qfbufnr = (a:cchar == 'c') ? bufnr('') : 0 3580 call assert_equal(qfwinid, g:Xgetlist({'winid' : 0}).winid) 3581 Xclose 3582 3583 " Empty quickfix list 3584 Xexpr "" 3585 call assert_equal('', g:Xgetlist({'context' : 0}).context) 3586 call assert_notequal(0, g:Xgetlist({'id' : 0}).id) 3587 call assert_equal(0, g:Xgetlist({'idx' : 0}).idx) 3588 call assert_equal([], g:Xgetlist({'items' : 0}).items) 3589 call assert_notequal(0, g:Xgetlist({'nr' : 0}).nr) 3590 call assert_equal(0, g:Xgetlist({'size' : 0}).size) 3591 call assert_notequal('', g:Xgetlist({'title' : 0}).title) 3592 call assert_equal(0, g:Xgetlist({'winid' : 0}).winid) 3593 call assert_equal(1, g:Xgetlist({'changedtick' : 0}).changedtick) 3594 3595 let qfid = g:Xgetlist({'id' : 0}).id 3596 call g:Xsetlist([], 'f') 3597 3598 " Non-existing quickfix identifier 3599 call assert_equal('', g:Xgetlist({'id' : qfid, 'context' : 0}).context) 3600 call assert_equal(0, g:Xgetlist({'id' : qfid}).id) 3601 call assert_equal(0, g:Xgetlist({'id' : qfid, 'idx' : 0}).idx) 3602 call assert_equal([], g:Xgetlist({'id' : qfid, 'items' : 0}).items) 3603 call assert_equal(0, g:Xgetlist({'id' : qfid, 'nr' : 0}).nr) 3604 call assert_equal(0, g:Xgetlist({'id' : qfid, 'size' : 0}).size) 3605 call assert_equal('', g:Xgetlist({'id' : qfid, 'title' : 0}).title) 3606 call assert_equal(0, g:Xgetlist({'id' : qfid, 'winid' : 0}).winid) 3607 call assert_equal(0, g:Xgetlist({'id' : qfid, 'changedtick' : 0}).changedtick) 3608 if a:cchar == 'c' 3609 call assert_equal({'context' : '', 'id' : 0, 'idx' : 0, 'items' : [], 3610 \ 'nr' : 0, 'size' : 0, 'title' : '', 'winid' : 0, 3611 \ 'qfbufnr' : qfbufnr, 'quickfixtextfunc' : '', 3612 \ 'changedtick' : 0}, g:Xgetlist({'id' : qfid, 'all' : 0})) 3613 else 3614 call assert_equal({'context' : '', 'id' : 0, 'idx' : 0, 'items' : [], 3615 \ 'nr' : 0, 'size' : 0, 'title' : '', 'winid' : 0, 3616 \ 'changedtick' : 0, 'filewinid' : 0, 'qfbufnr' : 0, 3617 \ 'quickfixtextfunc' : ''}, 3618 \ g:Xgetlist({'id' : qfid, 'all' : 0})) 3619 endif 3620 3621 " Non-existing quickfix list number 3622 call assert_equal('', g:Xgetlist({'nr' : 5, 'context' : 0}).context) 3623 call assert_equal(0, g:Xgetlist({'nr' : 5}).nr) 3624 call assert_equal(0, g:Xgetlist({'nr' : 5, 'idx' : 0}).idx) 3625 call assert_equal([], g:Xgetlist({'nr' : 5, 'items' : 0}).items) 3626 call assert_equal(0, g:Xgetlist({'nr' : 5, 'id' : 0}).id) 3627 call assert_equal(0, g:Xgetlist({'nr' : 5, 'size' : 0}).size) 3628 call assert_equal('', g:Xgetlist({'nr' : 5, 'title' : 0}).title) 3629 call assert_equal(0, g:Xgetlist({'nr' : 5, 'winid' : 0}).winid) 3630 call assert_equal(0, g:Xgetlist({'nr' : 5, 'changedtick' : 0}).changedtick) 3631 if a:cchar == 'c' 3632 call assert_equal({'context' : '', 'id' : 0, 'idx' : 0, 'items' : [], 3633 \ 'nr' : 0, 'size' : 0, 'title' : '', 'winid' : 0, 3634 \ 'changedtick' : 0, 'qfbufnr' : qfbufnr, 3635 \ 'quickfixtextfunc' : ''}, g:Xgetlist({'nr' : 5, 'all' : 0})) 3636 else 3637 call assert_equal({'context' : '', 'id' : 0, 'idx' : 0, 'items' : [], 3638 \ 'nr' : 0, 'size' : 0, 'title' : '', 'winid' : 0, 3639 \ 'changedtick' : 0, 'filewinid' : 0, 'qfbufnr' : 0, 3640 \ 'quickfixtextfunc' : ''}, g:Xgetlist({'nr' : 5, 'all' : 0})) 3641 endif 3642endfunc 3643 3644func Test_getqflist() 3645 call Xgetlist_empty_tests('c') 3646 call Xgetlist_empty_tests('l') 3647endfunc 3648 3649func Test_getqflist_invalid_nr() 3650 " The following commands used to crash Vim 3651 cexpr "" 3652 call getqflist({'nr' : $XXX_DOES_NOT_EXIST_XXX}) 3653 3654 " Cleanup 3655 call setqflist([], 'r') 3656endfunc 3657 3658" Tests for the quickfix/location list changedtick 3659func Xqftick_tests(cchar) 3660 call s:setup_commands(a:cchar) 3661 3662 call g:Xsetlist([], 'f') 3663 3664 Xexpr "F1:10:Line10" 3665 let qfid = g:Xgetlist({'id' : 0}).id 3666 call assert_equal(1, g:Xgetlist({'changedtick' : 0}).changedtick) 3667 Xaddexpr "F2:20:Line20\nF2:21:Line21" 3668 call assert_equal(2, g:Xgetlist({'changedtick' : 0}).changedtick) 3669 call g:Xsetlist([], 'a', {'lines' : ["F3:30:Line30", "F3:31:Line31"]}) 3670 call assert_equal(3, g:Xgetlist({'changedtick' : 0}).changedtick) 3671 call g:Xsetlist([], 'r', {'lines' : ["F4:40:Line40"]}) 3672 call assert_equal(4, g:Xgetlist({'changedtick' : 0}).changedtick) 3673 call g:Xsetlist([], 'a', {'title' : 'New Title'}) 3674 call assert_equal(5, g:Xgetlist({'changedtick' : 0}).changedtick) 3675 3676 enew! 3677 call append(0, ["F5:50:L50", "F6:60:L60"]) 3678 Xaddbuffer 3679 call assert_equal(6, g:Xgetlist({'changedtick' : 0}).changedtick) 3680 enew! 3681 3682 call g:Xsetlist([], 'a', {'context' : {'bus' : 'pci'}}) 3683 call assert_equal(7, g:Xgetlist({'changedtick' : 0}).changedtick) 3684 call g:Xsetlist([{'filename' : 'F7', 'lnum' : 10, 'text' : 'L7'}, 3685 \ {'filename' : 'F7', 'lnum' : 11, 'text' : 'L11'}], 'a') 3686 call assert_equal(8, g:Xgetlist({'changedtick' : 0}).changedtick) 3687 call g:Xsetlist([{'filename' : 'F7', 'lnum' : 10, 'text' : 'L7'}, 3688 \ {'filename' : 'F7', 'lnum' : 11, 'text' : 'L11'}], ' ') 3689 call assert_equal(1, g:Xgetlist({'changedtick' : 0}).changedtick) 3690 call g:Xsetlist([{'filename' : 'F7', 'lnum' : 10, 'text' : 'L7'}, 3691 \ {'filename' : 'F7', 'lnum' : 11, 'text' : 'L11'}], 'r') 3692 call assert_equal(2, g:Xgetlist({'changedtick' : 0}).changedtick) 3693 3694 call writefile(["F8:80:L80", "F8:81:L81"], "Xone") 3695 Xfile Xone 3696 call assert_equal(1, g:Xgetlist({'changedtick' : 0}).changedtick) 3697 Xaddfile Xone 3698 call assert_equal(2, g:Xgetlist({'changedtick' : 0}).changedtick) 3699 3700 " Test case for updating a non-current quickfix list 3701 call g:Xsetlist([], 'f') 3702 Xexpr "F1:1:L1" 3703 Xexpr "F2:2:L2" 3704 call g:Xsetlist([], 'a', {'nr' : 1, "lines" : ["F10:10:L10"]}) 3705 call assert_equal(1, g:Xgetlist({'changedtick' : 0}).changedtick) 3706 call assert_equal(2, g:Xgetlist({'nr' : 1, 'changedtick' : 0}).changedtick) 3707 3708 call delete("Xone") 3709endfunc 3710 3711func Test_qf_tick() 3712 call Xqftick_tests('c') 3713 call Xqftick_tests('l') 3714endfunc 3715 3716" Test helpgrep with lang specifier 3717func Xtest_helpgrep_with_lang_specifier(cchar) 3718 call s:setup_commands(a:cchar) 3719 Xhelpgrep Vim@en 3720 call assert_equal('help', &filetype) 3721 call assert_notequal(0, g:Xgetlist({'nr' : '$'}).nr) 3722 new | only 3723endfunc 3724 3725func Test_helpgrep_with_lang_specifier() 3726 call Xtest_helpgrep_with_lang_specifier('c') 3727 call Xtest_helpgrep_with_lang_specifier('l') 3728endfunc 3729 3730" The following test used to crash Vim. 3731" Open the location list window and close the regular window associated with 3732" the location list. When the garbage collection runs now, it incorrectly 3733" marks the location list context as not in use and frees the context. 3734func Test_ll_window_ctx() 3735 call setloclist(0, [], 'f') 3736 call setloclist(0, [], 'a', {'context' : []}) 3737 lopen | only 3738 call test_garbagecollect_now() 3739 echo getloclist(0, {'context' : 1}).context 3740 enew | only 3741endfunc 3742 3743" The following test used to crash vim 3744func Test_lfile_crash() 3745 sp Xtest 3746 au QuickFixCmdPre * bw 3747 call assert_fails('lfile', 'E40:') 3748 au! QuickFixCmdPre 3749endfunc 3750 3751" The following test used to crash vim 3752func Test_lbuffer_crash() 3753 sv Xtest 3754 augroup QF_Test 3755 au! 3756 au * * bw 3757 augroup END 3758 lbuffer 3759 augroup QF_Test 3760 au! 3761 augroup END 3762endfunc 3763 3764" The following test used to crash vim 3765func Test_lexpr_crash() 3766 augroup QF_Test 3767 au! 3768 au * * call setloclist(0, [], 'f') 3769 augroup END 3770 lexpr "" 3771 augroup QF_Test 3772 au! 3773 augroup END 3774 3775 enew | only 3776 augroup QF_Test 3777 au! 3778 au BufNew * call setloclist(0, [], 'f') 3779 augroup END 3780 lexpr 'x:1:x' 3781 augroup QF_Test 3782 au! 3783 augroup END 3784 3785 enew | only 3786 lexpr '' 3787 lopen 3788 augroup QF_Test 3789 au! 3790 au FileType * call setloclist(0, [], 'f') 3791 augroup END 3792 lexpr '' 3793 augroup QF_Test 3794 au! 3795 augroup END 3796endfunc 3797 3798" The following test used to crash Vim 3799func Test_lvimgrep_crash() 3800 sv Xtest 3801 augroup QF_Test 3802 au! 3803 au * * call setloclist(0, [], 'f') 3804 augroup END 3805 lvimgrep quickfix test_quickfix.vim 3806 augroup QF_Test 3807 au! 3808 augroup END 3809 3810 new | only 3811 augroup QF_Test 3812 au! 3813 au BufEnter * call setloclist(0, [], 'r') 3814 augroup END 3815 call assert_fails('lvimgrep Test_lvimgrep_crash *', 'E926:') 3816 augroup QF_Test 3817 au! 3818 augroup END 3819 3820 enew | only 3821endfunc 3822 3823func Test_lvimgrep_crash2() 3824 au BufNewFile x sfind 3825 call assert_fails('lvimgrep x x', 'E471:') 3826 call assert_fails('lvimgrep x x x', 'E471:') 3827 3828 au! BufNewFile 3829endfunc 3830 3831" Test for the position of the quickfix and location list window 3832func Test_qfwin_pos() 3833 " Open two windows 3834 new | only 3835 new 3836 cexpr ['F1:10:L10'] 3837 copen 3838 " Quickfix window should be the bottom most window 3839 call assert_equal(3, winnr()) 3840 close 3841 " Open at the very top 3842 wincmd t 3843 topleft copen 3844 call assert_equal(1, winnr()) 3845 close 3846 " open left of the current window 3847 wincmd t 3848 below new 3849 leftabove copen 3850 call assert_equal(2, winnr()) 3851 close 3852 " open right of the current window 3853 rightbelow copen 3854 call assert_equal(3, winnr()) 3855 close 3856endfunc 3857 3858" Tests for quickfix/location lists changed by autocommands when 3859" :vimgrep/:lvimgrep commands are running. 3860func Test_vimgrep_autocmd() 3861 call setqflist([], 'f') 3862 call writefile(['stars'], 'Xtest1.txt') 3863 call writefile(['stars'], 'Xtest2.txt') 3864 3865 " Test 1: 3866 " When searching for a pattern using :vimgrep, if the quickfix list is 3867 " changed by an autocmd, the results should be added to the correct quickfix 3868 " list. 3869 autocmd BufRead Xtest2.txt cexpr '' | cexpr '' 3870 silent vimgrep stars Xtest*.txt 3871 call assert_equal(1, getqflist({'nr' : 0}).nr) 3872 call assert_equal(3, getqflist({'nr' : '$'}).nr) 3873 call assert_equal('Xtest2.txt', bufname(getqflist()[1].bufnr)) 3874 au! BufRead Xtest2.txt 3875 3876 " Test 2: 3877 " When searching for a pattern using :vimgrep, if the quickfix list is 3878 " freed, then a error should be given. 3879 silent! %bwipe! 3880 call setqflist([], 'f') 3881 autocmd BufRead Xtest2.txt for i in range(10) | cexpr '' | endfor 3882 call assert_fails('vimgrep stars Xtest*.txt', 'E925:') 3883 au! BufRead Xtest2.txt 3884 3885 " Test 3: 3886 " When searching for a pattern using :lvimgrep, if the location list is 3887 " freed, then the command should error out. 3888 silent! %bwipe! 3889 let g:save_winid = win_getid() 3890 autocmd BufRead Xtest2.txt call setloclist(g:save_winid, [], 'f') 3891 call assert_fails('lvimgrep stars Xtest*.txt', 'E926:') 3892 au! BufRead Xtest2.txt 3893 3894 call delete('Xtest1.txt') 3895 call delete('Xtest2.txt') 3896 call setqflist([], 'f') 3897endfunc 3898 3899" Test for an autocmd changing the current directory when running vimgrep 3900func Xvimgrep_autocmd_cd(cchar) 3901 call s:setup_commands(a:cchar) 3902 3903 %bwipe 3904 let save_cwd = getcwd() 3905 3906 augroup QF_Test 3907 au! 3908 autocmd BufRead * silent cd %:p:h 3909 augroup END 3910 3911 10Xvimgrep /vim/ Xdir/** 3912 let l = g:Xgetlist() 3913 call assert_equal('f1.txt', bufname(l[0].bufnr)) 3914 call assert_equal('f2.txt', fnamemodify(bufname(l[2].bufnr), ':t')) 3915 3916 augroup QF_Test 3917 au! 3918 augroup END 3919 3920 exe 'cd ' . save_cwd 3921endfunc 3922 3923func Test_vimgrep_autocmd_cd() 3924 call mkdir('Xdir/a', 'p') 3925 call mkdir('Xdir/b', 'p') 3926 call writefile(['a_L1_vim', 'a_L2_vim'], 'Xdir/a/f1.txt') 3927 call writefile(['b_L1_vim', 'b_L2_vim'], 'Xdir/b/f2.txt') 3928 call Xvimgrep_autocmd_cd('c') 3929 call Xvimgrep_autocmd_cd('l') 3930 %bwipe 3931 call delete('Xdir', 'rf') 3932endfunc 3933 3934" The following test used to crash Vim 3935func Test_lhelpgrep_autocmd() 3936 lhelpgrep quickfix 3937 autocmd QuickFixCmdPost * call setloclist(0, [], 'f') 3938 lhelpgrep buffer 3939 call assert_equal('help', &filetype) 3940 call assert_equal(0, getloclist(0, {'nr' : '$'}).nr) 3941 lhelpgrep tabpage 3942 call assert_equal('help', &filetype) 3943 call assert_equal(1, getloclist(0, {'nr' : '$'}).nr) 3944 au! QuickFixCmdPost 3945 3946 new | only 3947 augroup QF_Test 3948 au! 3949 au BufEnter * call setqflist([], 'f') 3950 augroup END 3951 call assert_fails('helpgrep quickfix', 'E925:') 3952 augroup QF_Test 3953 au! BufEnter 3954 augroup END 3955 3956 new | only 3957 augroup QF_Test 3958 au! 3959 au BufEnter * call setqflist([], 'r') 3960 augroup END 3961 call assert_fails('helpgrep quickfix', 'E925:') 3962 augroup QF_Test 3963 au! BufEnter 3964 augroup END 3965 3966 new | only 3967 augroup QF_Test 3968 au! 3969 au BufEnter * call setloclist(0, [], 'r') 3970 augroup END 3971 call assert_fails('lhelpgrep quickfix', 'E926:') 3972 augroup QF_Test 3973 au! BufEnter 3974 augroup END 3975 3976 new | only 3977endfunc 3978 3979" Test for shortening/simplifying the file name when opening the 3980" quickfix window or when displaying the quickfix list 3981func Test_shorten_fname() 3982 CheckUnix 3983 %bwipe 3984 " Create a quickfix list with a absolute path filename 3985 let fname = getcwd() . '/test_quickfix.vim' 3986 call setqflist([], ' ', {'lines':[fname . ":20:Line20"], 'efm':'%f:%l:%m'}) 3987 call assert_equal(fname, bufname('test_quickfix.vim')) 3988 " Opening the quickfix window should simplify the file path 3989 cwindow 3990 call assert_equal('test_quickfix.vim', bufname('test_quickfix.vim')) 3991 cclose 3992 %bwipe 3993 " Create a quickfix list with a absolute path filename 3994 call setqflist([], ' ', {'lines':[fname . ":20:Line20"], 'efm':'%f:%l:%m'}) 3995 call assert_equal(fname, bufname('test_quickfix.vim')) 3996 " Displaying the quickfix list should simplify the file path 3997 silent! clist 3998 call assert_equal('test_quickfix.vim', bufname('test_quickfix.vim')) 3999endfunc 4000 4001" Quickfix title tests 4002" In the below tests, 'exe "cmd"' is used to invoke the quickfix commands. 4003" Otherwise due to indentation, the title is set with spaces at the beginning 4004" of the command. 4005func Test_qftitle() 4006 call writefile(["F1:1:Line1"], 'Xerr') 4007 4008 " :cexpr 4009 exe "cexpr readfile('Xerr')" 4010 call assert_equal(":cexpr readfile('Xerr')", getqflist({'title' : 1}).title) 4011 4012 " :cgetexpr 4013 exe "cgetexpr readfile('Xerr')" 4014 call assert_equal(":cgetexpr readfile('Xerr')", 4015 \ getqflist({'title' : 1}).title) 4016 4017 " :caddexpr 4018 call setqflist([], 'f') 4019 exe "caddexpr readfile('Xerr')" 4020 call assert_equal(":caddexpr readfile('Xerr')", 4021 \ getqflist({'title' : 1}).title) 4022 4023 " :cbuffer 4024 new Xerr 4025 exe "cbuffer" 4026 call assert_equal(':cbuffer (Xerr)', getqflist({'title' : 1}).title) 4027 4028 " :cgetbuffer 4029 edit Xerr 4030 exe "cgetbuffer" 4031 call assert_equal(':cgetbuffer (Xerr)', getqflist({'title' : 1}).title) 4032 4033 " :caddbuffer 4034 call setqflist([], 'f') 4035 edit Xerr 4036 exe "caddbuffer" 4037 call assert_equal(':caddbuffer (Xerr)', getqflist({'title' : 1}).title) 4038 4039 " :cfile 4040 exe "cfile Xerr" 4041 call assert_equal(':cfile Xerr', getqflist({'title' : 1}).title) 4042 4043 " :cgetfile 4044 exe "cgetfile Xerr" 4045 call assert_equal(':cgetfile Xerr', getqflist({'title' : 1}).title) 4046 4047 " :caddfile 4048 call setqflist([], 'f') 4049 exe "caddfile Xerr" 4050 call assert_equal(':caddfile Xerr', getqflist({'title' : 1}).title) 4051 4052 " :grep 4053 set grepprg=internal 4054 exe "grep F1 Xerr" 4055 call assert_equal(':grep F1 Xerr', getqflist({'title' : 1}).title) 4056 4057 " :grepadd 4058 call setqflist([], 'f') 4059 exe "grepadd F1 Xerr" 4060 call assert_equal(':grepadd F1 Xerr', getqflist({'title' : 1}).title) 4061 set grepprg&vim 4062 4063 " :vimgrep 4064 exe "vimgrep F1 Xerr" 4065 call assert_equal(':vimgrep F1 Xerr', getqflist({'title' : 1}).title) 4066 4067 " :vimgrepadd 4068 call setqflist([], 'f') 4069 exe "vimgrepadd F1 Xerr" 4070 call assert_equal(':vimgrepadd F1 Xerr', getqflist({'title' : 1}).title) 4071 4072 call setqflist(['F1:10:L10'], ' ') 4073 call assert_equal(':setqflist()', getqflist({'title' : 1}).title) 4074 4075 call setqflist([], 'f') 4076 call setqflist(['F1:10:L10'], 'a') 4077 call assert_equal(':setqflist()', getqflist({'title' : 1}).title) 4078 4079 call setqflist([], 'f') 4080 call setqflist(['F1:10:L10'], 'r') 4081 call assert_equal(':setqflist()', getqflist({'title' : 1}).title) 4082 4083 close 4084 call delete('Xerr') 4085 4086 call setqflist([], ' ', {'title' : 'Errors'}) 4087 copen 4088 call assert_equal('Errors', w:quickfix_title) 4089 call setqflist([], 'r', {'items' : [{'filename' : 'a.c', 'lnum' : 10}]}) 4090 call assert_equal('Errors', w:quickfix_title) 4091 cclose 4092endfunc 4093 4094func Test_lbuffer_with_bwipe() 4095 new 4096 new 4097 augroup nasty 4098 au * * bwipe 4099 augroup END 4100 lbuffer 4101 augroup nasty 4102 au! 4103 augroup END 4104endfunc 4105 4106" Test for an autocmd freeing the quickfix/location list when cexpr/lexpr is 4107" running 4108func Xexpr_acmd_freelist(cchar) 4109 call s:setup_commands(a:cchar) 4110 4111 " This was using freed memory. 4112 augroup nasty 4113 au * * call g:Xsetlist([], 'f') 4114 augroup END 4115 Xexpr "x" 4116 augroup nasty 4117 au! 4118 augroup END 4119endfunc 4120 4121func Test_cexpr_acmd_freelist() 4122 call Xexpr_acmd_freelist('c') 4123 call Xexpr_acmd_freelist('l') 4124endfunc 4125 4126" Test for commands that create a new quickfix/location list and jump to the 4127" first error automatically. 4128func Xjumpto_first_error_test(cchar) 4129 call s:setup_commands(a:cchar) 4130 4131 call s:create_test_file('Xtestfile1') 4132 call s:create_test_file('Xtestfile2') 4133 let l = ['Xtestfile1:2:Line2', 'Xtestfile2:4:Line4'] 4134 4135 " Test for cexpr/lexpr 4136 enew 4137 Xexpr l 4138 call assert_equal('Xtestfile1', @%) 4139 call assert_equal(2, line('.')) 4140 4141 " Test for cfile/lfile 4142 enew 4143 call writefile(l, 'Xerr') 4144 Xfile Xerr 4145 call assert_equal('Xtestfile1', @%) 4146 call assert_equal(2, line('.')) 4147 4148 " Test for cbuffer/lbuffer 4149 edit Xerr 4150 Xbuffer 4151 call assert_equal('Xtestfile1', @%) 4152 call assert_equal(2, line('.')) 4153 4154 call delete('Xerr') 4155 call delete('Xtestfile1') 4156 call delete('Xtestfile2') 4157endfunc 4158 4159func Test_jumpto_first_error() 4160 call Xjumpto_first_error_test('c') 4161 call Xjumpto_first_error_test('l') 4162endfunc 4163 4164" Test for a quickfix autocmd changing the quickfix/location list before 4165" jumping to the first error in the new list. 4166func Xautocmd_changelist(cchar) 4167 call s:setup_commands(a:cchar) 4168 4169 " Test for cfile/lfile 4170 call s:create_test_file('Xtestfile1') 4171 call s:create_test_file('Xtestfile2') 4172 Xexpr 'Xtestfile1:2:Line2' 4173 autocmd QuickFixCmdPost * Xolder 4174 call writefile(['Xtestfile2:4:Line4'], 'Xerr') 4175 Xfile Xerr 4176 call assert_equal('Xtestfile2', @%) 4177 call assert_equal(4, line('.')) 4178 autocmd! QuickFixCmdPost 4179 4180 " Test for cbuffer/lbuffer 4181 call g:Xsetlist([], 'f') 4182 Xexpr 'Xtestfile1:2:Line2' 4183 autocmd QuickFixCmdPost * Xolder 4184 call writefile(['Xtestfile2:4:Line4'], 'Xerr') 4185 edit Xerr 4186 Xbuffer 4187 call assert_equal('Xtestfile2', @%) 4188 call assert_equal(4, line('.')) 4189 autocmd! QuickFixCmdPost 4190 4191 " Test for cexpr/lexpr 4192 call g:Xsetlist([], 'f') 4193 Xexpr 'Xtestfile1:2:Line2' 4194 autocmd QuickFixCmdPost * Xolder 4195 Xexpr 'Xtestfile2:4:Line4' 4196 call assert_equal('Xtestfile2', @%) 4197 call assert_equal(4, line('.')) 4198 autocmd! QuickFixCmdPost 4199 4200 " The grepprg may not be set on non-Unix systems 4201 if has('unix') 4202 " Test for grep/lgrep 4203 call g:Xsetlist([], 'f') 4204 Xexpr 'Xtestfile1:2:Line2' 4205 autocmd QuickFixCmdPost * Xolder 4206 silent Xgrep Line5 Xtestfile2 4207 call assert_equal('Xtestfile2', @%) 4208 call assert_equal(5, line('.')) 4209 autocmd! QuickFixCmdPost 4210 endif 4211 4212 " Test for vimgrep/lvimgrep 4213 call g:Xsetlist([], 'f') 4214 Xexpr 'Xtestfile1:2:Line2' 4215 autocmd QuickFixCmdPost * Xolder 4216 silent Xvimgrep Line5 Xtestfile2 4217 call assert_equal('Xtestfile2', @%) 4218 call assert_equal(5, line('.')) 4219 autocmd! QuickFixCmdPost 4220 4221 " Test for autocommands clearing the quickfix list before jumping to the 4222 " first error. This should not result in an error 4223 autocmd QuickFixCmdPost * call g:Xsetlist([], 'r') 4224 let v:errmsg = '' 4225 " Test for cfile/lfile 4226 Xfile Xerr 4227 call assert_true(v:errmsg !~# 'E42:') 4228 " Test for cbuffer/lbuffer 4229 edit Xerr 4230 Xbuffer 4231 call assert_true(v:errmsg !~# 'E42:') 4232 " Test for cexpr/lexpr 4233 Xexpr 'Xtestfile2:4:Line4' 4234 call assert_true(v:errmsg !~# 'E42:') 4235 " Test for grep/lgrep 4236 " The grepprg may not be set on non-Unix systems 4237 if has('unix') 4238 silent Xgrep Line5 Xtestfile2 4239 call assert_true(v:errmsg !~# 'E42:') 4240 endif 4241 " Test for vimgrep/lvimgrep 4242 call assert_fails('silent Xvimgrep Line5 Xtestfile2', 'E480:') 4243 autocmd! QuickFixCmdPost 4244 4245 call delete('Xerr') 4246 call delete('Xtestfile1') 4247 call delete('Xtestfile2') 4248endfunc 4249 4250func Test_autocmd_changelist() 4251 call Xautocmd_changelist('c') 4252 call Xautocmd_changelist('l') 4253endfunc 4254 4255" Tests for the ':filter /pat/ clist' command 4256func Test_filter_clist() 4257 cexpr ['Xfile1:10:10:Line 10', 'Xfile2:15:15:Line 15'] 4258 call assert_equal([' 2 Xfile2:15 col 15: Line 15'], 4259 \ split(execute('filter /Line 15/ clist'), "\n")) 4260 call assert_equal([' 1 Xfile1:10 col 10: Line 10'], 4261 \ split(execute('filter /Xfile1/ clist'), "\n")) 4262 call assert_equal([], split(execute('filter /abc/ clist'), "\n")) 4263 4264 call setqflist([{'module' : 'abc', 'pattern' : 'pat1'}, 4265 \ {'module' : 'pqr', 'pattern' : 'pat2'}], ' ') 4266 call assert_equal([' 2 pqr:pat2: '], 4267 \ split(execute('filter /pqr/ clist'), "\n")) 4268 call assert_equal([' 1 abc:pat1: '], 4269 \ split(execute('filter /pat1/ clist'), "\n")) 4270endfunc 4271 4272" Tests for the "CTRL-W <CR>" command. 4273func Xview_result_split_tests(cchar) 4274 call s:setup_commands(a:cchar) 4275 4276 " Test that "CTRL-W <CR>" in a qf/ll window fails with empty list. 4277 call g:Xsetlist([]) 4278 Xopen 4279 let l:win_count = winnr('$') 4280 call assert_fails('execute "normal! \<C-W>\<CR>"', 'E42:') 4281 call assert_equal(l:win_count, winnr('$')) 4282 Xclose 4283endfunc 4284 4285func Test_view_result_split() 4286 call Xview_result_split_tests('c') 4287 call Xview_result_split_tests('l') 4288endfunc 4289 4290" Test that :cc sets curswant 4291func Test_curswant() 4292 helpgrep quickfix 4293 normal! llll 4294 1cc 4295 call assert_equal(getcurpos()[4], virtcol('.')) 4296 cclose | helpclose 4297endfunc 4298 4299" Test for opening a file from the quickfix window using CTRL-W <Enter> 4300" doesn't leave an empty buffer around. 4301func Test_splitview() 4302 call s:create_test_file('Xtestfile1') 4303 call s:create_test_file('Xtestfile2') 4304 new | only 4305 let last_bufnr = bufnr('Test_sv_1', 1) 4306 let l = ['Xtestfile1:2:Line2', 'Xtestfile2:4:Line4'] 4307 cgetexpr l 4308 copen 4309 let numbufs = len(getbufinfo()) 4310 exe "normal \<C-W>\<CR>" 4311 copen 4312 exe "normal j\<C-W>\<CR>" 4313 " Make sure new empty buffers are not created 4314 call assert_equal(numbufs, len(getbufinfo())) 4315 " Creating a new buffer should use the next available buffer number 4316 call assert_equal(last_bufnr + 4, bufnr("Test_sv_2", 1)) 4317 bwipe Test_sv_1 4318 bwipe Test_sv_2 4319 new | only 4320 4321 " When split opening files from location list window, make sure that two 4322 " windows doesn't refer to the same location list 4323 lgetexpr l 4324 let locid = getloclist(0, {'id' : 0}).id 4325 lopen 4326 exe "normal \<C-W>\<CR>" 4327 call assert_notequal(locid, getloclist(0, {'id' : 0}).id) 4328 call assert_equal(0, getloclist(0, {'winid' : 0}).winid) 4329 new | only 4330 4331 " When split opening files from a helpgrep location list window, a new help 4332 " window should be opened with a copy of the location list. 4333 lhelpgrep window 4334 let locid = getloclist(0, {'id' : 0}).id 4335 lwindow 4336 exe "normal j\<C-W>\<CR>" 4337 call assert_notequal(locid, getloclist(0, {'id' : 0}).id) 4338 call assert_equal(0, getloclist(0, {'winid' : 0}).winid) 4339 new | only 4340 4341 " Using :split or :vsplit from a quickfix window should behave like a :new 4342 " or a :vnew command 4343 copen 4344 split 4345 call assert_equal(3, winnr('$')) 4346 let l = getwininfo() 4347 call assert_equal([0, 0, 1], [l[0].quickfix, l[1].quickfix, l[2].quickfix]) 4348 close 4349 copen 4350 vsplit 4351 let l = getwininfo() 4352 call assert_equal([0, 0, 1], [l[0].quickfix, l[1].quickfix, l[2].quickfix]) 4353 new | only 4354 4355 call delete('Xtestfile1') 4356 call delete('Xtestfile2') 4357endfunc 4358 4359" Test for parsing entries using visual screen column 4360func Test_viscol() 4361 enew 4362 call writefile(["Col1\tCol2\tCol3"], 'Xfile1') 4363 edit Xfile1 4364 4365 " Use byte offset for column number 4366 set efm& 4367 cexpr "Xfile1:1:5:XX\nXfile1:1:9:YY\nXfile1:1:20:ZZ" 4368 call assert_equal([5, 8], [col('.'), virtcol('.')]) 4369 cnext 4370 call assert_equal([9, 12], [col('.'), virtcol('.')]) 4371 cnext 4372 call assert_equal([14, 20], [col('.'), virtcol('.')]) 4373 4374 " Use screen column offset for column number 4375 set efm=%f:%l:%v:%m 4376 cexpr "Xfile1:1:8:XX\nXfile1:1:12:YY\nXfile1:1:20:ZZ" 4377 call assert_equal([5, 8], [col('.'), virtcol('.')]) 4378 cnext 4379 call assert_equal([9, 12], [col('.'), virtcol('.')]) 4380 cnext 4381 call assert_equal([14, 20], [col('.'), virtcol('.')]) 4382 cexpr "Xfile1:1:6:XX\nXfile1:1:15:YY\nXfile1:1:24:ZZ" 4383 call assert_equal([5, 8], [col('.'), virtcol('.')]) 4384 cnext 4385 call assert_equal([10, 16], [col('.'), virtcol('.')]) 4386 cnext 4387 call assert_equal([14, 20], [col('.'), virtcol('.')]) 4388 4389 enew 4390 call writefile(["Col1\täü\töß\tCol4"], 'Xfile1') 4391 4392 " Use byte offset for column number 4393 set efm& 4394 cexpr "Xfile1:1:8:XX\nXfile1:1:11:YY\nXfile1:1:16:ZZ" 4395 call assert_equal([8, 10], [col('.'), virtcol('.')]) 4396 cnext 4397 call assert_equal([11, 17], [col('.'), virtcol('.')]) 4398 cnext 4399 call assert_equal([16, 25], [col('.'), virtcol('.')]) 4400 4401 " Use screen column offset for column number 4402 set efm=%f:%l:%v:%m 4403 cexpr "Xfile1:1:10:XX\nXfile1:1:17:YY\nXfile1:1:25:ZZ" 4404 call assert_equal([8, 10], [col('.'), virtcol('.')]) 4405 cnext 4406 call assert_equal([11, 17], [col('.'), virtcol('.')]) 4407 cnext 4408 call assert_equal([16, 25], [col('.'), virtcol('.')]) 4409 4410 enew | only 4411 set efm& 4412 call delete('Xfile1') 4413endfunc 4414 4415" Test for the quickfix window buffer 4416func Xqfbuf_test(cchar) 4417 call s:setup_commands(a:cchar) 4418 4419 " Quickfix buffer should be reused across closing and opening a quickfix 4420 " window 4421 Xexpr "F1:10:Line10" 4422 Xopen 4423 let qfbnum = bufnr('') 4424 Xclose 4425 " Even after the quickfix window is closed, the buffer should be loaded 4426 call assert_true(bufloaded(qfbnum)) 4427 call assert_true(qfbnum, g:Xgetlist({'qfbufnr' : 0}).qfbufnr) 4428 Xopen 4429 " Buffer should be reused when opening the window again 4430 call assert_equal(qfbnum, bufnr('')) 4431 Xclose 4432 4433 if a:cchar == 'l' 4434 %bwipe 4435 " For a location list, when both the file window and the location list 4436 " window for the list are closed, then the buffer should be freed. 4437 new | only 4438 lexpr "F1:10:Line10" 4439 let wid = win_getid() 4440 lopen 4441 let qfbnum = bufnr('') 4442 call assert_match(qfbnum . ' %a- "\[Location List]"', execute('ls')) 4443 close 4444 " When the location list window is closed, the buffer name should not 4445 " change to 'Quickfix List' 4446 call assert_match(qfbnum . 'u h- "\[Location List]"', execute('ls!')) 4447 call assert_true(bufloaded(qfbnum)) 4448 4449 " After deleting a location list buffer using ":bdelete", opening the 4450 " location list window should mark the buffer as a location list buffer. 4451 exe "bdelete " . qfbnum 4452 lopen 4453 call assert_equal("quickfix", &buftype) 4454 call assert_equal(1, getwininfo(win_getid(winnr()))[0].loclist) 4455 call assert_equal(wid, getloclist(0, {'filewinid' : 0}).filewinid) 4456 call assert_false(&swapfile) 4457 lclose 4458 4459 " When the location list is cleared for the window, the buffer should be 4460 " removed 4461 call setloclist(0, [], 'f') 4462 call assert_false(bufexists(qfbnum)) 4463 call assert_equal(0, getloclist(0, {'qfbufnr' : 0}).qfbufnr) 4464 4465 " When the location list is freed with the location list window open, the 4466 " location list buffer should not be lost. It should be reused when the 4467 " location list is again populated. 4468 lexpr "F1:10:Line10" 4469 lopen 4470 let wid = win_getid() 4471 let qfbnum = bufnr('') 4472 wincmd p 4473 call setloclist(0, [], 'f') 4474 lexpr "F1:10:Line10" 4475 lopen 4476 call assert_equal(wid, win_getid()) 4477 call assert_equal(qfbnum, bufnr('')) 4478 lclose 4479 4480 " When the window with the location list is closed, the buffer should be 4481 " removed 4482 new | only 4483 call assert_false(bufexists(qfbnum)) 4484 endif 4485endfunc 4486 4487func Test_qfbuf() 4488 call Xqfbuf_test('c') 4489 call Xqfbuf_test('l') 4490endfunc 4491 4492" If there is an autocmd to use only one window, then opening the location 4493" list window used to crash Vim. 4494func Test_winonly_autocmd() 4495 call s:create_test_file('Xtest1') 4496 " Autocmd to show only one Vim window at a time 4497 autocmd WinEnter * only 4498 new 4499 " Load the location list 4500 lexpr "Xtest1:5:Line5\nXtest1:10:Line10\nXtest1:15:Line15" 4501 let loclistid = getloclist(0, {'id' : 0}).id 4502 " Open the location list window. Only this window will be shown and the file 4503 " window is closed. 4504 lopen 4505 call assert_equal(loclistid, getloclist(0, {'id' : 0}).id) 4506 " Jump to an entry in the location list and make sure that the cursor is 4507 " positioned correctly. 4508 ll 3 4509 call assert_equal(loclistid, getloclist(0, {'id' : 0}).id) 4510 call assert_equal('Xtest1', @%) 4511 call assert_equal(15, line('.')) 4512 " Cleanup 4513 autocmd! WinEnter 4514 new | only 4515 call delete('Xtest1') 4516endfunc 4517 4518" Test to make sure that an empty quickfix buffer is not reused for loading 4519" a normal buffer. 4520func Test_empty_qfbuf() 4521 enew | only 4522 call writefile(["Test"], 'Xfile1') 4523 call setqflist([], 'f') 4524 copen | only 4525 let qfbuf = bufnr('') 4526 edit Xfile1 4527 call assert_notequal(qfbuf, bufnr('')) 4528 enew 4529 call delete('Xfile1') 4530endfunc 4531 4532" Test for the :cbelow, :cabove, :lbelow and :labove commands. 4533" And for the :cafter, :cbefore, :lafter and :lbefore commands. 4534func Xtest_below(cchar) 4535 call s:setup_commands(a:cchar) 4536 4537 " No quickfix/location list 4538 call assert_fails('Xbelow', 'E42:') 4539 call assert_fails('Xabove', 'E42:') 4540 call assert_fails('Xbefore', 'E42:') 4541 call assert_fails('Xafter', 'E42:') 4542 4543 " Empty quickfix/location list 4544 call g:Xsetlist([]) 4545 call assert_fails('Xbelow', 'E42:') 4546 call assert_fails('Xabove', 'E42:') 4547 call assert_fails('Xbefore', 'E42:') 4548 call assert_fails('Xafter', 'E42:') 4549 4550 call s:create_test_file('X1') 4551 call s:create_test_file('X2') 4552 call s:create_test_file('X3') 4553 call s:create_test_file('X4') 4554 4555 " Invalid entries 4556 edit X1 4557 call g:Xsetlist(["E1", "E2"]) 4558 call assert_fails('Xbelow', 'E42:') 4559 call assert_fails('Xabove', 'E42:') 4560 call assert_fails('3Xbelow', 'E42:') 4561 call assert_fails('4Xabove', 'E42:') 4562 call assert_fails('Xbefore', 'E42:') 4563 call assert_fails('Xafter', 'E42:') 4564 call assert_fails('3Xbefore', 'E42:') 4565 call assert_fails('4Xafter', 'E42:') 4566 4567 " Test the commands with various arguments 4568 Xexpr ["X1:5:3:L5", "X2:5:2:L5", "X2:10:3:L10", "X2:15:4:L15", "X3:3:5:L3"] 4569 edit +7 X2 4570 Xabove 4571 call assert_equal(['X2', 5], [@%, line('.')]) 4572 call assert_fails('Xabove', 'E553:') 4573 normal 7G 4574 Xbefore 4575 call assert_equal(['X2', 5, 2], [@%, line('.'), col('.')]) 4576 call assert_fails('Xbefore', 'E553:') 4577 4578 normal 2j 4579 Xbelow 4580 call assert_equal(['X2', 10], [@%, line('.')]) 4581 normal 7G 4582 Xafter 4583 call assert_equal(['X2', 10, 3], [@%, line('.'), col('.')]) 4584 4585 " Last error in this file 4586 Xbelow 99 4587 call assert_equal(['X2', 15], [@%, line('.')]) 4588 call assert_fails('Xbelow', 'E553:') 4589 normal gg 4590 Xafter 99 4591 call assert_equal(['X2', 15, 4], [@%, line('.'), col('.')]) 4592 call assert_fails('Xafter', 'E553:') 4593 4594 " First error in this file 4595 Xabove 99 4596 call assert_equal(['X2', 5], [@%, line('.')]) 4597 call assert_fails('Xabove', 'E553:') 4598 normal G 4599 Xbefore 99 4600 call assert_equal(['X2', 5, 2], [@%, line('.'), col('.')]) 4601 call assert_fails('Xbefore', 'E553:') 4602 4603 normal gg 4604 Xbelow 2 4605 call assert_equal(['X2', 10], [@%, line('.')]) 4606 normal gg 4607 Xafter 2 4608 call assert_equal(['X2', 10, 3], [@%, line('.'), col('.')]) 4609 4610 normal G 4611 Xabove 2 4612 call assert_equal(['X2', 10], [@%, line('.')]) 4613 normal G 4614 Xbefore 2 4615 call assert_equal(['X2', 10, 3], [@%, line('.'), col('.')]) 4616 4617 edit X4 4618 call assert_fails('Xabove', 'E42:') 4619 call assert_fails('Xbelow', 'E42:') 4620 call assert_fails('Xbefore', 'E42:') 4621 call assert_fails('Xafter', 'E42:') 4622 if a:cchar == 'l' 4623 " If a buffer has location list entries from some other window but not 4624 " from the current window, then the commands should fail. 4625 edit X1 | split | call setloclist(0, [], 'f') 4626 call assert_fails('Xabove', 'E776:') 4627 call assert_fails('Xbelow', 'E776:') 4628 call assert_fails('Xbefore', 'E776:') 4629 call assert_fails('Xafter', 'E776:') 4630 close 4631 endif 4632 4633 " Test for lines with multiple quickfix entries 4634 Xexpr ["X1:5:L5", "X2:5:1:L5_1", "X2:5:2:L5_2", "X2:5:3:L5_3", 4635 \ "X2:10:1:L10_1", "X2:10:2:L10_2", "X2:10:3:L10_3", 4636 \ "X2:15:1:L15_1", "X2:15:2:L15_2", "X2:15:3:L15_3", "X3:3:L3"] 4637 edit +1 X2 4638 Xbelow 2 4639 call assert_equal(['X2', 10, 1], [@%, line('.'), col('.')]) 4640 normal 1G 4641 Xafter 2 4642 call assert_equal(['X2', 5, 2], [@%, line('.'), col('.')]) 4643 4644 normal gg 4645 Xbelow 99 4646 call assert_equal(['X2', 15, 1], [@%, line('.'), col('.')]) 4647 normal gg 4648 Xafter 99 4649 call assert_equal(['X2', 15, 3], [@%, line('.'), col('.')]) 4650 4651 normal G 4652 Xabove 2 4653 call assert_equal(['X2', 10, 1], [@%, line('.'), col('.')]) 4654 normal G 4655 Xbefore 2 4656 call assert_equal(['X2', 15, 2], [@%, line('.'), col('.')]) 4657 4658 normal G 4659 Xabove 99 4660 call assert_equal(['X2', 5, 1], [@%, line('.'), col('.')]) 4661 normal G 4662 Xbefore 99 4663 call assert_equal(['X2', 5, 1], [@%, line('.'), col('.')]) 4664 4665 normal 10G 4666 Xabove 4667 call assert_equal(['X2', 5, 1], [@%, line('.'), col('.')]) 4668 normal 10G$ 4669 2Xbefore 4670 call assert_equal(['X2', 10, 2], [@%, line('.'), col('.')]) 4671 4672 normal 10G 4673 Xbelow 4674 call assert_equal(['X2', 15, 1], [@%, line('.'), col('.')]) 4675 normal 9G 4676 5Xafter 4677 call assert_equal(['X2', 15, 2], [@%, line('.'), col('.')]) 4678 4679 " Invalid range 4680 if a:cchar == 'c' 4681 call assert_fails('-2cbelow', 'E16:') 4682 call assert_fails('-2cafter', 'E16:') 4683 else 4684 call assert_fails('-2lbelow', 'E16:') 4685 call assert_fails('-2lafter', 'E16:') 4686 endif 4687 4688 call delete('X1') 4689 call delete('X2') 4690 call delete('X3') 4691 call delete('X4') 4692endfunc 4693 4694func Test_cbelow() 4695 call Xtest_below('c') 4696 call Xtest_below('l') 4697endfunc 4698 4699func Test_quickfix_count() 4700 let commands = [ 4701 \ 'cNext', 4702 \ 'cNfile', 4703 \ 'cabove', 4704 \ 'cbelow', 4705 \ 'cfirst', 4706 \ 'clast', 4707 \ 'cnewer', 4708 \ 'cnext', 4709 \ 'cnfile', 4710 \ 'colder', 4711 \ 'cprevious', 4712 \ 'crewind', 4713 \ 4714 \ 'lNext', 4715 \ 'lNfile', 4716 \ 'labove', 4717 \ 'lbelow', 4718 \ 'lfirst', 4719 \ 'llast', 4720 \ 'lnewer', 4721 \ 'lnext', 4722 \ 'lnfile', 4723 \ 'lolder', 4724 \ 'lprevious', 4725 \ 'lrewind', 4726 \ ] 4727 for cmd in commands 4728 call assert_fails('-1' .. cmd, 'E16:') 4729 call assert_fails('.' .. cmd, 'E16:') 4730 call assert_fails('%' .. cmd, 'E16:') 4731 call assert_fails('$' .. cmd, 'E16:') 4732 endfor 4733endfunc 4734 4735" Test for aborting quickfix commands using QuickFixCmdPre 4736func Xtest_qfcmd_abort(cchar) 4737 call s:setup_commands(a:cchar) 4738 4739 call g:Xsetlist([], 'f') 4740 4741 " cexpr/lexpr 4742 let e = '' 4743 try 4744 Xexpr ["F1:10:Line10", "F2:20:Line20"] 4745 catch /.*/ 4746 let e = v:exception 4747 endtry 4748 call assert_equal('AbortCmd', e) 4749 call assert_equal(0, g:Xgetlist({'nr' : '$'}).nr) 4750 4751 " cfile/lfile 4752 call writefile(["F1:10:Line10", "F2:20:Line20"], 'Xfile1') 4753 let e = '' 4754 try 4755 Xfile Xfile1 4756 catch /.*/ 4757 let e = v:exception 4758 endtry 4759 call assert_equal('AbortCmd', e) 4760 call assert_equal(0, g:Xgetlist({'nr' : '$'}).nr) 4761 call delete('Xfile1') 4762 4763 " cgetbuffer/lgetbuffer 4764 enew! 4765 call append(0, ["F1:10:Line10", "F2:20:Line20"]) 4766 let e = '' 4767 try 4768 Xgetbuffer 4769 catch /.*/ 4770 let e = v:exception 4771 endtry 4772 call assert_equal('AbortCmd', e) 4773 call assert_equal(0, g:Xgetlist({'nr' : '$'}).nr) 4774 enew! 4775 4776 " vimgrep/lvimgrep 4777 let e = '' 4778 try 4779 Xvimgrep /func/ test_quickfix.vim 4780 catch /.*/ 4781 let e = v:exception 4782 endtry 4783 call assert_equal('AbortCmd', e) 4784 call assert_equal(0, g:Xgetlist({'nr' : '$'}).nr) 4785 4786 " helpgrep/lhelpgrep 4787 let e = '' 4788 try 4789 Xhelpgrep quickfix 4790 catch /.*/ 4791 let e = v:exception 4792 endtry 4793 call assert_equal('AbortCmd', e) 4794 call assert_equal(0, g:Xgetlist({'nr' : '$'}).nr) 4795 4796 " grep/lgrep 4797 if has('unix') 4798 let e = '' 4799 try 4800 silent Xgrep func test_quickfix.vim 4801 catch /.*/ 4802 let e = v:exception 4803 endtry 4804 call assert_equal('AbortCmd', e) 4805 call assert_equal(0, g:Xgetlist({'nr' : '$'}).nr) 4806 endif 4807endfunc 4808 4809func Test_qfcmd_abort() 4810 augroup QF_Test 4811 au! 4812 autocmd QuickFixCmdPre * throw "AbortCmd" 4813 augroup END 4814 4815 call Xtest_qfcmd_abort('c') 4816 call Xtest_qfcmd_abort('l') 4817 4818 augroup QF_Test 4819 au! 4820 augroup END 4821endfunc 4822 4823" Test for using a file in one of the parent directories. 4824func Test_search_in_dirstack() 4825 call mkdir('Xtestdir/a/b/c', 'p') 4826 let save_cwd = getcwd() 4827 call writefile(["X1_L1", "X1_L2"], 'Xtestdir/Xfile1') 4828 call writefile(["X2_L1", "X2_L2"], 'Xtestdir/a/Xfile2') 4829 call writefile(["X3_L1", "X3_L2"], 'Xtestdir/a/b/Xfile3') 4830 call writefile(["X4_L1", "X4_L2"], 'Xtestdir/a/b/c/Xfile4') 4831 4832 let lines = "Entering dir Xtestdir\n" . 4833 \ "Entering dir a\n" . 4834 \ "Entering dir b\n" . 4835 \ "Xfile2:2:X2_L2\n" . 4836 \ "Leaving dir a\n" . 4837 \ "Xfile1:2:X1_L2\n" . 4838 \ "Xfile3:1:X3_L1\n" . 4839 \ "Entering dir c\n" . 4840 \ "Xfile4:2:X4_L2\n" . 4841 \ "Leaving dir c\n" 4842 set efm=%DEntering\ dir\ %f,%XLeaving\ dir\ %f,%f:%l:%m 4843 cexpr lines .. "Leaving dir Xtestdir|\n" | let next = 1 4844 call assert_equal(11, getqflist({'size' : 0}).size) 4845 call assert_equal(4, getqflist({'idx' : 0}).idx) 4846 call assert_equal('X2_L2', getline('.')) 4847 call assert_equal(1, next) 4848 cnext 4849 call assert_equal(6, getqflist({'idx' : 0}).idx) 4850 call assert_equal('X1_L2', getline('.')) 4851 cnext 4852 call assert_equal(7, getqflist({'idx' : 0}).idx) 4853 call assert_equal(1, line('$')) 4854 call assert_equal('', getline(1)) 4855 cnext 4856 call assert_equal(9, getqflist({'idx' : 0}).idx) 4857 call assert_equal(1, line('$')) 4858 call assert_equal('', getline(1)) 4859 4860 set efm& 4861 exe 'cd ' . save_cwd 4862 call delete('Xtestdir', 'rf') 4863endfunc 4864 4865" Test for :cquit 4866func Test_cquit() 4867 " Exit Vim with a non-zero value 4868 if RunVim([], ["cquit 7"], '') 4869 call assert_equal(7, v:shell_error) 4870 endif 4871 4872 if RunVim([], ["50cquit"], '') 4873 call assert_equal(50, v:shell_error) 4874 endif 4875 4876 " Exit Vim with default value 4877 if RunVim([], ["cquit"], '') 4878 call assert_equal(1, v:shell_error) 4879 endif 4880 4881 " Exit Vim with zero value 4882 if RunVim([], ["cquit 0"], '') 4883 call assert_equal(0, v:shell_error) 4884 endif 4885 4886 " Exit Vim with negative value 4887 call assert_fails('-3cquit', 'E16:') 4888endfunc 4889 4890" Test for getting a specific item from a quickfix list 4891func Xtest_getqflist_by_idx(cchar) 4892 call s:setup_commands(a:cchar) 4893 " Empty list 4894 call assert_equal([], g:Xgetlist({'idx' : 1, 'items' : 0}).items) 4895 Xexpr ['F1:10:L10', 'F1:20:L20'] 4896 let l = g:Xgetlist({'idx' : 2, 'items' : 0}).items 4897 call assert_equal(bufnr('F1'), l[0].bufnr) 4898 call assert_equal(20, l[0].lnum) 4899 call assert_equal('L20', l[0].text) 4900 call assert_equal([], g:Xgetlist({'idx' : -1, 'items' : 0}).items) 4901 call assert_equal([], g:Xgetlist({'idx' : 3, 'items' : 0}).items) 4902 %bwipe! 4903endfunc 4904 4905func Test_getqflist_by_idx() 4906 call Xtest_getqflist_by_idx('c') 4907 call Xtest_getqflist_by_idx('l') 4908endfunc 4909 4910" Test for the 'quickfixtextfunc' setting 4911func Tqfexpr(info) 4912 if a:info.quickfix 4913 let qfl = getqflist({'id' : a:info.id, 'items' : 1}).items 4914 else 4915 let qfl = getloclist(a:info.winid, {'id' : a:info.id, 'items' : 1}).items 4916 endif 4917 4918 let l = [] 4919 for idx in range(a:info.start_idx - 1, a:info.end_idx - 1) 4920 let e = qfl[idx] 4921 let s = '' 4922 if e.bufnr != 0 4923 let bname = bufname(e.bufnr) 4924 let s ..= fnamemodify(bname, ':.') 4925 endif 4926 let s ..= '-' 4927 let s ..= 'L' .. string(e.lnum) .. 'C' .. string(e.col) .. '-' 4928 let s ..= e.text 4929 call add(l, s) 4930 endfor 4931 4932 return l 4933endfunc 4934 4935func Xtest_qftextfunc(cchar) 4936 call s:setup_commands(a:cchar) 4937 4938 set efm=%f:%l:%c:%m 4939 set quickfixtextfunc=Tqfexpr 4940 call assert_equal('Tqfexpr', &quickfixtextfunc) 4941 call assert_equal('', 4942 \ g:Xgetlist({'quickfixtextfunc' : 1}).quickfixtextfunc) 4943 Xexpr ['F1:10:2:green', 'F1:20:4:blue'] 4944 Xwindow 4945 call assert_equal('F1-L10C2-green', getline(1)) 4946 call assert_equal('F1-L20C4-blue', getline(2)) 4947 Xclose 4948 set quickfixtextfunc&vim 4949 Xwindow 4950 call assert_equal('F1|10 col 2| green', getline(1)) 4951 call assert_equal('F1|20 col 4| blue', getline(2)) 4952 Xclose 4953 set efm& 4954 set quickfixtextfunc& 4955 4956 " Test for per list 'quickfixtextfunc' setting 4957 func PerQfText(info) 4958 if a:info.quickfix 4959 let qfl = getqflist({'id' : a:info.id, 'items' : 1}).items 4960 else 4961 let qfl = getloclist(a:info.winid, {'id' : a:info.id, 'items' : 1}).items 4962 endif 4963 if empty(qfl) 4964 return [] 4965 endif 4966 let l = [] 4967 for idx in range(a:info.start_idx - 1, a:info.end_idx - 1) 4968 call add(l, 'Line ' .. qfl[idx].lnum .. ', Col ' .. qfl[idx].col) 4969 endfor 4970 return l 4971 endfunc 4972 set quickfixtextfunc=Tqfexpr 4973 call g:Xsetlist([], ' ', {'quickfixtextfunc' : "PerQfText"}) 4974 Xaddexpr ['F1:10:2:green', 'F1:20:4:blue'] 4975 Xwindow 4976 call assert_equal('Line 10, Col 2', getline(1)) 4977 call assert_equal('Line 20, Col 4', getline(2)) 4978 Xclose 4979 call assert_equal(function('PerQfText'), 4980 \ g:Xgetlist({'quickfixtextfunc' : 1}).quickfixtextfunc) 4981 " Add entries to the list when the quickfix buffer is hidden 4982 Xaddexpr ['F1:30:6:red'] 4983 Xwindow 4984 call assert_equal('Line 30, Col 6', getline(3)) 4985 Xclose 4986 call g:Xsetlist([], 'r', {'quickfixtextfunc' : ''}) 4987 call assert_equal('', g:Xgetlist({'quickfixtextfunc' : 1}).quickfixtextfunc) 4988 set quickfixtextfunc& 4989 delfunc PerQfText 4990 4991 " Non-existing function 4992 set quickfixtextfunc=Tabc 4993 call assert_fails("Xexpr ['F1:10:2:green', 'F1:20:4:blue']", 'E117:') 4994 call assert_fails("Xwindow", 'E117:') 4995 Xclose 4996 set quickfixtextfunc& 4997 4998 " set option to a non-function 4999 set quickfixtextfunc=[10,\ 20] 5000 call assert_fails("Xexpr ['F1:10:2:green', 'F1:20:4:blue']", 'E117:') 5001 call assert_fails("Xwindow", 'E117:') 5002 Xclose 5003 set quickfixtextfunc& 5004 5005 " set option to a function with different set of arguments 5006 func Xqftext(a, b, c) 5007 return a:a .. a:b .. a:c 5008 endfunc 5009 set quickfixtextfunc=Xqftext 5010 call assert_fails("Xexpr ['F1:10:2:green', 'F1:20:4:blue']", 'E119:') 5011 call assert_fails("Xwindow", 'E119:') 5012 Xclose 5013 5014 " set option to a function that returns a list with non-strings 5015 func Xqftext2(d) 5016 return ['one', [], 'two'] 5017 endfunc 5018 set quickfixtextfunc=Xqftext2 5019 call assert_fails("Xexpr ['F1:10:2:green', 'F1:20:4:blue', 'F1:30:6:red']", 5020 \ 'E730:') 5021 call assert_fails('Xwindow', 'E730:') 5022 call assert_equal(['one', 'F1|20 col 4| blue', 'F1|30 col 6| red'], 5023 \ getline(1, '$')) 5024 Xclose 5025 5026 set quickfixtextfunc& 5027 delfunc Xqftext 5028 delfunc Xqftext2 5029 5030 " set the global option to a lambda function 5031 set quickfixtextfunc={d\ ->\ map(g:Xgetlist({'id'\ :\ d.id,\ 'items'\ :\ 1}).items[d.start_idx-1:d.end_idx-1],\ 'v:val.text')} 5032 Xexpr ['F1:10:2:green', 'F1:20:4:blue'] 5033 Xwindow 5034 call assert_equal(['green', 'blue'], getline(1, '$')) 5035 Xclose 5036 call assert_equal("{d -> map(g:Xgetlist({'id' : d.id, 'items' : 1}).items[d.start_idx-1:d.end_idx-1], 'v:val.text')}", &quickfixtextfunc) 5037 set quickfixtextfunc& 5038 5039 " use a lambda function that returns an empty list 5040 set quickfixtextfunc={d\ ->\ []} 5041 Xexpr ['F1:10:2:green', 'F1:20:4:blue'] 5042 Xwindow 5043 call assert_equal(['F1|10 col 2| green', 'F1|20 col 4| blue'], 5044 \ getline(1, '$')) 5045 Xclose 5046 set quickfixtextfunc& 5047 5048 " use a lambda function that returns a list with empty strings 5049 set quickfixtextfunc={d\ ->\ ['',\ '']} 5050 Xexpr ['F1:10:2:green', 'F1:20:4:blue'] 5051 Xwindow 5052 call assert_equal(['F1|10 col 2| green', 'F1|20 col 4| blue'], 5053 \ getline(1, '$')) 5054 Xclose 5055 set quickfixtextfunc& 5056 5057 " set the per-quickfix list text function to a lambda function 5058 call g:Xsetlist([], ' ', 5059 \ {'quickfixtextfunc' : 5060 \ {d -> map(g:Xgetlist({'id' : d.id, 'items' : 1}).items[d.start_idx-1:d.end_idx-1], 5061 \ "'Line ' .. v:val.lnum .. ', Col ' .. v:val.col")}}) 5062 Xaddexpr ['F1:10:2:green', 'F1:20:4:blue'] 5063 Xwindow 5064 call assert_equal('Line 10, Col 2', getline(1)) 5065 call assert_equal('Line 20, Col 4', getline(2)) 5066 Xclose 5067 call assert_match("function('<lambda>\\d\\+')", string(g:Xgetlist({'quickfixtextfunc' : 1}).quickfixtextfunc)) 5068 call g:Xsetlist([], 'f') 5069endfunc 5070 5071func Test_qftextfunc() 5072 call Xtest_qftextfunc('c') 5073 call Xtest_qftextfunc('l') 5074endfunc 5075 5076" Running :lhelpgrep command more than once in a help window, doesn't jump to 5077" the help topic 5078func Test_lhelpgrep_from_help_window() 5079 call mkdir('Xtestdir/doc', 'p') 5080 call writefile(['window'], 'Xtestdir/doc/a.txt') 5081 call writefile(['buffer'], 'Xtestdir/doc/b.txt') 5082 let save_rtp = &rtp 5083 let &rtp = 'Xtestdir' 5084 lhelpgrep window 5085 lhelpgrep buffer 5086 call assert_equal('b.txt', fnamemodify(@%, ":p:t")) 5087 lhelpgrep window 5088 call assert_equal('a.txt', fnamemodify(@%, ":p:t")) 5089 let &rtp = save_rtp 5090 call delete('Xtestdir', 'rf') 5091 new | only! 5092endfunc 5093 5094" Test for the crash fixed by 7.3.715 5095func Test_setloclist_crash() 5096 %bw! 5097 let g:BufNum = bufnr() 5098 augroup QF_Test 5099 au! 5100 au BufUnload * call setloclist(0, [{'bufnr':g:BufNum, 'lnum':1, 'col':1, 'text': 'tango down'}]) 5101 augroup END 5102 5103 try 5104 lvimgrep /.*/ *.mak 5105 catch /E926:/ 5106 endtry 5107 call assert_equal('tango down', getloclist(0, {'items' : 0}).items[0].text) 5108 call assert_equal(1, getloclist(0, {'size' : 0}).size) 5109 5110 augroup QF_Test 5111 au! 5112 augroup END 5113 unlet g:BufNum 5114 %bw! 5115endfunc 5116 5117" vim: shiftwidth=2 sts=2 expandtab 5118