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