Mercurial > vim
view src/testdir/test_options.vim @ 20353:a8a76fd967ab v8.2.0732
patch 8.2.0732: Vim9: storing value in dict messes up stack
Commit: https://github.com/vim/vim/commit/f163bd5e41e8ea1d32e7977e671598a9d6f7b23c
Author: Bram Moolenaar <Bram@vim.org>
Date: Sun May 10 21:47:43 2020 +0200
patch 8.2.0732: Vim9: storing value in dict messes up stack
Problem: Vim9: storing value in dict messes up stack.
Solution: Correct item count of stack.
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Sun, 10 May 2020 22:00:04 +0200 |
parents | 244eb8d8d100 |
children | 33a67d1dcaf0 |
line wrap: on
line source
" Test for options 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_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_signcolumn() if has('signs') call assert_equal("auto", &signcolumn) set signcolumn=yes set signcolumn=no call assert_fails('set signcolumn=nope') endif 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() if !has('syntax') return endif 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() if !has('keymap') return endif 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 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_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(' ./small.vim ', @:) " Expand files and directories. call feedkeys(":set tags=./\<C-A>\<C-B>\"\<CR>", 'tx') call assert_match(' ./samples/.* ./small.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= 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 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 statusline=%{', 'E540:') call assert_fails('set statusline=' . repeat("%p", 81), 'E541:') 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:') 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) " "set ttytype=" gives E522 instead of E529 " in travis on some builds. Why? Catch both for now try set ttytype= call assert_report('set ttytype= did not fail') catch /E529\|E522/ 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() 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 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 'shell' option func Test_shell() CheckUnix let save_shell = &shell set shell= call assert_fails('shell', 'E91:') let &shell = save_shell endfunc " Test for the 'shellquote' option func Test_shellquote() CheckUnix set shellquote=# set verbose=20 redir => v silent! !echo Hello redir END set verbose& set shellquote& call assert_match(': "#echo Hello#"', v) 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& 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 " vim: shiftwidth=2 sts=2 expandtab