1" Tests for startup. 2 3source shared.vim 4source screendump.vim 5source term_util.vim 6source check.vim 7 8" Check that loading startup.vim works. 9func Test_startup_script() 10 set compatible 11 source $VIMRUNTIME/defaults.vim 12 13 call assert_equal(0, &compatible) 14 " Restore some options, so that the following tests doesn't break 15 set nomore 16 set noshowmode 17endfunc 18 19" Verify the order in which plugins are loaded: 20" 1. plugins in non-after directories 21" 2. packages 22" 3. plugins in after directories 23func Test_after_comes_later() 24 CheckFeature packages 25 let before =<< trim [CODE] 26 set nocp viminfo+=nviminfo 27 set guioptions+=M 28 let $HOME = "/does/not/exist" 29 set loadplugins 30 set rtp=Xhere,Xafter,Xanother 31 set packpath=Xhere,Xafter 32 set nomore 33 let g:sequence = "" 34 [CODE] 35 36 let after =<< trim [CODE] 37 redir! > Xtestout 38 scriptnames 39 redir END 40 redir! > Xsequence 41 echo g:sequence 42 redir END 43 quit 44 [CODE] 45 46 call mkdir('Xhere/plugin', 'p') 47 call writefile(['let g:sequence .= "here "'], 'Xhere/plugin/here.vim') 48 call mkdir('Xanother/plugin', 'p') 49 call writefile(['let g:sequence .= "another "'], 'Xanother/plugin/another.vim') 50 call mkdir('Xhere/pack/foo/start/foobar/plugin', 'p') 51 call writefile(['let g:sequence .= "pack "'], 'Xhere/pack/foo/start/foobar/plugin/foo.vim') 52 53 call mkdir('Xafter/plugin', 'p') 54 call writefile(['let g:sequence .= "after "'], 'Xafter/plugin/later.vim') 55 56 if RunVim(before, after, '') 57 58 let lines = readfile('Xtestout') 59 let expected = ['Xbefore.vim', 'here.vim', 'another.vim', 'foo.vim', 'later.vim', 'Xafter.vim'] 60 let found = [] 61 for line in lines 62 for one in expected 63 if line =~ one 64 call add(found, one) 65 endif 66 endfor 67 endfor 68 call assert_equal(expected, found) 69 endif 70 71 call assert_equal('here another pack after', substitute(join(readfile('Xsequence', 1), ''), '\s\+$', '', '')) 72 73 call delete('Xtestout') 74 call delete('Xsequence') 75 call delete('Xhere', 'rf') 76 call delete('Xanother', 'rf') 77 call delete('Xafter', 'rf') 78endfunc 79 80func Test_pack_in_rtp_when_plugins_run() 81 CheckFeature packages 82 let before =<< trim [CODE] 83 set nocp viminfo+=nviminfo 84 set guioptions+=M 85 let $HOME = "/does/not/exist" 86 set loadplugins 87 set rtp=Xhere 88 set packpath=Xhere 89 set nomore 90 [CODE] 91 92 let after = [ 93 \ 'quit', 94 \ ] 95 call mkdir('Xhere/plugin', 'p') 96 call writefile(['redir! > Xtestout', 'silent set runtimepath?', 'silent! call foo#Trigger()', 'redir END'], 'Xhere/plugin/here.vim') 97 call mkdir('Xhere/pack/foo/start/foobar/autoload', 'p') 98 call writefile(['function! foo#Trigger()', 'echo "autoloaded foo"', 'endfunction'], 'Xhere/pack/foo/start/foobar/autoload/foo.vim') 99 100 if RunVim(before, after, '') 101 102 let lines = filter(readfile('Xtestout'), '!empty(v:val)') 103 call assert_match('Xhere[/\\]pack[/\\]foo[/\\]start[/\\]foobar', get(lines, 0)) 104 call assert_match('autoloaded foo', get(lines, 1)) 105 endif 106 107 call delete('Xtestout') 108 call delete('Xhere', 'rf') 109endfunc 110 111func Test_help_arg() 112 " This does not work with a GUI-only binary, such as on MS-Windows. 113 CheckAnyOf Unix NotGui 114 115 if RunVim([], [], '--help >Xtestout') 116 let lines = readfile('Xtestout') 117 call assert_true(len(lines) > 20) 118 call assert_match('Vi IMproved', lines[0]) 119 120 " check if couple of lines are there 121 let found = [] 122 for line in lines 123 if line =~ '-R.*Readonly mode' 124 call add(found, 'Readonly mode') 125 endif 126 " Watch out for a second --version line in the Gnome version. 127 if line =~ '--version.*Print version information and exit' 128 call add(found, "--version") 129 endif 130 endfor 131 call assert_equal(['Readonly mode', '--version'], found) 132 endif 133 call delete('Xtestout') 134endfunc 135 136func Test_compatible_args() 137 let after =<< trim [CODE] 138 call writefile([string(&compatible)], "Xtestout") 139 set viminfo+=nviminfo 140 quit 141 [CODE] 142 143 if RunVim([], after, '-C') 144 let lines = readfile('Xtestout') 145 call assert_equal('1', lines[0]) 146 endif 147 148 if RunVim([], after, '-N') 149 let lines = readfile('Xtestout') 150 call assert_equal('0', lines[0]) 151 endif 152 153 call delete('Xtestout') 154endfunc 155 156" Test the -o[N] and -O[N] arguments to open N windows split 157" horizontally or vertically. 158func Test_o_arg() 159 let after =<< trim [CODE] 160 set cpo&vim 161 call writefile([winnr("$"), 162 \ winheight(1), winheight(2), &lines, 163 \ winwidth(1), winwidth(2), &columns, 164 \ bufname(winbufnr(1)), bufname(winbufnr(2))], 165 \ "Xtestout") 166 qall 167 [CODE] 168 169 if RunVim([], after, '-o2') 170 " Open 2 windows split horizontally. Expect: 171 " - 2 windows 172 " - both windows should have the same or almost the same height 173 " - sum of both windows height (+ 3 for both statusline and Ex command) 174 " should be equal to the number of lines 175 " - both windows should have the same width which should be equal to the 176 " number of columns 177 " - buffer of both windows should have no name 178 let [wn, wh1, wh2, ln, ww1, ww2, cn, bn1, bn2] = readfile('Xtestout') 179 call assert_equal('2', wn) 180 call assert_inrange(0, 1, wh1 - wh2) 181 call assert_equal(string(wh1 + wh2 + 3), ln) 182 call assert_equal(ww1, ww2) 183 call assert_equal(ww1, cn) 184 call assert_equal('', bn1) 185 call assert_equal('', bn2) 186 endif 187 188 if RunVim([], after, '-o foo bar') 189 " Same expectations as for -o2 but buffer names should be foo and bar 190 let [wn, wh1, wh2, ln, ww1, ww2, cn, bn1, bn2] = readfile('Xtestout') 191 call assert_equal('2', wn) 192 call assert_inrange(0, 1, wh1 - wh2) 193 call assert_equal(string(wh1 + wh2 + 3), ln) 194 call assert_equal(ww1, ww2) 195 call assert_equal(ww1, cn) 196 call assert_equal('foo', bn1) 197 call assert_equal('bar', bn2) 198 endif 199 200 if RunVim([], after, '-O2') 201 " Open 2 windows split vertically. Expect: 202 " - 2 windows 203 " - both windows should have the same or almost the same width 204 " - sum of both windows width (+ 1 for the separator) should be equal to 205 " the number of columns 206 " - both windows should have the same height 207 " - window height (+ 2 for the statusline and Ex command) should be equal 208 " to the number of lines 209 " - buffer of both windows should have no name 210 let [wn, wh1, wh2, ln, ww1, ww2, cn, bn1, bn2] = readfile('Xtestout') 211 call assert_equal('2', wn) 212 call assert_inrange(0, 1, ww1 - ww2) 213 call assert_equal(string(ww1 + ww2 + 1), cn) 214 call assert_equal(wh1, wh2) 215 call assert_equal(string(wh1 + 2), ln) 216 call assert_equal('', bn1) 217 call assert_equal('', bn2) 218 endif 219 220 if RunVim([], after, '-O foo bar') 221 " Same expectations as for -O2 but buffer names should be foo and bar 222 let [wn, wh1, wh2, ln, ww1, ww2, cn, bn1, bn2] = readfile('Xtestout') 223 call assert_equal('2', wn) 224 call assert_inrange(0, 1, ww1 - ww2) 225 call assert_equal(string(ww1 + ww2 + 1), cn) 226 call assert_equal(wh1, wh2) 227 call assert_equal(string(wh1 + 2), ln) 228 call assert_equal('foo', bn1) 229 call assert_equal('bar', bn2) 230 endif 231 232 call delete('Xtestout') 233endfunc 234 235" Test the -p[N] argument to open N tabpages. 236func Test_p_arg() 237 let after =<< trim [CODE] 238 call writefile(split(execute("tabs"), "\n"), "Xtestout") 239 qall 240 [CODE] 241 242 if RunVim([], after, '-p2') 243 let lines = readfile('Xtestout') 244 call assert_equal(4, len(lines)) 245 call assert_equal('Tab page 1', lines[0]) 246 call assert_equal('> [No Name]', lines[1]) 247 call assert_equal('Tab page 2', lines[2]) 248 call assert_equal(' [No Name]', lines[3]) 249 endif 250 251 if RunVim([], after, '-p foo bar') 252 let lines = readfile('Xtestout') 253 call assert_equal(4, len(lines)) 254 call assert_equal('Tab page 1', lines[0]) 255 call assert_equal('> foo', lines[1]) 256 call assert_equal('Tab page 2', lines[2]) 257 call assert_equal(' bar', lines[3]) 258 endif 259 260 call delete('Xtestout') 261endfunc 262 263" Test the -V[N] argument to set the 'verbose' option to [N] 264func Test_V_arg() 265 " Can't catch the output of gvim. 266 CheckNotGui 267 268 let out = system(GetVimCommand() . ' --clean -es -X -V0 -c "set verbose?" -cq') 269 call assert_equal(" verbose=0\n", out) 270 271 let out = system(GetVimCommand() . ' --clean -es -X -V2 -c "set verbose?" -cq') 272 call assert_match("sourcing \"$VIMRUNTIME[\\/]defaults\.vim\"\r\nline \\d\\+: sourcing \"[^\"]*runtime[\\/]filetype\.vim\".*\n", out) 273 call assert_match(" verbose=2\n", out) 274 275 let out = system(GetVimCommand() . ' --clean -es -X -V15 -c "set verbose?" -cq') 276 call assert_match("sourcing \"$VIMRUNTIME[\\/]defaults\.vim\"\r\nline 1: \" The default vimrc file\..* verbose=15\n", out) 277endfunc 278 279" Test the '-q [errorfile]' argument. 280func Test_q_arg() 281 CheckFeature quickfix 282 283 let lines =<< trim END 284 /* some file with an error */ 285 main() { 286 functionCall(arg; arg, arg); 287 return 666 288 } 289 END 290 call writefile(lines, 'Xbadfile.c') 291 292 let after =<< trim [CODE] 293 call writefile([&errorfile, string(getpos("."))], "Xtestout") 294 copen 295 w >> Xtestout 296 qall 297 [CODE] 298 299 " Test with default argument '-q'. 300 call assert_equal('errors.err', &errorfile) 301 call writefile(["Xbadfile.c:4:12: error: expected ';' before '}' token"], 'errors.err') 302 if RunVim([], after, '-q') 303 let lines = readfile('Xtestout') 304 call assert_equal(['errors.err', 305 \ '[0, 4, 12, 0]', 306 \ "Xbadfile.c|4 col 12| error: expected ';' before '}' token"], 307 \ lines) 308 endif 309 call delete('Xtestout') 310 call delete('errors.err') 311 312 " Test with explicit argument '-q Xerrors' (with space). 313 call writefile(["Xbadfile.c:4:12: error: expected ';' before '}' token"], 'Xerrors') 314 if RunVim([], after, '-q Xerrors') 315 let lines = readfile('Xtestout') 316 call assert_equal(['Xerrors', 317 \ '[0, 4, 12, 0]', 318 \ "Xbadfile.c|4 col 12| error: expected ';' before '}' token"], 319 \ lines) 320 endif 321 call delete('Xtestout') 322 323 " Test with explicit argument '-qXerrors' (without space). 324 if RunVim([], after, '-qXerrors') 325 let lines = readfile('Xtestout') 326 call assert_equal(['Xerrors', 327 \ '[0, 4, 12, 0]', 328 \ "Xbadfile.c|4 col 12| error: expected ';' before '}' token"], 329 \ lines) 330 endif 331 332 " Test with a non-existing error file (exits with value 3) 333 let out = system(GetVimCommand() .. ' -q xyz.err') 334 call assert_equal(3, v:shell_error) 335 336 call delete('Xbadfile.c') 337 call delete('Xtestout') 338 call delete('Xerrors') 339endfunc 340 341" Test the -V[N]{filename} argument to set the 'verbose' option to N 342" and set 'verbosefile' to filename. 343func Test_V_file_arg() 344 if RunVim([], [], ' --clean -V2Xverbosefile -c "set verbose? verbosefile?" -cq') 345 let out = join(readfile('Xverbosefile'), "\n") 346 call assert_match("sourcing \"$VIMRUNTIME[\\/]defaults\.vim\"\n", out) 347 call assert_match("\n verbose=2\n", out) 348 call assert_match("\n verbosefile=Xverbosefile", out) 349 endif 350 351 call delete('Xverbosefile') 352endfunc 353 354" Test the -m, -M and -R arguments: 355" -m resets 'write' 356" -M resets 'modifiable' and 'write' 357" -R sets 'readonly' 358func Test_m_M_R() 359 let after =<< trim [CODE] 360 call writefile([&write, &modifiable, &readonly, &updatecount], "Xtestout") 361 qall 362 [CODE] 363 364 if RunVim([], after, '') 365 let lines = readfile('Xtestout') 366 call assert_equal(['1', '1', '0', '200'], lines) 367 endif 368 if RunVim([], after, '-m') 369 let lines = readfile('Xtestout') 370 call assert_equal(['0', '1', '0', '200'], lines) 371 endif 372 if RunVim([], after, '-M') 373 let lines = readfile('Xtestout') 374 call assert_equal(['0', '0', '0', '200'], lines) 375 endif 376 if RunVim([], after, '-R') 377 let lines = readfile('Xtestout') 378 call assert_equal(['1', '1', '1', '10000'], lines) 379 endif 380 381 call delete('Xtestout') 382endfunc 383 384" Test the -A, -F and -H arguments (Arabic, Farsi and Hebrew modes). 385func Test_A_F_H_arg() 386 let after =<< trim [CODE] 387 call writefile([&rightleft, &arabic, &fkmap, &hkmap], "Xtestout") 388 qall 389 [CODE] 390 391 " Use silent Ex mode to avoid the hit-Enter prompt for the warning that 392 " 'encoding' is not utf-8. 393 if has('arabic') && &encoding == 'utf-8' && RunVim([], after, '-e -s -A') 394 let lines = readfile('Xtestout') 395 call assert_equal(['1', '1', '0', '0'], lines) 396 endif 397 398 if has('farsi') && RunVim([], after, '-F') 399 let lines = readfile('Xtestout') 400 call assert_equal(['1', '0', '1', '0'], lines) 401 endif 402 403 if has('rightleft') && RunVim([], after, '-H') 404 let lines = readfile('Xtestout') 405 call assert_equal(['1', '0', '0', '1'], lines) 406 endif 407 408 call delete('Xtestout') 409endfunc 410 411" Test the --echo-wid argument (for GTK GUI only). 412func Test_echo_wid() 413 CheckCanRunGui 414 CheckFeature gui_gtk 415 416 if RunVim([], [], '-g --echo-wid -cq >Xtest_echo_wid') 417 let lines = readfile('Xtest_echo_wid') 418 call assert_equal(1, len(lines)) 419 call assert_match('^WID: \d\+$', lines[0]) 420 endif 421 422 call delete('Xtest_echo_wid') 423endfunction 424 425" Test the -reverse and +reverse arguments (for GUI only). 426func Test_reverse() 427 CheckCanRunGui 428 CheckAnyOf Feature:gui_gtk Feature:gui_motif Feature:gui_athena 429 430 let after =<< trim [CODE] 431 call writefile([&background], "Xtest_reverse") 432 qall 433 [CODE] 434 if RunVim([], after, '-f -g -reverse') 435 let lines = readfile('Xtest_reverse') 436 call assert_equal(['dark'], lines) 437 endif 438 if RunVim([], after, '-f -g +reverse') 439 let lines = readfile('Xtest_reverse') 440 call assert_equal(['light'], lines) 441 endif 442 443 call delete('Xtest_reverse') 444endfunc 445 446" Test the -background and -foreground arguments (for GUI only). 447func Test_background_foreground() 448 CheckCanRunGui 449 CheckAnyOf Feature:gui_gtk Feature:gui_motif Feature:gui_athena 450 451 " Is there a better way to check the effect of -background & -foreground 452 " other than merely looking at &background (dark or light)? 453 let after =<< trim [CODE] 454 call writefile([&background], "Xtest_fg_bg") 455 qall 456 [CODE] 457 if RunVim([], after, '-f -g -background darkred -foreground yellow') 458 let lines = readfile('Xtest_fg_bg') 459 call assert_equal(['dark'], lines) 460 endif 461 if RunVim([], after, '-f -g -background ivory -foreground darkgreen') 462 let lines = readfile('Xtest_fg_bg') 463 call assert_equal(['light'], lines) 464 endif 465 466 call delete('Xtest_fg_bg') 467endfunc 468 469" Test the -font argument (for GUI only). 470func Test_font() 471 CheckCanRunGui 472 CheckNotMSWindows 473 474 if has('gui_gtk') 475 let font = 'Courier 14' 476 elseif has('gui_motif') || has('gui_athena') 477 let font = '-misc-fixed-bold-*' 478 else 479 throw 'Skipped: test does not set a valid font for this GUI' 480 endif 481 482 let after =<< trim [CODE] 483 call writefile([&guifont], "Xtest_font") 484 qall 485 [CODE] 486 487 if RunVim([], after, '--nofork -g -font "' .. font .. '"') 488 let lines = readfile('Xtest_font') 489 call assert_equal([font], lines) 490 endif 491 492 call delete('Xtest_font') 493endfunc 494 495" Test the -geometry argument (for GUI only). 496func Test_geometry() 497 CheckCanRunGui 498 CheckAnyOf Feature:gui_gtk Feature:gui_motif Feature:gui_athena 499 500 if has('gui_motif') || has('gui_athena') 501 " FIXME: With GUI Athena or Motif, the value of getwinposx(), 502 " getwinposy() and getwinpos() do not match exactly the 503 " value given in -geometry. Why? 504 " So only check &columns and &lines for those GUIs. 505 let after =<< trim [CODE] 506 call writefile([&columns, &lines], "Xtest_geometry") 507 qall 508 [CODE] 509 if RunVim([], after, '-f -g -geometry 31x13+41+43') 510 let lines = readfile('Xtest_geometry') 511 call assert_equal(['31', '13'], lines) 512 endif 513 else 514 let after =<< trim [CODE] 515 call writefile([&columns, &lines, getwinposx(), getwinposy(), string(getwinpos())], "Xtest_geometry") 516 qall 517 [CODE] 518 if RunVim([], after, '-f -g -geometry 31x13+41+43') 519 let lines = readfile('Xtest_geometry') 520 call assert_equal(['31', '13', '41', '43', '[41, 43]'], lines) 521 endif 522 endif 523 524 call delete('Xtest_geometry') 525endfunc 526 527" Test the -iconic argument (for GUI only). 528func Test_iconic() 529 CheckCanRunGui 530 CheckAnyOf Feature:gui_gtk Feature:gui_motif Feature:gui_athena 531 532 call RunVim([], [], '-f -g -iconic -cq') 533 534 " TODO: currently only start vim iconified, but does not 535 " check that vim is iconified. How could this be checked? 536endfunc 537 538 539func Test_invalid_args() 540 " must be able to get the output of Vim. 541 CheckUnix 542 CheckNotGui 543 544 for opt in ['-Y', '--does-not-exist'] 545 let out = split(system(GetVimCommand() .. ' ' .. opt), "\n") 546 call assert_equal(1, v:shell_error) 547 call assert_match('^VIM - Vi IMproved .* (.*)$', out[0]) 548 call assert_equal('Unknown option argument: "' .. opt .. '"', out[1]) 549 call assert_equal('More info with: "vim -h"', out[2]) 550 endfor 551 552 for opt in ['-c', '-i', '-s', '-t', '-T', '-u', '-U', '-w', '-W', '--cmd', '--startuptime'] 553 let out = split(system(GetVimCommand() .. ' ' .. opt), "\n") 554 call assert_equal(1, v:shell_error) 555 call assert_match('^VIM - Vi IMproved .* (.*)$', out[0]) 556 call assert_equal('Argument missing after: "' .. opt .. '"', out[1]) 557 call assert_equal('More info with: "vim -h"', out[2]) 558 endfor 559 560 if has('clientserver') 561 for opt in ['--remote', '--remote-send', '--remote-silent', '--remote-expr', 562 \ '--remote-tab', '--remote-tab-wait', 563 \ '--remote-tab-wait-silent', '--remote-tab-silent', 564 \ '--remote-wait', '--remote-wait-silent', 565 \ '--servername', 566 \ ] 567 let out = split(system(GetVimCommand() .. ' ' .. opt), "\n") 568 call assert_equal(1, v:shell_error) 569 call assert_match('^VIM - Vi IMproved .* (.*)$', out[0]) 570 call assert_equal('Argument missing after: "' .. opt .. '"', out[1]) 571 call assert_equal('More info with: "vim -h"', out[2]) 572 endfor 573 endif 574 575 if has('gui_gtk') 576 let out = split(system(GetVimCommand() .. ' --display'), "\n") 577 call assert_equal(1, v:shell_error) 578 call assert_match('^VIM - Vi IMproved .* (.*)$', out[0]) 579 call assert_equal('Argument missing after: "--display"', out[1]) 580 call assert_equal('More info with: "vim -h"', out[2]) 581 endif 582 583 if has('xterm_clipboard') 584 let out = split(system(GetVimCommand() .. ' -display'), "\n") 585 call assert_equal(1, v:shell_error) 586 call assert_match('^VIM - Vi IMproved .* (.*)$', out[0]) 587 call assert_equal('Argument missing after: "-display"', out[1]) 588 call assert_equal('More info with: "vim -h"', out[2]) 589 endif 590 591 let out = split(system(GetVimCommand() .. ' -ix'), "\n") 592 call assert_equal(1, v:shell_error) 593 call assert_match('^VIM - Vi IMproved .* (.*)$', out[0]) 594 call assert_equal('Garbage after option argument: "-ix"', out[1]) 595 call assert_equal('More info with: "vim -h"', out[2]) 596 597 let out = split(system(GetVimCommand() .. ' - xxx'), "\n") 598 call assert_equal(1, v:shell_error) 599 call assert_match('^VIM - Vi IMproved .* (.*)$', out[0]) 600 call assert_equal('Too many edit arguments: "xxx"', out[1]) 601 call assert_equal('More info with: "vim -h"', out[2]) 602 603 if has('quickfix') 604 " Detect invalid repeated arguments '-t foo -t foo", '-q foo -q foo'. 605 for opt in ['-t', '-q'] 606 let out = split(system(GetVimCommand() .. repeat(' ' .. opt .. ' foo', 2)), "\n") 607 call assert_equal(1, v:shell_error) 608 call assert_match('^VIM - Vi IMproved .* (.*)$', out[0]) 609 call assert_equal('Too many edit arguments: "' .. opt .. '"', out[1]) 610 call assert_equal('More info with: "vim -h"', out[2]) 611 endfor 612 endif 613 614 for opt in [' -cq', ' --cmd q', ' +', ' -S foo'] 615 let out = split(system(GetVimCommand() .. repeat(opt, 11)), "\n") 616 call assert_equal(1, v:shell_error) 617 " FIXME: The error message given by Vim is not ideal in case of repeated 618 " -S foo since it does not mention -S. 619 call assert_match('^VIM - Vi IMproved .* (.*)$', out[0]) 620 call assert_equal('Too many "+command", "-c command" or "--cmd command" arguments', out[1]) 621 call assert_equal('More info with: "vim -h"', out[2]) 622 endfor 623 624 if has('gui_gtk') 625 for opt in ['--socketid x', '--socketid 0xg'] 626 let out = split(system(GetVimCommand() .. ' ' .. opt), "\n") 627 call assert_equal(1, v:shell_error) 628 call assert_match('^VIM - Vi IMproved .* (.*)$', out[0]) 629 call assert_equal('Invalid argument for: "--socketid"', out[1]) 630 call assert_equal('More info with: "vim -h"', out[2]) 631 endfor 632 endif 633endfunc 634 635func Test_file_args() 636 let after =<< trim [CODE] 637 call writefile(argv(), "Xtestout") 638 qall 639 [CODE] 640 641 if RunVim([], after, '') 642 let lines = readfile('Xtestout') 643 call assert_equal(0, len(lines)) 644 endif 645 646 if RunVim([], after, 'one') 647 let lines = readfile('Xtestout') 648 call assert_equal(1, len(lines)) 649 call assert_equal('one', lines[0]) 650 endif 651 652 if RunVim([], after, 'one two three') 653 let lines = readfile('Xtestout') 654 call assert_equal(3, len(lines)) 655 call assert_equal('one', lines[0]) 656 call assert_equal('two', lines[1]) 657 call assert_equal('three', lines[2]) 658 endif 659 660 if RunVim([], after, 'one -c echo two') 661 let lines = readfile('Xtestout') 662 call assert_equal(2, len(lines)) 663 call assert_equal('one', lines[0]) 664 call assert_equal('two', lines[1]) 665 endif 666 667 if RunVim([], after, 'one -- -c echo two') 668 let lines = readfile('Xtestout') 669 call assert_equal(4, len(lines)) 670 call assert_equal('one', lines[0]) 671 call assert_equal('-c', lines[1]) 672 call assert_equal('echo', lines[2]) 673 call assert_equal('two', lines[3]) 674 endif 675 676 call delete('Xtestout') 677endfunc 678 679func Test_startuptime() 680 CheckFeature startuptime 681 let after = ['qall'] 682 if RunVim([], after, '--startuptime Xtestout one') 683 let lines = readfile('Xtestout') 684 let expected = ['--- VIM STARTING ---', 'parsing arguments', 685 \ 'shell init', 'inits 3', 'start termcap', 'opening buffers'] 686 let found = [] 687 for line in lines 688 for exp in expected 689 if line =~ exp 690 call add(found, exp) 691 endif 692 endfor 693 endfor 694 call assert_equal(expected, found) 695 endif 696 call delete('Xtestout') 697endfunc 698 699func Test_read_stdin() 700 let after =<< trim [CODE] 701 write Xtestout 702 quit! 703 [CODE] 704 705 if RunVimPiped([], after, '-', 'echo something | ') 706 let lines = readfile('Xtestout') 707 " MS-Windows adds a space after the word 708 call assert_equal(['something'], split(lines[0])) 709 endif 710 call delete('Xtestout') 711endfunc 712 713func Test_set_shell() 714 let after =<< trim [CODE] 715 call writefile([&shell], "Xtestout") 716 quit! 717 [CODE] 718 719 if has('win32') 720 let $SHELL = 'C:\with space\cmd.exe' 721 let expected = '"C:\with space\cmd.exe"' 722 else 723 let $SHELL = '/bin/with space/sh' 724 let expected = '/bin/with\ space/sh' 725 endif 726 727 if RunVimPiped([], after, '', '') 728 let lines = readfile('Xtestout') 729 call assert_equal(expected, lines[0]) 730 endif 731 call delete('Xtestout') 732endfunc 733 734func Test_progpath() 735 " Tests normally run with "./vim" or "../vim", these must have been expanded 736 " to a full path. 737 if has('unix') 738 call assert_equal('/', v:progpath[0]) 739 elseif has('win32') 740 call assert_equal(':', v:progpath[1]) 741 call assert_match('[/\\]', v:progpath[2]) 742 endif 743 744 " Only expect "vim" to appear in v:progname. 745 call assert_match('vim\c', v:progname) 746endfunc 747 748func Test_silent_ex_mode() 749 " must be able to get the output of Vim. 750 CheckUnix 751 CheckNotGui 752 753 " This caused an ml_get error. 754 let out = system(GetVimCommand() . '-u NONE -es -c''set verbose=1|h|exe "%norm\<c-y>\<c-d>"'' -c cq') 755 call assert_notmatch('E315:', out) 756endfunc 757 758func Test_default_term() 759 " must be able to get the output of Vim. 760 CheckUnix 761 CheckNotGui 762 763 let save_term = $TERM 764 let $TERM = 'unknownxxx' 765 let out = system(GetVimCommand() . ' -c''set term'' -c cq') 766 call assert_match("defaulting to 'ansi'", out) 767 let $TERM = save_term 768endfunc 769 770func Test_zzz_startinsert() 771 " Test :startinsert 772 call writefile(['123456'], 'Xtestout') 773 let after =<< trim [CODE] 774 :startinsert 775 call feedkeys("foobar\<c-o>:wq\<cr>","t") 776 [CODE] 777 778 if RunVim([], after, 'Xtestout') 779 let lines = readfile('Xtestout') 780 call assert_equal(['foobar123456'], lines) 781 endif 782 " Test :startinsert! 783 call writefile(['123456'], 'Xtestout') 784 let after =<< trim [CODE] 785 :startinsert! 786 call feedkeys("foobar\<c-o>:wq\<cr>","t") 787 [CODE] 788 789 if RunVim([], after, 'Xtestout') 790 let lines = readfile('Xtestout') 791 call assert_equal(['123456foobar'], lines) 792 endif 793 call delete('Xtestout') 794endfunc 795 796func Test_issue_3969() 797 " Can't catch the output of gvim. 798 CheckNotGui 799 800 " Check that message is not truncated. 801 let out = system(GetVimCommand() . ' -es -X -V1 -c "echon ''hello''" -cq') 802 call assert_equal('hello', out) 803endfunc 804 805func Test_start_with_tabs() 806 CheckRunVimInTerminal 807 808 let buf = RunVimInTerminal('-p a b c', {}) 809 call VerifyScreenDump(buf, 'Test_start_with_tabs', {}) 810 811 " clean up 812 call StopVimInTerminal(buf) 813endfunc 814 815func Test_v_argv() 816 " Can't catch the output of gvim. 817 CheckNotGui 818 819 let out = system(GetVimCommand() . ' -es -V1 -X arg1 --cmd "echo v:argv" --cmd q') 820 let list = out->split("', '") 821 call assert_match('vim', list[0]) 822 let idx = index(list, 'arg1') 823 call assert_true(idx > 2) 824 call assert_equal(['arg1', '--cmd', 'echo v:argv', '--cmd', 'q'']'], list[idx:]) 825endfunc 826 827" Test for the "-r" recovery mode option 828func Test_r_arg() 829 " Can't catch the output of gvim. 830 CheckNotGui 831 CheckUnix 832 CheckEnglish 833 let cmd = GetVimCommand() 834 " There can be swap files anywhere, only check for the headers. 835 let expected =<< trim END 836 Swap files found:.* 837 In current directory:.* 838 In directory \~/tmp:.* 839 In directory /var/tmp:.* 840 In directory /tmp:.* 841 END 842 call assert_match(join(expected, ""), system(cmd .. " -r")->substitute("[\r\n]\\+", '', '')) 843endfunc 844 845" Test for the '-t' option to jump to a tag 846func Test_t_arg() 847 let before =<< trim [CODE] 848 set tags=Xtags 849 [CODE] 850 let after =<< trim [CODE] 851 let s = bufname('') .. ':L' .. line('.') .. 'C' .. col('.') 852 call writefile([s], "Xtestout") 853 qall 854 [CODE] 855 856 call writefile(["!_TAG_FILE_ENCODING\tutf-8\t//", 857 \ "first\tXfile1\t/^ \\zsfirst$/", 858 \ "second\tXfile1\t/^ \\zssecond$/", 859 \ "third\tXfile1\t/^ \\zsthird$/"], 860 \ 'Xtags') 861 call writefile([' first', ' second', ' third'], 'Xfile1') 862 863 for t_arg in ['-t second', '-tsecond'] 864 if RunVim(before, after, '-t second') 865 call assert_equal(['Xfile1:L2C5'], readfile('Xtestout'), t_arg) 866 call delete('Xtestout') 867 endif 868 endfor 869 870 call delete('Xtags') 871 call delete('Xfile1') 872endfunc 873 874" Test the '-T' argument which sets the 'term' option. 875func Test_T_arg() 876 CheckNotGui 877 let after =<< trim [CODE] 878 call writefile([&term], "Xtest_T_arg") 879 qall 880 [CODE] 881 882 for t in ['builtin_dumb', 'builtin_ansi'] 883 if RunVim([], after, '-T ' .. t) 884 let lines = readfile('Xtest_T_arg') 885 call assert_equal([t], lines) 886 endif 887 endfor 888 889 call delete('Xtest_T_arg') 890endfunc 891 892" Test the '-x' argument to read/write encrypted files. 893func Test_x_arg() 894 CheckRunVimInTerminal 895 CheckFeature cryptv 896 897 " Create an encrypted file Xtest_x_arg. 898 let buf = RunVimInTerminal('-n -x Xtest_x_arg', #{rows: 10, wait_for_ruler: 0}) 899 call WaitForAssert({-> assert_match('^Enter encryption key: ', term_getline(buf, 10))}) 900 call term_sendkeys(buf, "foo\n") 901 call WaitForAssert({-> assert_match('^Enter same key again: ', term_getline(buf, 10))}) 902 call term_sendkeys(buf, "foo\n") 903 call WaitForAssert({-> assert_match(' All$', term_getline(buf, 10))}) 904 call term_sendkeys(buf, "itest\<Esc>:w\<Enter>") 905 call WaitForAssert({-> assert_match('"Xtest_x_arg" \[New\]\[blowfish2\] 1L, 5B written', 906 \ term_getline(buf, 10))}) 907 call StopVimInTerminal(buf) 908 909 " Read the encrypted file and check that it contains the expected content "test" 910 let buf = RunVimInTerminal('-n -x Xtest_x_arg', #{rows: 10, wait_for_ruler: 0}) 911 call WaitForAssert({-> assert_match('^Enter encryption key: ', term_getline(buf, 10))}) 912 call term_sendkeys(buf, "foo\n") 913 call WaitForAssert({-> assert_match('^Enter same key again: ', term_getline(buf, 10))}) 914 call term_sendkeys(buf, "foo\n") 915 call WaitForAssert({-> assert_match('^test', term_getline(buf, 1))}) 916 call StopVimInTerminal(buf) 917 918 call delete('Xtest_x_arg') 919endfunc 920 921" Test for entering the insert mode on startup 922func Test_start_insertmode() 923 let before =<< trim [CODE] 924 set insertmode 925 [CODE] 926 let after =<< trim [CODE] 927 call writefile(['insertmode=' .. &insertmode], 'Xtestout') 928 qall 929 [CODE] 930 if RunVim(before, after, '') 931 call assert_equal(['insertmode=1'], readfile('Xtestout')) 932 call delete('Xtestout') 933 endif 934endfunc 935 936" Test for enabling the binary mode on startup 937func Test_b_arg() 938 let after =<< trim [CODE] 939 call writefile(['binary=' .. &binary], 'Xtestout') 940 qall 941 [CODE] 942 if RunVim([], after, '-b') 943 call assert_equal(['binary=1'], readfile('Xtestout')) 944 call delete('Xtestout') 945 endif 946endfunc 947 948" Test for enabling the lisp mode on startup 949func Test_l_arg() 950 let after =<< trim [CODE] 951 let s = 'lisp=' .. &lisp .. ', showmatch=' .. &showmatch 952 call writefile([s], 'Xtestout') 953 qall 954 [CODE] 955 if RunVim([], after, '-l') 956 call assert_equal(['lisp=1, showmatch=1'], readfile('Xtestout')) 957 call delete('Xtestout') 958 endif 959endfunc 960 961" Test for specifying a non-existing vimrc file using "-u" 962func Test_missing_vimrc() 963 CheckRunVimInTerminal 964 let after =<< trim [CODE] 965 call assert_match('^E282:', v:errmsg) 966 call writefile(v:errors, 'Xtestout') 967 [CODE] 968 call writefile(after, 'Xafter') 969 970 let cmd = GetVimCommandCleanTerm() . ' -u Xvimrc_missing -S Xafter' 971 let buf = term_start(cmd, {'term_rows' : 10}) 972 call WaitForAssert({-> assert_equal("running", term_getstatus(buf))}) 973 call TermWait(buf) 974 call term_sendkeys(buf, "\n:") 975 call TermWait(buf) 976 call WaitForAssert({-> assert_match(':', term_getline(buf, 10))}) 977 call StopVimInTerminal(buf) 978 call assert_equal([], readfile('Xtestout')) 979 call delete('Xafter') 980 call delete('Xtestout') 981endfunc 982 983" Test for using the $VIMINIT environment variable 984func Test_VIMINIT() 985 let after =<< trim [CODE] 986 call assert_equal(1, exists('viminit_found')) 987 call assert_equal('yes', viminit_found) 988 call writefile(v:errors, 'Xtestout') 989 qall 990 [CODE] 991 call writefile(after, 'Xafter') 992 let cmd = GetVimProg() . ' --not-a-term -S Xafter --cmd "set enc=utf8"' 993 call setenv('VIMINIT', 'let viminit_found="yes"') 994 exe "silent !" . cmd 995 call assert_equal([], readfile('Xtestout')) 996 call delete('Xtestout') 997 call delete('Xafter') 998endfunc 999 1000" Test for using the $EXINIT environment variable 1001func Test_EXINIT() 1002 let after =<< trim [CODE] 1003 call assert_equal(1, exists('exinit_found')) 1004 call assert_equal('yes', exinit_found) 1005 call writefile(v:errors, 'Xtestout') 1006 qall 1007 [CODE] 1008 call writefile(after, 'Xafter') 1009 let cmd = GetVimProg() . ' --not-a-term -S Xafter --cmd "set enc=utf8"' 1010 call setenv('EXINIT', 'let exinit_found="yes"') 1011 exe "silent !" . cmd 1012 call assert_equal([], readfile('Xtestout')) 1013 call delete('Xtestout') 1014 call delete('Xafter') 1015endfunc 1016 1017" Test for using the 'exrc' option 1018func Test_exrc() 1019 let after =<< trim [CODE] 1020 call assert_equal(1, &exrc) 1021 call assert_equal(1, &secure) 1022 call assert_equal(37, exrc_found) 1023 call writefile(v:errors, 'Xtestout') 1024 qall 1025 [CODE] 1026 call mkdir('Xdir') 1027 call writefile(['let exrc_found=37'], 'Xdir/.exrc') 1028 call writefile(after, 'Xdir/Xafter') 1029 let cmd = GetVimProg() . ' --not-a-term -S Xafter --cmd "cd Xdir" --cmd "set enc=utf8 exrc secure"' 1030 exe "silent !" . cmd 1031 call assert_equal([], readfile('Xdir/Xtestout')) 1032 call delete('Xdir', 'rf') 1033endfunc 1034 1035" Test for starting Vim with a non-terminal as input/output 1036func Test_io_not_a_terminal() 1037 " Can't catch the output of gvim. 1038 CheckNotGui 1039 CheckUnix 1040 CheckEnglish 1041 let l = systemlist(GetVimProg() .. ' --ttyfail') 1042 call assert_equal(['Vim: Warning: Output is not to a terminal', 1043 \ 'Vim: Warning: Input is not from a terminal'], l) 1044endfunc 1045 1046" Test for --not-a-term avoiding escape codes. 1047func Test_not_a_term() 1048 CheckUnix 1049 CheckNotGui 1050 1051 if &shellredir =~ '%s' 1052 let redir = printf(&shellredir, 'Xvimout') 1053 else 1054 let redir = &shellredir .. ' Xvimout' 1055 endif 1056 1057 " Without --not-a-term there are a few escape sequences. 1058 " This will take 2 seconds because of the missing --not-a-term 1059 let cmd = GetVimProg() .. ' --cmd quit ' .. redir 1060 exe "silent !" . cmd 1061 call assert_match("\<Esc>", readfile('Xvimout')->join()) 1062 call delete('Xvimout') 1063 1064 " With --not-a-term there are no escape sequences. 1065 let cmd = GetVimProg() .. ' --not-a-term --cmd quit ' .. redir 1066 exe "silent !" . cmd 1067 call assert_notmatch("\<Esc>", readfile('Xvimout')->join()) 1068 call delete('Xvimout') 1069endfunc 1070 1071 1072" Test for the "-w scriptout" argument 1073func Test_w_arg() 1074 " Can't catch the output of gvim. 1075 CheckNotGui 1076 1077 call writefile(["iVim Editor\<Esc>:q!\<CR>"], 'Xscriptin', 'b') 1078 if RunVim([], [], '-s Xscriptin -w Xscriptout') 1079 call assert_equal(["iVim Editor\e:q!\r"], readfile('Xscriptout')) 1080 call delete('Xscriptout') 1081 endif 1082 call delete('Xscriptin') 1083 1084 " Test for failing to open the script output file. This test works only when 1085 " the language is English. 1086 if v:lang == "C" || v:lang =~ '^[Ee]n' 1087 call mkdir("Xdir") 1088 let m = system(GetVimCommand() .. " -w Xdir") 1089 call assert_equal("Cannot open for script output: \"Xdir\"\n", m) 1090 call delete("Xdir", 'rf') 1091 endif 1092 1093 " A number argument sets the 'window' option 1094 call writefile(["iwindow \<C-R>=&window\<CR>\<Esc>:wq! Xresult\<CR>"], 'Xscriptin', 'b') 1095 for w_arg in ['-w 17', '-w17'] 1096 if RunVim([], [], '-s Xscriptin ' .. w_arg) 1097 call assert_equal(["window 17"], readfile('Xresult'), w_arg) 1098 call delete('Xresult') 1099 endif 1100 endfor 1101 call delete('Xscriptin') 1102endfunc 1103 1104" Test for the "-s scriptin" argument 1105func Test_s_arg() 1106 " Can't catch the output of gvim. 1107 CheckNotGui 1108 CheckEnglish 1109 " Test for failing to open the script input file. 1110 let m = system(GetVimCommand() .. " -s abcxyz") 1111 call assert_equal("Cannot open for reading: \"abcxyz\"\n", m) 1112 1113 call writefile([], 'Xinput') 1114 let m = system(GetVimCommand() .. " -s Xinput -s Xinput") 1115 call assert_equal("Attempt to open script file again: \"-s Xinput\"\n", m) 1116 call delete('Xinput') 1117endfunc 1118 1119" Test for the "-n" (no swap file) argument 1120func Test_n_arg() 1121 let after =<< trim [CODE] 1122 call assert_equal(0, &updatecount) 1123 call writefile(v:errors, 'Xtestout') 1124 qall 1125 [CODE] 1126 if RunVim([], after, '-n') 1127 call assert_equal([], readfile('Xtestout')) 1128 call delete('Xtestout') 1129 endif 1130endfunc 1131 1132" Test for the "-h" (help) argument 1133func Test_h_arg() 1134 " Can't catch the output of gvim. 1135 CheckNotGui 1136 let l = systemlist(GetVimProg() .. ' -h') 1137 call assert_match('^VIM - Vi IMproved', l[0]) 1138 let l = systemlist(GetVimProg() .. ' -?') 1139 call assert_match('^VIM - Vi IMproved', l[0]) 1140endfunc 1141 1142" Test for the "-F" (farsi) argument 1143func Test_F_arg() 1144 " Can't catch the output of gvim. 1145 CheckNotGui 1146 let l = systemlist(GetVimProg() .. ' -F') 1147 call assert_match('^E27:', l[0]) 1148endfunc 1149 1150" Test for the "-E" (improved Ex mode) argument 1151func Test_E_arg() 1152 let after =<< trim [CODE] 1153 call assert_equal('cv', mode(1)) 1154 call writefile(v:errors, 'Xtestout') 1155 qall 1156 [CODE] 1157 if RunVim([], after, '-E') 1158 call assert_equal([], readfile('Xtestout')) 1159 call delete('Xtestout') 1160 endif 1161endfunc 1162 1163" Test for the "-D" (debugger) argument 1164func Test_D_arg() 1165 CheckRunVimInTerminal 1166 1167 let cmd = GetVimCommandCleanTerm() .. ' -D' 1168 let buf = term_start(cmd, {'term_rows' : 10}) 1169 call WaitForAssert({-> assert_equal("running", term_getstatus(buf))}) 1170 1171 call WaitForAssert({-> assert_equal('Entering Debug mode. Type "cont" to continue.', 1172 \ term_getline(buf, 7))}) 1173 call WaitForAssert({-> assert_equal('>', term_getline(buf, 10))}) 1174 1175 call StopVimInTerminal(buf) 1176endfunc 1177 1178" Test for too many edit argument errors 1179func Test_too_many_edit_args() 1180 " Can't catch the output of gvim. 1181 CheckNotGui 1182 CheckEnglish 1183 let l = systemlist(GetVimProg() .. ' - -') 1184 call assert_match('^Too many edit arguments: "-"', l[1]) 1185endfunc 1186 1187" Test starting vim with various names: vim, ex, view, evim, etc. 1188func Test_progname() 1189 CheckUnix 1190 1191 call mkdir('Xprogname', 'p') 1192 call writefile(['silent !date', 1193 \ 'call writefile([mode(1), ' 1194 \ .. '&insertmode, &diff, &readonly, &updatecount, ' 1195 \ .. 'join(split(execute("message"), "\n")[1:])], "Xprogname_out")', 1196 \ 'qall'], 'Xprogname_after') 1197 1198 " +---------------------------------------------- progname 1199 " | +--------------------------------- mode(1) 1200 " | | +--------------------------- &insertmode 1201 " | | | +---------------------- &diff 1202 " | | | | +----------------- &readonly 1203 " | | | | | +-------- &updatecount 1204 " | | | | | | +--- :messages 1205 " | | | | | | | 1206 let expectations = { 1207 \ 'vim': ['n', '0', '0', '0', '200', ''], 1208 \ 'gvim': ['n', '0', '0', '0', '200', ''], 1209 \ 'ex': ['ce', '0', '0', '0', '200', ''], 1210 \ 'exim': ['cv', '0', '0', '0', '200', ''], 1211 \ 'view': ['n', '0', '0', '1', '10000', ''], 1212 \ 'gview': ['n', '0', '0', '1', '10000', ''], 1213 \ 'evim': ['n', '1', '0', '0', '200', ''], 1214 \ 'eview': ['n', '1', '0', '1', '10000', ''], 1215 \ 'rvim': ['n', '0', '0', '0', '200', 'line 1: E145: Shell commands and some functionality not allowed in rvim'], 1216 \ 'rgvim': ['n', '0', '0', '0', '200', 'line 1: E145: Shell commands and some functionality not allowed in rvim'], 1217 \ 'rview': ['n', '0', '0', '1', '10000', 'line 1: E145: Shell commands and some functionality not allowed in rvim'], 1218 \ 'rgview': ['n', '0', '0', '1', '10000', 'line 1: E145: Shell commands and some functionality not allowed in rvim'], 1219 \ 'vimdiff': ['n', '0', '1', '0', '200', ''], 1220 \ 'gvimdiff': ['n', '0', '1', '0', '200', '']} 1221 1222 let prognames = ['vim', 'gvim', 'ex', 'exim', 'view', 'gview', 1223 \ 'evim', 'eview', 'rvim', 'rgvim', 'rview', 'rgview', 1224 \ 'vimdiff', 'gvimdiff'] 1225 1226 for progname in prognames 1227 let run_with_gui = (progname =~# 'g') || (has('gui') && (progname ==# 'evim' || progname ==# 'eview')) 1228 1229 if empty($DISPLAY) && run_with_gui 1230 " Can't run gvim, gview (etc.) if $DISPLAY is not setup. 1231 continue 1232 endif 1233 1234 exe 'silent !ln -s -f ' ..exepath(GetVimProg()) .. ' Xprogname/' .. progname 1235 1236 let stdout_stderr = '' 1237 if progname =~# 'g' 1238 let stdout_stderr = system('Xprogname/'..progname..' -f --clean --not-a-term -S Xprogname_after') 1239 else 1240 exe 'sil !Xprogname/'..progname..' -f --clean --not-a-term -S Xprogname_after' 1241 endif 1242 1243 if progname =~# 'g' && !has('gui') 1244 call assert_equal("E25: GUI cannot be used: Not enabled at compile time\n", stdout_stderr, progname) 1245 else 1246 " GUI motif can output some warnings like this: 1247 " Warning: 1248 " Name: subMenu 1249 " Class: XmCascadeButton 1250 " Illegal mnemonic character; Could not convert X KEYSYM to a keycode 1251 " So don't check that stderr is empty with GUI Motif. 1252 if run_with_gui && !has('gui_motif') 1253 call assert_equal('', stdout_stderr, progname) 1254 endif 1255 call assert_equal(expectations[progname], readfile('Xprogname_out'), progname) 1256 endif 1257 1258 call delete('Xprogname/' .. progname) 1259 call delete('Xprogname_out') 1260 endfor 1261 1262 call delete('Xprogname_after') 1263 call delete('Xprogname', 'd') 1264endfunc 1265 1266" vim: shiftwidth=2 sts=2 expandtab 1267