1" Test for options 2 3source shared.vim 4source check.vim 5source view_util.vim 6 7func Test_whichwrap() 8 set whichwrap=b,s 9 call assert_equal('b,s', &whichwrap) 10 11 set whichwrap+=h,l 12 call assert_equal('b,s,h,l', &whichwrap) 13 14 set whichwrap+=h,l 15 call assert_equal('b,s,h,l', &whichwrap) 16 17 set whichwrap+=h,l 18 call assert_equal('b,s,h,l', &whichwrap) 19 20 set whichwrap=h,h 21 call assert_equal('h', &whichwrap) 22 23 set whichwrap=h,h,h 24 call assert_equal('h', &whichwrap) 25 26 " For compatibility with Vim 3.0 and before, number values are also 27 " supported for 'whichwrap' 28 set whichwrap=1 29 call assert_equal('b', &whichwrap) 30 set whichwrap=2 31 call assert_equal('s', &whichwrap) 32 set whichwrap=4 33 call assert_equal('h,l', &whichwrap) 34 set whichwrap=8 35 call assert_equal('<,>', &whichwrap) 36 set whichwrap=16 37 call assert_equal('[,]', &whichwrap) 38 set whichwrap=31 39 call assert_equal('b,s,h,l,<,>,[,]', &whichwrap) 40 41 set whichwrap& 42endfunc 43 44func Test_isfname() 45 " This used to cause Vim to access uninitialized memory. 46 set isfname= 47 call assert_equal("~X", expand("~X")) 48 set isfname& 49endfunc 50 51func Test_wildchar() 52 " Empty 'wildchar' used to access invalid memory. 53 call assert_fails('set wildchar=', 'E521:') 54 call assert_fails('set wildchar=abc', 'E521:') 55 set wildchar=<Esc> 56 let a=execute('set wildchar?') 57 call assert_equal("\n wildchar=<Esc>", a) 58 set wildchar=27 59 let a=execute('set wildchar?') 60 call assert_equal("\n wildchar=<Esc>", a) 61 set wildchar& 62endfunc 63 64func Test_wildoptions() 65 set wildoptions= 66 set wildoptions+=tagfile 67 set wildoptions+=tagfile 68 call assert_equal('tagfile', &wildoptions) 69endfunc 70 71func Test_options_command() 72 let caught = 'ok' 73 try 74 options 75 catch 76 let caught = v:throwpoint . "\n" . v:exception 77 endtry 78 call assert_equal('ok', caught) 79 80 " Check if the option-window is opened horizontally. 81 wincmd j 82 call assert_notequal('option-window', bufname('')) 83 wincmd k 84 call assert_equal('option-window', bufname('')) 85 " close option-window 86 close 87 88 " Open the option-window vertically. 89 vert options 90 " Check if the option-window is opened vertically. 91 wincmd l 92 call assert_notequal('option-window', bufname('')) 93 wincmd h 94 call assert_equal('option-window', bufname('')) 95 " close option-window 96 close 97 98 " Open the option-window at the top. 99 set splitbelow 100 topleft options 101 call assert_equal(1, winnr()) 102 close 103 104 " Open the option-window at the bottom. 105 set nosplitbelow 106 botright options 107 call assert_equal(winnr('$'), winnr()) 108 close 109 set splitbelow& 110 111 " Open the option-window in a new tab. 112 tab options 113 " Check if the option-window is opened in a tab. 114 normal gT 115 call assert_notequal('option-window', bufname('')) 116 normal gt 117 call assert_equal('option-window', bufname('')) 118 " close option-window 119 close 120 121 " Open the options window browse 122 if has('browse') 123 browse set 124 call assert_equal('option-window', bufname('')) 125 close 126 endif 127endfunc 128 129func Test_path_keep_commas() 130 " Test that changing 'path' keeps two commas. 131 set path=foo,,bar 132 set path-=bar 133 set path+=bar 134 call assert_equal('foo,,bar', &path) 135 136 set path& 137endfunc 138 139func Test_signcolumn() 140 CheckFeature signs 141 call assert_equal("auto", &signcolumn) 142 set signcolumn=yes 143 set signcolumn=no 144 call assert_fails('set signcolumn=nope') 145endfunc 146 147func Test_filetype_valid() 148 set ft=valid_name 149 call assert_equal("valid_name", &filetype) 150 set ft=valid-name 151 call assert_equal("valid-name", &filetype) 152 153 call assert_fails(":set ft=wrong;name", "E474:") 154 call assert_fails(":set ft=wrong\\\\name", "E474:") 155 call assert_fails(":set ft=wrong\\|name", "E474:") 156 call assert_fails(":set ft=wrong/name", "E474:") 157 call assert_fails(":set ft=wrong\\\nname", "E474:") 158 call assert_equal("valid-name", &filetype) 159 160 exe "set ft=trunc\x00name" 161 call assert_equal("trunc", &filetype) 162endfunc 163 164func Test_syntax_valid() 165 CheckFeature syntax 166 set syn=valid_name 167 call assert_equal("valid_name", &syntax) 168 set syn=valid-name 169 call assert_equal("valid-name", &syntax) 170 171 call assert_fails(":set syn=wrong;name", "E474:") 172 call assert_fails(":set syn=wrong\\\\name", "E474:") 173 call assert_fails(":set syn=wrong\\|name", "E474:") 174 call assert_fails(":set syn=wrong/name", "E474:") 175 call assert_fails(":set syn=wrong\\\nname", "E474:") 176 call assert_equal("valid-name", &syntax) 177 178 exe "set syn=trunc\x00name" 179 call assert_equal("trunc", &syntax) 180endfunc 181 182func Test_keymap_valid() 183 CheckFeature keymap 184 call assert_fails(":set kmp=valid_name", "E544:") 185 call assert_fails(":set kmp=valid_name", "valid_name") 186 call assert_fails(":set kmp=valid-name", "E544:") 187 call assert_fails(":set kmp=valid-name", "valid-name") 188 189 call assert_fails(":set kmp=wrong;name", "E474:") 190 call assert_fails(":set kmp=wrong\\\\name", "E474:") 191 call assert_fails(":set kmp=wrong\\|name", "E474:") 192 call assert_fails(":set kmp=wrong/name", "E474:") 193 call assert_fails(":set kmp=wrong\\\nname", "E474:") 194 195 call assert_fails(":set kmp=trunc\x00name", "E544:") 196 call assert_fails(":set kmp=trunc\x00name", "trunc") 197endfunc 198 199func Check_dir_option(name) 200 " Check that it's possible to set the option. 201 exe 'set ' . a:name . '=/usr/share/dict/words' 202 call assert_equal('/usr/share/dict/words', eval('&' . a:name)) 203 exe 'set ' . a:name . '=/usr/share/dict/words,/and/there' 204 call assert_equal('/usr/share/dict/words,/and/there', eval('&' . a:name)) 205 exe 'set ' . a:name . '=/usr/share/dict\ words' 206 call assert_equal('/usr/share/dict words', eval('&' . a:name)) 207 208 " Check rejecting weird characters. 209 call assert_fails("set " . a:name . "=/not&there", "E474:") 210 call assert_fails("set " . a:name . "=/not>there", "E474:") 211 call assert_fails("set " . a:name . "=/not.*there", "E474:") 212endfunc 213 214func Test_cinkeys() 215 " This used to cause invalid memory access 216 set cindent cinkeys=0 217 norm a 218 set cindent& cinkeys& 219endfunc 220 221func Test_dictionary() 222 call Check_dir_option('dictionary') 223endfunc 224 225func Test_thesaurus() 226 call Check_dir_option('thesaurus') 227endfun 228 229func Test_complete() 230 " Trailing single backslash used to cause invalid memory access. 231 set complete=s\ 232 new 233 call feedkeys("i\<C-N>\<Esc>", 'xt') 234 bwipe! 235 call assert_fails('set complete=ix', 'E535:') 236 set complete& 237endfun 238 239func Test_set_completion() 240 call feedkeys(":set di\<C-A>\<C-B>\"\<CR>", 'tx') 241 call assert_equal('"set dictionary diff diffexpr diffopt digraph directory display', @:) 242 243 call feedkeys(":setlocal di\<C-A>\<C-B>\"\<CR>", 'tx') 244 call assert_equal('"setlocal dictionary diff diffexpr diffopt digraph directory display', @:) 245 246 call feedkeys(":setglobal di\<C-A>\<C-B>\"\<CR>", 'tx') 247 call assert_equal('"setglobal dictionary diff diffexpr diffopt digraph directory display', @:) 248 249 " Expand boolan options. When doing :set no<Tab> 250 " vim displays the options names without "no" but completion uses "no...". 251 call feedkeys(":set nodi\<C-A>\<C-B>\"\<CR>", 'tx') 252 call assert_equal('"set nodiff digraph', @:) 253 254 call feedkeys(":set invdi\<C-A>\<C-B>\"\<CR>", 'tx') 255 call assert_equal('"set invdiff digraph', @:) 256 257 " Expand abbreviation of options. 258 call feedkeys(":set ts\<C-A>\<C-B>\"\<CR>", 'tx') 259 call assert_equal('"set tabstop thesaurus ttyscroll', @:) 260 261 " Expand current value 262 call feedkeys(":set fileencodings=\<C-A>\<C-B>\"\<CR>", 'tx') 263 call assert_equal('"set fileencodings=ucs-bom,utf-8,default,latin1', @:) 264 265 call feedkeys(":set fileencodings:\<C-A>\<C-B>\"\<CR>", 'tx') 266 call assert_equal('"set fileencodings:ucs-bom,utf-8,default,latin1', @:) 267 268 " Expand key codes. 269 call feedkeys(":set <H\<C-A>\<C-B>\"\<CR>", 'tx') 270 call assert_equal('"set <Help> <Home>', @:) 271 272 " Expand terminal options. 273 call feedkeys(":set t_A\<C-A>\<C-B>\"\<CR>", 'tx') 274 call assert_equal('"set t_AB t_AF t_AU t_AL', @:) 275 call assert_fails('call feedkeys(":set <t_afoo>=\<C-A>\<CR>", "xt")', 'E474:') 276 277 " Expand directories. 278 call feedkeys(":set cdpath=./\<C-A>\<C-B>\"\<CR>", 'tx') 279 call assert_match(' ./samples/ ', @:) 280 call assert_notmatch(' ./summarize.vim ', @:) 281 282 " Expand files and directories. 283 call feedkeys(":set tags=./\<C-A>\<C-B>\"\<CR>", 'tx') 284 call assert_match(' ./samples/.* ./summarize.vim', @:) 285 286 call feedkeys(":set tags=./\\\\ dif\<C-A>\<C-B>\"\<CR>", 'tx') 287 call assert_equal('"set tags=./\\ diff diffexpr diffopt', @:) 288 set tags& 289 290 " Expanding the option names 291 call feedkeys(":set \<Tab>\<C-B>\"\<CR>", 'xt') 292 call assert_equal('"set all', @:) 293 294 " Expanding a second set of option names 295 call feedkeys(":set wrapscan \<Tab>\<C-B>\"\<CR>", 'xt') 296 call assert_equal('"set wrapscan all', @:) 297 298 " Expanding a special keycode 299 call feedkeys(":set <Home>\<Tab>\<C-B>\"\<CR>", 'xt') 300 call assert_equal('"set <Home>', @:) 301 302 " Expanding an invalid special keycode 303 call feedkeys(":set <abcd>\<Tab>\<C-B>\"\<CR>", 'xt') 304 call assert_equal("\"set <abcd>\<Tab>", @:) 305 306 " Expanding a terminal keycode 307 call feedkeys(":set t_AB\<Tab>\<C-B>\"\<CR>", 'xt') 308 call assert_equal("\"set t_AB", @:) 309 310 " Expanding an invalid option name 311 call feedkeys(":set abcde=\<Tab>\<C-B>\"\<CR>", 'xt') 312 call assert_equal("\"set abcde=\<Tab>", @:) 313 314 " Expanding after a = for a boolean option 315 call feedkeys(":set wrapscan=\<Tab>\<C-B>\"\<CR>", 'xt') 316 call assert_equal("\"set wrapscan=\<Tab>", @:) 317 318 " Expanding a numeric option 319 call feedkeys(":set tabstop+=\<Tab>\<C-B>\"\<CR>", 'xt') 320 call assert_equal("\"set tabstop+=" .. &tabstop, @:) 321 322 " Expanding a non-boolean option 323 call feedkeys(":set invtabstop=\<Tab>\<C-B>\"\<CR>", 'xt') 324 call assert_equal("\"set invtabstop=", @:) 325 326 " Expand options for 'spellsuggest' 327 call feedkeys(":set spellsuggest=best,file:xyz\<Tab>\<C-B>\"\<CR>", 'xt') 328 call assert_equal("\"set spellsuggest=best,file:xyz", @:) 329 330 " Expand value for 'key' 331 set key=abcd 332 call feedkeys(":set key=\<Tab>\<C-B>\"\<CR>", 'xt') 333 call assert_equal('"set key=*****', @:) 334 set key= 335 336 " Expand values for 'filetype' 337 call feedkeys(":set filetype=sshdconfi\<Tab>\<C-B>\"\<CR>", 'xt') 338 call assert_equal('"set filetype=sshdconfig', @:) 339 call feedkeys(":set filetype=a\<C-A>\<C-B>\"\<CR>", 'xt') 340 call assert_equal('"set filetype=' .. getcompletion('a*', 'filetype')->join(), @:) 341endfunc 342 343func Test_set_errors() 344 call assert_fails('set scroll=-1', 'E49:') 345 call assert_fails('set backupcopy=', 'E474:') 346 call assert_fails('set regexpengine=3', 'E474:') 347 call assert_fails('set history=10001', 'E474:') 348 call assert_fails('set numberwidth=21', 'E474:') 349 call assert_fails('set colorcolumn=-a', 'E474:') 350 call assert_fails('set colorcolumn=a', 'E474:') 351 call assert_fails('set colorcolumn=1,', 'E474:') 352 call assert_fails('set colorcolumn=1;', 'E474:') 353 call assert_fails('set cmdheight=-1', 'E487:') 354 call assert_fails('set cmdwinheight=-1', 'E487:') 355 if has('conceal') 356 call assert_fails('set conceallevel=-1', 'E487:') 357 call assert_fails('set conceallevel=4', 'E474:') 358 endif 359 call assert_fails('set helpheight=-1', 'E487:') 360 call assert_fails('set history=-1', 'E487:') 361 call assert_fails('set report=-1', 'E487:') 362 call assert_fails('set shiftwidth=-1', 'E487:') 363 call assert_fails('set sidescroll=-1', 'E487:') 364 call assert_fails('set tabstop=-1', 'E487:') 365 call assert_fails('set textwidth=-1', 'E487:') 366 call assert_fails('set timeoutlen=-1', 'E487:') 367 call assert_fails('set updatecount=-1', 'E487:') 368 call assert_fails('set updatetime=-1', 'E487:') 369 call assert_fails('set winheight=-1', 'E487:') 370 call assert_fails('set tabstop!', 'E488:') 371 call assert_fails('set xxx', 'E518:') 372 call assert_fails('set beautify?', 'E519:') 373 call assert_fails('set undolevels=x', 'E521:') 374 call assert_fails('set tabstop=', 'E521:') 375 call assert_fails('set comments=-', 'E524:') 376 call assert_fails('set comments=a', 'E525:') 377 call assert_fails('set foldmarker=x', 'E536:') 378 call assert_fails('set commentstring=x', 'E537:') 379 call assert_fails('set complete=x', 'E539:') 380 call assert_fails('set rulerformat=%-', 'E539:') 381 call assert_fails('set rulerformat=%(', 'E542:') 382 call assert_fails('set rulerformat=%15(%%', 'E542:') 383 call assert_fails('set statusline=%$', 'E539:') 384 call assert_fails('set statusline=%{', 'E540:') 385 call assert_fails('set statusline=%(', 'E542:') 386 call assert_fails('set statusline=%)', 'E542:') 387 388 if has('cursorshape') 389 " This invalid value for 'guicursor' used to cause Vim to crash. 390 call assert_fails('set guicursor=i-ci,r-cr:h', 'E545:') 391 call assert_fails('set guicursor=i-ci', 'E545:') 392 call assert_fails('set guicursor=x', 'E545:') 393 call assert_fails('set guicursor=x:', 'E546:') 394 call assert_fails('set guicursor=r-cr:horx', 'E548:') 395 call assert_fails('set guicursor=r-cr:hor0', 'E549:') 396 endif 397 if has('mouseshape') 398 call assert_fails('se mouseshape=i-r:x', 'E547:') 399 endif 400 call assert_fails('set backupext=~ patchmode=~', 'E589:') 401 call assert_fails('set winminheight=10 winheight=9', 'E591:') 402 set winminheight& winheight& 403 set winheight=10 winminheight=10 404 call assert_fails('set winheight=9', 'E591:') 405 set winminheight& winheight& 406 call assert_fails('set winminwidth=10 winwidth=9', 'E592:') 407 set winminwidth& winwidth& 408 call assert_fails('set winwidth=9 winminwidth=10', 'E592:') 409 set winwidth& winminwidth& 410 call assert_fails("set showbreak=\x01", 'E595:') 411 call assert_fails('set t_foo=', 'E846:') 412 call assert_fails('set tabstop??', 'E488:') 413 call assert_fails('set wrapscan!!', 'E488:') 414 call assert_fails('set tabstop&&', 'E488:') 415 call assert_fails('set wrapscan<<', 'E488:') 416 call assert_fails('set wrapscan=1', 'E474:') 417 call assert_fails('set autoindent@', 'E488:') 418 call assert_fails('set wildchar=<abc>', 'E474:') 419 call assert_fails('set cmdheight=1a', 'E521:') 420 call assert_fails('set invcmdheight', 'E474:') 421 if has('python') || has('python3') 422 call assert_fails('set pyxversion=6', 'E474:') 423 endif 424 call assert_fails("let &tabstop='ab'", 'E521:') 425 call assert_fails('set spellcapcheck=%\\(', 'E54:') 426 call assert_fails('set sessionoptions=curdir,sesdir', 'E474:') 427 call assert_fails('set foldmarker={{{,', 'E474:') 428 call assert_fails('set sessionoptions=sesdir,curdir', 'E474:') 429 call assert_fails('set listchars=trail:· ambiwidth=double', 'E834:') 430 set listchars& 431 call assert_fails('set fillchars=stl:· ambiwidth=double', 'E835:') 432 set fillchars& 433 call assert_fails('set fileencoding=latin1,utf-8', 'E474:') 434 set nomodifiable 435 call assert_fails('set fileencoding=latin1', 'E21:') 436 set modifiable& 437 call assert_fails('set t_#-&', 'E522:') 438endfunc 439 440func CheckWasSet(name) 441 let verb_cm = execute('verbose set ' .. a:name .. '?') 442 call assert_match('Last set from.*test_options.vim', verb_cm) 443endfunc 444func CheckWasNotSet(name) 445 let verb_cm = execute('verbose set ' .. a:name .. '?') 446 call assert_notmatch('Last set from', verb_cm) 447endfunc 448 449" Must be executed before other tests that set 'term'. 450func Test_000_term_option_verbose() 451 CheckNotGui 452 453 call CheckWasNotSet('t_cm') 454 455 let term_save = &term 456 set term=ansi 457 call CheckWasSet('t_cm') 458 let &term = term_save 459endfunc 460 461func Test_copy_context() 462 setlocal list 463 call CheckWasSet('list') 464 split 465 call CheckWasSet('list') 466 quit 467 setlocal nolist 468 469 set ai 470 call CheckWasSet('ai') 471 set filetype=perl 472 call CheckWasSet('filetype') 473 set fo=tcroq 474 call CheckWasSet('fo') 475 476 split Xsomebuf 477 call CheckWasSet('ai') 478 call CheckWasNotSet('filetype') 479 call CheckWasSet('fo') 480endfunc 481 482func Test_set_ttytype() 483 CheckUnix 484 CheckNotGui 485 486 " Setting 'ttytype' used to cause a double-free when exiting vim and 487 " when vim is compiled with -DEXITFREE. 488 set ttytype=ansi 489 call assert_equal('ansi', &ttytype) 490 call assert_equal(&ttytype, &term) 491 set ttytype=xterm 492 call assert_equal('xterm', &ttytype) 493 call assert_equal(&ttytype, &term) 494 try 495 set ttytype= 496 call assert_report('set ttytype= did not fail') 497 catch /E529/ 498 endtry 499 500 " Some systems accept any terminal name and return dumb settings, 501 " check for failure of finding the entry and for missing 'cm' entry. 502 try 503 set ttytype=xxx 504 call assert_report('set ttytype=xxx did not fail') 505 catch /E522\|E437/ 506 endtry 507 508 set ttytype& 509 call assert_equal(&ttytype, &term) 510 511 if has('gui') && !has('gui_running') 512 call assert_fails('set term=gui', 'E531:') 513 endif 514endfunc 515 516func Test_set_all() 517 set tw=75 518 set iskeyword=a-z,A-Z 519 set nosplitbelow 520 let out = execute('set all') 521 call assert_match('textwidth=75', out) 522 call assert_match('iskeyword=a-z,A-Z', out) 523 call assert_match('nosplitbelow', out) 524 set tw& iskeyword& splitbelow& 525endfunc 526 527func Test_set_one_column() 528 let out_mult = execute('set all')->split("\n") 529 let out_one = execute('set! all')->split("\n") 530 call assert_true(len(out_mult) < len(out_one)) 531endfunc 532 533func Test_set_values() 534 " opt_test.vim is generated from ../optiondefs.h using gen_opt_test.vim 535 if filereadable('opt_test.vim') 536 source opt_test.vim 537 else 538 throw 'Skipped: opt_test.vim does not exist' 539 endif 540endfunc 541 542func Test_renderoptions() 543 " Only do this for Windows Vista and later, fails on Windows XP and earlier. 544 " Doesn't hurt to do this on a non-Windows system. 545 if windowsversion() !~ '^[345]\.' 546 set renderoptions=type:directx 547 set rop=type:directx 548 endif 549endfunc 550 551func ResetIndentexpr() 552 set indentexpr= 553endfunc 554 555func Test_set_indentexpr() 556 " this was causing usage of freed memory 557 set indentexpr=ResetIndentexpr() 558 new 559 call feedkeys("i\<c-f>", 'x') 560 call assert_equal('', &indentexpr) 561 bwipe! 562endfunc 563 564func Test_backupskip() 565 " Option 'backupskip' may contain several comma-separated path 566 " specifications if one or more of the environment variables TMPDIR, TMP, 567 " or TEMP is defined. To simplify testing, convert the string value into a 568 " list. 569 let bsklist = split(&bsk, ',') 570 571 if has("mac") 572 let found = (index(bsklist, '/private/tmp/*') >= 0) 573 call assert_true(found, '/private/tmp not in option bsk: ' . &bsk) 574 elseif has("unix") 575 let found = (index(bsklist, '/tmp/*') >= 0) 576 call assert_true(found, '/tmp not in option bsk: ' . &bsk) 577 endif 578 579 " If our test platform is Windows, the path(s) in option bsk will use 580 " backslash for the path separator and the components could be in short 581 " (8.3) format. As such, we need to replace the backslashes with forward 582 " slashes and convert the path components to long format. The expand() 583 " function will do this but it cannot handle comma-separated paths. This is 584 " why bsk was converted from a string into a list of strings above. 585 " 586 " One final complication is that the wildcard "/*" is at the end of each 587 " path and so expand() might return a list of matching files. To prevent 588 " this, we need to remove the wildcard before calling expand() and then 589 " append it afterwards. 590 if has('win32') 591 let item_nbr = 0 592 while item_nbr < len(bsklist) 593 let path_spec = bsklist[item_nbr] 594 let path_spec = strcharpart(path_spec, 0, strlen(path_spec)-2) 595 let path_spec = substitute(expand(path_spec), '\\', '/', 'g') 596 let bsklist[item_nbr] = path_spec . '/*' 597 let item_nbr += 1 598 endwhile 599 endif 600 601 " Option bsk will also include these environment variables if defined. 602 " If they're defined, verify they appear in the option value. 603 for var in ['$TMPDIR', '$TMP', '$TEMP'] 604 if exists(var) 605 let varvalue = substitute(expand(var), '\\', '/', 'g') 606 let varvalue = substitute(varvalue, '/$', '', '') 607 let varvalue .= '/*' 608 let found = (index(bsklist, varvalue) >= 0) 609 call assert_true(found, var . ' (' . varvalue . ') not in option bsk: ' . &bsk) 610 endif 611 endfor 612 613 " Duplicates from environment variables should be filtered out (option has 614 " P_NODUP). Run this in a separate instance and write v:errors in a file, 615 " so that we see what happens on startup. 616 let after =<< trim [CODE] 617 let bsklist = split(&backupskip, ',') 618 call assert_equal(uniq(copy(bsklist)), bsklist) 619 call writefile(['errors:'] + v:errors, 'Xtestout') 620 qall 621 [CODE] 622 call writefile(after, 'Xafter') 623 let cmd = GetVimProg() . ' --not-a-term -S Xafter --cmd "set enc=utf8"' 624 625 let saveenv = {} 626 for var in ['TMPDIR', 'TMP', 'TEMP'] 627 let saveenv[var] = getenv(var) 628 call setenv(var, '/duplicate/path') 629 endfor 630 631 exe 'silent !' . cmd 632 call assert_equal(['errors:'], readfile('Xtestout')) 633 634 " restore environment variables 635 for var in ['TMPDIR', 'TMP', 'TEMP'] 636 call setenv(var, saveenv[var]) 637 endfor 638 639 call delete('Xtestout') 640 call delete('Xafter') 641 642 " Duplicates should be filtered out (option has P_NODUP) 643 let backupskip = &backupskip 644 set backupskip= 645 set backupskip+=/test/dir 646 set backupskip+=/other/dir 647 set backupskip+=/test/dir 648 call assert_equal('/test/dir,/other/dir', &backupskip) 649 let &backupskip = backupskip 650endfunc 651 652func Test_copy_winopt() 653 set hidden 654 655 " Test copy option from current buffer in window 656 split 657 enew 658 setlocal numberwidth=5 659 wincmd w 660 call assert_equal(4,&numberwidth) 661 bnext 662 call assert_equal(5,&numberwidth) 663 bw! 664 call assert_equal(4,&numberwidth) 665 666 " Test copy value from window that used to be display the buffer 667 split 668 enew 669 setlocal numberwidth=6 670 bnext 671 wincmd w 672 call assert_equal(4,&numberwidth) 673 bnext 674 call assert_equal(6,&numberwidth) 675 bw! 676 677 " Test that if buffer is current, don't use the stale cached value 678 " from the last time the buffer was displayed. 679 split 680 enew 681 setlocal numberwidth=7 682 bnext 683 bnext 684 setlocal numberwidth=8 685 wincmd w 686 call assert_equal(4,&numberwidth) 687 bnext 688 call assert_equal(8,&numberwidth) 689 bw! 690 691 " Test value is not copied if window already has seen the buffer 692 enew 693 split 694 setlocal numberwidth=9 695 bnext 696 setlocal numberwidth=10 697 wincmd w 698 call assert_equal(4,&numberwidth) 699 bnext 700 call assert_equal(4,&numberwidth) 701 bw! 702 703 set hidden& 704endfunc 705 706func Test_shortmess_F() 707 new 708 call assert_match('\[No Name\]', execute('file')) 709 set shortmess+=F 710 call assert_match('\[No Name\]', execute('file')) 711 call assert_match('^\s*$', execute('file foo')) 712 call assert_match('foo', execute('file')) 713 set shortmess-=F 714 call assert_match('bar', execute('file bar')) 715 call assert_match('bar', execute('file')) 716 set shortmess& 717 bwipe 718endfunc 719 720func Test_shortmess_F2() 721 e file1 722 e file2 723 call assert_match('file1', execute('bn', '')) 724 call assert_match('file2', execute('bn', '')) 725 set shortmess+=F 726 call assert_true(empty(execute('bn', ''))) 727 call assert_false(test_getvalue('need_fileinfo')) 728 call assert_true(empty(execute('bn', ''))) 729 call assert_false('need_fileinfo'->test_getvalue()) 730 set hidden 731 call assert_true(empty(execute('bn', ''))) 732 call assert_false(test_getvalue('need_fileinfo')) 733 call assert_true(empty(execute('bn', ''))) 734 call assert_false(test_getvalue('need_fileinfo')) 735 set nohidden 736 call assert_true(empty(execute('bn', ''))) 737 call assert_false(test_getvalue('need_fileinfo')) 738 call assert_true(empty(execute('bn', ''))) 739 call assert_false(test_getvalue('need_fileinfo')) 740 set shortmess& 741 call assert_match('file1', execute('bn', '')) 742 call assert_match('file2', execute('bn', '')) 743 bwipe 744 bwipe 745endfunc 746 747func Test_local_scrolloff() 748 set so=5 749 set siso=7 750 split 751 call assert_equal(5, &so) 752 setlocal so=3 753 call assert_equal(3, &so) 754 wincmd w 755 call assert_equal(5, &so) 756 wincmd w 757 setlocal so< 758 call assert_equal(5, &so) 759 setlocal so=0 760 call assert_equal(0, &so) 761 setlocal so=-1 762 call assert_equal(5, &so) 763 764 call assert_equal(7, &siso) 765 setlocal siso=3 766 call assert_equal(3, &siso) 767 wincmd w 768 call assert_equal(7, &siso) 769 wincmd w 770 setlocal siso< 771 call assert_equal(7, &siso) 772 setlocal siso=0 773 call assert_equal(0, &siso) 774 setlocal siso=-1 775 call assert_equal(7, &siso) 776 777 close 778 set so& 779 set siso& 780endfunc 781 782func Test_writedelay() 783 CheckFunction reltimefloat 784 785 new 786 call setline(1, 'empty') 787 redraw 788 set writedelay=10 789 let start = reltime() 790 call setline(1, repeat('x', 70)) 791 redraw 792 let elapsed = reltimefloat(reltime(start)) 793 set writedelay=0 794 " With 'writedelay' set should take at least 30 * 10 msec 795 call assert_inrange(30 * 0.01, 999.0, elapsed) 796 797 bwipe! 798endfunc 799 800func Test_visualbell() 801 set belloff= 802 set visualbell 803 call assert_beeps('normal 0h') 804 set novisualbell 805 set belloff=all 806endfunc 807 808" Test for the 'write' option 809func Test_write() 810 new 811 call setline(1, ['L1']) 812 set nowrite 813 call assert_fails('write Xfile', 'E142:') 814 set write 815 close! 816endfunc 817 818" Test for 'buftype' option 819func Test_buftype() 820 new 821 call setline(1, ['L1']) 822 set buftype=nowrite 823 call assert_fails('write', 'E382:') 824 825 for val in ['', 'nofile', 'nowrite', 'acwrite', 'quickfix', 'help', 'terminal', 'prompt', 'popup'] 826 exe 'set buftype=' .. val 827 call writefile(['something'], 'XBuftype') 828 call assert_fails('write XBuftype', 'E13:', 'with buftype=' .. val) 829 endfor 830 831 call delete('XBuftype') 832 bwipe! 833endfunc 834 835" Test for the 'shell' option 836func Test_shell() 837 CheckUnix 838 let save_shell = &shell 839 set shell= 840 let caught_e91 = 0 841 try 842 shell 843 catch /E91:/ 844 let caught_e91 = 1 845 endtry 846 call assert_equal(1, caught_e91) 847 let &shell = save_shell 848endfunc 849 850" Test for the 'shellquote' option 851func Test_shellquote() 852 CheckUnix 853 set shellquote=# 854 set verbose=20 855 redir => v 856 silent! !echo Hello 857 redir END 858 set verbose& 859 set shellquote& 860 call assert_match(': "#echo Hello#"', v) 861endfunc 862 863" Test for the 'rightleftcmd' option 864func Test_rightleftcmd() 865 CheckFeature rightleft 866 set rightleft 867 set rightleftcmd 868 869 let g:l = [] 870 func AddPos() 871 call add(g:l, screencol()) 872 return '' 873 endfunc 874 cmap <expr> <F2> AddPos() 875 876 call feedkeys("/\<F2>abc\<Left>\<F2>\<Right>\<Right>\<F2>" .. 877 \ "\<Left>\<F2>\<Esc>", 'xt') 878 call assert_equal([&co - 1, &co - 4, &co - 2, &co - 3], g:l) 879 880 cunmap <F2> 881 unlet g:l 882 set rightleftcmd& 883 set rightleft& 884endfunc 885 886" Test for the "debug" option 887func Test_debug_option() 888 set debug=beep 889 exe "normal \<C-c>" 890 call assert_equal('Beep!', Screenline(&lines)) 891 set debug& 892endfunc 893 894" Test for the default CDPATH option 895func Test_opt_default_cdpath() 896 CheckFeature file_in_path 897 let after =<< trim [CODE] 898 call assert_equal(',/path/to/dir1,/path/to/dir2', &cdpath) 899 call writefile(v:errors, 'Xtestout') 900 qall 901 [CODE] 902 if has('unix') 903 let $CDPATH='/path/to/dir1:/path/to/dir2' 904 else 905 let $CDPATH='/path/to/dir1;/path/to/dir2' 906 endif 907 if RunVim([], after, '') 908 call assert_equal([], readfile('Xtestout')) 909 call delete('Xtestout') 910 endif 911endfunc 912 913" Test for setting keycodes using set 914func Test_opt_set_keycode() 915 call assert_fails('set <t_k1=l', 'E474:') 916 call assert_fails('set <Home=l', 'E474:') 917 set <t_k9>=abcd 918 call assert_equal('abcd', &t_k9) 919 set <t_k9>& 920 set <F9>=xyz 921 call assert_equal('xyz', &t_k9) 922 set <t_k9>& 923endfunc 924 925" Test for changing options in a sandbox 926func Test_opt_sandbox() 927 for opt in ['backupdir', 'cdpath', 'exrc'] 928 call assert_fails('sandbox set ' .. opt .. '?', 'E48:') 929 call assert_fails('sandbox let &' .. opt .. ' = 1', 'E48:') 930 endfor 931 call assert_fails('sandbox let &modelineexpr = 1', 'E48:') 932endfunc 933 934" Test for setting an option with local value to global value 935func Test_opt_local_to_global() 936 setglobal equalprg=gprg 937 setlocal equalprg=lprg 938 call assert_equal('gprg', &g:equalprg) 939 call assert_equal('lprg', &l:equalprg) 940 call assert_equal('lprg', &equalprg) 941 set equalprg< 942 call assert_equal('', &l:equalprg) 943 call assert_equal('gprg', &equalprg) 944 setglobal equalprg=gnewprg 945 setlocal equalprg=lnewprg 946 setlocal equalprg< 947 call assert_equal('gnewprg', &l:equalprg) 948 call assert_equal('gnewprg', &equalprg) 949 set equalprg& 950 951 " Test for setting the global/local value of a boolean option 952 setglobal autoread 953 setlocal noautoread 954 call assert_false(&autoread) 955 set autoread< 956 call assert_true(&autoread) 957 setglobal noautoread 958 setlocal autoread 959 setlocal autoread< 960 call assert_false(&autoread) 961 set autoread& 962endfunc 963 964" Test for incrementing, decrementing and multiplying a number option value 965func Test_opt_num_op() 966 set shiftwidth=4 967 set sw+=2 968 call assert_equal(6, &sw) 969 set sw-=2 970 call assert_equal(4, &sw) 971 set sw^=2 972 call assert_equal(8, &sw) 973 set shiftwidth& 974endfunc 975 976" Test for setting option values using v:false and v:true 977func Test_opt_boolean() 978 set number& 979 set number 980 call assert_equal(1, &nu) 981 set nonu 982 call assert_equal(0, &nu) 983 let &nu = v:true 984 call assert_equal(1, &nu) 985 let &nu = v:false 986 call assert_equal(0, &nu) 987 set number& 988endfunc 989 990" Test for the 'window' option 991func Test_window_opt() 992 " Needs only one open widow 993 %bw! 994 call setline(1, range(1, 8)) 995 set window=5 996 exe "normal \<C-F>" 997 call assert_equal(4, line('w0')) 998 exe "normal \<C-F>" 999 call assert_equal(7, line('w0')) 1000 exe "normal \<C-F>" 1001 call assert_equal(8, line('w0')) 1002 exe "normal \<C-B>" 1003 call assert_equal(5, line('w0')) 1004 exe "normal \<C-B>" 1005 call assert_equal(2, line('w0')) 1006 exe "normal \<C-B>" 1007 call assert_equal(1, line('w0')) 1008 set window=1 1009 exe "normal gg\<C-F>" 1010 call assert_equal(2, line('w0')) 1011 exe "normal \<C-F>" 1012 call assert_equal(3, line('w0')) 1013 exe "normal \<C-B>" 1014 call assert_equal(2, line('w0')) 1015 exe "normal \<C-B>" 1016 call assert_equal(1, line('w0')) 1017 enew! 1018 set window& 1019endfunc 1020 1021" Test for the 'winminheight' option 1022func Test_opt_winminheight() 1023 only! 1024 let &winheight = &lines + 4 1025 call assert_fails('let &winminheight = &lines + 2', 'E36:') 1026 call assert_true(&winminheight <= &lines) 1027 set winminheight& 1028 set winheight& 1029endfunc 1030 1031func Test_opt_winminheight_term() 1032 CheckRunVimInTerminal 1033 1034 " The tabline should be taken into account. 1035 let lines =<< trim END 1036 set wmh=0 stal=2 1037 below sp | wincmd _ 1038 below sp | wincmd _ 1039 below sp | wincmd _ 1040 below sp 1041 END 1042 call writefile(lines, 'Xwinminheight') 1043 let buf = RunVimInTerminal('-S Xwinminheight', #{rows: 11}) 1044 call term_sendkeys(buf, ":set wmh=1\n") 1045 call WaitForAssert({-> assert_match('E36: Not enough room', term_getline(buf, 11))}) 1046 1047 call StopVimInTerminal(buf) 1048 call delete('Xwinminheight') 1049endfunc 1050 1051func Test_opt_winminheight_term_tabs() 1052 CheckRunVimInTerminal 1053 1054 " The tabline should be taken into account. 1055 let lines =<< trim END 1056 set wmh=0 stal=2 1057 split 1058 split 1059 split 1060 split 1061 tabnew 1062 END 1063 call writefile(lines, 'Xwinminheight') 1064 let buf = RunVimInTerminal('-S Xwinminheight', #{rows: 11}) 1065 call term_sendkeys(buf, ":set wmh=1\n") 1066 call WaitForAssert({-> assert_match('E36: Not enough room', term_getline(buf, 11))}) 1067 1068 call StopVimInTerminal(buf) 1069 call delete('Xwinminheight') 1070endfunc 1071 1072" Test for the 'winminwidth' option 1073func Test_opt_winminwidth() 1074 only! 1075 let &winwidth = &columns + 4 1076 call assert_fails('let &winminwidth = &columns + 2', 'E36:') 1077 call assert_true(&winminwidth <= &columns) 1078 set winminwidth& 1079 set winwidth& 1080endfunc 1081 1082" Test for setting option value containing spaces with isfname+=32 1083func Test_isfname_with_options() 1084 set isfname+=32 1085 setlocal keywordprg=:term\ help.exe 1086 call assert_equal(':term help.exe', &keywordprg) 1087 set isfname& 1088 setlocal keywordprg& 1089endfunc 1090 1091" Test that resetting laststatus does change scroll option 1092func Test_opt_reset_scroll() 1093 CheckRunVimInTerminal 1094 let vimrc =<< trim [CODE] 1095 set scroll=2 1096 set laststatus=2 1097 [CODE] 1098 call writefile(vimrc, 'Xscroll') 1099 let buf = RunVimInTerminal('-S Xscroll', {'rows': 16, 'cols': 45}) 1100 call term_sendkeys(buf, ":verbose set scroll?\n") 1101 call WaitForAssert({-> assert_match('Last set.*window size', term_getline(buf, 15))}) 1102 call assert_match('^\s*scroll=7$', term_getline(buf, 14)) 1103 call StopVimInTerminal(buf) 1104 1105 " clean up 1106 call delete('Xscroll') 1107endfunc 1108 1109" Check that VIM_POSIX env variable influences default value of 'cpo' and 'shm' 1110func Test_VIM_POSIX() 1111 let saved_VIM_POSIX = getenv("VIM_POSIX") 1112 1113 call setenv('VIM_POSIX', "1") 1114 let after =<< trim [CODE] 1115 call writefile([&cpo, &shm], 'X_VIM_POSIX') 1116 qall 1117 [CODE] 1118 if RunVim([], after, '') 1119 call assert_equal(['aAbBcCdDeEfFgHiIjJkKlLmMnoOpPqrRsStuvwWxXyZ$!%*-+<>#{|&/\.;', 1120 \ 'AS'], readfile('X_VIM_POSIX')) 1121 endif 1122 1123 call setenv('VIM_POSIX', v:null) 1124 let after =<< trim [CODE] 1125 call writefile([&cpo, &shm], 'X_VIM_POSIX') 1126 qall 1127 [CODE] 1128 if RunVim([], after, '') 1129 call assert_equal(['aAbBcCdDeEfFgHiIjJkKlLmMnoOpPqrRsStuvwWxXyZ$!%*-+<>;', 1130 \ 'S'], readfile('X_VIM_POSIX')) 1131 endif 1132 1133 call delete('X_VIM_POSIX') 1134 call setenv('VIM_POSIX', saved_VIM_POSIX) 1135endfunc 1136 1137" Test for setting an option to a Vi or Vim default 1138func Test_opt_default() 1139 set formatoptions&vi 1140 call assert_equal('vt', &formatoptions) 1141 set formatoptions&vim 1142 call assert_equal('tcq', &formatoptions) 1143 1144 call assert_equal('ucs-bom,utf-8,default,latin1', &fencs) 1145 set fencs=latin1 1146 set fencs& 1147 call assert_equal('ucs-bom,utf-8,default,latin1', &fencs) 1148 set fencs=latin1 1149 set all& 1150 call assert_equal('ucs-bom,utf-8,default,latin1', &fencs) 1151endfunc 1152 1153" Test for the 'cmdheight' option 1154func Test_cmdheight() 1155 %bw! 1156 let ht = &lines 1157 set cmdheight=9999 1158 call assert_equal(1, winheight(0)) 1159 call assert_equal(ht - 1, &cmdheight) 1160 set cmdheight& 1161endfunc 1162 1163" vim: shiftwidth=2 sts=2 expandtab 1164