mirror of
https://github.com/neovim/neovim.git
synced 2024-12-20 19:25:11 -07:00
7e0d668012
Problem: Error message for wrong argument type is not specific.
Solution: Include more information in the error. (Yegappan Lakshmanan,
closes vim/vim#11037)
8deb2b30c7
Skip reduce() and deepcopy() changes because of missing patches.
Co-authored-by: Yegappan Lakshmanan <yegappan@yahoo.com>
3616 lines
118 KiB
VimL
3616 lines
118 KiB
VimL
" Tests for editing the command line.
|
||
|
||
source check.vim
|
||
source screendump.vim
|
||
source view_util.vim
|
||
source shared.vim
|
||
|
||
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>")
|
||
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', 'D')
|
||
|
||
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)
|
||
endfunc
|
||
|
||
func Test_redrawstatus_in_autocmd()
|
||
CheckScreendump
|
||
|
||
let lines =<< trim END
|
||
set laststatus=2
|
||
set statusline=%=:%{getcmdline()}
|
||
autocmd CmdlineChanged * redrawstatus
|
||
END
|
||
call writefile(lines, 'XTest_redrawstatus', 'D')
|
||
|
||
let buf = RunVimInTerminal('-S XTest_redrawstatus', {'rows': 8})
|
||
" :redrawstatus is postponed if messages have scrolled
|
||
call term_sendkeys(buf, ":echo \"one\\ntwo\\nthree\\nfour\"\<CR>")
|
||
call term_sendkeys(buf, ":foobar")
|
||
call VerifyScreenDump(buf, 'Test_redrawstatus_in_autocmd_1', {})
|
||
" it is not postponed if messages have not scrolled
|
||
call term_sendkeys(buf, "\<Esc>:for in in range(3)")
|
||
call VerifyScreenDump(buf, 'Test_redrawstatus_in_autocmd_2', {})
|
||
" with cmdheight=1 messages have scrolled when typing :endfor
|
||
call term_sendkeys(buf, "\<CR>:endfor")
|
||
call VerifyScreenDump(buf, 'Test_redrawstatus_in_autocmd_3', {})
|
||
call term_sendkeys(buf, "\<CR>:set cmdheight=2\<CR>")
|
||
" with cmdheight=2 messages haven't scrolled when typing :for or :endfor
|
||
call term_sendkeys(buf, ":for in in range(3)")
|
||
call VerifyScreenDump(buf, 'Test_redrawstatus_in_autocmd_4', {})
|
||
call term_sendkeys(buf, "\<CR>:endfor")
|
||
call VerifyScreenDump(buf, 'Test_redrawstatus_in_autocmd_5', {})
|
||
|
||
" clean up
|
||
call term_sendkeys(buf, "\<CR>")
|
||
call StopVimInTerminal(buf)
|
||
endfunc
|
||
|
||
func Test_changing_cmdheight()
|
||
CheckScreendump
|
||
|
||
let lines =<< trim END
|
||
set cmdheight=1 laststatus=2
|
||
func EchoTwo()
|
||
set laststatus=2
|
||
set cmdheight=5
|
||
echo 'foo'
|
||
echo 'bar'
|
||
set cmdheight=1
|
||
endfunc
|
||
END
|
||
call writefile(lines, 'XTest_cmdheight', 'D')
|
||
|
||
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', {})
|
||
|
||
" setting 'cmdheight' works after outputting two messages
|
||
call term_sendkeys(buf, ":call EchoTwo()\<CR>")
|
||
call VerifyScreenDump(buf, 'Test_changing_cmdheight_6', {})
|
||
|
||
" clean up
|
||
call StopVimInTerminal(buf)
|
||
endfunc
|
||
|
||
func Test_cmdheight_tabline()
|
||
CheckScreendump
|
||
|
||
let buf = RunVimInTerminal('-c "set ls=2" -c "set stal=2" -c "set cmdheight=1"', {'rows': 6})
|
||
call VerifyScreenDump(buf, 'Test_cmdheight_tabline_1', {})
|
||
|
||
" clean up
|
||
call StopVimInTerminal(buf)
|
||
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(':'))
|
||
call feedkeys(":map <M-Left>\<Tab>\<Home>\"\<CR>", 'xt')
|
||
call assert_equal("\"map <M-Left>x", getreg(':'))
|
||
unmap ,f
|
||
unmap ,g
|
||
unmap <Left>
|
||
unmap <A-Left>x
|
||
|
||
set cpo-=< 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(':'))
|
||
call feedkeys(":map \<C-V>\<C-V><M\<Tab>\<Home>\"\<CR>", 'xt')
|
||
call assert_equal("\"map \<C-V><Middle>x", 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 feedkeys(":match A\<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 feedkeys(":hi A\<Tab>\<Home>\"\<CR>", 'xt')
|
||
call assert_equal('"hi Aardig', getreg(':'))
|
||
" call feedkeys(":hi default \<Tab>\<Home>\"\<CR>", 'xt')
|
||
call feedkeys(":hi default A\<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(':'))
|
||
|
||
" 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
|
||
|
||
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)
|
||
source $VIMRUNTIME/delmenu.vim
|
||
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, 'sautest/') >= 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(0, len(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", [])', 'E1174:')
|
||
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_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',
|
||
\ 'CheckUni': 'CheckUnix',
|
||
\ 'CheckUnix': 'CheckUnix',
|
||
\ }
|
||
|
||
for [in, want] in items(tests)
|
||
call assert_equal(want, fullcommand(in))
|
||
endfor
|
||
call assert_equal('', fullcommand(v:_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']
|
||
for e in ['utf8']
|
||
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()
|
||
if !has('keymap')
|
||
return
|
||
endif
|
||
|
||
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
|
||
|
||
redraw
|
||
call assert_equal('~', Screenline(&lines - 1))
|
||
command! FooOne :
|
||
command! FooTwo :
|
||
|
||
set nowildmenu
|
||
call feedkeys(":Foo\<Tab>\<Home>\"\<cr>", 'tx')
|
||
call assert_equal('"FooOne', @:)
|
||
call assert_equal('~', Screenline(&lines - 1))
|
||
|
||
call feedkeys(":Foo\<S-Tab>\<Home>\"\<cr>", 'tx')
|
||
call assert_equal('"FooTwo', @:)
|
||
call assert_equal('~', Screenline(&lines - 1))
|
||
|
||
delcommand FooOne
|
||
delcommand FooTwo
|
||
set wildmenu&
|
||
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
|
||
endif
|
||
if 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
|
||
endif
|
||
endfunc
|
||
|
||
func Test_cmdline_complete_bang()
|
||
if executable('whoami')
|
||
call feedkeys(":!whoam\<C-A>\<C-B>\"\<CR>", 'tx')
|
||
call assert_match('^".*\<whoami\>', @:)
|
||
endif
|
||
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\>', @:)
|
||
|
||
if has('unix')
|
||
" TODO: these tests don't work on Windows. lang appears to be 'C'
|
||
" but C does not appear in the completion. Why?
|
||
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 . '\>', @:)
|
||
endif
|
||
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
|
||
|
||
" 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 :wincmd with :horizontal modifier
|
||
call feedkeys(":horizontal wincm\<C-A>\<C-B>\"\<CR>", 'xt')
|
||
call assert_equal("\"horizontal wincmd", @:)
|
||
|
||
" 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 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", @:)
|
||
call feedkeys(":au X\<C-A>\<C-B>\"\<CR>", 'xt')
|
||
call assert_equal("\"au XTest.test", @:)
|
||
augroup! XTest.test
|
||
|
||
" 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', @:)
|
||
|
||
" 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
|
||
|
||
func Test_cmdline_expand_cur_alt_file()
|
||
enew
|
||
file http://some.com/file.txt
|
||
call feedkeys(":e %\<Tab>\<C-B>\"\<CR>", 'xt')
|
||
call assert_equal('"e http://some.com/file.txt', @:)
|
||
edit another
|
||
call feedkeys(":e #\<Tab>\<C-B>\"\<CR>", 'xt')
|
||
call assert_equal('"e http://some.com/file.txt', @:)
|
||
bwipe
|
||
bwipe http://some.com/file.txt
|
||
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_getcmdwintype()
|
||
call feedkeys("q/:let a = getcmdwintype()\<CR>:q\<CR>", 'x!')
|
||
call assert_equal('/', a)
|
||
|
||
call feedkeys("q?:let a = getcmdwintype()\<CR>:q\<CR>", 'x!')
|
||
call assert_equal('?', a)
|
||
|
||
call feedkeys("q::let a = getcmdwintype()\<CR>:q\<CR>", 'x!')
|
||
call assert_equal(':', a)
|
||
|
||
call feedkeys(":\<C-F>:let a = getcmdwintype()\<CR>:q\<CR>", 'x!')
|
||
call assert_equal(':', a)
|
||
|
||
call assert_equal('', getcmdwintype())
|
||
endfunc
|
||
|
||
func Test_getcmdwin_autocmd()
|
||
let s:seq = []
|
||
augroup CmdWin
|
||
au WinEnter * call add(s:seq, 'WinEnter ' .. win_getid())
|
||
au WinLeave * call add(s:seq, 'WinLeave ' .. win_getid())
|
||
au BufEnter * call add(s:seq, 'BufEnter ' .. bufnr())
|
||
au BufLeave * call add(s:seq, 'BufLeave ' .. bufnr())
|
||
au CmdWinEnter * call add(s:seq, 'CmdWinEnter ' .. win_getid())
|
||
au CmdWinLeave * call add(s:seq, 'CmdWinLeave ' .. win_getid())
|
||
|
||
let org_winid = win_getid()
|
||
let org_bufnr = bufnr()
|
||
call feedkeys("q::let a = getcmdwintype()\<CR>:let s:cmd_winid = win_getid()\<CR>:let s:cmd_bufnr = bufnr()\<CR>:q\<CR>", 'x!')
|
||
call assert_equal(':', a)
|
||
call assert_equal([
|
||
\ 'WinLeave ' .. org_winid,
|
||
\ 'WinEnter ' .. s:cmd_winid,
|
||
\ 'BufLeave ' .. org_bufnr,
|
||
\ 'BufEnter ' .. s:cmd_bufnr,
|
||
\ 'CmdWinEnter ' .. s:cmd_winid,
|
||
\ 'CmdWinLeave ' .. s:cmd_winid,
|
||
\ 'BufLeave ' .. s:cmd_bufnr,
|
||
\ 'WinLeave ' .. s:cmd_winid,
|
||
\ 'WinEnter ' .. org_winid,
|
||
\ 'BufEnter ' .. org_bufnr,
|
||
\ ], s:seq)
|
||
|
||
au!
|
||
augroup END
|
||
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')
|
||
if !has('win32') " FIXME: no error on Windows, libuv bug?
|
||
call assert_fails('set verbosefile=Xdir', ['E484:.*Xdir', 'E474:'])
|
||
endif
|
||
call delete('Xdir', 'd')
|
||
endfunc
|
||
|
||
func Test_verbose_option()
|
||
" See test/functional/legacy/cmdline_spec.lua
|
||
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 term_wait(buf, 100)
|
||
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()
|
||
" Nvim: only utf8 is supported.
|
||
let encodings = ['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_cmdwin_bug()
|
||
let winid = win_getid()
|
||
sp
|
||
try
|
||
call feedkeys("q::call win_gotoid(" .. winid .. ")\<CR>:q\<CR>", 'x!')
|
||
catch /^Vim\%((\a\+)\)\=:E11/
|
||
endtry
|
||
bw!
|
||
endfunc
|
||
|
||
func Test_cmdwin_restore()
|
||
CheckScreendump
|
||
|
||
let lines =<< trim [SCRIPT]
|
||
call setline(1, range(30))
|
||
2split
|
||
[SCRIPT]
|
||
call writefile(lines, 'XTest_restore')
|
||
|
||
let buf = RunVimInTerminal('-S XTest_restore', {'rows': 12})
|
||
call term_wait(buf, 100)
|
||
call term_sendkeys(buf, "q:")
|
||
call VerifyScreenDump(buf, 'Test_cmdwin_restore_1', {})
|
||
|
||
" normal restore
|
||
call term_sendkeys(buf, ":q\<CR>")
|
||
call VerifyScreenDump(buf, 'Test_cmdwin_restore_2', {})
|
||
|
||
" restore after setting 'lines' with one window
|
||
call term_sendkeys(buf, ":close\<CR>")
|
||
call term_sendkeys(buf, "q:")
|
||
call term_sendkeys(buf, ":set lines=18\<CR>")
|
||
call term_sendkeys(buf, ":q\<CR>")
|
||
call VerifyScreenDump(buf, 'Test_cmdwin_restore_3', {})
|
||
|
||
" clean up
|
||
call StopVimInTerminal(buf)
|
||
call delete('XTest_restore')
|
||
endfunc
|
||
|
||
func Test_buffers_lastused()
|
||
" check that buffers are sorted by time when wildmode has lastused
|
||
edit bufc " oldest
|
||
|
||
sleep 1200m
|
||
enew
|
||
edit bufa " middle
|
||
|
||
sleep 1200m
|
||
enew
|
||
edit bufb " newest
|
||
|
||
enew
|
||
|
||
call assert_equal(['bufc', 'bufa', 'bufb'],
|
||
\ 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
|
||
|
||
sleep 1200m
|
||
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_cmdwin_feedkeys()
|
||
" This should not generate E488
|
||
call feedkeys("q:\<CR>", 'x')
|
||
" Using feedkeys with q: only should automatically close the cmd window
|
||
call feedkeys('q:', 'xt')
|
||
call assert_equal(1, winnr('$'))
|
||
call assert_equal('', getcmdwintype())
|
||
endfunc
|
||
|
||
" Tests for the issues fixed in 7.4.441.
|
||
" When 'cedit' is set to Ctrl-C, opening the command window hangs Vim
|
||
func Test_cmdwin_cedit()
|
||
exe "set cedit=\<C-c>"
|
||
normal! :
|
||
call assert_equal(1, winnr('$'))
|
||
|
||
let g:cmd_wintype = ''
|
||
func CmdWinType()
|
||
let g:cmd_wintype = getcmdwintype()
|
||
let g:wintype = win_gettype()
|
||
return ''
|
||
endfunc
|
||
|
||
call feedkeys("\<C-c>a\<C-R>=CmdWinType()\<CR>\<CR>")
|
||
echo input('')
|
||
call assert_equal('@', g:cmd_wintype)
|
||
call assert_equal('command', g:wintype)
|
||
|
||
set cedit&vim
|
||
delfunc CmdWinType
|
||
endfunc
|
||
|
||
" Test for CmdwinEnter autocmd
|
||
func Test_cmdwin_autocmd()
|
||
CheckFeature cmdwin
|
||
|
||
augroup CmdWin
|
||
au!
|
||
autocmd BufLeave * if &buftype == '' | update | endif
|
||
autocmd CmdwinEnter * startinsert
|
||
augroup END
|
||
|
||
call assert_fails('call feedkeys("q:xyz\<CR>", "xt")', 'E492:')
|
||
call assert_equal('xyz', @:)
|
||
|
||
augroup CmdWin
|
||
au!
|
||
augroup END
|
||
augroup! CmdWin
|
||
endfunc
|
||
|
||
func Test_cmdlineclear_tabenter()
|
||
" See test/functional/legacy/cmdline_spec.lua
|
||
CheckScreendump
|
||
|
||
let lines =<< trim [SCRIPT]
|
||
call setline(1, range(30))
|
||
[SCRIPT]
|
||
|
||
call writefile(lines, 'XtestCmdlineClearTabenter')
|
||
let buf = RunVimInTerminal('-S XtestCmdlineClearTabenter', #{rows: 10})
|
||
call term_wait(buf, 50)
|
||
" 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()
|
||
new
|
||
%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
|
||
|
||
func Test_cmdwin_jump_to_win()
|
||
call assert_fails('call feedkeys("q:\<C-W>\<C-W>\<CR>", "xt")', 'E11:')
|
||
new
|
||
set modified
|
||
call assert_fails('call feedkeys("q/:qall\<CR>", "xt")', ['E37:', 'E162:'])
|
||
close!
|
||
call feedkeys("q/:close\<CR>", "xt")
|
||
call assert_equal(1, winnr('$'))
|
||
call feedkeys("q/:exit\<CR>", "xt")
|
||
call assert_equal(1, winnr('$'))
|
||
|
||
" opening command window twice should fail
|
||
call assert_beeps('call feedkeys("q:q:\<CR>\<CR>", "xt")')
|
||
call assert_equal(1, winnr('$'))
|
||
endfunc
|
||
|
||
func Test_cmdwin_tabpage()
|
||
tabedit
|
||
call assert_fails("silent norm q/g :I\<Esc>", 'E11:')
|
||
tabclose!
|
||
endfunc
|
||
|
||
func Test_cmdwin_interrupted()
|
||
CheckScreendump
|
||
|
||
" aborting the :smile output caused the cmdline window to use the current
|
||
" buffer.
|
||
let lines =<< trim [SCRIPT]
|
||
au WinNew * smile
|
||
[SCRIPT]
|
||
call writefile(lines, 'XTest_cmdwin')
|
||
|
||
let buf = RunVimInTerminal('-S XTest_cmdwin', {'rows': 18})
|
||
" open cmdwin
|
||
call term_sendkeys(buf, "q:")
|
||
call WaitForAssert({-> assert_match('-- More --', term_getline(buf, 18))})
|
||
" quit more prompt for :smile command
|
||
call term_sendkeys(buf, "q")
|
||
call WaitForAssert({-> assert_match('^$', term_getline(buf, 18))})
|
||
" execute a simple command
|
||
call term_sendkeys(buf, "aecho 'done'\<CR>")
|
||
call VerifyScreenDump(buf, 'Test_cmdwin_interrupted', {})
|
||
|
||
" clean up
|
||
call StopVimInTerminal(buf)
|
||
call delete('XTest_cmdwin')
|
||
endfunc
|
||
|
||
" Test for backtick expression in the command line
|
||
func Test_cmd_backtick()
|
||
CheckNotMSWindows " FIXME: see #19297
|
||
%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
|
||
|
||
func Test_cmd_bang_args()
|
||
new
|
||
:.!
|
||
call assert_equal(0, v:shell_error)
|
||
|
||
" Note that below there is one space char after the '!'. This caused a
|
||
" shell error in the past, see https://github.com/vim/vim/issues/11495.
|
||
:.!
|
||
call assert_equal(0, v:shell_error)
|
||
bwipe!
|
||
|
||
CheckUnix
|
||
:.!pwd
|
||
call assert_equal(0, v:shell_error)
|
||
:.! pwd
|
||
call assert_equal(0, v:shell_error)
|
||
|
||
" Note there is one space after 'pwd'.
|
||
:.! pwd
|
||
call assert_equal(0, v:shell_error)
|
||
|
||
" Note there are two spaces after 'pwd'.
|
||
:.! pwd
|
||
call assert_equal(0, v:shell_error)
|
||
:.!ls ~
|
||
call assert_equal(0, v:shell_error)
|
||
|
||
" Note there is one space char after '~'.
|
||
:.!ls ~
|
||
call assert_equal(0, v:shell_error)
|
||
|
||
" Note there are two spaces after '~'.
|
||
:.!ls ~
|
||
call assert_equal(0, v:shell_error)
|
||
|
||
:.!echo "foo"
|
||
call assert_equal(getline('.'), "foo")
|
||
:.!echo "foo "
|
||
call assert_equal(getline('.'), "foo ")
|
||
:.!echo " foo "
|
||
call assert_equal(getline('.'), " foo ")
|
||
:.!echo " foo "
|
||
call assert_equal(getline('.'), " foo ")
|
||
|
||
%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
|
||
|
||
" 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 recursively getting multiple command line inputs
|
||
func Test_cmdwin_multi_input()
|
||
call feedkeys(":\<C-R>=input('P: ')\<CR>\"cyan\<CR>\<CR>", 'xt')
|
||
call assert_equal('"cyan', @:)
|
||
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ñèæ', @:)
|
||
call assert_equal('"abcxyz', @:)
|
||
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 for normal mode commands not supported in the cmd window
|
||
func Test_cmdwin_blocked_commands()
|
||
call assert_fails('call feedkeys("q:\<C-T>\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:\<C-]>\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:\<C-^>\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:Q\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:Z\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:\<F1>\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:\<C-W>s\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:\<C-W>v\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:\<C-W>^\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:\<C-W>n\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:\<C-W>z\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:\<C-W>o\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:\<C-W>w\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:\<C-W>j\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:\<C-W>k\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:\<C-W>h\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:\<C-W>l\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:\<C-W>T\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:\<C-W>x\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:\<C-W>r\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:\<C-W>R\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:\<C-W>K\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:\<C-W>}\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:\<C-W>]\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:\<C-W>f\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:\<C-W>d\<CR>", "xt")', 'E11:')
|
||
call assert_fails('call feedkeys("q:\<C-W>g\<CR>", "xt")', 'E11:')
|
||
endfunc
|
||
|
||
" Close the Cmd-line window in insert mode using CTRL-C
|
||
func Test_cmdwin_insert_mode_close()
|
||
%bw!
|
||
let s = ''
|
||
exe "normal q:a\<C-C>let s='Hello'\<CR>"
|
||
call assert_equal('Hello', s)
|
||
call assert_equal(1, winnr('$'))
|
||
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
|
||
|
||
" 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
|
||
|
||
func Test_wildmenu_pum_clear_entries()
|
||
CheckRunVimInTerminal
|
||
|
||
" This was using freed memory. Run in a terminal to get the pum to update.
|
||
let lines =<< trim END
|
||
set wildoptions=pum
|
||
set wildchar=<C-E>
|
||
END
|
||
call writefile(lines, 'XwildmenuTest', 'D')
|
||
let buf = RunVimInTerminal('-S XwildmenuTest', #{rows: 10})
|
||
|
||
call term_sendkeys(buf, ":\<C-E>\<C-E>")
|
||
call VerifyScreenDump(buf, 'Test_wildmenu_pum_clear_entries_1', {})
|
||
|
||
set wildoptions& wildchar&
|
||
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()
|
||
throw 'Skipped: Nvim removed :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_equal('"call SendSomemail() S1e2n3dmail() '
|
||
\ .. expand("<SID>") .. '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()
|
||
CheckFeature menu
|
||
|
||
source $VIMRUNTIME/menu.vim
|
||
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&
|
||
source $VIMRUNTIME/delmenu.vim
|
||
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()
|
||
throw 'Skipped: Nvim does not support term options'
|
||
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')
|
||
" Fuzzy match prefers NvimParenthesis over MatchParen
|
||
" call assert_equal('"syntax list MatchParen', @:)
|
||
call assert_equal('"syntax list NvimParenthesis', @:)
|
||
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 Call_cmd_funcs()
|
||
return string([getcmdpos(), getcmdscreenpos(), getcmdcompltype()])
|
||
endfunc
|
||
|
||
func Test_screenpos_and_completion()
|
||
call assert_equal(0, getcmdpos())
|
||
call assert_equal(0, getcmdscreenpos())
|
||
call assert_equal('', getcmdcompltype())
|
||
|
||
cnoremap <expr> <F2> string([getcmdpos(), getcmdscreenpos(), getcmdcompltype()])
|
||
call feedkeys(":let a\<F2>\<C-B>\"\<CR>", "xt")
|
||
call assert_equal("\"let a[6, 7, 'var']", @:)
|
||
call feedkeys(":quit \<F2>\<C-B>\"\<CR>", "xt")
|
||
call assert_equal("\"quit [6, 7, '']", @:)
|
||
call feedkeys(":nosuchcommand \<F2>\<C-B>\"\<CR>", "xt")
|
||
call assert_equal("\"nosuchcommand [15, 16, '']", @:)
|
||
cunmap <F2>
|
||
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
|
||
|
||
func Test_wildmenu_pum_disable_while_shown()
|
||
set wildoptions=pum
|
||
set wildmenu
|
||
cnoremap <F2> <Cmd>set nowildmenu<CR>
|
||
call feedkeys(":sign \<Tab>\<F2>\<Esc>", 'tx')
|
||
call assert_equal(0, pumvisible())
|
||
cunmap <F2>
|
||
set wildoptions& wildmenu&
|
||
endfunc
|
||
|
||
func Test_setcmdline()
|
||
func SetText(text, pos)
|
||
call assert_equal(0, setcmdline(v:_null_string))
|
||
call assert_equal('', getcmdline())
|
||
call assert_equal(1, getcmdpos())
|
||
|
||
call assert_equal(0, setcmdline(''[: -1]))
|
||
call assert_equal('', getcmdline())
|
||
call assert_equal(1, getcmdpos())
|
||
|
||
autocmd CmdlineChanged * let g:cmdtype = expand('<afile>')
|
||
call assert_equal(0, setcmdline(a:text))
|
||
call assert_equal(a:text, getcmdline())
|
||
call assert_equal(len(a:text) + 1, getcmdpos())
|
||
call assert_equal(getcmdtype(), g:cmdtype)
|
||
unlet g:cmdtype
|
||
autocmd! CmdlineChanged
|
||
|
||
call assert_equal(0, setcmdline(a:text, a:pos))
|
||
call assert_equal(a:text, getcmdline())
|
||
call assert_equal(a:pos, getcmdpos())
|
||
|
||
call assert_fails('call setcmdline("' .. a:text .. '", -1)', 'E487:')
|
||
call assert_fails('call setcmdline({}, 0)', 'E1174:')
|
||
call assert_fails('call setcmdline("' .. a:text .. '", {})', 'E1210:')
|
||
|
||
return ''
|
||
endfunc
|
||
|
||
call feedkeys(":\<C-R>=SetText('set rtp?', 2)\<CR>\<CR>", 'xt')
|
||
call assert_equal('set rtp?', @:)
|
||
|
||
call feedkeys(":let g:str = input('? ')\<CR>", 't')
|
||
call feedkeys("\<C-R>=SetText('foo', 4)\<CR>\<CR>", 'xt')
|
||
call assert_equal('foo', g:str)
|
||
unlet g:str
|
||
|
||
delfunc SetText
|
||
|
||
" setcmdline() returns 1 when not editing the command line.
|
||
call assert_equal(1, 'foo'->setcmdline())
|
||
|
||
" Called in custom function
|
||
func CustomComplete(A, L, P)
|
||
call assert_equal(0, setcmdline("DoCmd "))
|
||
return "January\nFebruary\nMars\n"
|
||
endfunc
|
||
|
||
com! -nargs=* -complete=custom,CustomComplete DoCmd :
|
||
call feedkeys(":DoCmd \<C-A>\<C-B>\"\<CR>", 'tx')
|
||
call assert_equal('"DoCmd January February Mars', @:)
|
||
delcom DoCmd
|
||
delfunc CustomComplete
|
||
|
||
" Called in <expr>
|
||
cnoremap <expr>a setcmdline('let foo=')
|
||
call feedkeys(":a\<CR>", 'tx')
|
||
call assert_equal('let foo=0', @:)
|
||
cunmap a
|
||
endfunc
|
||
|
||
func Test_rulerformat_position()
|
||
CheckScreendump
|
||
|
||
let buf = RunVimInTerminal('', #{rows: 2, cols: 20})
|
||
call term_sendkeys(buf, ":set ruler rulerformat=longish\<CR>")
|
||
call term_sendkeys(buf, ":set laststatus=0 winwidth=1\<CR>")
|
||
call term_sendkeys(buf, "\<C-W>v\<C-W>|\<C-W>p")
|
||
call VerifyScreenDump(buf, 'Test_rulerformat_position', {})
|
||
|
||
" clean up
|
||
call StopVimInTerminal(buf)
|
||
endfunc
|
||
|
||
" vim: shiftwidth=2 sts=2 expandtab
|