Mercurial > vim
view src/testdir/test_cmdline.vim @ 29767:2e2f57f2875d v9.0.0223
patch 9.0.0223: typo in diffmode test
Commit: https://github.com/vim/vim/commit/5fd6ab820b4a0aaa5c6020852f39d118375fab49
Author: zeertzjq <zeertzjq@outlook.com>
Date: Wed Aug 17 12:09:45 2022 +0100
patch 9.0.0223: typo in diffmode test
Problem: Typo in diffmode test.
Solution: Fix the typo. (closes https://github.com/vim/vim/issues/10932)
| author | Bram Moolenaar <Bram@vim.org> |
|---|---|
| date | Wed, 17 Aug 2022 13:15:03 +0200 |
| parents | c43738957bee |
| children | 5b46eb13e3bb |
line wrap: on
line source
" Tests for editing the command line. source check.vim source screendump.vim source view_util.vim source shared.vim import './vim9.vim' as v9 func SetUp() func SaveLastScreenLine() let g:Sline = Screenline(&lines - 1) return '' endfunc cnoremap <expr> <F4> SaveLastScreenLine() endfunc func TearDown() delfunc SaveLastScreenLine cunmap <F4> endfunc func Test_complete_tab() call writefile(['testfile'], 'Xtestfile') call feedkeys(":e Xtest\t\r", "tx") call assert_equal('testfile', getline(1)) " Pressing <Tab> after '%' completes the current file, also on MS-Windows call feedkeys(":e %\t\r", "tx") call assert_equal('e Xtestfile', @:) call delete('Xtestfile') endfunc func Test_complete_list() " We can't see the output, but at least we check the code runs properly. call feedkeys(":e test\<C-D>\r", "tx") call assert_equal('test', expand('%:t')) " If a command doesn't support completion, then CTRL-D should be literally " used. call feedkeys(":chistory \<C-D>\<C-B>\"\<CR>", 'xt') call assert_equal("\"chistory \<C-D>", @:) " Test for displaying the tail of the completion matches set wildmode=longest,full call mkdir('Xtest') call writefile([], 'Xtest/a.c') call writefile([], 'Xtest/a.h') let g:Sline = '' call feedkeys(":e Xtest/\<C-D>\<F4>\<C-B>\"\<CR>", 'xt') call assert_equal('a.c a.h', g:Sline) call assert_equal('"e Xtest/', @:) if has('win32') " Test for 'completeslash' set completeslash=backslash call feedkeys(":e Xtest\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"e Xtest\', @:) call feedkeys(":e Xtest/\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"e Xtest\a.', @:) set completeslash=slash call feedkeys(":e Xtest\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"e Xtest/', @:) call feedkeys(":e Xtest\\\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"e Xtest/a.', @:) set completeslash& endif " Test for displaying the tail with wildcards let g:Sline = '' call feedkeys(":e Xtes?/\<C-D>\<F4>\<C-B>\"\<CR>", 'xt') call assert_equal('Xtest/a.c Xtest/a.h', g:Sline) call assert_equal('"e Xtes?/', @:) let g:Sline = '' call feedkeys(":e Xtes*/\<C-D>\<F4>\<C-B>\"\<CR>", 'xt') call assert_equal('Xtest/a.c Xtest/a.h', g:Sline) call assert_equal('"e Xtes*/', @:) let g:Sline = '' call feedkeys(":e Xtes[/\<C-D>\<F4>\<C-B>\"\<CR>", 'xt') call assert_equal(':e Xtes[/', g:Sline) call assert_equal('"e Xtes[/', @:) call delete('Xtest', 'rf') set wildmode& endfunc func Test_complete_wildmenu() call mkdir('Xdir1/Xdir2', 'p') call writefile(['testfile1'], 'Xdir1/Xtestfile1') call writefile(['testfile2'], 'Xdir1/Xtestfile2') call writefile(['testfile3'], 'Xdir1/Xdir2/Xtestfile3') call writefile(['testfile3'], 'Xdir1/Xdir2/Xtestfile4') set wildmenu " Pressing <Tab> completes, and moves to next files when pressing again. call feedkeys(":e Xdir1/\<Tab>\<Tab>\<CR>", 'tx') call assert_equal('testfile1', getline(1)) call feedkeys(":e Xdir1/\<Tab>\<Tab>\<Tab>\<CR>", 'tx') call assert_equal('testfile2', getline(1)) " <S-Tab> is like <Tab> but begin with the last match and then go to " previous. call feedkeys(":e Xdir1/Xtest\<S-Tab>\<CR>", 'tx') call assert_equal('testfile2', getline(1)) call feedkeys(":e Xdir1/Xtest\<S-Tab>\<S-Tab>\<CR>", 'tx') call assert_equal('testfile1', getline(1)) " <Left>/<Right> to move to previous/next file. call feedkeys(":e Xdir1/\<Tab>\<Right>\<CR>", 'tx') call assert_equal('testfile1', getline(1)) call feedkeys(":e Xdir1/\<Tab>\<Right>\<Right>\<CR>", 'tx') call assert_equal('testfile2', getline(1)) call feedkeys(":e Xdir1/\<Tab>\<Right>\<Right>\<Left>\<CR>", 'tx') call assert_equal('testfile1', getline(1)) " <Up>/<Down> to go up/down directories. call feedkeys(":e Xdir1/\<Tab>\<Down>\<CR>", 'tx') call assert_equal('testfile3', getline(1)) call feedkeys(":e Xdir1/\<Tab>\<Down>\<Up>\<Right>\<CR>", 'tx') call assert_equal('testfile1', getline(1)) " this fails in some Unix GUIs, not sure why if !has('unix') || !has('gui_running') " <C-J>/<C-K> mappings to go up/down directories when 'wildcharm' is " different than 'wildchar'. set wildcharm=<C-Z> cnoremap <C-J> <Down><C-Z> cnoremap <C-K> <Up><C-Z> call feedkeys(":e Xdir1/\<Tab>\<C-J>\<CR>", 'tx') call assert_equal('testfile3', getline(1)) call feedkeys(":e Xdir1/\<Tab>\<C-J>\<C-K>\<CR>", 'tx') call assert_equal('testfile1', getline(1)) set wildcharm=0 cunmap <C-J> cunmap <C-K> endif " Test for canceling the wild menu by adding a character redrawstatus call feedkeys(":e Xdir1/\<Tab>x\<C-B>\"\<CR>", 'xt') call assert_equal('"e Xdir1/Xdir2/x', @:) " Completion using a relative path cd Xdir1/Xdir2 call feedkeys(":e ../\<Tab>\<Right>\<Down>\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal('"e Xtestfile3 Xtestfile4', @:) cd - " test for wildmenumode() cnoremap <expr> <F2> wildmenumode() call feedkeys(":cd Xdir\<Tab>\<F2>\<C-B>\"\<CR>", 'tx') call assert_equal('"cd Xdir1/0', @:) call feedkeys(":e Xdir1/\<Tab>\<F2>\<C-B>\"\<CR>", 'tx') call assert_equal('"e Xdir1/Xdir2/1', @:) cunmap <F2> " Test for canceling the wild menu by pressing <PageDown> or <PageUp>. " After this pressing <Left> or <Right> should not change the selection. call feedkeys(":sign \<Tab>\<PageDown>\<Left>\<Right>\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal('"sign define', @:) call histadd('cmd', 'TestWildMenu') call feedkeys(":sign \<Tab>\<PageUp>\<Left>\<Right>\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal('"TestWildMenu', @:) " cleanup %bwipe call delete('Xdir1', 'rf') set nowildmenu endfunc func Test_wildmenu_screendump() CheckScreendump let lines =<< trim [SCRIPT] set wildmenu hlsearch [SCRIPT] call writefile(lines, 'XTest_wildmenu') let buf = RunVimInTerminal('-S XTest_wildmenu', {'rows': 8}) call term_sendkeys(buf, ":vim\<Tab>") call VerifyScreenDump(buf, 'Test_wildmenu_1', {}) call term_sendkeys(buf, "\<Tab>") call VerifyScreenDump(buf, 'Test_wildmenu_2', {}) call term_sendkeys(buf, "\<Tab>") call VerifyScreenDump(buf, 'Test_wildmenu_3', {}) call term_sendkeys(buf, "\<Tab>\<Tab>") call VerifyScreenDump(buf, 'Test_wildmenu_4', {}) call term_sendkeys(buf, "\<Esc>") " clean up call StopVimInTerminal(buf) call delete('XTest_wildmenu') endfunc func Test_redraw_in_autocmd() CheckScreendump let lines =<< trim END set cmdheight=2 autocmd CmdlineChanged * redraw END call writefile(lines, 'XTest_redraw') let buf = RunVimInTerminal('-S XTest_redraw', {'rows': 8}) call term_sendkeys(buf, ":for i in range(3)\<CR>") call VerifyScreenDump(buf, 'Test_redraw_in_autocmd_1', {}) call term_sendkeys(buf, "let i =") call VerifyScreenDump(buf, 'Test_redraw_in_autocmd_2', {}) " clean up call term_sendkeys(buf, "\<CR>") call StopVimInTerminal(buf) call delete('XTest_redraw') endfunc func Test_changing_cmdheight() CheckScreendump let lines =<< trim END set cmdheight=1 laststatus=2 END call writefile(lines, 'XTest_cmdheight') let buf = RunVimInTerminal('-S XTest_cmdheight', {'rows': 8}) call term_sendkeys(buf, ":resize -3\<CR>") call VerifyScreenDump(buf, 'Test_changing_cmdheight_1', {}) " using the space available doesn't change the status line call term_sendkeys(buf, ":set cmdheight+=3\<CR>") call VerifyScreenDump(buf, 'Test_changing_cmdheight_2', {}) " using more space moves the status line up call term_sendkeys(buf, ":set cmdheight+=1\<CR>") call VerifyScreenDump(buf, 'Test_changing_cmdheight_3', {}) " reducing cmdheight moves status line down call term_sendkeys(buf, ":set cmdheight-=2\<CR>") call VerifyScreenDump(buf, 'Test_changing_cmdheight_4', {}) " reducing window size and then setting cmdheight call term_sendkeys(buf, ":resize -1\<CR>") call term_sendkeys(buf, ":set cmdheight=1\<CR>") call VerifyScreenDump(buf, 'Test_changing_cmdheight_5', {}) " clean up call StopVimInTerminal(buf) call delete('XTest_cmdheight') endfunc func Test_map_completion() call feedkeys(":map <unique> <si\<Tab>\<Home>\"\<CR>", 'xt') call assert_equal('"map <unique> <silent>', getreg(':')) call feedkeys(":map <script> <un\<Tab>\<Home>\"\<CR>", 'xt') call assert_equal('"map <script> <unique>', getreg(':')) call feedkeys(":map <expr> <sc\<Tab>\<Home>\"\<CR>", 'xt') call assert_equal('"map <expr> <script>', getreg(':')) call feedkeys(":map <buffer> <e\<Tab>\<Home>\"\<CR>", 'xt') call assert_equal('"map <buffer> <expr>', getreg(':')) call feedkeys(":map <nowait> <b\<Tab>\<Home>\"\<CR>", 'xt') call assert_equal('"map <nowait> <buffer>', getreg(':')) call feedkeys(":map <special> <no\<Tab>\<Home>\"\<CR>", 'xt') call assert_equal('"map <special> <nowait>', getreg(':')) call feedkeys(":map <silent> <sp\<Tab>\<Home>\"\<CR>", 'xt') call assert_equal('"map <silent> <special>', getreg(':')) map <Middle>x middle map ,f commaf map ,g commaf map <Left> left map <A-Left>x shiftleft call feedkeys(":map ,\<Tab>\<Home>\"\<CR>", 'xt') call assert_equal('"map ,f', getreg(':')) call feedkeys(":map ,\<Tab>\<Tab>\<Home>\"\<CR>", 'xt') call assert_equal('"map ,g', getreg(':')) call feedkeys(":map <L\<Tab>\<Home>\"\<CR>", 'xt') call assert_equal('"map <Left>', getreg(':')) call feedkeys(":map <A-Left>\<Tab>\<Home>\"\<CR>", 'xt') call assert_equal("\"map <A-Left>\<Tab>", getreg(':')) unmap ,f unmap ,g unmap <Left> unmap <A-Left>x set cpo-=< cpo-=B cpo-=k map <Left> left call feedkeys(":map <L\<Tab>\<Home>\"\<CR>", 'xt') call assert_equal('"map <Left>', getreg(':')) call feedkeys(":map <M\<Tab>\<Home>\"\<CR>", 'xt') call assert_equal("\"map <M\<Tab>", getreg(':')) unmap <Left> set cpo+=< map <Left> left exe "set t_k6=\<Esc>[17~" call feedkeys(":map \<Esc>[17~x f6x\<CR>", 'xt') call feedkeys(":map <L\<Tab>\<Home>\"\<CR>", 'xt') call assert_equal('"map <Left>', getreg(':')) if !has('gui_running') call feedkeys(":map \<Esc>[17~\<Tab>\<Home>\"\<CR>", 'xt') call assert_equal("\"map <F6>x", getreg(':')) endif unmap <Left> call feedkeys(":unmap \<Esc>[17~x\<CR>", 'xt') set cpo-=< set cpo+=B map <Left> left call feedkeys(":map <L\<Tab>\<Home>\"\<CR>", 'xt') call assert_equal('"map <Left>', getreg(':')) unmap <Left> set cpo-=B set cpo+=k map <Left> left call feedkeys(":map <L\<Tab>\<Home>\"\<CR>", 'xt') call assert_equal('"map <Left>', getreg(':')) unmap <Left> set cpo-=k call assert_fails('call feedkeys(":map \\\\%(\<Tab>\<Home>\"\<CR>", "xt")', 'E53:') unmap <Middle>x set cpo&vim endfunc func Test_match_completion() hi Aardig ctermfg=green call feedkeys(":match \<Tab>\<Home>\"\<CR>", 'xt') call assert_equal('"match Aardig', @:) call feedkeys(":match \<S-Tab>\<Home>\"\<CR>", 'xt') call assert_equal('"match none', @:) call feedkeys(":match | chist\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"match | chistory', @:) endfunc func Test_highlight_completion() hi Aardig ctermfg=green call feedkeys(":hi \<Tab>\<Home>\"\<CR>", 'xt') call assert_equal('"hi Aardig', getreg(':')) call feedkeys(":hi default \<Tab>\<Home>\"\<CR>", 'xt') call assert_equal('"hi default Aardig', getreg(':')) call feedkeys(":hi clear Aa\<Tab>\<Home>\"\<CR>", 'xt') call assert_equal('"hi clear Aardig', getreg(':')) call feedkeys(":hi li\<S-Tab>\<Home>\"\<CR>", 'xt') call assert_equal('"hi link', getreg(':')) call feedkeys(":hi d\<S-Tab>\<Home>\"\<CR>", 'xt') call assert_equal('"hi default', getreg(':')) call feedkeys(":hi c\<S-Tab>\<Home>\"\<CR>", 'xt') call assert_equal('"hi clear', getreg(':')) call feedkeys(":hi clear Aardig Aard\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"hi clear Aardig Aardig', getreg(':')) call feedkeys(":hi Aardig \<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal("\"hi Aardig \t", getreg(':')) " A cleared group does not show up in completions. hi Anders ctermfg=green call assert_equal(['Aardig', 'Anders'], getcompletion('A', 'highlight')) hi clear Aardig call assert_equal(['Anders'], getcompletion('A', 'highlight')) hi clear Anders call assert_equal([], getcompletion('A', 'highlight')) endfunc " Test for command-line expansion of "hi Ni " (easter egg) func Test_highlight_easter_egg() call test_override('ui_delay', 1) call feedkeys(":hi Ni \<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal("\"hi Ni \<Tab>", @:) call test_override('ALL', 0) endfunc func Test_getcompletion() let groupcount = len(getcompletion('', 'event')) call assert_true(groupcount > 0) let matchcount = len('File'->getcompletion('event')) call assert_true(matchcount > 0) call assert_true(groupcount > matchcount) if has('menu') source $VIMRUNTIME/menu.vim let matchcount = len(getcompletion('', 'menu')) call assert_true(matchcount > 0) call assert_equal(['File.'], getcompletion('File', 'menu')) call assert_true(matchcount > 0) let matchcount = len(getcompletion('File.', 'menu')) call assert_true(matchcount > 0) endif let l = getcompletion('v:n', 'var') call assert_true(index(l, 'v:null') >= 0) let l = getcompletion('v:notexists', 'var') call assert_equal([], l) args a.c b.c let l = getcompletion('', 'arglist') call assert_equal(['a.c', 'b.c'], l) let l = getcompletion('a.', 'buffer') call assert_equal(['a.c'], l) %argdelete let l = getcompletion('', 'augroup') call assert_true(index(l, 'END') >= 0) let l = getcompletion('blahblah', 'augroup') call assert_equal([], l) let l = getcompletion('', 'behave') call assert_true(index(l, 'mswin') >= 0) let l = getcompletion('not', 'behave') call assert_equal([], l) let l = getcompletion('', 'color') call assert_true(index(l, 'default') >= 0) let l = getcompletion('dirty', 'color') call assert_equal([], l) let l = getcompletion('', 'command') call assert_true(index(l, 'sleep') >= 0) let l = getcompletion('awake', 'command') call assert_equal([], l) let l = getcompletion('', 'dir') call assert_true(index(l, 'samples/') >= 0) let l = getcompletion('NoMatch', 'dir') call assert_equal([], l) if glob('~/*') !=# '' let l = getcompletion('~/', 'dir') call assert_true(l[0][0] ==# '~') endif let l = getcompletion('exe', 'expression') call assert_true(index(l, 'executable(') >= 0) let l = getcompletion('kill', 'expression') call assert_equal([], l) let l = getcompletion('tag', 'function') call assert_true(index(l, 'taglist(') >= 0) let l = getcompletion('paint', 'function') call assert_equal([], l) let Flambda = {-> 'hello'} let l = getcompletion('', 'function') let l = filter(l, {i, v -> v =~ 'lambda'}) call assert_equal([], l) let l = getcompletion('run', 'file') call assert_true(index(l, 'runtest.vim') >= 0) let l = getcompletion('walk', 'file') call assert_equal([], l) set wildignore=*.vim let l = getcompletion('run', 'file', 1) call assert_true(index(l, 'runtest.vim') < 0) set wildignore& " Directory name with space character call mkdir('Xdir with space') call assert_equal(['Xdir with space/'], getcompletion('Xdir\ w', 'shellcmd')) call assert_equal(['./Xdir with space/'], getcompletion('./Xdir', 'shellcmd')) call delete('Xdir with space', 'd') let l = getcompletion('ha', 'filetype') call assert_true(index(l, 'hamster') >= 0) let l = getcompletion('horse', 'filetype') call assert_equal([], l) let l = getcompletion('z', 'syntax') call assert_true(index(l, 'zimbu') >= 0) let l = getcompletion('emacs', 'syntax') call assert_equal([], l) let l = getcompletion('jikes', 'compiler') call assert_true(index(l, 'jikes') >= 0) let l = getcompletion('break', 'compiler') call assert_equal([], l) let l = getcompletion('last', 'help') call assert_true(index(l, ':tablast') >= 0) let l = getcompletion('giveup', 'help') call assert_equal([], l) let l = getcompletion('time', 'option') call assert_true(index(l, 'timeoutlen') >= 0) let l = getcompletion('space', 'option') call assert_equal([], l) let l = getcompletion('er', 'highlight') call assert_true(index(l, 'ErrorMsg') >= 0) let l = getcompletion('dark', 'highlight') call assert_equal([], l) let l = getcompletion('', 'messages') call assert_true(index(l, 'clear') >= 0) let l = getcompletion('not', 'messages') call assert_equal([], l) let l = getcompletion('', 'mapclear') call assert_true(index(l, '<buffer>') >= 0) let l = getcompletion('not', 'mapclear') call assert_equal([], l) let l = getcompletion('.', 'shellcmd') call assert_equal(['./', '../'], filter(l, 'v:val =~ "\\./"')) call assert_equal(-1, match(l[2:], '^\.\.\?/$')) let root = has('win32') ? 'C:\\' : '/' let l = getcompletion(root, 'shellcmd') let expected = map(filter(glob(root . '*', 0, 1), \ 'isdirectory(v:val) || executable(v:val)'), 'isdirectory(v:val) ? v:val . ''/'' : v:val') call assert_equal(expected, l) if has('cscope') let l = getcompletion('', 'cscope') let cmds = ['add', 'find', 'help', 'kill', 'reset', 'show'] call assert_equal(cmds, l) " using cmdline completion must not change the result call feedkeys(":cscope find \<c-d>\<c-c>", 'xt') let l = getcompletion('', 'cscope') call assert_equal(cmds, l) let keys = ['a', 'c', 'd', 'e', 'f', 'g', 'i', 's', 't'] let l = getcompletion('find ', 'cscope') call assert_equal(keys, l) endif if has('signs') sign define Testing linehl=Comment let l = getcompletion('', 'sign') let cmds = ['define', 'jump', 'list', 'place', 'undefine', 'unplace'] call assert_equal(cmds, l) " using cmdline completion must not change the result call feedkeys(":sign list \<c-d>\<c-c>", 'xt') let l = getcompletion('', 'sign') call assert_equal(cmds, l) let l = getcompletion('list ', 'sign') call assert_equal(['Testing'], l) let l = getcompletion('de*', 'sign') call assert_equal(['define'], l) let l = getcompletion('p?', 'sign') call assert_equal(['place'], l) let l = getcompletion('j.', 'sign') call assert_equal(['jump'], l) endif " Command line completion tests let l = getcompletion('cd ', 'cmdline') call assert_true(index(l, 'samples/') >= 0) let l = getcompletion('cd NoMatch', 'cmdline') call assert_equal([], l) let l = getcompletion('let v:n', 'cmdline') call assert_true(index(l, 'v:null') >= 0) let l = getcompletion('let v:notexists', 'cmdline') call assert_equal([], l) let l = getcompletion('call tag', 'cmdline') call assert_true(index(l, 'taglist(') >= 0) let l = getcompletion('call paint', 'cmdline') call assert_equal([], l) func T(a, c, p) let g:cmdline_compl_params = [a:a, a:c, a:p] return "oneA\noneB\noneC" endfunc command -nargs=1 -complete=custom,T MyCmd let l = getcompletion('MyCmd ', 'cmdline') call assert_equal(['oneA', 'oneB', 'oneC'], l) call assert_equal(['', 'MyCmd ', 6], g:cmdline_compl_params) delcommand MyCmd delfunc T unlet g:cmdline_compl_params " For others test if the name is recognized. let names = ['buffer', 'environment', 'file_in_path', 'mapping', 'tag', 'tag_listfiles', 'user'] if has('cmdline_hist') call add(names, 'history') endif if has('gettext') call add(names, 'locale') endif if has('profile') call add(names, 'syntime') endif set tags=Xtags call writefile(["!_TAG_FILE_ENCODING\tutf-8\t//", "word\tfile\tcmd"], 'Xtags') for name in names let matchcount = len(getcompletion('', name)) call assert_true(matchcount >= 0, 'No matches for ' . name) endfor call delete('Xtags') set tags& edit a~b enew call assert_equal(['a~b'], getcompletion('a~', 'buffer')) bw a~b if has('unix') edit Xtest\ enew call assert_equal(['Xtest\'], getcompletion('Xtest\', 'buffer')) bw Xtest\ endif call assert_fails("call getcompletion('\\\\@!\\\\@=', 'buffer')", 'E871:') call assert_fails('call getcompletion("", "burp")', 'E475:') call assert_fails('call getcompletion("abc", [])', 'E475:') endfunc " Test for getcompletion() with "fuzzy" in 'wildoptions' func Test_getcompletion_wildoptions() let save_wildoptions = &wildoptions set wildoptions& let l = getcompletion('space', 'option') call assert_equal([], l) let l = getcompletion('ier', 'command') call assert_equal([], l) set wildoptions=fuzzy let l = getcompletion('space', 'option') call assert_true(index(l, 'backspace') >= 0) let l = getcompletion('ier', 'command') call assert_true(index(l, 'compiler') >= 0) let &wildoptions = save_wildoptions endfunc func Test_complete_autoload_error() let save_rtp = &rtp let lines =<< trim END vim9script export def Complete(..._): string return 'match' enddef echo this will cause an error END call mkdir('Xdir/autoload', 'p') call writefile(lines, 'Xdir/autoload/script.vim') exe 'set rtp+=' .. getcwd() .. '/Xdir' let lines =<< trim END vim9script import autoload 'script.vim' command -nargs=* -complete=custom,script.Complete Cmd eval 0 + 0 &wildcharm = char2nr("\<Tab>") feedkeys(":Cmd \<Tab>", 'xt') END call v9.CheckScriptFailure(lines, 'E121: Undefined variable: this') let &rtp = save_rtp call delete('Xdir', 'rf') endfunc func Test_fullcommand() let tests = { \ '': '', \ ':': '', \ ':::': '', \ ':::5': '', \ 'not_a_cmd': '', \ 'Check': '', \ 'syntax': 'syntax', \ ':syntax': 'syntax', \ '::::syntax': 'syntax', \ 'sy': 'syntax', \ 'syn': 'syntax', \ 'synt': 'syntax', \ ':sy': 'syntax', \ '::::sy': 'syntax', \ 'match': 'match', \ '2match': 'match', \ '3match': 'match', \ 'aboveleft': 'aboveleft', \ 'abo': 'aboveleft', \ 's': 'substitute', \ '5s': 'substitute', \ ':5s': 'substitute', \ "'<,'>s": 'substitute', \ ":'<,'>s": 'substitute', \ 'CheckLin': 'CheckLinux', \ 'CheckLinux': 'CheckLinux', \ } for [in, want] in items(tests) call assert_equal(want, fullcommand(in)) endfor call assert_equal('', fullcommand(test_null_string())) call assert_equal('syntax', 'syn'->fullcommand()) command -buffer BufferLocalCommand : command GlobalCommand : call assert_equal('GlobalCommand', fullcommand('GlobalCom')) call assert_equal('BufferLocalCommand', fullcommand('BufferL')) delcommand BufferLocalCommand delcommand GlobalCommand endfunc func Test_shellcmd_completion() let save_path = $PATH call mkdir('Xpathdir/Xpathsubdir', 'p') call writefile([''], 'Xpathdir/Xfile.exe') call setfperm('Xpathdir/Xfile.exe', 'rwx------') " Set PATH to example directory without trailing slash. let $PATH = getcwd() . '/Xpathdir' " Test for the ":!<TAB>" case. Previously, this would include subdirs of " dirs in the PATH, even though they won't be executed. We check that only " subdirs of the PWD and executables from the PATH are included in the " suggestions. let actual = getcompletion('X', 'shellcmd') let expected = map(filter(glob('*', 0, 1), 'isdirectory(v:val) && v:val[0] == "X"'), 'v:val . "/"') call insert(expected, 'Xfile.exe') call assert_equal(expected, actual) call delete('Xpathdir', 'rf') let $PATH = save_path endfunc func Test_expand_star_star() call mkdir('a/b', 'p') call writefile(['asdfasdf'], 'a/b/fileXname') call feedkeys(":find **/fileXname\<Tab>\<CR>", 'xt') call assert_equal('find a/b/fileXname', @:) bwipe! call delete('a', 'rf') endfunc func Test_cmdline_paste() let @a = "def" call feedkeys(":abc \<C-R>a ghi\<C-B>\"\<CR>", 'tx') call assert_equal('"abc def ghi', @:) new call setline(1, 'asdf.x /tmp/some verylongword a;b-c*d ') call feedkeys(":aaa \<C-R>\<C-W> bbb\<C-B>\"\<CR>", 'tx') call assert_equal('"aaa asdf bbb', @:) call feedkeys("ft:aaa \<C-R>\<C-F> bbb\<C-B>\"\<CR>", 'tx') call assert_equal('"aaa /tmp/some bbb', @:) call feedkeys(":aaa \<C-R>\<C-L> bbb\<C-B>\"\<CR>", 'tx') call assert_equal('"aaa '.getline(1).' bbb', @:) set incsearch call feedkeys("fy:aaa veryl\<C-R>\<C-W> bbb\<C-B>\"\<CR>", 'tx') call assert_equal('"aaa verylongword bbb', @:) call feedkeys("f;:aaa \<C-R>\<C-A> bbb\<C-B>\"\<CR>", 'tx') call assert_equal('"aaa a;b-c*d bbb', @:) call feedkeys(":\<C-\>etoupper(getline(1))\<CR>\<C-B>\"\<CR>", 'tx') call assert_equal('"ASDF.X /TMP/SOME VERYLONGWORD A;B-C*D ', @:) bwipe! " Error while typing a command used to cause that it was not executed " in the end. new try call feedkeys(":file \<C-R>%Xtestfile\<CR>", 'tx') catch /^Vim\%((\a\+)\)\=:E32/ " ignore error E32 endtry call assert_equal("Xtestfile", bufname("%")) " Try to paste an invalid register using <C-R> call feedkeys(":\"one\<C-R>\<C-X>two\<CR>", 'xt') call assert_equal('"onetwo', @:) " Test for pasting register containing CTRL-H using CTRL-R and CTRL-R CTRL-R let @a = "xy\<C-H>z" call feedkeys(":\"\<C-R>a\<CR>", 'xt') call assert_equal('"xz', @:) call feedkeys(":\"\<C-R>\<C-R>a\<CR>", 'xt') call assert_equal("\"xy\<C-H>z", @:) call feedkeys(":\"\<C-R>\<C-O>a\<CR>", 'xt') call assert_equal("\"xy\<C-H>z", @:) " Test for pasting register containing CTRL-V using CTRL-R and CTRL-R CTRL-R let @a = "xy\<C-V>z" call feedkeys(":\"\<C-R>=@a\<CR>\<cr>", 'xt') call assert_equal('"xyz', @:) call feedkeys(":\"\<C-R>\<C-R>=@a\<CR>\<cr>", 'xt') call assert_equal("\"xy\<C-V>z", @:) call assert_beeps('call feedkeys(":\<C-R>=\<C-R>=\<Esc>", "xt")') bwipe! endfunc func Test_cmdline_remove_char() let encoding_save = &encoding for e in ['utf8', 'latin1'] exe 'set encoding=' . e call feedkeys(":abc def\<S-Left>\<Del>\<C-B>\"\<CR>", 'tx') call assert_equal('"abc ef', @:, e) call feedkeys(":abc def\<S-Left>\<BS>\<C-B>\"\<CR>", 'tx') call assert_equal('"abcdef', @:) call feedkeys(":abc def ghi\<S-Left>\<C-W>\<C-B>\"\<CR>", 'tx') call assert_equal('"abc ghi', @:, e) call feedkeys(":abc def\<S-Left>\<C-U>\<C-B>\"\<CR>", 'tx') call assert_equal('"def', @:, e) " This was going before the start in latin1. call feedkeys(": \<C-W>\<CR>", 'tx') endfor let &encoding = encoding_save endfunc func Test_cmdline_keymap_ctrl_hat() CheckFeature keymap set keymap=esperanto call feedkeys(":\"Jxauxdo \<C-^>Jxauxdo \<C-^>Jxauxdo\<CR>", 'tx') call assert_equal('"Jxauxdo Ĵaŭdo Jxauxdo', @:) set keymap= endfunc func Test_illegal_address1() new 2;'( 2;') quit endfunc func Test_illegal_address2() call writefile(['c', 'x', ' x', '.', '1;y'], 'Xtest.vim') new source Xtest.vim " Trigger calling validate_cursor() diffsp Xtest.vim quit! bwipe! call delete('Xtest.vim') endfunc func Test_mark_from_line_zero() " this was reading past the end of the first (empty) line new norm oxxxx call assert_fails("0;'(", 'E20:') bwipe! endfunc func Test_cmdline_complete_wildoptions() help call feedkeys(":tag /\<c-a>\<c-b>\"\<cr>", 'tx') let a = join(sort(split(@:)),' ') set wildoptions=tagfile call feedkeys(":tag /\<c-a>\<c-b>\"\<cr>", 'tx') let b = join(sort(split(@:)),' ') call assert_equal(a, b) bw! endfunc func Test_cmdline_complete_user_cmd() command! -complete=color -nargs=1 Foo : call feedkeys(":Foo \<Tab>\<Home>\"\<cr>", 'tx') call assert_equal('"Foo blue', @:) call feedkeys(":Foo b\<Tab>\<Home>\"\<cr>", 'tx') call assert_equal('"Foo blue', @:) call feedkeys(":Foo a b\<Tab>\<Home>\"\<cr>", 'tx') call assert_equal('"Foo a blue', @:) call feedkeys(":Foo b\\\<Tab>\<Home>\"\<cr>", 'tx') call assert_equal('"Foo b\', @:) call feedkeys(":Foo b\\x\<Tab>\<Home>\"\<cr>", 'tx') call assert_equal('"Foo b\x', @:) delcommand Foo endfunc func Test_complete_user_cmd() command FooBar echo 'global' command -buffer FooBar echo 'local' call feedkeys(":Foo\<C-A>\<Home>\"\<CR>", 'tx') call assert_equal('"FooBar', @:) delcommand -buffer FooBar delcommand FooBar endfunc func s:ScriptLocalFunction() echo 'yes' endfunc func Test_cmdline_complete_user_func() call feedkeys(":func Test_cmdline_complete_user\<Tab>\<Home>\"\<cr>", 'tx') call assert_match('"func Test_cmdline_complete_user_', @:) call feedkeys(":func s:ScriptL\<Tab>\<Home>\"\<cr>", 'tx') call assert_match('"func <SNR>\d\+_ScriptLocalFunction', @:) " g: prefix also works call feedkeys(":echo g:Test_cmdline_complete_user_f\<Tab>\<Home>\"\<cr>", 'tx') call assert_match('"echo g:Test_cmdline_complete_user_func', @:) " using g: prefix does not result in just "g:" matches from a lambda let Fx = { a -> a } call feedkeys(":echo g:\<Tab>\<Home>\"\<cr>", 'tx') call assert_match('"echo g:[A-Z]', @:) " existence of script-local dict function does not break user function name " completion function s:a_dict_func() dict endfunction call feedkeys(":call Test_cmdline_complete_user\<Tab>\<Home>\"\<cr>", 'tx') call assert_match('"call Test_cmdline_complete_user_', @:) delfunction s:a_dict_func endfunc func Test_cmdline_complete_user_names() if has('unix') && executable('whoami') let whoami = systemlist('whoami')[0] let first_letter = whoami[0] if len(first_letter) > 0 " Trying completion of :e ~x where x is the first letter of " the user name should complete to at least the user name. call feedkeys(':e ~' . first_letter . "\<c-a>\<c-B>\"\<cr>", 'tx') call assert_match('^"e \~.*\<' . whoami . '\>', @:) endif elseif has('win32') " Just in case: check that the system has an Administrator account. let names = system('net user') if names =~ 'Administrator' " Trying completion of :e ~A should complete to Administrator. " There could be other names starting with "A" before Administrator. call feedkeys(':e ~A' . "\<c-a>\<c-B>\"\<cr>", 'tx') call assert_match('^"e \~.*Administrator', @:) endif else throw 'Skipped: does not work on this platform' endif endfunc func Test_cmdline_complete_bang() CheckExecutable whoami call feedkeys(":!whoam\<C-A>\<C-B>\"\<CR>", 'tx') call assert_match('^".*\<whoami\>', @:) endfunc func Test_cmdline_complete_languages() let lang = substitute(execute('language time'), '.*"\(.*\)"$', '\1', '') call assert_equal(lang, v:lc_time) let lang = substitute(execute('language ctype'), '.*"\(.*\)"$', '\1', '') call assert_equal(lang, v:ctype) let lang = substitute(execute('language collate'), '.*"\(.*\)"$', '\1', '') call assert_equal(lang, v:collate) let lang = substitute(execute('language messages'), '.*"\(.*\)"$', '\1', '') call assert_equal(lang, v:lang) call feedkeys(":language \<c-a>\<c-b>\"\<cr>", 'tx') call assert_match('^"language .*\<collate\>.*\<ctype\>.*\<messages\>.*\<time\>', @:) call assert_match('^"language .*\<' . lang . '\>', @:) call feedkeys(":language messages \<c-a>\<c-b>\"\<cr>", 'tx') call assert_match('^"language .*\<' . lang . '\>', @:) call feedkeys(":language ctype \<c-a>\<c-b>\"\<cr>", 'tx') call assert_match('^"language .*\<' . lang . '\>', @:) call feedkeys(":language time \<c-a>\<c-b>\"\<cr>", 'tx') call assert_match('^"language .*\<' . lang . '\>', @:) call feedkeys(":language collate \<c-a>\<c-b>\"\<cr>", 'tx') call assert_match('^"language .*\<' . lang . '\>', @:) endfunc func Test_cmdline_complete_env_variable() let $X_VIM_TEST_COMPLETE_ENV = 'foo' call feedkeys(":edit $X_VIM_TEST_COMPLETE_E\<C-A>\<C-B>\"\<CR>", 'tx') call assert_match('"edit $X_VIM_TEST_COMPLETE_ENV', @:) unlet $X_VIM_TEST_COMPLETE_ENV endfunc func Test_cmdline_complete_expression() let g:SomeVar = 'blah' for cmd in ['exe', 'echo', 'echon', 'echomsg'] call feedkeys(":" .. cmd .. " SomeV\<Tab>\<C-B>\"\<CR>", 'tx') call assert_match('"' .. cmd .. ' SomeVar', @:) call feedkeys(":" .. cmd .. " foo SomeV\<Tab>\<C-B>\"\<CR>", 'tx') call assert_match('"' .. cmd .. ' foo SomeVar', @:) endfor unlet g:SomeVar endfunc " Unique function name for completion below func s:WeirdFunc() echo 'weird' endfunc " Test for various command-line completion func Test_cmdline_complete_various() " completion for a command starting with a comment call feedkeys(": :|\"\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\" :|\"\<C-A>", @:) " completion for a range followed by a comment call feedkeys(":1,2\"\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"1,2\"\<C-A>", @:) " completion for :k command call feedkeys(":ka\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"ka\<C-A>", @:) " completion for short version of the :s command call feedkeys(":sI \<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"sI \<C-A>", @:) " completion for :write command call mkdir('Xdir') call writefile(['one'], 'Xdir/Xfile1') let save_cwd = getcwd() cd Xdir call feedkeys(":w >> \<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"w >> Xfile1", @:) call chdir(save_cwd) call delete('Xdir', 'rf') " completion for :w ! and :r ! commands call feedkeys(":w !invalid_xyz_cmd\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"w !invalid_xyz_cmd", @:) call feedkeys(":r !invalid_xyz_cmd\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"r !invalid_xyz_cmd", @:) " completion for :>> and :<< commands call feedkeys(":>>>\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\">>>\<C-A>", @:) call feedkeys(":<<<\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"<<<\<C-A>", @:) " completion for command with +cmd argument call feedkeys(":buffer +/pat Xabc\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"buffer +/pat Xabc", @:) call feedkeys(":buffer +/pat\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"buffer +/pat\<C-A>", @:) " completion for a command with a trailing comment call feedkeys(":ls \" comment\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"ls \" comment\<C-A>", @:) " completion for a command with a trailing command call feedkeys(":ls | ls\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"ls | ls", @:) " completion for a command with an CTRL-V escaped argument call feedkeys(":ls \<C-V>\<C-V>a\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"ls \<C-V>a\<C-A>", @:) " completion for a command that doesn't take additional arguments call feedkeys(":all abc\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"all abc\<C-A>", @:) " completion for a command with a command modifier call feedkeys(":topleft new\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"topleft new", @:) " completion for vim9 and legacy commands call feedkeys(":vim9 call strle\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"vim9 call strlen(", @:) call feedkeys(":legac call strle\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"legac call strlen(", @:) " completion for the :disassemble command call feedkeys(":disas deb\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"disas debug", @:) call feedkeys(":disas pro\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"disas profile", @:) call feedkeys(":disas debug Test_cmdline_complete_var\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"disas debug Test_cmdline_complete_various", @:) call feedkeys(":disas profile Test_cmdline_complete_var\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"disas profile Test_cmdline_complete_various", @:) call feedkeys(":disas Test_cmdline_complete_var\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"disas Test_cmdline_complete_various", @:) call feedkeys(":disas s:WeirdF\<C-A>\<C-B>\"\<CR>", 'xt') call assert_match('"disas <SNR>\d\+_WeirdFunc', @:) call feedkeys(":disas \<S-Tab>\<C-B>\"\<CR>", 'xt') call assert_match('"disas <SNR>\d\+_', @:) call feedkeys(":disas debug \<S-Tab>\<C-B>\"\<CR>", 'xt') call assert_match('"disas debug <SNR>\d\+_', @:) " completion for the :match command call feedkeys(":match Search /pat/\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"match Search /pat/\<C-A>", @:) " completion for the :doautocmd command call feedkeys(":doautocmd User MyCmd a.c\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"doautocmd User MyCmd a.c\<C-A>", @:) " completion of autocmd group after comma call feedkeys(":doautocmd BufNew,BufEn\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"doautocmd BufNew,BufEnter", @:) " completion of file name in :doautocmd call writefile([], 'Xfile1') call writefile([], 'Xfile2') call feedkeys(":doautocmd BufEnter Xfi\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"doautocmd BufEnter Xfile1 Xfile2", @:) call delete('Xfile1') call delete('Xfile2') " completion for the :augroup command augroup XTest.test augroup END call feedkeys(":augroup X\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"augroup XTest.test", @:) " group name completion in :autocmd call feedkeys(":au X\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"au XTest.test", @:) call feedkeys(":au XTest.test\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal("\"au XTest.test", @:) augroup! XTest.test " autocmd pattern completion call feedkeys(":au BufEnter *.py\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal("\"au BufEnter *.py\t", @:) " completion for the :unlet command call feedkeys(":unlet one two\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"unlet one two", @:) " completion for the :buffer command with curlies " FIXME: what should happen on MS-Windows? if !has('win32') edit \{someFile} call feedkeys(":buf someFile\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"buf {someFile}", @:) bwipe {someFile} endif " completion for the :bdelete command call feedkeys(":bdel a b c\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"bdel a b c", @:) " completion for the :mapclear command call feedkeys(":mapclear \<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"mapclear <buffer>", @:) " completion for user defined commands with menu names menu Test.foo :ls<CR> com -nargs=* -complete=menu MyCmd call feedkeys(":MyCmd Te\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal('"MyCmd Test.', @:) delcom MyCmd unmenu Test " completion for user defined commands with mappings mapclear map <F3> :ls<CR> com -nargs=* -complete=mapping MyCmd call feedkeys(":MyCmd <F\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal('"MyCmd <F3> <F4>', @:) mapclear delcom MyCmd " completion for :set path= with multiple backslashes call feedkeys(":set path=a\\\\\\ b\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal('"set path=a\\\ b', @:) " completion for :set dir= with a backslash call feedkeys(":set dir=a\\ b\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal('"set dir=a\ b', @:) " completion for the :py3 commands call feedkeys(":py3\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal('"py3 py3do py3file', @:) " completion for the :vim9 commands call feedkeys(":vim9\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal('"vim9cmd vim9script', @:) " redir @" is not the start of a comment. So complete after that call feedkeys(":redir @\" | cwin\t\<C-B>\"\<CR>", 'xt') call assert_equal('"redir @" | cwindow', @:) " completion after a backtick call feedkeys(":e `a1b2c\t\<C-B>\"\<CR>", 'xt') call assert_equal('"e `a1b2c', @:) " completion for :language command with an invalid argument call feedkeys(":language dummy \t\<C-B>\"\<CR>", 'xt') call assert_equal("\"language dummy \t", @:) " completion for commands after a :global command call feedkeys(":g/a\\xb/clearj\t\<C-B>\"\<CR>", 'xt') call assert_equal('"g/a\xb/clearjumps', @:) " completion with ambiguous user defined commands com TCmd1 echo 'TCmd1' com TCmd2 echo 'TCmd2' call feedkeys(":TCmd \t\<C-B>\"\<CR>", 'xt') call assert_equal('"TCmd ', @:) delcom TCmd1 delcom TCmd2 " completion after a range followed by a pipe (|) character call feedkeys(":1,10 | chist\t\<C-B>\"\<CR>", 'xt') call assert_equal('"1,10 | chistory', @:) " completion after a :global command call feedkeys(":g/a/chist\t\<C-B>\"\<CR>", 'xt') call assert_equal('"g/a/chistory', @:) call feedkeys(":g/a\\/chist\t\<C-B>\"\<CR>", 'xt') call assert_equal("\"g/a\\/chist\t", @:) " use <Esc> as the 'wildchar' for completion set wildchar=<Esc> call feedkeys(":g/a\\xb/clearj\<Esc>\<C-B>\"\<CR>", 'xt') call assert_equal('"g/a\xb/clearjumps', @:) " pressing <esc> twice should cancel the command call feedkeys(":chist\<Esc>\<Esc>", 'xt') call assert_equal('"g/a\xb/clearjumps', @:) set wildchar& if has('unix') " should be able to complete a file name that starts with a '~'. call writefile([], '~Xtest') call feedkeys(":e \\~X\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"e \~Xtest', @:) call delete('~Xtest') " should be able to complete a file name that has a '*' call writefile([], 'Xx*Yy') call feedkeys(":e Xx\*\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"e Xx\*Yy', @:) call delete('Xx*Yy') " use a literal star call feedkeys(":e \\*\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"e \*', @:) endif call feedkeys(":py3f\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"py3file', @:) endfunc " Test for 'wildignorecase' func Test_cmdline_wildignorecase() CheckUnix call writefile([], 'XTEST') set wildignorecase call feedkeys(":e xt\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"e XTEST', @:) call assert_equal(['XTEST'], getcompletion('xt', 'file')) let g:Sline = '' call feedkeys(":e xt\<C-d>\<F4>\<C-B>\"\<CR>", 'xt') call assert_equal('"e xt', @:) call assert_equal('XTEST', g:Sline) set wildignorecase& call delete('XTEST') endfunc func Test_cmdline_write_alternatefile() new call setline('.', ['one', 'two']) f foo.txt new f #-A call assert_equal('foo.txt-A', expand('%')) f #<-B.txt call assert_equal('foo-B.txt', expand('%')) f %< call assert_equal('foo-B', expand('%')) new call assert_fails('f #<', 'E95:') bw! f foo-B.txt f %<-A call assert_equal('foo-B-A', expand('%')) bw! bw! endfunc " using a leading backslash here set cpo+=C func Test_cmdline_search_range() new call setline(1, ['a', 'b', 'c', 'd']) /d 1,\/s/b/B/ call assert_equal('B', getline(2)) /a $ \?,4s/c/C/ call assert_equal('C', getline(3)) call setline(1, ['a', 'b', 'c', 'd']) %s/c/c/ 1,\&s/b/B/ call assert_equal('B', getline(2)) let @/ = 'apple' call assert_fails('\/print', ['E486:.*apple']) bwipe! endfunc " Test for the tick mark (') in an excmd range func Test_tick_mark_in_range() " If only the tick is passed as a range and no command is specified, there " should not be an error call feedkeys(":'\<CR>", 'xt') call assert_equal("'", @:) call assert_fails("',print", 'E78:') endfunc " Test for using a line number followed by a search pattern as range func Test_lnum_and_pattern_as_range() new call setline(1, ['foo 1', 'foo 2', 'foo 3']) let @" = '' 2/foo/yank call assert_equal("foo 3\n", @") call assert_equal(1, line('.')) close! endfunc " Tests for getcmdline(), getcmdpos() and getcmdtype() func Check_cmdline(cmdtype) call assert_equal('MyCmd a', getcmdline()) call assert_equal(8, getcmdpos()) call assert_equal(a:cmdtype, getcmdtype()) return '' endfunc set cpo& func Test_getcmdtype() call feedkeys(":MyCmd a\<C-R>=Check_cmdline(':')\<CR>\<Esc>", "xt") let cmdtype = '' debuggreedy call feedkeys(":debug echo 'test'\<CR>", "t") call feedkeys("let cmdtype = \<C-R>=string(getcmdtype())\<CR>\<CR>", "t") call feedkeys("cont\<CR>", "xt") 0debuggreedy call assert_equal('>', cmdtype) call feedkeys("/MyCmd a\<C-R>=Check_cmdline('/')\<CR>\<Esc>", "xt") call feedkeys("?MyCmd a\<C-R>=Check_cmdline('?')\<CR>\<Esc>", "xt") call feedkeys(":call input('Answer?')\<CR>", "t") call feedkeys("MyCmd a\<C-R>=Check_cmdline('@')\<CR>\<C-C>", "xt") call feedkeys(":insert\<CR>MyCmd a\<C-R>=Check_cmdline('-')\<CR>\<Esc>", "xt") cnoremap <expr> <F6> Check_cmdline('=') call feedkeys("a\<C-R>=MyCmd a\<F6>\<Esc>\<Esc>", "xt") cunmap <F6> call assert_equal('', getcmdline()) endfunc func Test_verbosefile() set verbosefile=Xlog echomsg 'foo' echomsg 'bar' set verbosefile= let log = readfile('Xlog') call assert_match("foo\nbar", join(log, "\n")) call delete('Xlog') call mkdir('Xdir') call assert_fails('set verbosefile=Xdir', ['E484:.*Xdir', 'E474:']) call delete('Xdir', 'd') endfunc func Test_verbose_option() CheckScreendump let lines =<< trim [SCRIPT] command DoSomething echo 'hello' |set ts=4 |let v = '123' |echo v call feedkeys("\r", 't') " for the hit-enter prompt set verbose=20 [SCRIPT] call writefile(lines, 'XTest_verbose') let buf = RunVimInTerminal('-S XTest_verbose', {'rows': 12}) call TermWait(buf, 50) call term_sendkeys(buf, ":DoSomething\<CR>") call VerifyScreenDump(buf, 'Test_verbose_option_1', {}) " clean up call StopVimInTerminal(buf) call delete('XTest_verbose') endfunc func Test_setcmdpos() func InsertTextAtPos(text, pos) call assert_equal(0, setcmdpos(a:pos)) return a:text endfunc " setcmdpos() with position in the middle of the command line. call feedkeys(":\"12\<C-R>=InsertTextAtPos('a', 3)\<CR>b\<CR>", 'xt') call assert_equal('"1ab2', @:) call feedkeys(":\"12\<C-R>\<C-R>=InsertTextAtPos('a', 3)\<CR>b\<CR>", 'xt') call assert_equal('"1b2a', @:) " setcmdpos() with position beyond the end of the command line. call feedkeys(":\"12\<C-B>\<C-R>=InsertTextAtPos('a', 10)\<CR>b\<CR>", 'xt') call assert_equal('"12ab', @:) " setcmdpos() returns 1 when not editing the command line. call assert_equal(1, 3->setcmdpos()) endfunc func Test_cmdline_overstrike() let encodings = ['latin1', 'utf8'] let encoding_save = &encoding for e in encodings exe 'set encoding=' . e " Test overstrike in the middle of the command line. call feedkeys(":\"01234\<home>\<right>\<right>ab\<right>\<insert>cd\<enter>", 'xt') call assert_equal('"0ab1cd4', @:, e) " Test overstrike going beyond end of command line. call feedkeys(":\"01234\<home>\<right>\<right>ab\<right>\<insert>cdefgh\<enter>", 'xt') call assert_equal('"0ab1cdefgh', @:, e) " Test toggling insert/overstrike a few times. call feedkeys(":\"01234\<home>\<right>ab\<right>\<insert>cd\<right>\<insert>ef\<enter>", 'xt') call assert_equal('"ab0cd3ef4', @:, e) endfor " Test overstrike with multi-byte characters. call feedkeys(":\"テキストエディタ\<home>\<right>\<right>ab\<right>\<insert>cd\<enter>", 'xt') call assert_equal('"テabキcdエディタ', @:, e) let &encoding = encoding_save endfunc func Test_buffers_lastused() " check that buffers are sorted by time when wildmode has lastused call test_settime(1550020000) " middle edit bufa enew call test_settime(1550030000) " newest edit bufb enew call test_settime(1550010000) " oldest edit bufc enew call test_settime(0) enew call assert_equal(['bufa', 'bufb', 'bufc'], \ getcompletion('', 'buffer')) let save_wildmode = &wildmode set wildmode=full:lastused let cap = "\<c-r>=execute('let X=getcmdline()')\<cr>" call feedkeys(":b \<tab>" .. cap .. "\<esc>", 'xt') call assert_equal('b bufb', X) call feedkeys(":b \<tab>\<tab>" .. cap .. "\<esc>", 'xt') call assert_equal('b bufa', X) call feedkeys(":b \<tab>\<tab>\<tab>" .. cap .. "\<esc>", 'xt') call assert_equal('b bufc', X) enew edit other call feedkeys(":b \<tab>" .. cap .. "\<esc>", 'xt') call assert_equal('b bufb', X) call feedkeys(":b \<tab>\<tab>" .. cap .. "\<esc>", 'xt') call assert_equal('b bufa', X) call feedkeys(":b \<tab>\<tab>\<tab>" .. cap .. "\<esc>", 'xt') call assert_equal('b bufc', X) enew let &wildmode = save_wildmode bwipeout bufa bwipeout bufb bwipeout bufc endfunc func Test_cmdlineclear_tabenter() CheckScreendump let lines =<< trim [SCRIPT] call setline(1, range(30)) [SCRIPT] call writefile(lines, 'XtestCmdlineClearTabenter') let buf = RunVimInTerminal('-S XtestCmdlineClearTabenter', #{rows: 10}) call TermWait(buf, 25) " in one tab make the command line higher with CTRL-W - call term_sendkeys(buf, ":tabnew\<cr>\<C-w>-\<C-w>-gtgt") call VerifyScreenDump(buf, 'Test_cmdlineclear_tabenter', {}) call StopVimInTerminal(buf) call delete('XtestCmdlineClearTabenter') endfunc " Test for expanding special keywords in cmdline func Test_cmdline_expand_special() %bwipe! call assert_fails('e #', 'E194:') call assert_fails('e <afile>', 'E495:') call assert_fails('e <abuf>', 'E496:') call assert_fails('e <amatch>', 'E497:') call writefile([], 'Xfile.cpp') call writefile([], 'Xfile.java') new Xfile.cpp call feedkeys(":e %:r\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal('"e Xfile.cpp Xfile.java', @:) close call delete('Xfile.cpp') call delete('Xfile.java') endfunc " Test for backtick expression in the command line func Test_cmd_backtick() %argd argadd `=['a', 'b', 'c']` call assert_equal(['a', 'b', 'c'], argv()) %argd argadd `echo abc def` call assert_equal(['abc def'], argv()) %argd endfunc " Test for the :! command func Test_cmd_bang() CheckUnix let lines =<< trim [SCRIPT] " Test for no previous command call assert_fails('!!', 'E34:') set nomore " Test for cmdline expansion with :! call setline(1, 'foo!') silent !echo <cWORD> > Xfile.out call assert_equal(['foo!'], readfile('Xfile.out')) " Test for using previous command silent !echo \! ! call assert_equal(['! echo foo!'], readfile('Xfile.out')) call writefile(v:errors, 'Xresult') call delete('Xfile.out') qall! [SCRIPT] call writefile(lines, 'Xscript') if RunVim([], [], '--clean -S Xscript') call assert_equal([], readfile('Xresult')) endif call delete('Xscript') call delete('Xresult') endfunc " Test error: "E135: *Filter* Autocommands must not change current buffer" func Test_cmd_bang_E135() new call setline(1, ['a', 'b', 'c', 'd']) augroup test_cmd_filter_E135 au! autocmd FilterReadPost * help augroup END call assert_fails('2,3!echo "x"', 'E135:') augroup test_cmd_filter_E135 au! augroup END %bwipe! endfunc " Test for using ~ for home directory in cmdline completion matches func Test_cmdline_expand_home() call mkdir('Xdir') call writefile([], 'Xdir/Xfile1') call writefile([], 'Xdir/Xfile2') cd Xdir let save_HOME = $HOME let $HOME = getcwd() call feedkeys(":e ~/\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal('"e ~/Xfile1 ~/Xfile2', @:) let $HOME = save_HOME cd .. call delete('Xdir', 'rf') endfunc " Test for using CTRL-\ CTRL-G in the command line to go back to normal mode " or insert mode (when 'insertmode' is set) func Test_cmdline_ctrl_g() new call setline(1, 'abc') call cursor(1, 3) " If command line is entered from insert mode, using C-\ C-G should back to " insert mode call feedkeys("i\<C-O>:\<C-\>\<C-G>xy", 'xt') call assert_equal('abxyc', getline(1)) call assert_equal(4, col('.')) " If command line is entered in 'insertmode', using C-\ C-G should back to " 'insertmode' call feedkeys(":set im\<cr>\<C-L>:\<C-\>\<C-G>12\<C-L>:set noim\<cr>", 'xt') call assert_equal('ab12xyc', getline(1)) close! endfunc " Test for 'wildmode' func Wildmode_tests() func T(a, c, p) return "oneA\noneB\noneC" endfunc command -nargs=1 -complete=custom,T MyCmd set nowildmenu set wildmode=full,list let g:Sline = '' call feedkeys(":MyCmd \t\t\<F4>\<C-B>\"\<CR>", 'xt') call assert_equal('oneA oneB oneC', g:Sline) call assert_equal('"MyCmd oneA', @:) set wildmode=longest,full call feedkeys(":MyCmd o\t\<C-B>\"\<CR>", 'xt') call assert_equal('"MyCmd one', @:) call feedkeys(":MyCmd o\t\t\t\t\<C-B>\"\<CR>", 'xt') call assert_equal('"MyCmd oneC', @:) set wildmode=longest call feedkeys(":MyCmd one\t\t\<C-B>\"\<CR>", 'xt') call assert_equal('"MyCmd one', @:) set wildmode=list:longest let g:Sline = '' call feedkeys(":MyCmd \t\<F4>\<C-B>\"\<CR>", 'xt') call assert_equal('oneA oneB oneC', g:Sline) call assert_equal('"MyCmd one', @:) set wildmode="" call feedkeys(":MyCmd \t\t\<C-B>\"\<CR>", 'xt') call assert_equal('"MyCmd oneA', @:) " Test for wildmode=longest with 'fileignorecase' set set wildmode=longest set fileignorecase argadd AAA AAAA AAAAA call feedkeys(":buffer a\t\<C-B>\"\<CR>", 'xt') call assert_equal('"buffer AAA', @:) set fileignorecase& " Test for listing files with wildmode=list set wildmode=list let g:Sline = '' call feedkeys(":b A\t\t\<F4>\<C-B>\"\<CR>", 'xt') call assert_equal('AAA AAAA AAAAA', g:Sline) call assert_equal('"b A', @:) " when using longest completion match, matches shorter than the argument " should be ignored (happens with :help) set wildmode=longest,full set wildmenu call feedkeys(":help a*\t\<C-B>\"\<CR>", 'xt') call assert_equal('"help a', @:) " non existing file call feedkeys(":e a1b2y3z4\t\<C-B>\"\<CR>", 'xt') call assert_equal('"e a1b2y3z4', @:) set wildmenu& " Test for longest file name completion with 'fileignorecase' " On MS-Windows, file names are case insensitive. if has('unix') call writefile([], 'XTESTfoo') call writefile([], 'Xtestbar') set nofileignorecase call feedkeys(":e XT\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"e XTESTfoo', @:) call feedkeys(":e Xt\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"e Xtestbar', @:) set fileignorecase call feedkeys(":e XT\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"e Xtest', @:) call feedkeys(":e Xt\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"e Xtest', @:) set fileignorecase& call delete('XTESTfoo') call delete('Xtestbar') endif %argdelete delcommand MyCmd delfunc T set wildmode& %bwipe! endfunc func Test_wildmode() " Test with utf-8 encoding call Wildmode_tests() " Test with latin1 encoding let save_encoding = &encoding set encoding=latin1 call Wildmode_tests() let &encoding = save_encoding endfunc func Test_custom_complete_autoload() call mkdir('Xdir/autoload', 'p') let save_rtp = &rtp exe 'set rtp=' .. getcwd() .. '/Xdir' let lines =<< trim END func vim8#Complete(a, c, p) return "oneA\noneB\noneC" endfunc END call writefile(lines, 'Xdir/autoload/vim8.vim') command -nargs=1 -complete=custom,vim8#Complete MyCmd set nowildmenu set wildmode=full,list call feedkeys(":MyCmd \<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal('"MyCmd oneA oneB oneC', @:) let &rtp = save_rtp set wildmode& wildmenu& delcommand MyCmd call delete('Xdir', 'rf') endfunc " Test for interrupting the command-line completion func Test_interrupt_compl() func F(lead, cmdl, p) if a:lead =~ 'tw' call interrupt() return endif return "one\ntwo\nthree" endfunc command -nargs=1 -complete=custom,F Tcmd set nowildmenu set wildmode=full let interrupted = 0 try call feedkeys(":Tcmd tw\<Tab>\<C-B>\"\<CR>", 'xt') catch /^Vim:Interrupt$/ let interrupted = 1 endtry call assert_equal(1, interrupted) let interrupted = 0 try call feedkeys(":Tcmd tw\<C-d>\<C-B>\"\<CR>", 'xt') catch /^Vim:Interrupt$/ let interrupted = 1 endtry call assert_equal(1, interrupted) delcommand Tcmd delfunc F set wildmode& endfunc " Test for moving the cursor on the : command line func Test_cmdline_edit() let str = ":one two\<C-U>" let str ..= "one two\<C-W>\<C-W>" let str ..= "four\<BS>\<C-H>\<Del>\<kDel>" let str ..= "\<Left>five\<Right>" let str ..= "\<Home>two " let str ..= "\<C-Left>one " let str ..= "\<C-Right> three" let str ..= "\<End>\<S-Left>four " let str ..= "\<S-Right> six" let str ..= "\<C-B>\"\<C-E> seven\<CR>" call feedkeys(str, 'xt') call assert_equal("\"one two three four five six seven", @:) endfunc " Test for moving the cursor on the / command line in 'rightleft' mode func Test_cmdline_edit_rightleft() CheckFeature rightleft set rightleft set rightleftcmd=search let str = "/one two\<C-U>" let str ..= "one two\<C-W>\<C-W>" let str ..= "four\<BS>\<C-H>\<Del>\<kDel>" let str ..= "\<Right>five\<Left>" let str ..= "\<Home>two " let str ..= "\<C-Right>one " let str ..= "\<C-Left> three" let str ..= "\<End>\<S-Right>four " let str ..= "\<S-Left> six" let str ..= "\<C-B>\"\<C-E> seven\<CR>" call assert_fails("call feedkeys(str, 'xt')", 'E486:') call assert_equal("\"one two three four five six seven", @/) set rightleftcmd& set rightleft& endfunc " Test for using <C-\>e in the command line to evaluate an expression func Test_cmdline_expr() " Evaluate an expression from the beginning of a command line call feedkeys(":abc\<C-B>\<C-\>e\"\\\"hello\"\<CR>\<CR>", 'xt') call assert_equal('"hello', @:) " Use an invalid expression for <C-\>e call assert_beeps('call feedkeys(":\<C-\>einvalid\<CR>", "tx")') " Insert literal <CTRL-\> in the command line call feedkeys(":\"e \<C-\>\<C-Y>\<CR>", 'xt') call assert_equal("\"e \<C-\>\<C-Y>", @:) endfunc " This was making the insert position negative func Test_cmdline_expr_register() exe "sil! norm! ?\<C-\>e0\<C-R>0\<Esc>?\<C-\>e0\<CR>" endfunc " Test for 'imcmdline' and 'imsearch' " This test doesn't actually test the input method functionality. func Test_cmdline_inputmethod() new call setline(1, ['', 'abc', '']) set imcmdline call feedkeys(":\"abc\<CR>", 'xt') call assert_equal("\"abc", @:) call feedkeys(":\"\<C-^>abc\<C-^>\<CR>", 'xt') call assert_equal("\"abc", @:) call feedkeys("/abc\<CR>", 'xt') call assert_equal([2, 1], [line('.'), col('.')]) call feedkeys("/\<C-^>abc\<C-^>\<CR>", 'xt') call assert_equal([2, 1], [line('.'), col('.')]) set imsearch=2 call cursor(1, 1) call feedkeys("/abc\<CR>", 'xt') call assert_equal([2, 1], [line('.'), col('.')]) call cursor(1, 1) call feedkeys("/\<C-^>abc\<C-^>\<CR>", 'xt') call assert_equal([2, 1], [line('.'), col('.')]) set imdisable call feedkeys("/\<C-^>abc\<C-^>\<CR>", 'xt') call assert_equal([2, 1], [line('.'), col('.')]) set imdisable& set imsearch& set imcmdline& %bwipe! endfunc " Test for using CTRL-_ in the command line with 'allowrevins' func Test_cmdline_revins() CheckNotMSWindows CheckFeature rightleft call feedkeys(":\"abc\<c-_>\<cr>", 'xt') call assert_equal("\"abc\<c-_>", @:) set allowrevins call feedkeys(":\"abc\<c-_>xyz\<c-_>\<CR>", 'xt') call assert_equal('"abcñèæ', @:) set allowrevins& endfunc " Test for typing UTF-8 composing characters in the command line func Test_cmdline_composing_chars() call feedkeys(":\"\<C-V>u3046\<C-V>u3099\<CR>", 'xt') call assert_equal('"ゔ', @:) endfunc " test that ";" works to find a match at the start of the first line func Test_zero_line_search() new call setline(1, ["1, pattern", "2, ", "3, pattern"]) call cursor(1,1) 0;/pattern/d call assert_equal(["2, ", "3, pattern"], getline(1,'$')) q! endfunc func Test_read_shellcmd() CheckUnix if executable('ls') " There should be ls in the $PATH call feedkeys(":r! l\<c-a>\<c-b>\"\<cr>", 'tx') call assert_match('^"r! .*\<ls\>', @:) endif if executable('rm') call feedkeys(":r! ++enc=utf-8 r\<c-a>\<c-b>\"\<cr>", 'tx') call assert_notmatch('^"r!.*\<runtest.vim\>', @:) call assert_match('^"r!.*\<rm\>', @:) call feedkeys(":r ++enc=utf-8 !rm\<c-a>\<c-b>\"\<cr>", 'tx') call assert_notmatch('^"r.*\<runtest.vim\>', @:) call assert_match('^"r ++enc\S\+ !.*\<rm\>', @:) endif endfunc " Test for going up and down the directory tree using 'wildmenu' func Test_wildmenu_dirstack() CheckUnix %bw! call mkdir('Xdir1/dir2/dir3/dir4', 'p') call writefile([], 'Xdir1/file1_1.txt') call writefile([], 'Xdir1/file1_2.txt') call writefile([], 'Xdir1/dir2/file2_1.txt') call writefile([], 'Xdir1/dir2/file2_2.txt') call writefile([], 'Xdir1/dir2/dir3/file3_1.txt') call writefile([], 'Xdir1/dir2/dir3/file3_2.txt') call writefile([], 'Xdir1/dir2/dir3/dir4/file4_1.txt') call writefile([], 'Xdir1/dir2/dir3/dir4/file4_2.txt') set wildmenu cd Xdir1/dir2/dir3/dir4 call feedkeys(":e \<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"e file4_1.txt', @:) call feedkeys(":e \<Tab>\<Up>\<C-B>\"\<CR>", 'xt') call assert_equal('"e ../dir4/', @:) call feedkeys(":e \<Tab>\<Up>\<Up>\<C-B>\"\<CR>", 'xt') call assert_equal('"e ../../dir3/', @:) call feedkeys(":e \<Tab>\<Up>\<Up>\<Up>\<C-B>\"\<CR>", 'xt') call assert_equal('"e ../../../dir2/', @:) call feedkeys(":e \<Tab>\<Up>\<Up>\<Down>\<C-B>\"\<CR>", 'xt') call assert_equal('"e ../../dir3/dir4/', @:) call feedkeys(":e \<Tab>\<Up>\<Up>\<Down>\<Down>\<C-B>\"\<CR>", 'xt') call assert_equal('"e ../../dir3/dir4/file4_1.txt', @:) cd - call feedkeys(":e Xdir1/\<Tab>\<Down>\<Down>\<Down>\<C-B>\"\<CR>", 'xt') call assert_equal('"e Xdir1/dir2/dir3/dir4/file4_1.txt', @:) call delete('Xdir1', 'rf') set wildmenu& endfunc " Test for recalling newer or older cmdline from history with <Up>, <Down>, " <S-Up>, <S-Down>, <PageUp>, <PageDown>, <kPageUp>, <kPageDown>, <C-p>, or " <C-n>. func Test_recalling_cmdline() CheckFeature cmdline_hist let g:cmdlines = [] cnoremap <Plug>(save-cmdline) <Cmd>let g:cmdlines += [getcmdline()]<CR> let histories = [ \ #{name: 'cmd', enter: ':', exit: "\<Esc>"}, \ #{name: 'search', enter: '/', exit: "\<Esc>"}, \ #{name: 'expr', enter: ":\<C-r>=", exit: "\<Esc>\<Esc>"}, \ #{name: 'input', enter: ":call input('')\<CR>", exit: "\<CR>"}, "\ TODO: {'name': 'debug', ...} \] let keypairs = [ \ #{older: "\<Up>", newer: "\<Down>", prefixmatch: v:true}, \ #{older: "\<S-Up>", newer: "\<S-Down>", prefixmatch: v:false}, \ #{older: "\<PageUp>", newer: "\<PageDown>", prefixmatch: v:false}, \ #{older: "\<kPageUp>", newer: "\<kPageDown>", prefixmatch: v:false}, \ #{older: "\<C-p>", newer: "\<C-n>", prefixmatch: v:false}, \] let prefix = 'vi' for h in histories call histadd(h.name, 'vim') call histadd(h.name, 'virtue') call histadd(h.name, 'Virgo') call histadd(h.name, 'vogue') call histadd(h.name, 'emacs') for k in keypairs let g:cmdlines = [] let keyseqs = h.enter \ .. prefix \ .. repeat(k.older .. "\<Plug>(save-cmdline)", 2) \ .. repeat(k.newer .. "\<Plug>(save-cmdline)", 2) \ .. h.exit call feedkeys(keyseqs, 'xt') call histdel(h.name, -1) " delete the history added by feedkeys above let expect = k.prefixmatch \ ? ['virtue', 'vim', 'virtue', prefix] \ : ['emacs', 'vogue', 'emacs', prefix] call assert_equal(expect, g:cmdlines) endfor endfor unlet g:cmdlines cunmap <Plug>(save-cmdline) endfunc func Test_cmd_map_cmdlineChanged() let g:log = [] cnoremap <F1> l<Cmd><CR>s augroup test autocmd! autocmd CmdlineChanged : let g:log += [getcmdline()] augroup END call feedkeys(":\<F1>\<CR>", 'xt') call assert_equal(['l', 'ls'], g:log) let @b = 'b' cnoremap <F1> a<C-R>b let g:log = [] call feedkeys(":\<F1>\<CR>", 'xt') call assert_equal(['a', 'ab'], g:log) unlet g:log cunmap <F1> augroup test autocmd! augroup END endfunc " Test for the 'suffixes' option func Test_suffixes_opt() call writefile([], 'Xfile') call writefile([], 'Xfile.c') call writefile([], 'Xfile.o') set suffixes= call feedkeys(":e Xfi*\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal('"e Xfile Xfile.c Xfile.o', @:) call feedkeys(":e Xfi*\<Tab>\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"e Xfile.c', @:) set suffixes=.c call feedkeys(":e Xfi*\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal('"e Xfile Xfile.o Xfile.c', @:) call feedkeys(":e Xfi*\<Tab>\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"e Xfile.o', @:) set suffixes=,, call feedkeys(":e Xfi*\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal('"e Xfile.c Xfile.o Xfile', @:) call feedkeys(":e Xfi*\<Tab>\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"e Xfile.o', @:) set suffixes& " Test for getcompletion() with different patterns call assert_equal(['Xfile', 'Xfile.c', 'Xfile.o'], getcompletion('Xfile', 'file')) call assert_equal(['Xfile'], getcompletion('Xfile$', 'file')) call delete('Xfile') call delete('Xfile.c') call delete('Xfile.o') endfunc " Test for using a popup menu for the command line completion matches " (wildoptions=pum) func Test_wildmenu_pum() CheckRunVimInTerminal let commands =<< trim [CODE] set wildmenu set wildoptions=pum set shm+=I set noruler set noshowcmd func CmdCompl(a, b, c) return repeat(['aaaa'], 120) endfunc command -nargs=* -complete=customlist,CmdCompl Tcmd func MyStatusLine() abort return 'status' endfunc func SetupStatusline() set statusline=%!MyStatusLine() set laststatus=2 endfunc func MyTabLine() return 'my tab line' endfunc func SetupTabline() set statusline= set tabline=%!MyTabLine() set showtabline=2 endfunc func DoFeedKeys() let &wildcharm = char2nr("\t") call feedkeys(":edit $VIMRUNTIME/\<Tab>\<Left>\<C-U>ab\<Tab>") endfunc [CODE] call writefile(commands, 'Xtest') let buf = RunVimInTerminal('-S Xtest', #{rows: 10}) call term_sendkeys(buf, ":sign \<Tab>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_01', {}) " going down the popup menu using <Down> call term_sendkeys(buf, "\<Down>\<Down>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_02', {}) " going down the popup menu using <C-N> call term_sendkeys(buf, "\<C-N>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_03', {}) " going up the popup menu using <C-P> call term_sendkeys(buf, "\<C-P>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_04', {}) " going up the popup menu using <Up> call term_sendkeys(buf, "\<Up>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_05', {}) " pressing <C-E> should end completion and go back to the original match call term_sendkeys(buf, "\<C-E>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_06', {}) " pressing <C-Y> should select the current match and end completion call term_sendkeys(buf, "\<Tab>\<C-P>\<C-P>\<C-Y>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_07', {}) " With 'wildmode' set to 'longest,full', completing a match should display " the longest match, the wildmenu should not be displayed. call term_sendkeys(buf, ":\<C-U>set wildmode=longest,full\<CR>") call TermWait(buf) call term_sendkeys(buf, ":sign u\<Tab>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_08', {}) " pressing <Tab> should display the wildmenu call term_sendkeys(buf, "\<Tab>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_09', {}) " pressing <Tab> second time should select the next entry in the menu call term_sendkeys(buf, "\<Tab>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_10', {}) call term_sendkeys(buf, ":\<C-U>set wildmode=full\<CR>") " showing popup menu in different columns in the cmdline call term_sendkeys(buf, ":sign define \<Tab>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_11', {}) call term_sendkeys(buf, " \<Tab>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_12', {}) call term_sendkeys(buf, " \<Tab>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_13', {}) " Directory name completion call mkdir('Xdir/XdirA/XdirB', 'p') call writefile([], 'Xdir/XfileA') call writefile([], 'Xdir/XdirA/XfileB') call writefile([], 'Xdir/XdirA/XdirB/XfileC') call term_sendkeys(buf, "\<C-U>e Xdi\<Tab>\<Tab>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_14', {}) " Pressing <Right> on a directory name should go into that directory call term_sendkeys(buf, "\<Right>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_15', {}) " Pressing <Left> on a directory name should go to the parent directory call term_sendkeys(buf, "\<Left>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_16', {}) " Pressing <C-A> when the popup menu is displayed should list all the " matches but the popup menu should still remain call term_sendkeys(buf, "\<C-U>sign \<Tab>\<C-A>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_17', {}) " Pressing <C-D> when the popup menu is displayed should remove the popup " menu call term_sendkeys(buf, "\<C-U>sign \<Tab>\<C-D>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_18', {}) " Pressing <S-Tab> should open the popup menu with the last entry selected call term_sendkeys(buf, "\<C-U>\<CR>:sign \<S-Tab>\<C-P>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_19', {}) " Pressing <Esc> should close the popup menu and cancel the cmd line call term_sendkeys(buf, "\<C-U>\<CR>:sign \<Tab>\<Esc>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_20', {}) " Typing a character when the popup is open, should close the popup call term_sendkeys(buf, ":sign \<Tab>x") call VerifyScreenDump(buf, 'Test_wildmenu_pum_21', {}) " When the popup is open, entering the cmdline window should close the popup call term_sendkeys(buf, "\<C-U>sign \<Tab>\<C-F>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_22', {}) call term_sendkeys(buf, ":q\<CR>") " After the last popup menu item, <C-N> should show the original string call term_sendkeys(buf, ":sign u\<Tab>\<C-N>\<C-N>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_23', {}) " Use the popup menu for the command name call term_sendkeys(buf, "\<C-U>bu\<Tab>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_24', {}) " Pressing the left arrow should remove the popup menu call term_sendkeys(buf, "\<Left>\<Left>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_25', {}) " Pressing <BS> should remove the popup menu and erase the last character call term_sendkeys(buf, "\<C-E>\<C-U>sign \<Tab>\<BS>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_26', {}) " Pressing <C-W> should remove the popup menu and erase the previous word call term_sendkeys(buf, "\<C-E>\<C-U>sign \<Tab>\<C-W>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_27', {}) " Pressing <C-U> should remove the popup menu and erase the entire line call term_sendkeys(buf, "\<C-E>\<C-U>sign \<Tab>\<C-U>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_28', {}) " Using <C-E> to cancel the popup menu and then pressing <Up> should recall " the cmdline from history call term_sendkeys(buf, "sign xyz\<Esc>:sign \<Tab>\<C-E>\<Up>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_29', {}) " Check "list" still works call term_sendkeys(buf, "\<C-U>set wildmode=longest,list\<CR>") call term_sendkeys(buf, ":cn\<Tab>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_30', {}) call term_sendkeys(buf, "s") call VerifyScreenDump(buf, 'Test_wildmenu_pum_31', {}) " Tests a directory name contained full-width characters. call mkdir('Xdir/あいう', 'p') call writefile([], 'Xdir/あいう/abc') call writefile([], 'Xdir/あいう/xyz') call writefile([], 'Xdir/あいう/123') call term_sendkeys(buf, "\<C-U>set wildmode&\<CR>") call term_sendkeys(buf, ":\<C-U>e Xdir/あいう/\<Tab>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_32', {}) " Pressing <C-A> when the popup menu is displayed should list all the " matches and pressing a key after that should remove the popup menu call term_sendkeys(buf, "\<C-U>set wildmode=full\<CR>") call term_sendkeys(buf, ":sign \<Tab>\<C-A>x") call VerifyScreenDump(buf, 'Test_wildmenu_pum_33', {}) " Pressing <C-A> when the popup menu is displayed should list all the " matches and pressing <Left> after that should move the cursor call term_sendkeys(buf, "\<C-U>abc\<Esc>") call term_sendkeys(buf, ":sign \<Tab>\<C-A>\<Left>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_34', {}) " When <C-A> displays a lot of matches (screen scrolls), all the matches " should be displayed correctly on the screen. call term_sendkeys(buf, "\<End>\<C-U>Tcmd \<Tab>\<C-A>\<Left>\<Left>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_35', {}) " After using <C-A> to expand all the filename matches, pressing <Up> " should not open the popup menu again. call term_sendkeys(buf, "\<C-E>\<C-U>:cd Xdir/XdirA\<CR>") call term_sendkeys(buf, ":e \<Tab>\<C-A>\<Up>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_36', {}) call term_sendkeys(buf, "\<C-E>\<C-U>:cd -\<CR>") " After using <C-A> to expand all the matches, pressing <S-Tab> used to " crash Vim call term_sendkeys(buf, ":sign \<Tab>\<C-A>\<S-Tab>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_37', {}) " After removing the pum the command line is redrawn call term_sendkeys(buf, ":edit foo\<CR>") call term_sendkeys(buf, ":edit bar\<CR>") call term_sendkeys(buf, ":ls\<CR>") call term_sendkeys(buf, ":com\<Tab> ") call VerifyScreenDump(buf, 'Test_wildmenu_pum_38', {}) call term_sendkeys(buf, "\<C-U>\<CR>") " Esc still works to abort the command when 'statusline' is set call term_sendkeys(buf, ":call SetupStatusline()\<CR>") call term_sendkeys(buf, ":si\<Tab>") call term_sendkeys(buf, "\<Esc>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_39', {}) " Esc still works to abort the command when 'tabline' is set call term_sendkeys(buf, ":call SetupTabline()\<CR>") call term_sendkeys(buf, ":si\<Tab>") call term_sendkeys(buf, "\<Esc>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_40', {}) " popup is cleared also when 'lazyredraw' is set call term_sendkeys(buf, ":set showtabline=1 laststatus=1 lazyredraw\<CR>") call term_sendkeys(buf, ":call DoFeedKeys()\<CR>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_41', {}) call term_sendkeys(buf, "\<Esc>") " Pressing <PageDown> should scroll the menu downward call term_sendkeys(buf, ":sign \<Tab>\<PageDown>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_42', {}) call term_sendkeys(buf, "\<PageDown>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_43', {}) call term_sendkeys(buf, "\<PageDown>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_44', {}) call term_sendkeys(buf, "\<PageDown>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_45', {}) call term_sendkeys(buf, "\<C-U>sign \<Tab>\<Down>\<Down>\<PageDown>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_46', {}) " Pressing <PageUp> should scroll the menu upward call term_sendkeys(buf, "\<C-U>sign \<Tab>\<PageUp>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_47', {}) call term_sendkeys(buf, "\<PageUp>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_48', {}) call term_sendkeys(buf, "\<PageUp>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_49', {}) call term_sendkeys(buf, "\<PageUp>") call VerifyScreenDump(buf, 'Test_wildmenu_pum_50', {}) call term_sendkeys(buf, "\<C-U>\<CR>") call StopVimInTerminal(buf) call delete('Xtest') call delete('Xdir', 'rf') endfunc " Test for wildmenumode() with the cmdline popup menu func Test_wildmenumode_with_pum() set wildmenu set wildoptions=pum cnoremap <expr> <F2> wildmenumode() call feedkeys(":sign \<Tab>\<F2>\<F2>\<C-B>\"\<CR>", 'xt') call assert_equal('"sign define10', @:) call feedkeys(":sign \<Tab>\<C-A>\<F2>\<C-B>\"\<CR>", 'xt') call assert_equal('"sign define jump list place undefine unplace0', @:) call feedkeys(":sign \<Tab>\<C-E>\<F2>\<C-B>\"\<CR>", 'xt') call assert_equal('"sign 0', @:) call feedkeys(":sign \<Tab>\<C-Y>\<F2>\<C-B>\"\<CR>", 'xt') call assert_equal('"sign define0', @:) set nowildmenu wildoptions& cunmap <F2> endfunc func Test_wildmenu_with_pum_foldexpr() CheckRunVimInTerminal let lines =<< trim END call setline(1, ['folded one', 'folded two', 'some more text']) func MyFoldText() return 'foo' endfunc set foldtext=MyFoldText() wildoptions=pum normal ggzfj END call writefile(lines, 'Xpumfold') let buf = RunVimInTerminal('-S Xpumfold', #{rows: 10}) call term_sendkeys(buf, ":set\<Tab>") call VerifyScreenDump(buf, 'Test_wildmenu_with_pum_foldexpr_1', {}) call term_sendkeys(buf, "\<Esc>") call VerifyScreenDump(buf, 'Test_wildmenu_with_pum_foldexpr_2', {}) call StopVimInTerminal(buf) call delete('Xpumfold') endfunc " Test for opening the cmdline completion popup menu from the terminal window. " The popup menu should be positioned correctly over the status line of the " bottom-most window. func Test_wildmenu_pum_from_terminal() CheckRunVimInTerminal let python = PythonProg() call CheckPython(python) %bw! let cmds = ['set wildmenu wildoptions=pum'] let pcmd = python .. ' -c "import sys; sys.stdout.write(sys.stdin.read())"' call add(cmds, "call term_start('" .. pcmd .. "')") call writefile(cmds, 'Xtest') let buf = RunVimInTerminal('-S Xtest', #{rows: 10}) call term_sendkeys(buf, "\r\r\r") call term_wait(buf) call term_sendkeys(buf, "\<C-W>:sign \<Tab>") call term_wait(buf) call VerifyScreenDump(buf, 'Test_wildmenu_pum_term_01', {}) call term_wait(buf) call StopVimInTerminal(buf) call delete('Xtest') endfunc " Test for completion after a :substitute command followed by a pipe (|) " character func Test_cmdline_complete_substitute() call feedkeys(":s | \t\<C-B>\"\<CR>", 'xt') call assert_equal("\"s | \t", @:) call feedkeys(":s/ | \t\<C-B>\"\<CR>", 'xt') call assert_equal("\"s/ | \t", @:) call feedkeys(":s/one | \t\<C-B>\"\<CR>", 'xt') call assert_equal("\"s/one | \t", @:) call feedkeys(":s/one/ | \t\<C-B>\"\<CR>", 'xt') call assert_equal("\"s/one/ | \t", @:) call feedkeys(":s/one/two | \t\<C-B>\"\<CR>", 'xt') call assert_equal("\"s/one/two | \t", @:) call feedkeys(":s/one/two/ | chist\t\<C-B>\"\<CR>", 'xt') call assert_equal('"s/one/two/ | chistory', @:) call feedkeys(":s/one/two/g \t\<C-B>\"\<CR>", 'xt') call assert_equal("\"s/one/two/g \t", @:) call feedkeys(":s/one/two/g | chist\t\<C-B>\"\<CR>", 'xt') call assert_equal("\"s/one/two/g | chistory", @:) call feedkeys(":s/one/t\\/ | \t\<C-B>\"\<CR>", 'xt') call assert_equal("\"s/one/t\\/ | \t", @:) call feedkeys(":s/one/t\"o/ | chist\t\<C-B>\"\<CR>", 'xt') call assert_equal('"s/one/t"o/ | chistory', @:) call feedkeys(":s/one/t|o/ | chist\t\<C-B>\"\<CR>", 'xt') call assert_equal('"s/one/t|o/ | chistory', @:) call feedkeys(":&\t\<C-B>\"\<CR>", 'xt') call assert_equal("\"&\t", @:) endfunc " Test for the :dlist command completion func Test_cmdline_complete_dlist() call feedkeys(":dlist 10 /pat/ a\<C-A>\<C-B>\"\<CR>", 'xt') call assert_equal("\"dlist 10 /pat/ a\<C-A>", @:) call feedkeys(":dlist 10 /pat/ \t\<C-B>\"\<CR>", 'xt') call assert_equal("\"dlist 10 /pat/ \t", @:) call feedkeys(":dlist 10 /pa\\t/\t\<C-B>\"\<CR>", 'xt') call assert_equal("\"dlist 10 /pa\\t/\t", @:) call feedkeys(":dlist 10 /pat\\\t\<C-B>\"\<CR>", 'xt') call assert_equal("\"dlist 10 /pat\\\t", @:) call feedkeys(":dlist 10 /pat/ | chist\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal("\"dlist 10 /pat/ | chistory", @:) endfunc " argument list (only for :argdel) fuzzy completion func Test_fuzzy_completion_arglist() argadd change.py count.py charge.py set wildoptions& call feedkeys(":argdel cge\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal('"argdel cge', @:) set wildoptions=fuzzy call feedkeys(":argdel cge\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal('"argdel change.py charge.py', @:) %argdelete set wildoptions& endfunc " autocmd group name fuzzy completion func Test_fuzzy_completion_autocmd() set wildoptions& augroup MyFuzzyGroup augroup END call feedkeys(":augroup mfg\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"augroup mfg', @:) call feedkeys(":augroup My*p\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"augroup MyFuzzyGroup', @:) set wildoptions=fuzzy call feedkeys(":augroup mfg\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"augroup MyFuzzyGroup', @:) call feedkeys(":augroup My*p\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"augroup My*p', @:) augroup! MyFuzzyGroup set wildoptions& endfunc " buffer name fuzzy completion func Test_fuzzy_completion_bufname() set wildoptions& " Use a long name to reduce the risk of matching a random directory name edit SomeRandomFileWithLetters.txt enew call feedkeys(":b SRFWL\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"b SRFWL', @:) call feedkeys(":b S*FileWithLetters.txt\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"b SomeRandomFileWithLetters.txt', @:) set wildoptions=fuzzy call feedkeys(":b SRFWL\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"b SomeRandomFileWithLetters.txt', @:) call feedkeys(":b S*FileWithLetters.txt\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"b S*FileWithLetters.txt', @:) %bw! set wildoptions& endfunc " buffer name (full path) fuzzy completion func Test_fuzzy_completion_bufname_fullpath() CheckUnix set wildoptions& call mkdir('Xcmd/Xstate/Xfile.js', 'p') edit Xcmd/Xstate/Xfile.js cd Xcmd/Xstate enew call feedkeys(":b CmdStateFile\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"b CmdStateFile', @:) set wildoptions=fuzzy call feedkeys(":b CmdStateFile\<Tab>\<C-B>\"\<CR>", 'tx') call assert_match('Xcmd/Xstate/Xfile.js$', @:) cd - call delete('Xcmd', 'rf') set wildoptions& endfunc " :behave suboptions fuzzy completion func Test_fuzzy_completion_behave() set wildoptions& call feedkeys(":behave xm\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"behave xm', @:) call feedkeys(":behave xt*m\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"behave xterm', @:) set wildoptions=fuzzy call feedkeys(":behave xm\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"behave xterm', @:) call feedkeys(":behave xt*m\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"behave xt*m', @:) let g:Sline = '' call feedkeys(":behave win\<C-D>\<F4>\<C-B>\"\<CR>", 'tx') call assert_equal('mswin', g:Sline) call assert_equal('"behave win', @:) set wildoptions& endfunc " " colorscheme name fuzzy completion - NOT supported " func Test_fuzzy_completion_colorscheme() " endfunc " built-in command name fuzzy completion func Test_fuzzy_completion_cmdname() set wildoptions& call feedkeys(":sbwin\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"sbwin', @:) call feedkeys(":sbr*d\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"sbrewind', @:) set wildoptions=fuzzy call feedkeys(":sbwin\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"sbrewind', @:) call feedkeys(":sbr*d\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"sbr*d', @:) set wildoptions& endfunc " " compiler name fuzzy completion - NOT supported " func Test_fuzzy_completion_compiler() " endfunc " :cscope suboptions fuzzy completion func Test_fuzzy_completion_cscope() CheckFeature cscope set wildoptions& call feedkeys(":cscope ret\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"cscope ret', @:) call feedkeys(":cscope re*t\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"cscope reset', @:) set wildoptions=fuzzy call feedkeys(":cscope ret\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"cscope reset', @:) call feedkeys(":cscope re*t\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"cscope re*t', @:) set wildoptions& endfunc " :diffget/:diffput buffer name fuzzy completion func Test_fuzzy_completion_diff() new SomeBuffer diffthis new OtherBuffer diffthis set wildoptions& call feedkeys(":diffget sbuf\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"diffget sbuf', @:) call feedkeys(":diffput sbuf\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"diffput sbuf', @:) set wildoptions=fuzzy call feedkeys(":diffget sbuf\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"diffget SomeBuffer', @:) call feedkeys(":diffput sbuf\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"diffput SomeBuffer', @:) %bw! set wildoptions& endfunc " " directory name fuzzy completion - NOT supported " func Test_fuzzy_completion_dirname() " endfunc " environment variable name fuzzy completion func Test_fuzzy_completion_env() set wildoptions& call feedkeys(":echo $VUT\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"echo $VUT', @:) set wildoptions=fuzzy call feedkeys(":echo $VUT\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"echo $VIMRUNTIME', @:) set wildoptions& endfunc " autocmd event fuzzy completion func Test_fuzzy_completion_autocmd_event() set wildoptions& call feedkeys(":autocmd BWout\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"autocmd BWout', @:) set wildoptions=fuzzy call feedkeys(":autocmd BWout\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"autocmd BufWipeout', @:) set wildoptions& endfunc " vim expression fuzzy completion func Test_fuzzy_completion_expr() let g:PerPlaceCount = 10 set wildoptions& call feedkeys(":let c = ppc\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"let c = ppc', @:) set wildoptions=fuzzy call feedkeys(":let c = ppc\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"let c = PerPlaceCount', @:) set wildoptions& endfunc " " file name fuzzy completion - NOT supported " func Test_fuzzy_completion_filename() " endfunc " " files in path fuzzy completion - NOT supported " func Test_fuzzy_completion_filesinpath() " endfunc " " filetype name fuzzy completion - NOT supported " func Test_fuzzy_completion_filetype() " endfunc " user defined function name completion func Test_fuzzy_completion_userdefined_func() set wildoptions& call feedkeys(":call Test_f_u_f\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"call Test_f_u_f', @:) set wildoptions=fuzzy call feedkeys(":call Test_f_u_f\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"call Test_fuzzy_completion_userdefined_func()', @:) set wildoptions& endfunc " <SNR> functions should be sorted to the end func Test_fuzzy_completion_userdefined_snr_func() func s:Sendmail() endfunc func SendSomemail() endfunc func S1e2n3dmail() endfunc set wildoptions=fuzzy call feedkeys(":call sendmail\<C-A>\<C-B>\"\<CR>", 'tx') call assert_match('"call SendSomemail() S1e2n3dmail() <SNR>\d\+_Sendmail()', @:) set wildoptions& delfunc s:Sendmail delfunc SendSomemail delfunc S1e2n3dmail endfunc " user defined command name completion func Test_fuzzy_completion_userdefined_cmd() set wildoptions& call feedkeys(":MsFeat\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"MsFeat', @:) set wildoptions=fuzzy call feedkeys(":MsFeat\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"MissingFeature', @:) set wildoptions& endfunc " " :help tag fuzzy completion - NOT supported " func Test_fuzzy_completion_helptag() " endfunc " highlight group name fuzzy completion func Test_fuzzy_completion_hlgroup() set wildoptions& call feedkeys(":highlight SKey\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"highlight SKey', @:) call feedkeys(":highlight Sp*Key\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"highlight SpecialKey', @:) set wildoptions=fuzzy call feedkeys(":highlight SKey\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"highlight SpecialKey', @:) call feedkeys(":highlight Sp*Key\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"highlight Sp*Key', @:) set wildoptions& endfunc " :history suboptions fuzzy completion func Test_fuzzy_completion_history() set wildoptions& call feedkeys(":history dg\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"history dg', @:) call feedkeys(":history se*h\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"history search', @:) set wildoptions=fuzzy call feedkeys(":history dg\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"history debug', @:) call feedkeys(":history se*h\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"history se*h', @:) set wildoptions& endfunc " :language locale name fuzzy completion func Test_fuzzy_completion_lang() CheckUnix set wildoptions& call feedkeys(":lang psx\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"lang psx', @:) set wildoptions=fuzzy call feedkeys(":lang psx\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"lang POSIX', @:) set wildoptions& endfunc " :mapclear buffer argument fuzzy completion func Test_fuzzy_completion_mapclear() set wildoptions& call feedkeys(":mapclear buf\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"mapclear buf', @:) set wildoptions=fuzzy call feedkeys(":mapclear buf\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"mapclear <buffer>', @:) set wildoptions& endfunc " map name fuzzy completion func Test_fuzzy_completion_mapname() " test regex completion works set wildoptions=fuzzy call feedkeys(":cnoremap <ex\<Tab> <esc> \<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"cnoremap <expr> <esc> \<Tab>", @:) nmap <plug>MyLongMap :p<CR> call feedkeys(":nmap MLM\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"nmap <Plug>MyLongMap", @:) call feedkeys(":nmap MLM \<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"nmap MLM \t", @:) call feedkeys(":nmap <F2> one two \<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"nmap <F2> one two \t", @:) " duplicate entries should be removed vmap <plug>MyLongMap :<C-U>#<CR> call feedkeys(":nmap MLM\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"nmap <Plug>MyLongMap", @:) nunmap <plug>MyLongMap vunmap <plug>MyLongMap call feedkeys(":nmap ABC\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"nmap ABC\t", @:) " results should be sorted by best match nmap <Plug>format : nmap <Plug>goformat : nmap <Plug>TestFOrmat : nmap <Plug>fendoff : nmap <Plug>state : nmap <Plug>FendingOff : call feedkeys(":nmap <Plug>fo\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal("\"nmap <Plug>format <Plug>TestFOrmat <Plug>FendingOff <Plug>goformat <Plug>fendoff", @:) nunmap <Plug>format nunmap <Plug>goformat nunmap <Plug>TestFOrmat nunmap <Plug>fendoff nunmap <Plug>state nunmap <Plug>FendingOff set wildoptions& endfunc " abbreviation fuzzy completion func Test_fuzzy_completion_abbr() set wildoptions=fuzzy call feedkeys(":iabbr wait\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"iabbr <nowait>", @:) iabbr WaitForCompletion WFC call feedkeys(":iabbr fcl\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"iabbr WaitForCompletion", @:) call feedkeys(":iabbr a1z\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"iabbr a1z\t", @:) iunabbrev WaitForCompletion set wildoptions& endfunc " menu name fuzzy completion func Test_fuzzy_completion_menu() CheckGui set wildoptions& call feedkeys(":menu pup\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"menu pup', @:) set wildoptions=fuzzy call feedkeys(":menu pup\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"menu PopUp.', @:) set wildoptions& endfunc " :messages suboptions fuzzy completion func Test_fuzzy_completion_messages() set wildoptions& call feedkeys(":messages clr\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"messages clr', @:) set wildoptions=fuzzy call feedkeys(":messages clr\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"messages clear', @:) set wildoptions& endfunc " :set option name fuzzy completion func Test_fuzzy_completion_option() set wildoptions& call feedkeys(":set brkopt\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"set brkopt', @:) set wildoptions=fuzzy call feedkeys(":set brkopt\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"set breakindentopt', @:) set wildoptions& call feedkeys(":set fixeol\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"set fixendofline', @:) set wildoptions=fuzzy call feedkeys(":set fixeol\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"set fixendofline', @:) set wildoptions& endfunc " :set <term_option> func Test_fuzzy_completion_term_option() set wildoptions& call feedkeys(":set t_E\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"set t_EC', @:) call feedkeys(":set <t_E\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"set <t_EC>', @:) set wildoptions=fuzzy call feedkeys(":set t_E\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"set t_EC', @:) call feedkeys(":set <t_E\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"set <t_EC>', @:) set wildoptions& endfunc " " :packadd directory name fuzzy completion - NOT supported " func Test_fuzzy_completion_packadd() " endfunc " " shell command name fuzzy completion - NOT supported " func Test_fuzzy_completion_shellcmd() " endfunc " :sign suboptions fuzzy completion func Test_fuzzy_completion_sign() set wildoptions& call feedkeys(":sign ufe\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"sign ufe', @:) set wildoptions=fuzzy call feedkeys(":sign ufe\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"sign undefine', @:) set wildoptions& endfunc " :syntax suboptions fuzzy completion func Test_fuzzy_completion_syntax_cmd() set wildoptions& call feedkeys(":syntax kwd\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"syntax kwd', @:) set wildoptions=fuzzy call feedkeys(":syntax kwd\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"syntax keyword', @:) set wildoptions& endfunc " syntax group name fuzzy completion func Test_fuzzy_completion_syntax_group() set wildoptions& call feedkeys(":syntax list mpar\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"syntax list mpar', @:) set wildoptions=fuzzy call feedkeys(":syntax list mpar\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"syntax list MatchParen', @:) set wildoptions& endfunc " :syntime suboptions fuzzy completion func Test_fuzzy_completion_syntime() CheckFeature profile set wildoptions& call feedkeys(":syntime clr\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"syntime clr', @:) set wildoptions=fuzzy call feedkeys(":syntime clr\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"syntime clear', @:) set wildoptions& endfunc " " tag name fuzzy completion - NOT supported " func Test_fuzzy_completion_tagname() " endfunc " " tag name and file fuzzy completion - NOT supported " func Test_fuzzy_completion_tagfile() " endfunc " " user names fuzzy completion - how to test this functionality? " func Test_fuzzy_completion_username() " endfunc " user defined variable name fuzzy completion func Test_fuzzy_completion_userdefined_var() let g:SomeVariable=10 set wildoptions& call feedkeys(":let SVar\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"let SVar', @:) set wildoptions=fuzzy call feedkeys(":let SVar\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"let SomeVariable', @:) set wildoptions& endfunc " Test for sorting the results by the best match func Test_fuzzy_completion_cmd_sort_results() %bw! command T123format : command T123goformat : command T123TestFOrmat : command T123fendoff : command T123state : command T123FendingOff : set wildoptions=fuzzy call feedkeys(":T123fo\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal('"T123format T123TestFOrmat T123FendingOff T123goformat T123fendoff', @:) delcommand T123format delcommand T123goformat delcommand T123TestFOrmat delcommand T123fendoff delcommand T123state delcommand T123FendingOff %bw set wildoptions& endfunc " Test for fuzzy completion of a command with lower case letters and a number func Test_fuzzy_completion_cmd_alnum() command Foo2Bar : set wildoptions=fuzzy call feedkeys(":foo2\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"Foo2Bar', @:) call feedkeys(":foo\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"Foo2Bar', @:) call feedkeys(":bar\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"Foo2Bar', @:) delcommand Foo2Bar set wildoptions& endfunc " Test for command completion for a command starting with 'k' func Test_fuzzy_completion_cmd_k() command KillKillKill : set wildoptions& call feedkeys(":killkill\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"killkill\<Tab>", @:) set wildoptions=fuzzy call feedkeys(":killkill\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"KillKillKill', @:) delcom KillKillKill set wildoptions& endfunc " Test for fuzzy completion for user defined custom completion function func Test_fuzzy_completion_custom_func() func Tcompl(a, c, p) return "format\ngoformat\nTestFOrmat\nfendoff\nstate" endfunc command -nargs=* -complete=custom,Tcompl Fuzzy : set wildoptions& call feedkeys(":Fuzzy fo\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal("\"Fuzzy format", @:) call feedkeys(":Fuzzy xy\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"Fuzzy xy", @:) call feedkeys(":Fuzzy ttt\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal("\"Fuzzy ttt", @:) set wildoptions=fuzzy call feedkeys(":Fuzzy \<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal("\"Fuzzy format goformat TestFOrmat fendoff state", @:) call feedkeys(":Fuzzy fo\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal("\"Fuzzy format TestFOrmat goformat fendoff", @:) call feedkeys(":Fuzzy xy\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"Fuzzy xy", @:) call feedkeys(":Fuzzy ttt\<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal("\"Fuzzy TestFOrmat", @:) delcom Fuzzy set wildoptions& endfunc " Test for :breakadd argument completion func Test_cmdline_complete_breakadd() call feedkeys(":breakadd \<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd expr file func here", @:) call feedkeys(":breakadd \<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd expr", @:) call feedkeys(":breakadd \<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd expr", @:) call feedkeys(":breakadd he\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd here", @:) call feedkeys(":breakadd he\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd here", @:) call feedkeys(":breakadd abc\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd abc", @:) call assert_equal(['expr', 'file', 'func', 'here'], getcompletion('', 'breakpoint')) let l = getcompletion('not', 'breakpoint') call assert_equal([], l) " Test for :breakadd file [lnum] <file> call writefile([], 'Xscript') call feedkeys(":breakadd file Xsc\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd file Xscript", @:) call feedkeys(":breakadd file Xsc\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd file Xscript", @:) call feedkeys(":breakadd file 20 Xsc\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd file 20 Xscript", @:) call feedkeys(":breakadd file 20 Xsc\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd file 20 Xscript", @:) call feedkeys(":breakadd file 20x Xsc\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd file 20x Xsc\t", @:) call feedkeys(":breakadd file 20\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd file 20\t", @:) call feedkeys(":breakadd file 20x\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd file 20x\t", @:) call feedkeys(":breakadd file Xscript \<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd file Xscript ", @:) call feedkeys(":breakadd file X1B2C3\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd file X1B2C3", @:) call delete('Xscript') " Test for :breakadd func [lnum] <function> func Xbreak_func() endfunc call feedkeys(":breakadd func Xbr\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd func Xbreak_func", @:) call feedkeys(":breakadd func Xbr\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd func Xbreak_func", @:) call feedkeys(":breakadd func 20 Xbr\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd func 20 Xbreak_func", @:) call feedkeys(":breakadd func 20 Xbr\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd func 20 Xbreak_func", @:) call feedkeys(":breakadd func 20x Xbr\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd func 20x Xbr\t", @:) call feedkeys(":breakadd func 20\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd func 20\t", @:) call feedkeys(":breakadd func 20x\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd func 20x\t", @:) call feedkeys(":breakadd func Xbreak_func \<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd func Xbreak_func ", @:) call feedkeys(":breakadd func X1B2C3\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd func X1B2C3", @:) delfunc Xbreak_func " Test for :breakadd expr <expression> let g:Xtest_var = 10 call feedkeys(":breakadd expr Xtest\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd expr Xtest_var", @:) call feedkeys(":breakadd expr Xtest\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd expr Xtest_var", @:) call feedkeys(":breakadd expr Xtest_var \<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd expr Xtest_var ", @:) call feedkeys(":breakadd expr X1B2C3\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd expr X1B2C3", @:) unlet g:Xtest_var " Test for :breakadd here call feedkeys(":breakadd here Xtest\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd here Xtest", @:) call feedkeys(":breakadd here Xtest\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd here Xtest", @:) call feedkeys(":breakadd here \<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakadd here ", @:) endfunc " Test for :breakdel argument completion func Test_cmdline_complete_breakdel() call feedkeys(":breakdel \<C-A>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel file func here", @:) call feedkeys(":breakdel \<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel file", @:) call feedkeys(":breakdel \<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel file", @:) call feedkeys(":breakdel he\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel here", @:) call feedkeys(":breakdel he\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel here", @:) call feedkeys(":breakdel abc\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel abc", @:) " Test for :breakdel file [lnum] <file> call writefile([], 'Xscript') call feedkeys(":breakdel file Xsc\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel file Xscript", @:) call feedkeys(":breakdel file Xsc\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel file Xscript", @:) call feedkeys(":breakdel file 20 Xsc\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel file 20 Xscript", @:) call feedkeys(":breakdel file 20 Xsc\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel file 20 Xscript", @:) call feedkeys(":breakdel file 20x Xsc\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel file 20x Xsc\t", @:) call feedkeys(":breakdel file 20\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel file 20\t", @:) call feedkeys(":breakdel file 20x\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel file 20x\t", @:) call feedkeys(":breakdel file Xscript \<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel file Xscript ", @:) call feedkeys(":breakdel file X1B2C3\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel file X1B2C3", @:) call delete('Xscript') " Test for :breakdel func [lnum] <function> func Xbreak_func() endfunc call feedkeys(":breakdel func Xbr\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel func Xbreak_func", @:) call feedkeys(":breakdel func Xbr\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel func Xbreak_func", @:) call feedkeys(":breakdel func 20 Xbr\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel func 20 Xbreak_func", @:) call feedkeys(":breakdel func 20 Xbr\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel func 20 Xbreak_func", @:) call feedkeys(":breakdel func 20x Xbr\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel func 20x Xbr\t", @:) call feedkeys(":breakdel func 20\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel func 20\t", @:) call feedkeys(":breakdel func 20x\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel func 20x\t", @:) call feedkeys(":breakdel func Xbreak_func \<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel func Xbreak_func ", @:) call feedkeys(":breakdel func X1B2C3\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel func X1B2C3", @:) delfunc Xbreak_func " Test for :breakdel here call feedkeys(":breakdel here Xtest\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel here Xtest", @:) call feedkeys(":breakdel here Xtest\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel here Xtest", @:) call feedkeys(":breakdel here \<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"breakdel here ", @:) endfunc " Test for :scriptnames argument completion func Test_cmdline_complete_scriptnames() set wildmenu call writefile(['let a = 1'], 'Xa1b2c3.vim') source Xa1b2c3.vim call feedkeys(":script \<Tab>\<Left>\<Left>\<C-B>\"\<CR>", 'tx') call assert_match("\"script .*Xa1b2c3.vim$", @:) call feedkeys(":script \<Tab>\<Left>\<Left>\<C-B>\"\<CR>", 'tx') call assert_match("\"script .*Xa1b2c3.vim$", @:) call feedkeys(":script b2c3\<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal("\"script b2c3", @:) call feedkeys(":script 2\<Tab>\<C-B>\"\<CR>", 'tx') call assert_match("\"script 2\<Tab>$", @:) call feedkeys(":script \<Tab>\<Left>\<Left> \<Tab>\<C-B>\"\<CR>", 'tx') call assert_match("\"script .*Xa1b2c3.vim $", @:) call feedkeys(":script \<Tab>\<Left>\<C-B>\"\<CR>", 'tx') call assert_equal("\"script ", @:) call assert_match('Xa1b2c3.vim$', getcompletion('.*Xa1b2.*', 'scriptnames')[0]) call assert_equal([], getcompletion('Xa1b2', 'scriptnames')) new call feedkeys(":script \<Tab>\<Left>\<Left>\<CR>", 'tx') call assert_equal('Xa1b2c3.vim', fnamemodify(@%, ':t')) bw! call delete('Xa1b2c3.vim') set wildmenu& endfunc " this was going over the end of IObuff func Test_report_error_with_composing() let caught = 'no' try exe repeat('0', 987) .. "0\xdd\x80\xdd\x80\xdd\x80\xdd\x80" catch /E492:/ let caught = 'yes' endtry call assert_equal('yes', caught) endfunc " Test for expanding 2-letter and 3-letter :substitute command arguments. " These commands don't accept an argument. func Test_cmdline_complete_substitute_short() for cmd in ['sc', 'sce', 'scg', 'sci', 'scI', 'scn', 'scp', 'scl', \ 'sgc', 'sge', 'sg', 'sgi', 'sgI', 'sgn', 'sgp', 'sgl', 'sgr', \ 'sic', 'sie', 'si', 'siI', 'sin', 'sip', 'sir', \ 'sIc', 'sIe', 'sIg', 'sIi', 'sI', 'sIn', 'sIp', 'sIl', 'sIr', \ 'src', 'srg', 'sri', 'srI', 'srn', 'srp', 'srl', 'sr'] call feedkeys(':' .. cmd .. " \<Tab>\<C-B>\"\<CR>", 'tx') call assert_equal('"' .. cmd .. " \<Tab>", @:) endfor endfunc " Test for :! shell command argument completion func Test_cmdline_complete_bang_cmd_argument() set wildoptions=fuzzy call feedkeys(":!vim test_cmdline.\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"!vim test_cmdline.vim', @:) set wildoptions& call feedkeys(":!vim test_cmdline.\<Tab>\<C-B>\"\<CR>", 'xt') call assert_equal('"!vim test_cmdline.vim', @:) endfunc func Check_completion() call assert_equal('let a', getcmdline()) call assert_equal(6, getcmdpos()) call assert_equal(7, getcmdscreenpos()) call assert_equal('var', getcmdcompltype()) return '' endfunc func Test_screenpos_and_completion() call feedkeys(":let a\<C-R>=Check_completion()\<CR>\<Esc>", "xt") endfunc func Test_recursive_register() let @= = '' silent! ? e/ let caught = 'no' try normal // catch /E169:/ let caught = 'yes' endtry call assert_equal('yes', caught) endfunc func Test_long_error_message() " the error should be truncated, not overrun IObuff silent! norm Q00000000000000 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 endfunc func Test_cmdline_redraw_tabline() CheckRunVimInTerminal let lines =<< trim END set showtabline=2 autocmd CmdlineEnter * set tabline=foo END call writefile(lines, 'Xcmdline_redraw_tabline') let buf = RunVimInTerminal('-S Xcmdline_redraw_tabline', #{rows: 6}) call term_sendkeys(buf, ':') call WaitForAssert({-> assert_match('^foo', term_getline(buf, 1))}) call StopVimInTerminal(buf) call delete('Xcmdline_redraw_tabline') endfunc " vim: shiftwidth=2 sts=2 expandtab