Mercurial > vim
view src/testdir/test_options.vim @ 27529:3f7e59eac8f4 v8.2.4292
patch 8.2.4292: test fails
Commit: https://github.com/vim/vim/commit/02a977ea5ee733412011a7f259a4efa0ffc95f1a
Author: Bram Moolenaar <Bram@vim.org>
Date: Thu Feb 3 21:29:39 2022 +0000
patch 8.2.4292: test fails
Problem: Test fails.
Solution: Adjust the expected error number.
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Thu, 03 Feb 2022 22:30:03 +0100 |
parents | c1702fd7e716 |
children | 0a0ad6453e67 |
line wrap: on
line source
" Test for options source shared.vim source check.vim source view_util.vim func Test_whichwrap() set whichwrap=b,s call assert_equal('b,s', &whichwrap) set whichwrap+=h,l call assert_equal('b,s,h,l', &whichwrap) set whichwrap+=h,l call assert_equal('b,s,h,l', &whichwrap) set whichwrap+=h,l call assert_equal('b,s,h,l', &whichwrap) set whichwrap=h,h call assert_equal('h', &whichwrap) set whichwrap=h,h,h call assert_equal('h', &whichwrap) " For compatibility with Vim 3.0 and before, number values are also " supported for 'whichwrap' set whichwrap=1 call assert_equal('b', &whichwrap) set whichwrap=2 call assert_equal('s', &whichwrap) set whichwrap=4 call assert_equal('h,l', &whichwrap) set whichwrap=8 call assert_equal('<,>', &whichwrap) set whichwrap=16 call assert_equal('[,]', &whichwrap) set whichwrap=31 call assert_equal('b,s,h,l,<,>,[,]', &whichwrap) set whichwrap& endfunc func Test_isfname() " This used to cause Vim to access uninitialized memory. set isfname= call assert_equal("~X", expand("~X")) set isfname& endfunc func Test_wildchar() " Empty 'wildchar' used to access invalid memory. call assert_fails('set wildchar=', 'E521:') call assert_fails('set wildchar=abc', 'E521:') set wildchar=<Esc> let a=execute('set wildchar?') call assert_equal("\n wildchar=<Esc>", a) set wildchar=27 let a=execute('set wildchar?') call assert_equal("\n wildchar=<Esc>", a) set wildchar& endfunc func Test_wildoptions() set wildoptions= set wildoptions+=tagfile set wildoptions+=tagfile call assert_equal('tagfile', &wildoptions) endfunc func Test_options_command() let caught = 'ok' try options catch let caught = v:throwpoint . "\n" . v:exception endtry call assert_equal('ok', caught) " Check if the option-window is opened horizontally. wincmd j call assert_notequal('option-window', bufname('')) wincmd k call assert_equal('option-window', bufname('')) " close option-window close " Open the option-window vertically. vert options " Check if the option-window is opened vertically. wincmd l call assert_notequal('option-window', bufname('')) wincmd h call assert_equal('option-window', bufname('')) " close option-window close " Open the option-window at the top. set splitbelow topleft options call assert_equal(1, winnr()) close " Open the option-window at the bottom. set nosplitbelow botright options call assert_equal(winnr('$'), winnr()) close set splitbelow& " Open the option-window in a new tab. tab options " Check if the option-window is opened in a tab. normal gT call assert_notequal('option-window', bufname('')) normal gt call assert_equal('option-window', bufname('')) " close option-window close " Open the options window browse if has('browse') browse set call assert_equal('option-window', bufname('')) close endif endfunc func Test_path_keep_commas() " Test that changing 'path' keeps two commas. set path=foo,,bar set path-=bar set path+=bar call assert_equal('foo,,bar', &path) set path& endfunc func Test_path_too_long() exe 'set path=' .. repeat('x', 10000) call assert_fails('find x', 'E854:') set path& endfunc func Test_signcolumn() CheckFeature signs call assert_equal("auto", &signcolumn) set signcolumn=yes set signcolumn=no call assert_fails('set signcolumn=nope') endfunc func Test_filetype_valid() set ft=valid_name call assert_equal("valid_name", &filetype) set ft=valid-name call assert_equal("valid-name", &filetype) call assert_fails(":set ft=wrong;name", "E474:") call assert_fails(":set ft=wrong\\\\name", "E474:") call assert_fails(":set ft=wrong\\|name", "E474:") call assert_fails(":set ft=wrong/name", "E474:") call assert_fails(":set ft=wrong\\\nname", "E474:") call assert_equal("valid-name", &filetype) exe "set ft=trunc\x00name" call assert_equal("trunc", &filetype) endfunc func Test_syntax_valid() CheckFeature syntax set syn=valid_name call assert_equal("valid_name", &syntax) set syn=valid-name call assert_equal("valid-name", &syntax) call assert_fails(":set syn=wrong;name", "E474:") call assert_fails(":set syn=wrong\\\\name", "E474:") call assert_fails(":set syn=wrong\\|name", "E474:") call assert_fails(":set syn=wrong/name", "E474:") call assert_fails(":set syn=wrong\\\nname", "E474:") call assert_equal("valid-name", &syntax) exe "set syn=trunc\x00name" call assert_equal("trunc", &syntax) endfunc func Test_keymap_valid() CheckFeature keymap call assert_fails(":set kmp=valid_name", "E544:") call assert_fails(":set kmp=valid_name", "valid_name") call assert_fails(":set kmp=valid-name", "E544:") call assert_fails(":set kmp=valid-name", "valid-name") call assert_fails(":set kmp=wrong;name", "E474:") call assert_fails(":set kmp=wrong\\\\name", "E474:") call assert_fails(":set kmp=wrong\\|name", "E474:") call assert_fails(":set kmp=wrong/name", "E474:") call assert_fails(":set kmp=wrong\\\nname", "E474:") call assert_fails(":set kmp=trunc\x00name", "E544:") call assert_fails(":set kmp=trunc\x00name", "trunc") endfunc func Check_dir_option(name) " Check that it's possible to set the option. exe 'set ' . a:name . '=/usr/share/dict/words' call assert_equal('/usr/share/dict/words', eval('&' . a:name)) exe 'set ' . a:name . '=/usr/share/dict/words,/and/there' call assert_equal('/usr/share/dict/words,/and/there', eval('&' . a:name)) exe 'set ' . a:name . '=/usr/share/dict\ words' call assert_equal('/usr/share/dict words', eval('&' . a:name)) " Check rejecting weird characters. call assert_fails("set " . a:name . "=/not&there", "E474:") call assert_fails("set " . a:name . "=/not>there", "E474:") call assert_fails("set " . a:name . "=/not.*there", "E474:") endfunc func Test_cinkeys() " This used to cause invalid memory access set cindent cinkeys=0 norm a set cindent& cinkeys& endfunc func Test_dictionary() call Check_dir_option('dictionary') endfunc func Test_thesaurus() call Check_dir_option('thesaurus') endfun func Test_complete() " Trailing single backslash used to cause invalid memory access. set complete=s\ new call feedkeys("i\<C-N>\<Esc>", 'xt') bwipe! call assert_fails('set complete=ix', 'E535:') set complete& endfun func Test_set_completion() call feedkeys(":set di\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal('"set dictionary diff diffexpr diffopt digraph directory display', @:) call feedkeys(":setlocal di\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal('"setlocal dictionary diff diffexpr diffopt digraph directory display', @:) call feedkeys(":setglobal di\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal('"setglobal dictionary diff diffexpr diffopt digraph directory display', @:) " Expand boolan options. When doing :set no<Tab> " vim displays the options names without "no" but completion uses "no...". call feedkeys(":set nodi\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal('"set nodiff digraph', @:) call feedkeys(":set invdi\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal('"set invdiff digraph', @:) " Expand abbreviation of options. call feedkeys(":set ts\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal('"set tabstop thesaurus thesaurusfunc ttyscroll', @:) " Expand current value call feedkeys(":set fileencodings=\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal('"set fileencodings=ucs-bom,utf-8,default,latin1', @:) call feedkeys(":set fileencodings:\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal('"set fileencodings:ucs-bom,utf-8,default,latin1', @:) " Expand key codes. call feedkeys(":set <H\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal('"set <Help> <Home>', @:) " Expand terminal options. call feedkeys(":set t_A\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal('"set t_AB t_AF t_AU t_AL', @:) call assert_fails('call feedkeys(":set <t_afoo>=\<C-A>\<CR>", "xt")', 'E474:') " Expand directories. call feedkeys(":set cdpath=./\<C-A>\<C-B>\"\<CR>", 'tx') call assert_match(' ./samples/ ', @:) call assert_notmatch(' ./summarize.vim ', @:) " Expand files and directories. call feedkeys(":set tags=./\<C-A>\<C-B>\"\<CR>", 'tx') call assert_match(' ./samples/.* ./summarize.vim', @:) call feedkeys(":set tags=./\\\\ dif\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal('"set tags=./\\ diff diffexpr diffopt', @:) set tags& " Expanding the option names call feedkeys(":set \<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"set all', @:) " Expanding a second set of option names call feedkeys(":set wrapscan \<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"set wrapscan all', @:) " Expanding a special keycode call feedkeys(":set <Home>\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"set <Home>', @:) " Expanding an invalid special keycode call feedkeys(":set <abcd>\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal("\"set <abcd>\<Tab>", @:) " Expanding a terminal keycode call feedkeys(":set t_AB\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal("\"set t_AB", @:) " Expanding an invalid option name call feedkeys(":set abcde=\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal("\"set abcde=\<Tab>", @:) " Expanding after a = for a boolean option call feedkeys(":set wrapscan=\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal("\"set wrapscan=\<Tab>", @:) " Expanding a numeric option call feedkeys(":set tabstop+=\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal("\"set tabstop+=" .. &tabstop, @:) " Expanding a non-boolean option call feedkeys(":set invtabstop=\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal("\"set invtabstop=", @:) " Expand options for 'spellsuggest' call feedkeys(":set spellsuggest=best,file:xyz\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal("\"set spellsuggest=best,file:xyz", @:) " Expand value for 'key' set key=abcd call feedkeys(":set key=\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"set key=*****', @:) set key= " Expand values for 'filetype' call feedkeys(":set filetype=sshdconfi\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"set filetype=sshdconfig', @:) call feedkeys(":set filetype=a\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal('"set filetype=' .. getcompletion('a*', 'filetype')->join(), @:) endfunc func Test_set_errors() call assert_fails('set scroll=-1', 'E49:') call assert_fails('set backupcopy=', 'E474:') call assert_fails('set regexpengine=3', 'E474:') call assert_fails('set history=10001', 'E474:') call assert_fails('set numberwidth=21', 'E474:') call assert_fails('set colorcolumn=-a', 'E474:') call assert_fails('set colorcolumn=a', 'E474:') call assert_fails('set colorcolumn=1,', 'E474:') call assert_fails('set colorcolumn=1;', 'E474:') call assert_fails('set cmdheight=-1', 'E487:') call assert_fails('set cmdwinheight=-1', 'E487:') if has('conceal') call assert_fails('set conceallevel=-1', 'E487:') call assert_fails('set conceallevel=4', 'E474:') endif call assert_fails('set helpheight=-1', 'E487:') call assert_fails('set history=-1', 'E487:') call assert_fails('set report=-1', 'E487:') call assert_fails('set shiftwidth=-1', 'E487:') call assert_fails('set sidescroll=-1', 'E487:') call assert_fails('set tabstop=-1', 'E487:') call assert_fails('set tabstop=10000', 'E474:') call assert_fails('set tabstop=5500000000', 'E474:') call assert_fails('set textwidth=-1', 'E487:') call assert_fails('set timeoutlen=-1', 'E487:') call assert_fails('set updatecount=-1', 'E487:') call assert_fails('set updatetime=-1', 'E487:') call assert_fails('set winheight=-1', 'E487:') call assert_fails('set tabstop!', 'E488:') call assert_fails('set xxx', 'E518:') call assert_fails('set beautify?', 'E519:') call assert_fails('set undolevels=x', 'E521:') call assert_fails('set tabstop=', 'E521:') call assert_fails('set comments=-', 'E524:') call assert_fails('set comments=a', 'E525:') call assert_fails('set foldmarker=x', 'E536:') call assert_fails('set commentstring=x', 'E537:') call assert_fails('set complete=x', 'E539:') call assert_fails('set rulerformat=%-', 'E539:') call assert_fails('set rulerformat=%(', 'E542:') call assert_fails('set rulerformat=%15(%%', 'E542:') call assert_fails('set statusline=%$', 'E539:') call assert_fails('set statusline=%{', 'E540:') call assert_fails('set statusline=%(', 'E542:') call assert_fails('set statusline=%)', 'E542:') if has('cursorshape') " This invalid value for 'guicursor' used to cause Vim to crash. call assert_fails('set guicursor=i-ci,r-cr:h', 'E545:') call assert_fails('set guicursor=i-ci', 'E545:') call assert_fails('set guicursor=x', 'E545:') call assert_fails('set guicursor=x:', 'E546:') call assert_fails('set guicursor=r-cr:horx', 'E548:') call assert_fails('set guicursor=r-cr:hor0', 'E549:') endif if has('mouseshape') call assert_fails('se mouseshape=i-r:x', 'E547:') endif call assert_fails('set backupext=~ patchmode=~', 'E589:') call assert_fails('set winminheight=10 winheight=9', 'E591:') set winminheight& winheight& set winheight=10 winminheight=10 call assert_fails('set winheight=9', 'E591:') set winminheight& winheight& call assert_fails('set winminwidth=10 winwidth=9', 'E592:') set winminwidth& winwidth& call assert_fails('set winwidth=9 winminwidth=10', 'E592:') set winwidth& winminwidth& call assert_fails("set showbreak=\x01", 'E595:') call assert_fails('set t_foo=', 'E846:') call assert_fails('set tabstop??', 'E488:') call assert_fails('set wrapscan!!', 'E488:') call assert_fails('set tabstop&&', 'E488:') call assert_fails('set wrapscan<<', 'E488:') call assert_fails('set wrapscan=1', 'E474:') call assert_fails('set autoindent@', 'E488:') call assert_fails('set wildchar=<abc>', 'E474:') call assert_fails('set cmdheight=1a', 'E521:') call assert_fails('set invcmdheight', 'E474:') if has('python') || has('python3') call assert_fails('set pyxversion=6', 'E474:') endif call assert_fails("let &tabstop='ab'", 'E521:') call assert_fails('set spellcapcheck=%\\(', 'E54:') call assert_fails('set sessionoptions=curdir,sesdir', 'E474:') call assert_fails('set foldmarker={{{,', 'E474:') call assert_fails('set sessionoptions=sesdir,curdir', 'E474:') call assert_fails('set listchars=trail:· ambiwidth=double', 'E834:') set listchars& call assert_fails('set fillchars=stl:· ambiwidth=double', 'E835:') set fillchars& call assert_fails('set fileencoding=latin1,utf-8', 'E474:') set nomodifiable call assert_fails('set fileencoding=latin1', 'E21:') set modifiable& call assert_fails('set t_#-&', 'E522:') endfunc func CheckWasSet(name) let verb_cm = execute('verbose set ' .. a:name .. '?') call assert_match('Last set from.*test_options.vim', verb_cm) endfunc func CheckWasNotSet(name) let verb_cm = execute('verbose set ' .. a:name .. '?') call assert_notmatch('Last set from', verb_cm) endfunc " Must be executed before other tests that set 'term'. func Test_000_term_option_verbose() CheckNotGui call CheckWasNotSet('t_cm') let term_save = &term set term=ansi call CheckWasSet('t_cm') let &term = term_save endfunc func Test_copy_context() setlocal list call CheckWasSet('list') split call CheckWasSet('list') quit setlocal nolist set ai call CheckWasSet('ai') set filetype=perl call CheckWasSet('filetype') set fo=tcroq call CheckWasSet('fo') split Xsomebuf call CheckWasSet('ai') call CheckWasNotSet('filetype') call CheckWasSet('fo') endfunc func Test_set_ttytype() CheckUnix CheckNotGui " Setting 'ttytype' used to cause a double-free when exiting vim and " when vim is compiled with -DEXITFREE. set ttytype=ansi call assert_equal('ansi', &ttytype) call assert_equal(&ttytype, &term) set ttytype=xterm call assert_equal('xterm', &ttytype) call assert_equal(&ttytype, &term) try set ttytype= call assert_report('set ttytype= did not fail') catch /E529/ endtry " Some systems accept any terminal name and return dumb settings, " check for failure of finding the entry and for missing 'cm' entry. try set ttytype=xxx call assert_report('set ttytype=xxx did not fail') catch /E522\|E437/ endtry set ttytype& call assert_equal(&ttytype, &term) if has('gui') && !has('gui_running') call assert_fails('set term=gui', 'E531:') endif endfunc func Test_set_all() set tw=75 set iskeyword=a-z,A-Z set nosplitbelow let out = execute('set all') call assert_match('textwidth=75', out) call assert_match('iskeyword=a-z,A-Z', out) call assert_match('nosplitbelow', out) set tw& iskeyword& splitbelow& endfunc func Test_set_one_column() let out_mult = execute('set all')->split("\n") let out_one = execute('set! all')->split("\n") call assert_true(len(out_mult) < len(out_one)) endfunc func Test_set_values() " opt_test.vim is generated from ../optiondefs.h using gen_opt_test.vim if filereadable('opt_test.vim') source opt_test.vim else throw 'Skipped: opt_test.vim does not exist' endif endfunc func Test_renderoptions() " Only do this for Windows Vista and later, fails on Windows XP and earlier. " Doesn't hurt to do this on a non-Windows system. if windowsversion() !~ '^[345]\.' set renderoptions=type:directx set rop=type:directx endif endfunc func ResetIndentexpr() set indentexpr= endfunc func Test_set_indentexpr() " this was causing usage of freed memory set indentexpr=ResetIndentexpr() new call feedkeys("i\<c-f>", 'x') call assert_equal('', &indentexpr) bwipe! endfunc func Test_backupskip() " Option 'backupskip' may contain several comma-separated path " specifications if one or more of the environment variables TMPDIR, TMP, " or TEMP is defined. To simplify testing, convert the string value into a " list. let bsklist = split(&bsk, ',') if has("mac") let found = (index(bsklist, '/private/tmp/*') >= 0) call assert_true(found, '/private/tmp not in option bsk: ' . &bsk) elseif has("unix") let found = (index(bsklist, '/tmp/*') >= 0) call assert_true(found, '/tmp not in option bsk: ' . &bsk) endif " If our test platform is Windows, the path(s) in option bsk will use " backslash for the path separator and the components could be in short " (8.3) format. As such, we need to replace the backslashes with forward " slashes and convert the path components to long format. The expand() " function will do this but it cannot handle comma-separated paths. This is " why bsk was converted from a string into a list of strings above. " " One final complication is that the wildcard "/*" is at the end of each " path and so expand() might return a list of matching files. To prevent " this, we need to remove the wildcard before calling expand() and then " append it afterwards. if has('win32') let item_nbr = 0 while item_nbr < len(bsklist) let path_spec = bsklist[item_nbr] let path_spec = strcharpart(path_spec, 0, strlen(path_spec)-2) let path_spec = substitute(expand(path_spec), '\\', '/', 'g') let bsklist[item_nbr] = path_spec . '/*' let item_nbr += 1 endwhile endif " Option bsk will also include these environment variables if defined. " If they're defined, verify they appear in the option value. for var in ['$TMPDIR', '$TMP', '$TEMP'] if exists(var) let varvalue = substitute(expand(var), '\\', '/', 'g') let varvalue = substitute(varvalue, '/$', '', '') let varvalue .= '/*' let found = (index(bsklist, varvalue) >= 0) call assert_true(found, var . ' (' . varvalue . ') not in option bsk: ' . &bsk) endif endfor " Duplicates from environment variables should be filtered out (option has " P_NODUP). Run this in a separate instance and write v:errors in a file, " so that we see what happens on startup. let after =<< trim [CODE] let bsklist = split(&backupskip, ',') call assert_equal(uniq(copy(bsklist)), bsklist) call writefile(['errors:'] + v:errors, 'Xtestout') qall [CODE] call writefile(after, 'Xafter') let cmd = GetVimProg() . ' --not-a-term -S Xafter --cmd "set enc=utf8"' let saveenv = {} for var in ['TMPDIR', 'TMP', 'TEMP'] let saveenv[var] = getenv(var) call setenv(var, '/duplicate/path') endfor exe 'silent !' . cmd call assert_equal(['errors:'], readfile('Xtestout')) " restore environment variables for var in ['TMPDIR', 'TMP', 'TEMP'] call setenv(var, saveenv[var]) endfor call delete('Xtestout') call delete('Xafter') " Duplicates should be filtered out (option has P_NODUP) let backupskip = &backupskip set backupskip= set backupskip+=/test/dir set backupskip+=/other/dir set backupskip+=/test/dir call assert_equal('/test/dir,/other/dir', &backupskip) let &backupskip = backupskip endfunc func Test_copy_winopt() set hidden " Test copy option from current buffer in window split enew setlocal numberwidth=5 wincmd w call assert_equal(4,&numberwidth) bnext call assert_equal(5,&numberwidth) bw! call assert_equal(4,&numberwidth) " Test copy value from window that used to be display the buffer split enew setlocal numberwidth=6 bnext wincmd w call assert_equal(4,&numberwidth) bnext call assert_equal(6,&numberwidth) bw! " Test that if buffer is current, don't use the stale cached value " from the last time the buffer was displayed. split enew setlocal numberwidth=7 bnext bnext setlocal numberwidth=8 wincmd w call assert_equal(4,&numberwidth) bnext call assert_equal(8,&numberwidth) bw! " Test value is not copied if window already has seen the buffer enew split setlocal numberwidth=9 bnext setlocal numberwidth=10 wincmd w call assert_equal(4,&numberwidth) bnext call assert_equal(4,&numberwidth) bw! set hidden& endfunc func Test_shortmess_F() new call assert_match('\[No Name\]', execute('file')) set shortmess+=F call assert_match('\[No Name\]', execute('file')) call assert_match('^\s*$', execute('file foo')) call assert_match('foo', execute('file')) set shortmess-=F call assert_match('bar', execute('file bar')) call assert_match('bar', execute('file')) set shortmess& bwipe endfunc func Test_shortmess_F2() e file1 e file2 call assert_match('file1', execute('bn', '')) call assert_match('file2', execute('bn', '')) set shortmess+=F call assert_true(empty(execute('bn', ''))) call assert_false(test_getvalue('need_fileinfo')) call assert_true(empty(execute('bn', ''))) call assert_false('need_fileinfo'->test_getvalue()) set hidden call assert_true(empty(execute('bn', ''))) call assert_false(test_getvalue('need_fileinfo')) call assert_true(empty(execute('bn', ''))) call assert_false(test_getvalue('need_fileinfo')) set nohidden call assert_true(empty(execute('bn', ''))) call assert_false(test_getvalue('need_fileinfo')) call assert_true(empty(execute('bn', ''))) call assert_false(test_getvalue('need_fileinfo')) set shortmess& call assert_match('file1', execute('bn', '')) call assert_match('file2', execute('bn', '')) bwipe bwipe endfunc func Test_local_scrolloff() set so=5 set siso=7 split call assert_equal(5, &so) setlocal so=3 call assert_equal(3, &so) wincmd w call assert_equal(5, &so) wincmd w setlocal so< call assert_equal(5, &so) setlocal so=0 call assert_equal(0, &so) setlocal so=-1 call assert_equal(5, &so) call assert_equal(7, &siso) setlocal siso=3 call assert_equal(3, &siso) wincmd w call assert_equal(7, &siso) wincmd w setlocal siso< call assert_equal(7, &siso) setlocal siso=0 call assert_equal(0, &siso) setlocal siso=-1 call assert_equal(7, &siso) close set so& set siso& endfunc func Test_writedelay() CheckFunction reltimefloat new call setline(1, 'empty') redraw set writedelay=10 let start = reltime() call setline(1, repeat('x', 70)) redraw let elapsed = reltimefloat(reltime(start)) set writedelay=0 " With 'writedelay' set should take at least 30 * 10 msec call assert_inrange(30 * 0.01, 999.0, elapsed) bwipe! endfunc func Test_visualbell() set belloff= set visualbell call assert_beeps('normal 0h') set novisualbell set belloff=all endfunc " Test for the 'write' option func Test_write() new call setline(1, ['L1']) set nowrite call assert_fails('write Xfile', 'E142:') set write close! endfunc " Test for 'buftype' option func Test_buftype() new call setline(1, ['L1']) set buftype=nowrite call assert_fails('write', 'E382:') for val in ['', 'nofile', 'nowrite', 'acwrite', 'quickfix', 'help', 'terminal', 'prompt', 'popup'] exe 'set buftype=' .. val call writefile(['something'], 'XBuftype') call assert_fails('write XBuftype', 'E13:', 'with buftype=' .. val) endfor call delete('XBuftype') bwipe! endfunc " Test for the 'rightleftcmd' option func Test_rightleftcmd() CheckFeature rightleft set rightleft set rightleftcmd let g:l = [] func AddPos() call add(g:l, screencol()) return '' endfunc cmap <expr> <F2> AddPos() call feedkeys("/\<F2>abc\<Left>\<F2>\<Right>\<Right>\<F2>" .. \ "\<Left>\<F2>\<Esc>", 'xt') call assert_equal([&co - 1, &co - 4, &co - 2, &co - 3], g:l) cunmap <F2> unlet g:l set rightleftcmd& set rightleft& endfunc " Test for the "debug" option func Test_debug_option() set debug=beep exe "normal \<C-c>" call assert_equal('Beep!', Screenline(&lines)) set debug& endfunc " Test for the default CDPATH option func Test_opt_default_cdpath() CheckFeature file_in_path let after =<< trim [CODE] call assert_equal(',/path/to/dir1,/path/to/dir2', &cdpath) call writefile(v:errors, 'Xtestout') qall [CODE] if has('unix') let $CDPATH='/path/to/dir1:/path/to/dir2' else let $CDPATH='/path/to/dir1;/path/to/dir2' endif if RunVim([], after, '') call assert_equal([], readfile('Xtestout')) call delete('Xtestout') endif endfunc " Test for setting keycodes using set func Test_opt_set_keycode() call assert_fails('set <t_k1=l', 'E474:') call assert_fails('set <Home=l', 'E474:') set <t_k9>=abcd call assert_equal('abcd', &t_k9) set <t_k9>& set <F9>=xyz call assert_equal('xyz', &t_k9) set <t_k9>& endfunc " Test for changing options in a sandbox func Test_opt_sandbox() for opt in ['backupdir', 'cdpath', 'exrc'] call assert_fails('sandbox set ' .. opt .. '?', 'E48:') call assert_fails('sandbox let &' .. opt .. ' = 1', 'E48:') endfor call assert_fails('sandbox let &modelineexpr = 1', 'E48:') endfunc " Test for setting an option with local value to global value func Test_opt_local_to_global() setglobal equalprg=gprg setlocal equalprg=lprg call assert_equal('gprg', &g:equalprg) call assert_equal('lprg', &l:equalprg) call assert_equal('lprg', &equalprg) set equalprg< call assert_equal('', &l:equalprg) call assert_equal('gprg', &equalprg) setglobal equalprg=gnewprg setlocal equalprg=lnewprg setlocal equalprg< call assert_equal('gnewprg', &l:equalprg) call assert_equal('gnewprg', &equalprg) set equalprg& " Test for setting the global/local value of a boolean option setglobal autoread setlocal noautoread call assert_false(&autoread) set autoread< call assert_true(&autoread) setglobal noautoread setlocal autoread setlocal autoread< call assert_false(&autoread) set autoread& endfunc func Test_set_in_sandbox() " Some boolean options cannot be set in sandbox, some can. call assert_fails('sandbox set modelineexpr', 'E48:') sandbox set number call assert_true(&number) set number& " Some boolean options cannot be set in sandbox, some can. if has('python') || has('python3') call assert_fails('sandbox set pyxversion=3', 'E48:') endif sandbox set tabstop=4 call assert_equal(4, &tabstop) set tabstop& " Some string options cannot be set in sandbox, some can. call assert_fails('sandbox set backupdir=/tmp', 'E48:') sandbox set filetype=perl call assert_equal('perl', &filetype) set filetype& endfunc " Test for incrementing, decrementing and multiplying a number option value func Test_opt_num_op() set shiftwidth=4 set sw+=2 call assert_equal(6, &sw) set sw-=2 call assert_equal(4, &sw) set sw^=2 call assert_equal(8, &sw) set shiftwidth& endfunc " Test for setting option values using v:false and v:true func Test_opt_boolean() set number& set number call assert_equal(1, &nu) set nonu call assert_equal(0, &nu) let &nu = v:true call assert_equal(1, &nu) let &nu = v:false call assert_equal(0, &nu) set number& endfunc " Test for the 'window' option func Test_window_opt() " Needs only one open widow %bw! call setline(1, range(1, 8)) set window=5 exe "normal \<C-F>" call assert_equal(4, line('w0')) exe "normal \<C-F>" call assert_equal(7, line('w0')) exe "normal \<C-F>" call assert_equal(8, line('w0')) exe "normal \<C-B>" call assert_equal(5, line('w0')) exe "normal \<C-B>" call assert_equal(2, line('w0')) exe "normal \<C-B>" call assert_equal(1, line('w0')) set window=1 exe "normal gg\<C-F>" call assert_equal(2, line('w0')) exe "normal \<C-F>" call assert_equal(3, line('w0')) exe "normal \<C-B>" call assert_equal(2, line('w0')) exe "normal \<C-B>" call assert_equal(1, line('w0')) enew! set window& endfunc " Test for the 'winminheight' option func Test_opt_winminheight() only! let &winheight = &lines + 4 call assert_fails('let &winminheight = &lines + 2', 'E36:') call assert_true(&winminheight <= &lines) set winminheight& set winheight& endfunc func Test_opt_winminheight_term() CheckRunVimInTerminal " The tabline should be taken into account. let lines =<< trim END set wmh=0 stal=2 below sp | wincmd _ below sp | wincmd _ below sp | wincmd _ below sp END call writefile(lines, 'Xwinminheight') let buf = RunVimInTerminal('-S Xwinminheight', #{rows: 11}) call term_sendkeys(buf, ":set wmh=1\n") call WaitForAssert({-> assert_match('E36: Not enough room', term_getline(buf, 11))}) call StopVimInTerminal(buf) call delete('Xwinminheight') endfunc func Test_opt_winminheight_term_tabs() CheckRunVimInTerminal " The tabline should be taken into account. let lines =<< trim END set wmh=0 stal=2 split split split split tabnew END call writefile(lines, 'Xwinminheight') let buf = RunVimInTerminal('-S Xwinminheight', #{rows: 11}) call term_sendkeys(buf, ":set wmh=1\n") call WaitForAssert({-> assert_match('E36: Not enough room', term_getline(buf, 11))}) call StopVimInTerminal(buf) call delete('Xwinminheight') endfunc " Test for the 'winminwidth' option func Test_opt_winminwidth() only! let &winwidth = &columns + 4 call assert_fails('let &winminwidth = &columns + 2', 'E36:') call assert_true(&winminwidth <= &columns) set winminwidth& set winwidth& endfunc " Test for setting option value containing spaces with isfname+=32 func Test_isfname_with_options() set isfname+=32 setlocal keywordprg=:term\ help.exe call assert_equal(':term help.exe', &keywordprg) set isfname& setlocal keywordprg& endfunc " Test that resetting laststatus does change scroll option func Test_opt_reset_scroll() CheckRunVimInTerminal let vimrc =<< trim [CODE] set scroll=2 set laststatus=2 [CODE] call writefile(vimrc, 'Xscroll') let buf = RunVimInTerminal('-S Xscroll', {'rows': 16, 'cols': 45}) call term_sendkeys(buf, ":verbose set scroll?\n") call WaitForAssert({-> assert_match('Last set.*window size', term_getline(buf, 15))}) call assert_match('^\s*scroll=7$', term_getline(buf, 14)) call StopVimInTerminal(buf) " clean up call delete('Xscroll') endfunc " Check that VIM_POSIX env variable influences default value of 'cpo' and 'shm' func Test_VIM_POSIX() let saved_VIM_POSIX = getenv("VIM_POSIX") call setenv('VIM_POSIX', "1") let after =<< trim [CODE] call writefile([&cpo, &shm], 'X_VIM_POSIX') qall [CODE] if RunVim([], after, '') call assert_equal(['aAbBcCdDeEfFgHiIjJkKlLmMnoOpPqrRsStuvwWxXyZ$!%*-+<>#{|&/\.;', \ 'AS'], readfile('X_VIM_POSIX')) endif call setenv('VIM_POSIX', v:null) let after =<< trim [CODE] call writefile([&cpo, &shm], 'X_VIM_POSIX') qall [CODE] if RunVim([], after, '') call assert_equal(['aAbBcCdDeEfFgHiIjJkKlLmMnoOpPqrRsStuvwWxXyZ$!%*-+<>;', \ 'S'], readfile('X_VIM_POSIX')) endif call delete('X_VIM_POSIX') call setenv('VIM_POSIX', saved_VIM_POSIX) endfunc " Test for setting an option to a Vi or Vim default func Test_opt_default() set formatoptions&vi call assert_equal('vt', &formatoptions) set formatoptions&vim call assert_equal('tcq', &formatoptions) call assert_equal('ucs-bom,utf-8,default,latin1', &fencs) set fencs=latin1 set fencs& call assert_equal('ucs-bom,utf-8,default,latin1', &fencs) set fencs=latin1 set all& call assert_equal('ucs-bom,utf-8,default,latin1', &fencs) endfunc " Test for the 'cmdheight' option func Test_cmdheight() %bw! let ht = &lines set cmdheight=9999 call assert_equal(1, winheight(0)) call assert_equal(ht - 1, &cmdheight) set cmdheight& endfunc " To specify a control character as an option value, '^' can be used func Test_opt_control_char() set wildchar=^v call assert_equal("\<C-V>", nr2char(&wildchar)) set wildcharm=^r call assert_equal("\<C-R>", nr2char(&wildcharm)) " Bug: This doesn't work for the 'cedit' and 'termwinkey' options set wildchar& wildcharm& endfunc " Test for the 'errorbells' option func Test_opt_errorbells() set errorbells call assert_beeps('s/a1b2/x1y2/') set noerrorbells endfunc func Test_opt_scrolljump() help resize 10 " Test with positive 'scrolljump'. set scrolljump=2 norm! Lj call assert_equal({'lnum':11, 'leftcol':0, 'col':0, 'topfill':0, \ 'topline':3, 'coladd':0, 'skipcol':0, 'curswant':0}, \ winsaveview()) " Test with negative 'scrolljump' (percentage of window height). set scrolljump=-40 norm! ggLj call assert_equal({'lnum':11, 'leftcol':0, 'col':0, 'topfill':0, \ 'topline':5, 'coladd':0, 'skipcol':0, 'curswant':0}, \ winsaveview()) set scrolljump& bw endfunc " Test for the 'cdhome' option func Test_opt_cdhome() if has('unix') || has('vms') throw 'Skipped: only works on non-Unix' endif set cdhome& call assert_equal(0, &cdhome) set cdhome " This paragraph is copied from Test_cd_no_arg(). let path = getcwd() cd call assert_equal($HOME, getcwd()) call assert_notequal(path, getcwd()) exe 'cd ' .. fnameescape(path) call assert_equal(path, getcwd()) set cdhome& endfunc " vim: shiftwidth=2 sts=2 expandtab