diff options
Diffstat (limited to 'mnv/src/testdir/test_ins_complete.mnv')
| -rw-r--r-- | mnv/src/testdir/test_ins_complete.mnv | 6292 |
1 files changed, 6292 insertions, 0 deletions
diff --git a/mnv/src/testdir/test_ins_complete.mnv b/mnv/src/testdir/test_ins_complete.mnv new file mode 100644 index 0000000000..f1d139afa9 --- /dev/null +++ b/mnv/src/testdir/test_ins_complete.mnv @@ -0,0 +1,6292 @@ +" Test for insert completion + +source util/screendump.mnv +import './util/mnv9.mnv' as v9 + +" Test for insert expansion +func Test_ins_complete() + edit test_ins_complete.mnv + " The files in the current directory interferes with the files + " used by this test. So use a separate directory for the test. + call mkdir('Xcpldir') + cd Xcpldir + + set ff=unix + call writefile(["test11\t36Gepeto\t/Tag/", + \ "asd\ttest11file\t36G", + \ "Makefile\tto\trun"], 'Xtestfile', 'D') + call writefile(['', 'start of testfile', + \ 'ru', + \ 'run1', + \ 'run2', + \ 'STARTTEST', + \ 'ENDTEST', + \ 'end of testfile'], 'Xtestdata', 'D') + set ff& + + enew! + edit Xtestdata + new + call append(0, ['#include "Xtestfile"', '']) + call cursor(2, 1) + + set cot= + set cpt=.,w + " add-expands (word from next line) from other window + exe "normal iru\<C-N>\<C-N>\<C-X>\<C-N>\<Esc>\<C-A>" + call assert_equal('run1 run3', getline('.')) + " add-expands (current buffer first) + exe "normal o\<C-P>\<C-X>\<C-N>" + call assert_equal('run3 run3', getline('.')) + " Local expansion, ends in an empty line (unless it becomes a global + " expansion) + exe "normal o\<C-X>\<C-P>\<C-P>\<C-P>\<C-P>\<C-P>" + call assert_equal('', getline('.')) + " starts Local and switches to global add-expansion + exe "normal o\<C-X>\<C-P>\<C-P>\<C-X>\<C-X>\<C-N>\<C-X>\<C-N>\<C-N>" + call assert_equal('run1 run2', getline('.')) + + set cpt=.,\ ,w,i + " i-add-expands and switches to local + exe "normal OM\<C-N>\<C-X>\<C-N>\<C-X>\<C-N>\<C-X>\<C-X>\<C-X>\<C-P>" + call assert_equal("Makefile\tto\trun3", getline('.')) + " add-expands lines (it would end in an empty line if it didn't ignore + " itself) + exe "normal o\<C-X>\<C-L>\<C-X>\<C-L>\<C-P>\<C-P>" + call assert_equal("Makefile\tto\trun3", getline('.')) + call assert_equal("Makefile\tto\trun3", getline(line('.') - 1)) + + set cpt=kXtestfile + " checks k-expansion, and file expansion (use Xtest11 instead of test11, + " because TEST11.OUT may match first on DOS) + write Xtest11.one + write Xtest11.two + exe "normal o\<C-N>\<Esc>IX\<Esc>A\<C-X>\<C-F>\<C-N>" + call assert_equal('Xtest11.two', getline('.')) + + " use CTRL-X CTRL-F to complete Xtest11.one, remove it and then use CTRL-X + " CTRL-F again to verify this doesn't cause trouble. + exe "normal oXt\<C-X>\<C-F>\<BS>\<BS>\<BS>\<BS>\<BS>\<BS>\<BS>\<BS>\<C-X>\<C-F>" + call assert_equal('Xtest11.one', getline('.')) + normal ddk + + " Test for expanding a non-existing filename + exe "normal oa1b2X3Y4\<C-X>\<C-F>" + call assert_equal('a1b2X3Y4', getline('.')) + normal ddk + + set cpt=w + " checks make_cyclic in other window + exe "normal oST\<C-N>\<C-P>\<C-P>\<C-P>\<C-P>" + call assert_equal('STARTTEST', getline('.')) + + set cpt=u nohid + " checks unloaded buffer expansion + only + exe "normal oEN\<C-N>" + call assert_equal('ENDTEST', getline('.')) + " checks adding mode abortion + exe "normal ounl\<C-N>\<C-X>\<C-X>\<C-P>" + call assert_equal('unless', getline('.')) + + set cpt=t,d def=^\\k* tags=Xtestfile notagbsearch + " tag expansion, define add-expansion interrupted + exe "normal o\<C-X>\<C-]>\<C-X>\<C-D>\<C-X>\<C-D>\<C-X>\<C-X>\<C-D>\<C-X>\<C-D>\<C-X>\<C-D>\<C-X>\<C-D>" + call assert_equal('test11file 36Gepeto /Tag/ asd', getline('.')) + " t-expansion + exe "normal oa\<C-N>\<Esc>" + call assert_equal('asd', getline('.')) + + %bw! + call delete('Xtest11.one') + call delete('Xtest11.two') + set cpt& cot& def& tags& tagbsearch& hidden& + cd .. + call delete('Xcpldir', 'rf') +endfunc + +func Test_ins_complete_invalid_byte() + if has('unix') && executable('base64') + " this weird command was causing an illegal memory access + call writefile(['bm9ybTlvMDCAMM4Dbw4OGA4ODg=='], 'Xinvalid64', 'D') + call system('base64 -d Xinvalid64 > Xinvalid') + call writefile(['qa!'], 'Xexit', 'D') + call RunMNV([], [], " -i NONE -n -X -Z -e -m -s -S Xinvalid -S Xexit") + call delete('Xinvalid') + endif +endfunc + +func Test_omni_dash() + func Omni(findstart, base) + if a:findstart + return 5 + else + return ['-help', '-v'] + endif + endfunc + set omnifunc=Omni + new + exe "normal Gofind -\<C-x>\<C-o>" + call assert_equal("find -help", getline('$')) + %d + set complete=o + exe "normal Gofind -\<C-n>" + call assert_equal("find -help", getline('$')) + + bwipe! + delfunc Omni + set omnifunc= complete& +endfunc + +func Test_omni_throw() + let g:CallCount = 0 + func Omni(findstart, base) + let g:CallCount += 1 + if a:findstart + throw "he he he" + endif + endfunc + set omnifunc=Omni + new + try + exe "normal ifoo\<C-x>\<C-o>" + call assert_false(v:true, 'command should have failed') + catch + call assert_exception('he he he') + call assert_equal(1, g:CallCount) + endtry + %d + set complete=o + let g:CallCount = 0 + try + exe "normal ifoo\<C-n>" + call assert_false(v:true, 'command should have failed') + catch + call assert_exception('he he he') + call assert_equal(1, g:CallCount) + endtry + + bwipe! + delfunc Omni + unlet g:CallCount + set omnifunc= complete& +endfunc + +func Test_omni_autoload() + let save_rtp = &rtp + set rtp=Xruntime/some + let dir = 'Xruntime/some/autoload' + call mkdir(dir, 'pR') + + let lines =<< trim END + mnv9script + export def Func(findstart: bool, base: string): any + if findstart + return 1 + else + return ['match'] + endif + enddef + { + eval 1 + 2 + } + END + call writefile(lines, dir .. '/omni.mnv') + + new + setlocal omnifunc=omni#Func + call feedkeys("i\<C-X>\<C-O>\<Esc>", 'xt') + + setlocal complete=.,Fomni#Func + call feedkeys("S\<C-N>\<Esc>", 'xt') + setlocal complete& + + bwipe! + set omnifunc= + let &rtp = save_rtp +endfunc + +func Test_completefunc_args() + let s:args = [] + func! CompleteFunc(findstart, base) + let s:args += [[a:findstart, empty(a:base)]] + endfunc + new + + set completefunc=CompleteFunc + call feedkeys("i\<C-X>\<C-U>\<Esc>", 'x') + call assert_equal([1, 1], s:args[0]) + call assert_equal(0, s:args[1][0]) + set completefunc= + + let s:args = [] + set omnifunc=CompleteFunc + call feedkeys("i\<C-X>\<C-O>\<Esc>", 'x') + call assert_equal([1, 1], s:args[0]) + call assert_equal(0, s:args[1][0]) + set omnifunc= + + set complete=FCompleteFunc + call feedkeys("i\<C-N>\<Esc>", 'x') + call assert_equal([1, 1], s:args[0]) + call assert_equal(0, s:args[1][0]) + set complete=o + call feedkeys("i\<C-N>\<Esc>", 'x') + call assert_equal([1, 1], s:args[0]) + call assert_equal(0, s:args[1][0]) + set complete& + + bwipe! + unlet s:args + delfunc CompleteFunc +endfunc + +func s:CompleteDone_CompleteFuncNone( findstart, base ) + if a:findstart + return 0 + endif + + return v:none +endfunc + +func s:CompleteDone_CompleteFuncDict( findstart, base ) + if a:findstart + return 0 + endif + + return { + \ 'words': [ + \ { + \ 'word': 'aword', + \ 'abbr': 'wrd', + \ 'menu': 'extra text', + \ 'info': 'words are cool', + \ 'kind': 'W', + \ 'user_data': ['one', 'two'] + \ } + \ ] + \ } +endfunc + +func s:CompleteDone_CheckCompletedItemNone() + let s:called_completedone = 1 +endfunc + +func s:CompleteDone_CheckCompletedItemDict(pre) + call assert_equal( 'aword', v:completed_item[ 'word' ] ) + call assert_equal( 'wrd', v:completed_item[ 'abbr' ] ) + call assert_equal( 'extra text', v:completed_item[ 'menu' ] ) + call assert_equal( 'words are cool', v:completed_item[ 'info' ] ) + call assert_equal( 'W', v:completed_item[ 'kind' ] ) + call assert_equal( ['one', 'two'], v:completed_item[ 'user_data' ] ) + + if a:pre + call assert_equal(a:pre == 1 ? 'function' : 'keyword', complete_info().mode) + endif + + let s:called_completedone = 1 +endfunc + +func Test_CompleteDoneNone() + au CompleteDone * :call <SID>CompleteDone_CheckCompletedItemNone() + let oldline = join(map(range(&columns), 'nr2char(screenchar(&lines-1, v:val+1))'), '') + + set completefunc=<SID>CompleteDone_CompleteFuncNone + execute "normal a\<C-X>\<C-U>\<C-Y>" + set completefunc& + let newline = join(map(range(&columns), 'nr2char(screenchar(&lines-1, v:val+1))'), '') + + call assert_true(s:called_completedone) + call assert_equal(oldline, newline) + let s:called_completedone = 0 + + set complete=F<SID>CompleteDone_CompleteFuncNone + execute "normal a\<C-N>\<C-Y>" + set complete& + let newline = join(map(range(&columns), 'nr2char(screenchar(&lines-1, v:val+1))'), '') + + call assert_true(s:called_completedone) + call assert_equal(oldline, newline) + let s:called_completedone = 0 + au! CompleteDone +endfunc + +func Test_CompleteDone_vevent_keys() + func OnDone() + let g:complete_word = get(v:event, 'complete_word', v:null) + let g:complete_type = get(v:event, 'complete_type', v:null) + endfunction + + autocmd CompleteDone * :call OnDone() + + func CompleteFunc(findstart, base) + if a:findstart + return col(".") + endif + return [#{word: "foo"}, #{word: "bar"}] + endfunc + set omnifunc=CompleteFunc + set completefunc=CompleteFunc + set complete=.,FCompleteFunc + set completeopt+=menuone + + new + call feedkeys("A\<C-X>\<C-O>\<Esc>", 'tx') + call assert_equal('', g:complete_word) + call assert_equal('omni', g:complete_type) + + call feedkeys("S\<C-X>\<C-O>\<C-Y>\<Esc>", 'tx') + call assert_equal('foo', g:complete_word) + call assert_equal('omni', g:complete_type) + + call feedkeys("S\<C-X>\<C-O>\<C-N>\<C-Y>\<Esc>0", 'tx') + call assert_equal('bar', g:complete_word) + call assert_equal('omni', g:complete_type) + + call feedkeys("Shello mnv visual v\<C-X>\<C-N>\<ESC>", 'tx') + call assert_equal('', g:complete_word) + call assert_equal('keyword', g:complete_type) + + call feedkeys("Shello mnv visual v\<C-X>\<C-N>\<C-Y>", 'tx') + call assert_equal('mnv', g:complete_word) + call assert_equal('keyword', g:complete_type) + + call feedkeys("Shello mnv visual v\<C-N>\<ESC>", 'tx') + call assert_equal('', g:complete_word) + call assert_equal('keyword', g:complete_type) + + call feedkeys("Shello mnv visual v\<C-N>\<C-Y>", 'tx') + call assert_equal('mnv', g:complete_word) + call assert_equal('keyword', g:complete_type) + + call feedkeys("Shello mnv\<CR>completion test\<CR>\<C-X>\<C-l>\<C-Y>", 'tx') + call assert_equal('completion test', g:complete_word) + call assert_equal('whole_line', g:complete_type) + + call feedkeys("S\<C-X>\<C-U>\<C-Y>", 'tx') + call assert_equal('foo', g:complete_word) + call assert_equal('function', g:complete_type) + + inoremap <buffer> <f3> <cmd>call complete(1, ["red", "blue"])<cr> + call feedkeys("S\<f3>\<C-Y>", 'tx') + call assert_equal('red', g:complete_word) + call assert_equal('eval', g:complete_type) + + call feedkeys("S\<C-X>\<C-V>\<C-Y>", 'tx') + call assert_equal('!', g:complete_word) + call assert_equal('cmdline', g:complete_type) + + call writefile([''], 'foo_test', 'D') + call feedkeys("Sfoo\<C-X>\<C-F>\<C-Y>\<Esc>", 'tx') + call assert_equal('foo_test', g:complete_word) + call assert_equal('files', g:complete_type) + + call writefile(['hello help'], 'Xtest_case.txt', 'D') + set dictionary=Xtest_case.txt + call feedkeys("ggdGSh\<C-X>\<C-K>\<C-Y>\<Esc>", 'tx') + call assert_equal('hello', g:complete_word) + call assert_equal('dictionary', g:complete_type) + + set spell spelllang=en_us + call feedkeys("STheatre\<C-X>s\<C-Y>\<Esc>", 'tx') + call assert_equal('Theater', g:complete_word) + call assert_equal('spell', g:complete_type) + + bwipe! + set completeopt& omnifunc& completefunc& spell& spelllang& dictionary& complete& + autocmd! CompleteDone + delfunc OnDone + delfunc CompleteFunc + unlet g:complete_word + unlet g:complete_type +endfunc + +func Test_CompleteDoneDict() + au CompleteDonePre * :call <SID>CompleteDone_CheckCompletedItemDict(1) + au CompleteDone * :call <SID>CompleteDone_CheckCompletedItemDict(0) + + set completefunc=<SID>CompleteDone_CompleteFuncDict + execute "normal a\<C-X>\<C-U>\<C-Y>" + set completefunc& + + call assert_equal(['one', 'two'], v:completed_item[ 'user_data' ]) + call assert_true(s:called_completedone) + + let s:called_completedone = 0 + au! CompleteDonePre + au! CompleteDone + + au CompleteDonePre * :call <SID>CompleteDone_CheckCompletedItemDict(2) + au CompleteDone * :call <SID>CompleteDone_CheckCompletedItemDict(0) + + set complete=.,F<SID>CompleteDone_CompleteFuncDict + execute "normal a\<C-N>\<C-Y>" + set complete& + + call assert_equal(['one', 'two'], v:completed_item[ 'user_data' ]) + call assert_true(s:called_completedone) + + let s:called_completedone = 0 + au! CompleteDonePre + au! CompleteDone +endfunc + +func s:CompleteDone_CompleteFuncDictNoUserData(findstart, base) + if a:findstart + return 0 + endif + + return { + \ 'words': [ + \ { + \ 'word': 'aword', + \ 'abbr': 'wrd', + \ 'menu': 'extra text', + \ 'info': 'words are cool', + \ 'kind': 'W', + \ } + \ ] + \ } +endfunc + +func s:CompleteDone_CheckCompletedItemDictNoUserData() + call assert_equal( 'aword', v:completed_item[ 'word' ] ) + call assert_equal( 'wrd', v:completed_item[ 'abbr' ] ) + call assert_equal( 'extra text', v:completed_item[ 'menu' ] ) + call assert_equal( 'words are cool', v:completed_item[ 'info' ] ) + call assert_equal( 'W', v:completed_item[ 'kind' ] ) + call assert_equal( '', v:completed_item[ 'user_data' ] ) + + let s:called_completedone = 1 +endfunc + +func Test_CompleteDoneDictNoUserData() + au CompleteDone * :call <SID>CompleteDone_CheckCompletedItemDictNoUserData() + + set completefunc=<SID>CompleteDone_CompleteFuncDictNoUserData + execute "normal a\<C-X>\<C-U>\<C-Y>" + set completefunc& + + call assert_equal('', v:completed_item[ 'user_data' ]) + call assert_true(s:called_completedone) + + let s:called_completedone = 0 + + set complete=.,F<SID>CompleteDone_CompleteFuncDictNoUserData + execute "normal a\<C-N>\<C-Y>" + set complete& + + call assert_equal('', v:completed_item[ 'user_data' ]) + call assert_true(s:called_completedone) + + let s:called_completedone = 0 + au! CompleteDone +endfunc + +func s:CompleteDone_CompleteFuncList(findstart, base) + if a:findstart + return 0 + endif + + return [ 'aword' ] +endfunc + +func s:CompleteDone_CheckCompletedItemList() + call assert_equal( 'aword', v:completed_item[ 'word' ] ) + call assert_equal( '', v:completed_item[ 'abbr' ] ) + call assert_equal( '', v:completed_item[ 'menu' ] ) + call assert_equal( '', v:completed_item[ 'info' ] ) + call assert_equal( '', v:completed_item[ 'kind' ] ) + call assert_equal( '', v:completed_item[ 'user_data' ] ) + + let s:called_completedone = 1 +endfunc + +func Test_CompleteDoneList() + au CompleteDone * :call <SID>CompleteDone_CheckCompletedItemList() + + set completefunc=<SID>CompleteDone_CompleteFuncList + execute "normal a\<C-X>\<C-U>\<C-Y>" + set completefunc& + + call assert_equal('', v:completed_item[ 'user_data' ]) + call assert_true(s:called_completedone) + + let s:called_completedone = 0 + + set complete=.,F<SID>CompleteDone_CompleteFuncList + execute "normal a\<C-N>\<C-Y>" + set complete& + + call assert_equal('', v:completed_item[ 'user_data' ]) + call assert_true(s:called_completedone) + + let s:called_completedone = 0 + + set complete=.,F + execute "normal a\<C-N>\<C-Y>" + set complete& + + call assert_equal('', v:completed_item[ 'user_data' ]) + call assert_true(s:called_completedone) + + let s:called_completedone = 0 + au! CompleteDone +endfunc + +func Test_CompleteDone_undo() + au CompleteDone * call append(0, "prepend1") + new + call setline(1, ["line1", "line2"]) + call feedkeys("Go\<C-X>\<C-N>\<CR>\<ESC>", "tx") + call assert_equal(["prepend1", "line1", "line2", "line1", ""], + \ getline(1, '$')) + undo + call assert_equal(["line1", "line2"], getline(1, '$')) + bwipe! + au! CompleteDone +endfunc + +func Test_CompleteDone_modify() + let value = { + \ 'word': '', + \ 'abbr': '', + \ 'menu': '', + \ 'info': '', + \ 'kind': '', + \ 'user_data': '', + \ } + let v:completed_item = value + call assert_equal(value, v:completed_item) +endfunc + +func CompleteTest(findstart, query) + if a:findstart + return col('.') + endif + return ['matched'] +endfunc + +func Test_completefunc_info() + new + set completeopt=menuone + set completefunc=CompleteTest + " Can be called outside of ins-completion + call feedkeys("i\<C-X>\<C-U>\<C-Y>\<C-R>\<C-R>=string(complete_info())\<CR>\<ESC>", "tx") + call assert_equal("matched{'preinserted_text': '', 'pum_visible': 0, 'mode': '', 'selected': -1, 'items': []}", getline(1)) + %d + call feedkeys("i\<C-X>\<C-U>\<C-R>\<C-R>=string(complete_info())\<CR>\<ESC>", "tx") + call assert_equal("matched{'preinserted_text': '', 'pum_visible': 1, 'mode': 'function', 'selected': 0, 'items': [{'word': 'matched', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}]}", getline(1)) + %d + set complete=.,FCompleteTest + call feedkeys("i\<C-N>\<C-R>\<C-R>=string(complete_info())\<CR>\<ESC>", "tx") + call assert_equal("matched{'preinserted_text': '', 'pum_visible': 1, 'mode': 'keyword', 'selected': 0, 'items': [{'word': 'matched', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}]}", getline(1)) + %d + set complete=.,F + call feedkeys("i\<C-N>\<C-R>\<C-R>=string(complete_info())\<CR>\<ESC>", "tx") + call assert_equal("matched{'preinserted_text': '', 'pum_visible': 1, 'mode': 'keyword', 'selected': 0, 'items': [{'word': 'matched', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}]}", getline(1)) + set completeopt& + set complete& + set completefunc& +endfunc + +" For ^N completion, `completefunc` receives the same leader string in both the +" 'info' and 'expansion' phases (the leader is not removed before expansion). +" This avoids flicker when `completefunc` (e.g. an LSP client) is slow and calls +" 'sleep', which triggers out_flush(). +func Test_completefunc_leader() + func CptColTest(findstart, query) + if a:findstart + call assert_equal(b:compl_line, getline(1)) + call assert_equal(b:cursor_col, col('.')) + return col('.') + endif + call assert_equal(b:compl_line, getline(1)) + call assert_equal(b:cursor_col, col('.')) + return v:none + endfunc + + set complete=FCptColTest + new + + " Replace mode + let b:compl_line = "foo barxyz" + let b:cursor_col = 10 + call feedkeys("ifoo barbaz\<Esc>2hRxy\<C-N>", "tx") + + " Insert mode + let b:compl_line = "foo bar" + let b:cursor_col = 8 + call feedkeys("Sfoo bar\<C-N>", "tx") + + set completeopt=longest + call feedkeys("Sfoo bar\<C-N>", "tx") + + set completeopt=menuone + call feedkeys("Sfoo bar\<C-N>", "tx") + + set completeopt=menuone,preinsert + call feedkeys("Sfoo bar\<C-N>", "tx") + bwipe! + set complete& completeopt& + delfunc CptColTest +endfunc + +func ScrollInfoWindowUserDefinedFn(findstart, query) + " User defined function (i_CTRL-X_CTRL-U) + if a:findstart + return col('.') + endif + let infostr = range(20)->mapnew({_, v -> string(v)})->join("\n") + return [{'word': 'foo', 'info': infostr}, {'word': 'bar'}] +endfunc + +func ScrollInfoWindowPageDown() + call win_execute(popup_findinfo(), "normal! \<PageDown>") + return '' +endfunc + +func ScrollInfoWindowPageUp() + call win_execute(popup_findinfo(), "normal! \<PageUp>") + return '' +endfunc + +func ScrollInfoWindowTest(mvmt, count, fline) + new + set completeopt=menuone,popup,noinsert,noselect + set completepopup=height:5 + set completefunc=ScrollInfoWindowUserDefinedFn + let keyseq = "i\<C-X>\<C-U>\<C-N>" + for _ in range(a:count) + let keyseq .= (a:mvmt == "pageup" ? "\<C-R>\<C-R>=ScrollInfoWindowPageUp()\<CR>" : + \ "\<C-R>\<C-R>=ScrollInfoWindowPageDown()\<CR>") + endfor + let keyseq .= "\<C-R>\<C-R>=string(popup_getpos(popup_findinfo()))\<CR>\<ESC>" + call feedkeys(keyseq, "tx") + call assert_match('''firstline'': ' . a:fline, getline(1)) + bwipe! + set completeopt& + set completepopup& + set completefunc& +endfunc + +func Test_scroll_info_window() + call ScrollInfoWindowTest("", 0, 1) + call ScrollInfoWindowTest("pagedown", 1, 4) + call ScrollInfoWindowTest("pagedown", 2, 7) + call ScrollInfoWindowTest("pagedown", 3, 11) + call ScrollInfoWindowTest("pageup", 3, 1) +endfunc + +func CompleteInfoUserDefinedFn(findstart, query) + " User defined function (i_CTRL-X_CTRL-U) + if a:findstart + return col('.') + endif + return [{'word': 'foo'}, {'word': 'bar'}, {'word': 'baz'}, {'word': 'qux'}] +endfunc + +func CompleteInfoTestUserDefinedFn(mvmt, idx, noselect) + if a:noselect + set completeopt=menuone,popup,noinsert,noselect + else + set completeopt=menu,preview + endif + let items = "[" . + \ "{'word': 'foo', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}, " . + \ "{'word': 'bar', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}, " . + \ "{'word': 'baz', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}, " . + \ "{'word': 'qux', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}" . + \ "]" + new + set completefunc=CompleteInfoUserDefinedFn + call feedkeys("i\<C-X>\<C-U>" . a:mvmt . "\<C-R>\<C-R>=string(complete_info())\<CR>\<ESC>", "tx") + let completed = a:idx != -1 ? ['foo', 'bar', 'baz', 'qux']->get(a:idx) : '' + call assert_equal(completed. "{'preinserted_text': '', 'pum_visible': 1, 'mode': 'function', 'selected': " . a:idx . ", 'items': " . items . "}", getline(1)) + %d + set complete=.,FCompleteInfoUserDefinedFn + call feedkeys("i\<C-N>" . a:mvmt . "\<C-R>\<C-R>=string(complete_info())\<CR>\<ESC>", "tx") + let completed = a:idx != -1 ? ['foo', 'bar', 'baz', 'qux']->get(a:idx) : '' + call assert_equal(completed. "{'preinserted_text': '', 'pum_visible': 1, 'mode': 'keyword', 'selected': " . a:idx . ", 'items': " . items . "}", getline(1)) + %d + set complete=.,F + call feedkeys("i\<C-N>" . a:mvmt . "\<C-R>\<C-R>=string(complete_info())\<CR>\<ESC>", "tx") + let completed = a:idx != -1 ? ['foo', 'bar', 'baz', 'qux']->get(a:idx) : '' + call assert_equal(completed. "{'preinserted_text': '', 'pum_visible': 1, 'mode': 'keyword', 'selected': " . a:idx . ", 'items': " . items . "}", getline(1)) + bwipe! + set completeopt& completefunc& complete& +endfunc + +func Test_complete_info_user_defined_fn() + " forward + call CompleteInfoTestUserDefinedFn("\<C-N>\<C-N>", 1, v:true) + call CompleteInfoTestUserDefinedFn("\<C-N>\<C-N>\<C-N>", 2, v:true) + call CompleteInfoTestUserDefinedFn("\<C-N>\<C-N>", 2, v:false) + call CompleteInfoTestUserDefinedFn("\<C-N>\<C-N>\<C-N>", 3, v:false) + call CompleteInfoTestUserDefinedFn("\<C-N>\<C-N>\<C-N>\<C-N>", -1, v:false) + " backward + call CompleteInfoTestUserDefinedFn("\<C-P>\<C-P>", 2, v:true) + call CompleteInfoTestUserDefinedFn("\<C-P>\<C-P>\<C-P>", 1, v:true) + call CompleteInfoTestUserDefinedFn("\<C-P>\<C-P>\<C-P>\<C-P>\<C-P>", -1, v:true) + call CompleteInfoTestUserDefinedFn("\<C-P>\<C-P>", 3, v:false) + call CompleteInfoTestUserDefinedFn("\<C-P>\<C-P>\<C-P>", 2, v:false) + " forward backward + call CompleteInfoTestUserDefinedFn("\<C-N>\<C-N>\<C-N>\<C-P>", 1, v:true) + call CompleteInfoTestUserDefinedFn("\<C-N>\<C-N>\<C-P>", 0, v:true) + call CompleteInfoTestUserDefinedFn("\<C-N>\<C-N>\<C-N>\<C-P>", 2, v:false) + call CompleteInfoTestUserDefinedFn("\<C-N>\<C-N>\<C-N>\<C-N>\<C-P>", 3, v:false) + call CompleteInfoTestUserDefinedFn("\<C-N>\<C-N>\<C-P>", 1, v:false) + " backward forward + call CompleteInfoTestUserDefinedFn("\<C-P>\<C-P>\<C-P>\<C-P>\<C-P>\<C-N>", 0, v:true) + call CompleteInfoTestUserDefinedFn("\<C-P>\<C-P>\<C-P>\<C-N>", 2, v:true) + call CompleteInfoTestUserDefinedFn("\<C-P>\<C-P>\<C-P>\<C-P>\<C-P>\<C-N>", 1, v:false) + call CompleteInfoTestUserDefinedFn("\<C-P>\<C-P>\<C-P>\<C-N>", 3, v:false) + call CompleteInfoTestUserDefinedFn("\<C-P>\<C-N>\<C-N>", 1, v:false) +endfunc + +" Test that mouse scrolling/movement should not interrupt completion. +func Test_mouse_scroll_move_during_completion() + new + com! -buffer TestCommand1 echo 'TestCommand1' + com! -buffer TestCommand2 echo 'TestCommand2' + call setline(1, ['', '', '', '', '']) + call cursor(5, 1) + + " Without completion menu scrolling can move text. + set completeopt-=menu wrap + call feedkeys("ccT\<C-X>\<C-V>\<ScrollWheelDown>\<C-V>", 'tx') + call assert_equal('TestCommand2', getline('.')) + call assert_notequal(1, winsaveview().topline) + call feedkeys("ccT\<C-X>\<C-V>\<ScrollWheelUp>\<C-V>", 'tx') + call assert_equal('TestCommand2', getline('.')) + call assert_equal(1, winsaveview().topline) + set nowrap + call feedkeys("ccT\<C-X>\<C-V>\<ScrollWheelRight>\<C-V>", 'tx') + call assert_equal('TestCommand2', getline('.')) + call assert_notequal(0, winsaveview().leftcol) + call feedkeys("ccT\<C-X>\<C-V>\<ScrollWheelLeft>\<C-V>", 'tx') + call assert_equal('TestCommand2', getline('.')) + call assert_equal(0, winsaveview().leftcol) + call feedkeys("ccT\<C-X>\<C-V>\<MouseMove>\<C-V>", 'tx') + call assert_equal('TestCommand2', getline('.')) + + " With completion menu scrolling cannot move text. + set completeopt+=menu wrap + call feedkeys("ccT\<C-X>\<C-V>\<ScrollWheelDown>\<C-V>", 'tx') + call assert_equal('TestCommand2', getline('.')) + call assert_equal(1, winsaveview().topline) + call feedkeys("ccT\<C-X>\<C-V>\<ScrollWheelUp>\<C-V>", 'tx') + call assert_equal('TestCommand2', getline('.')) + call assert_equal(1, winsaveview().topline) + set nowrap + call feedkeys("ccT\<C-X>\<C-V>\<ScrollWheelRight>\<C-V>", 'tx') + call assert_equal('TestCommand2', getline('.')) + call assert_equal(0, winsaveview().leftcol) + call feedkeys("ccT\<C-X>\<C-V>\<ScrollWheelLeft>\<C-V>", 'tx') + call assert_equal('TestCommand2', getline('.')) + call assert_equal(0, winsaveview().leftcol) + call feedkeys("ccT\<C-X>\<C-V>\<MouseMove>\<C-V>", 'tx') + call assert_equal('TestCommand2', getline('.')) + + bwipe! + set completeopt& wrap& +endfunc + +" Check that when using feedkeys() typeahead does not interrupt searching for +" completions. +func Test_compl_feedkeys() + new + set completeopt=menuone,noselect + call feedkeys("ajump ju\<C-X>\<C-N>\<C-P>\<ESC>", "tx") + call assert_equal("jump jump", getline(1)) + bwipe! + set completeopt& +endfunc + +" Test for insert path completion with completeslash option +func Test_ins_completeslash() + CheckMSWindows + + call mkdir('Xcpldir', 'R') + let orig_shellslash = &shellslash + set cpt& + new + + set noshellslash + + set completeslash= + exe "normal oXcp\<C-X>\<C-F>" + call assert_equal('Xcpldir\', getline('.')) + + set completeslash=backslash + exe "normal oXcp\<C-X>\<C-F>" + call assert_equal('Xcpldir\', getline('.')) + + set completeslash=slash + exe "normal oXcp\<C-X>\<C-F>" + call assert_equal('Xcpldir/', getline('.')) + + set shellslash + + set completeslash= + exe "normal oXcp\<C-X>\<C-F>" + call assert_equal('Xcpldir/', getline('.')) + + set completeslash=backslash + exe "normal oXcp\<C-X>\<C-F>" + call assert_equal('Xcpldir\', getline('.')) + + set completeslash=slash + exe "normal oXcp\<C-X>\<C-F>" + call assert_equal('Xcpldir/', getline('.')) + %bw! + + set noshellslash + set completeslash=slash + call assert_true(stridx(globpath(&rtp, 'syntax/*.mnv', 1, 1)[0], '\') != -1) + + let &shellslash = orig_shellslash + set completeslash= +endfunc + +func Test_pum_stopped_by_timer() + CheckScreendump + + let lines =<< trim END + call setline(1, ['hello', 'hullo', 'heeee', '']) + func StartCompl() + call timer_start(100, { -> execute('stopinsert') }) + call feedkeys("Gah\<C-N>") + endfunc + END + + call writefile(lines, 'Xpumscript', 'D') + let buf = RunMNVInTerminal('-S Xpumscript', #{rows: 12}) + call term_sendkeys(buf, ":call StartCompl()\<CR>") + call TermWait(buf, 200) + call term_sendkeys(buf, "k") + call VerifyScreenDump(buf, 'Test_pum_stopped_by_timer', {}) + + call StopMNVInTerminal(buf) +endfunc + +func Test_complete_stopinsert_startinsert() + nnoremap <F2> <Cmd>startinsert<CR> + inoremap <F2> <Cmd>stopinsert<CR> + " This just checks if this causes an error + call feedkeys("i\<C-X>\<C-N>\<F2>\<F2>", 'x') + nunmap <F2> + iunmap <F2> +endfunc + +func Test_pum_with_folds_two_tabs() + CheckScreendump + + let lines =<< trim END + set fdm=marker + call setline(1, ['" x {{{1', '" a some text']) + call setline(3, range(&lines)->map({_, val -> '" a' .. val})) + norm! zm + tab sp + call feedkeys('2Gzv', 'xt') + call feedkeys("0fa", 'xt') + END + + call writefile(lines, 'Xpumscript', 'D') + let buf = RunMNVInTerminal('-S Xpumscript', #{rows: 10}) + call TermWait(buf, 50) + call term_sendkeys(buf, "a\<C-N>") + call VerifyScreenDump(buf, 'Test_pum_with_folds_two_tabs', {}) + + call term_sendkeys(buf, "\<Esc>") + call StopMNVInTerminal(buf) +endfunc + +func Test_pum_with_preview_win() + CheckScreendump + + let lines =<< trim END + func Omni_test(findstart, base) + if a:findstart + return col(".") - 1 + endif + return [#{word: "one", info: "1info"}, #{word: "two", info: "2info"}, #{word: "three", info: "3info"}] + endfunc + set omnifunc=Omni_test + set completeopt+=longest + END + + call writefile(lines, 'Xpreviewscript', 'D') + let buf = RunMNVInTerminal('-S Xpreviewscript', #{rows: 12}) + call term_sendkeys(buf, "Gi\<C-X>\<C-O>") + call TermWait(buf, 200) + call term_sendkeys(buf, "\<C-N>") + call VerifyScreenDump(buf, 'Test_pum_with_preview_win', {}) + + call term_sendkeys(buf, "\<Esc>") + call StopMNVInTerminal(buf) +endfunc + +func Test_scrollbar_on_wide_char() + CheckScreendump + + let lines =<< trim END + call setline(1, ['a', ' 啊啊啊', + \ ' 哦哦哦', + \ ' 呃呃呃']) + call setline(5, range(10)->map({i, v -> 'aa' .. v .. 'bb'})) + END + call writefile(lines, 'Xwidescript', 'D') + let buf = RunMNVInTerminal('-S Xwidescript', #{rows: 10}) + call term_sendkeys(buf, "A\<C-N>") + call VerifyScreenDump(buf, 'Test_scrollbar_on_wide_char', {}) + + call StopMNVInTerminal(buf) +endfunc + +" Test for inserting the tag search pattern in insert mode +func Test_ins_compl_tag_sft() + call writefile([ + \ "!_TAG_FILE_ENCODING\tutf-8\t//", + \ "first\tXfoo\t/^int first() {}$/", + \ "second\tXfoo\t/^int second() {}$/", + \ "third\tXfoo\t/^int third() {}$/"], + \ 'Xtags', 'D') + set tags=Xtags + let code =<< trim [CODE] + int first() {} + int second() {} + int third() {} + [CODE] + call writefile(code, 'Xfoo', 'D') + + enew + set showfulltag + exe "normal isec\<C-X>\<C-]>\<C-N>\<CR>" + call assert_equal('int second() {}', getline(1)) + set noshowfulltag + + set tags& + %bwipe! +endfunc + +" Test for 'completefunc' deleting text +func Test_completefunc_error() + new + " delete text when called for the first time + func CompleteFunc(findstart, base) + if a:findstart == 1 + normal dd + return col('.') - 1 + endif + return ['a', 'b'] + endfunc + set completefunc=CompleteFunc + call setline(1, ['', 'abcd', '']) + call assert_fails('exe "normal 2G$a\<C-X>\<C-U>"', 'E565:') + set complete=FCompleteFunc + call assert_fails('exe "normal 2G$a\<C-N>"', 'E565:') + set complete=F + call assert_fails('exe "normal 2G$a\<C-N>"', 'E565:') + + " delete text when called for the second time + func CompleteFunc2(findstart, base) + if a:findstart == 1 + return col('.') - 1 + endif + normal dd + return ['a', 'b'] + endfunc + set completefunc=CompleteFunc2 + call setline(1, ['', 'abcd', '']) + call assert_fails('exe "normal 2G$a\<C-X>\<C-U>"', 'E565:') + set complete=FCompleteFunc2 + call assert_fails('exe "normal 2G$a\<C-N>"', 'E565:') + set complete=F + call assert_fails('exe "normal 2G$a\<C-N>"', 'E565:') + + " Jump to a different window from the complete function + func CompleteFunc3(findstart, base) + if a:findstart == 1 + return col('.') - 1 + endif + wincmd p + return ['a', 'b'] + endfunc + set completefunc=CompleteFunc3 + new + call assert_fails('exe "normal a\<C-X>\<C-U>"', 'E565:') + %d + set complete=FCompleteFunc3 + call assert_fails('exe "normal a\<C-N>"', 'E565:') + %d + set complete=F + call assert_fails('exe "normal a\<C-N>"', 'E565:') + bw! + + set completefunc& complete& + delfunc CompleteFunc + delfunc CompleteFunc2 + delfunc CompleteFunc3 + bw! +endfunc + +" Test for returning non-string values from 'completefunc' +func Test_completefunc_invalid_data() + new + func! CompleteFunc(findstart, base) + if a:findstart == 1 + return col('.') - 1 + endif + return [{}, '', 'moon'] + endfunc + set completefunc=CompleteFunc + exe "normal i\<C-X>\<C-U>" + call assert_equal('moon', getline(1)) + %d + set complete=FCompleteFunc + exe "normal i\<C-N>" + call assert_equal('moon', getline(1)) + %d + set complete=F + exe "normal i\<C-N>" + call assert_equal('moon', getline(1)) + set completefunc& complete& + delfunc! CompleteFunc + bw! +endfunc + +" Test for errors in using complete() function +func Test_complete_func_error() + call assert_fails('call complete(1, ["a"])', 'E785:') + func ListColors() + call complete(col('.'), "blue") + endfunc + call assert_fails('exe "normal i\<C-R>=ListColors()\<CR>"', 'E1211:') + func ListMonths() + call complete(col('.'), test_null_list()) + endfunc + call assert_fails('exe "normal i\<C-R>=ListMonths()\<CR>"', 'E1298:') + delfunc ListColors + delfunc ListMonths + call assert_fails('call complete_info({})', 'E1211:') + call assert_equal([], complete_info(['items']).items) +endfunc + +" Test for recursively starting completion mode using complete() +func Test_recursive_complete_func() + func ListColors() + call complete(5, ["red", "blue"]) + return '' + endfunc + new + call setline(1, ['a1', 'a2']) + set complete=. + exe "normal Goa\<C-X>\<C-L>\<C-R>=ListColors()\<CR>\<C-N>" + call assert_equal('a2blue', getline(3)) + delfunc ListColors + bw! +endfunc + +" Test for using complete() with completeopt+=longest +func Test_complete_with_longest() + new + inoremap <buffer> <f3> <cmd>call complete(1, ["iaax", "iaay", "iaaz"])<cr> + + " default: insert first match + set completeopt& + call setline(1, ['i']) + exe "normal Aa\<f3>\<esc>" + call assert_equal('iaax', getline(1)) + + " with longest: insert longest prefix + set completeopt+=longest + call setline(1, ['i']) + exe "normal Aa\<f3>\<esc>" + call assert_equal('iaa', getline(1)) + set completeopt& + bwipe! +endfunc + +" Test for buffer-local value of 'completeopt' +func Test_completeopt_buffer_local() + set completeopt=menu + new + call setline(1, ['foofoo', 'foobar', 'foobaz', '']) + call assert_equal('', &l:completeopt) + call assert_equal('menu', &completeopt) + call assert_equal('menu', &g:completeopt) + + setlocal bufhidden=hide + enew + call setline(1, ['foofoo', 'foobar', 'foobaz', '']) + call assert_equal('', &l:completeopt) + call assert_equal('menu', &completeopt) + call assert_equal('menu', &g:completeopt) + + setlocal completeopt+=fuzzy,noinsert + call assert_equal('menu,fuzzy,noinsert', &l:completeopt) + call assert_equal('menu,fuzzy,noinsert', &completeopt) + call assert_equal('menu', &g:completeopt) + call feedkeys("Gccf\<C-X>\<C-N>bz\<C-Y>", 'tnix') + call assert_equal('foobaz', getline('.')) + + setlocal completeopt= + call assert_equal('', &l:completeopt) + call assert_equal('menu', &completeopt) + call assert_equal('menu', &g:completeopt) + call feedkeys("Gccf\<C-X>\<C-N>\<C-Y>", 'tnix') + call assert_equal('foofoo', getline('.')) + + setlocal completeopt+=longest + call assert_equal('menu,longest', &l:completeopt) + call assert_equal('menu,longest', &completeopt) + call assert_equal('menu', &g:completeopt) + call feedkeys("Gccf\<C-X>\<C-N>\<C-X>\<C-Z>", 'tnix') + call assert_equal('foo', getline('.')) + + setlocal bufhidden=hide + buffer # + call assert_equal('', &l:completeopt) + call assert_equal('menu', &completeopt) + call assert_equal('menu', &g:completeopt) + call feedkeys("Gccf\<C-X>\<C-N>\<C-Y>", 'tnix') + call assert_equal('foofoo', getline('.')) + + setlocal completeopt+=fuzzy,noinsert + call assert_equal('menu,fuzzy,noinsert', &l:completeopt) + call assert_equal('menu,fuzzy,noinsert', &completeopt) + call assert_equal('menu', &g:completeopt) + call feedkeys("Gccf\<C-X>\<C-N>bz\<C-Y>", 'tnix') + call assert_equal('foobaz', getline('.')) + + buffer # + call assert_equal('menu,longest', &l:completeopt) + call assert_equal('menu,longest', &completeopt) + call assert_equal('menu', &g:completeopt) + call feedkeys("Gccf\<C-X>\<C-N>\<C-X>\<C-Z>", 'tnix') + call assert_equal('foo', getline('.')) + + setlocal bufhidden=wipe + buffer! # + bwipe! + call assert_equal('', &l:completeopt) + call assert_equal('menu', &completeopt) + call assert_equal('menu', &g:completeopt) + + new | only + call setline(1, ['foofoo', 'foobar', 'foobaz', '']) + set completeopt& + setlocal completeopt=menu,fuzzy,noinsert + setglobal completeopt=menu,longest + call assert_equal('menu,fuzzy,noinsert', &completeopt) + call assert_equal('menu,fuzzy,noinsert', &l:completeopt) + call assert_equal('menu,longest', &g:completeopt) + call feedkeys("Gccf\<C-X>\<C-N>bz\<C-Y>", 'tnix') + call assert_equal('foobaz', getline('.')) + setlocal bufhidden=wipe + new | only! + call setline(1, ['foofoo', 'foobar', 'foobaz', '']) + call assert_equal('menu,longest', &completeopt) + call assert_equal('menu,longest', &g:completeopt) + call assert_equal('', &l:completeopt) + call feedkeys("Gccf\<C-X>\<C-N>\<C-X>\<C-Z>", 'tnix') + call assert_equal('foo', getline('.')) + bwipe! + + new | only + call setline(1, ['foofoo', 'foobar', 'foobaz', '']) + set completeopt& + setlocal completeopt=menu,fuzzy,noinsert + set completeopt=menu,longest + call assert_equal('menu,longest', &completeopt) + call assert_equal('menu,longest', &g:completeopt) + call assert_equal('', &l:completeopt) + call feedkeys("Gccf\<C-X>\<C-N>\<C-X>\<C-Z>", 'tnix') + call assert_equal('foo', getline('.')) + setlocal bufhidden=wipe + new | only! + call setline(1, ['foofoo', 'foobar', 'foobaz', '']) + call assert_equal('menu,longest', &completeopt) + call assert_equal('menu,longest', &g:completeopt) + call assert_equal('', &l:completeopt) + call feedkeys("Gccf\<C-X>\<C-N>\<C-X>\<C-Z>", 'tnix') + call assert_equal('foo', getline('.')) + bwipe! + + set completeopt& +endfunc + +" Test for completing words following a completed word in a line +func Test_complete_wrapscan() + " complete words from another buffer + new + call setline(1, ['one two', 'three four']) + new + setlocal complete=w + call feedkeys("itw\<C-N>\<C-X>\<C-N>\<C-X>\<C-N>\<C-X>\<C-N>", 'xt') + call assert_equal('two three four', getline(1)) + bw! + " complete words from the current buffer + setlocal complete=. + %d + call setline(1, ['one two', '']) + call cursor(2, 1) + call feedkeys("ion\<C-N>\<C-X>\<C-N>\<C-X>\<C-N>\<C-X>\<C-N>", 'xt') + call assert_equal('one two one two', getline(2)) + bw! +endfunc + +" Test for completing special characters +func Test_complete_special_chars() + new + call setline(1, 'int .*[-\^$ func float') + call feedkeys("oin\<C-X>\<C-P>\<C-X>\<C-P>\<C-X>\<C-P>", 'xt') + call assert_equal('int .*[-\^$ func float', getline(2)) + bw! +endfunc + +" Test for completion when text is wrapped across lines. +func Test_complete_across_line() + new + call setline(1, ['red green blue', 'one two three']) + setlocal textwidth=20 + exe "normal 2G$a re\<C-X>\<C-P>\<C-X>\<C-P>\<C-X>\<C-P>\<C-X>\<C-P>" + call assert_equal(['one two three red', 'green blue one'], getline(2, '$')) + bw! +endfunc + +" Test for completing words with a '.' at the end of a word. +func Test_complete_joinspaces() + new + call setline(1, ['one two.', 'three. four']) + set joinspaces + exe "normal Goon\<C-P>\<C-X>\<C-P>\<C-X>\<C-P>\<C-X>\<C-P>\<C-X>\<C-P>" + call assert_equal("one two. three. four", getline(3)) + set joinspaces& + bw! +endfunc + +" Test for using CTRL-L to add one character when completing matching +func Test_complete_add_onechar() + new + call setline(1, ['wool', 'woodwork']) + call feedkeys("Gowoo\<C-P>\<C-P>\<C-P>\<C-L>f", 'xt') + call assert_equal('woof', getline(3)) + + " use 'ignorecase' and backspace to erase characters from the prefix string + " and then add letters using CTRL-L + %d + set ignorecase backspace=2 + setlocal complete=. + call setline(1, ['workhorse', 'workload']) + normal Go + exe "normal aWOR\<C-P>\<bs>\<bs>\<bs>\<bs>\<bs>\<bs>\<C-L>\<C-L>\<C-L>" + call assert_equal('workh', getline(3)) + set ignorecase& backspace& + bw! +endfunc + +" Test for using CTRL-X CTRL-L to complete whole lines lines +func Test_complete_wholeline() + new + " complete one-line + call setline(1, ['a1', 'a2']) + exe "normal ggoa\<C-X>\<C-L>" + call assert_equal(['a1', 'a1', 'a2'], getline(1, '$')) + " go to the next match (wrapping around the buffer) + exe "normal 2GCa\<C-X>\<C-L>\<C-N>" + call assert_equal(['a1', 'a', 'a2'], getline(1, '$')) + " go to the next match + exe "normal 2GCa\<C-X>\<C-L>\<C-N>\<C-N>" + call assert_equal(['a1', 'a2', 'a2'], getline(1, '$')) + exe "normal 2GCa\<C-X>\<C-L>\<C-N>\<C-N>\<C-N>" + call assert_equal(['a1', 'a1', 'a2'], getline(1, '$')) + " repeat the test using CTRL-L + " go to the next match (wrapping around the buffer) + exe "normal 2GCa\<C-X>\<C-L>\<C-L>" + call assert_equal(['a1', 'a2', 'a2'], getline(1, '$')) + " go to the next match + exe "normal 2GCa\<C-X>\<C-L>\<C-L>\<C-L>" + call assert_equal(['a1', 'a', 'a2'], getline(1, '$')) + exe "normal 2GCa\<C-X>\<C-L>\<C-L>\<C-L>\<C-L>" + call assert_equal(['a1', 'a1', 'a2'], getline(1, '$')) + %d + " use CTRL-X CTRL-L to add one more line + call setline(1, ['a1', 'b1']) + setlocal complete=. + exe "normal ggOa\<C-X>\<C-L>\<C-X>\<C-L>\<C-X>\<C-L>" + call assert_equal(['a1', 'b1', '', 'a1', 'b1'], getline(1, '$')) + bw! +endfunc + +" Test for using CTRL-X CTRL-S to complete spell suggestions +func Test_complete_spell() + new + setlocal spell + " without fuzzy + call setline(1, 'The rigth thing') + exe "normal! A\<C-X>\<C-S>" + call assert_equal('The right thing', getline(1)) + %d + " with fuzzy + setlocal completeopt+=fuzzy + call setline(1, 'The rigth thing') + exe "normal! A\<C-X>\<C-S>" + call assert_equal('The right thing', getline(1)) + bw! +endfunc + +" Test insert completion with 'cindent' (adjust the indent) +func Test_complete_with_cindent() + new + setlocal cindent + call setline(1, ['if (i == 1)', " j = 2;"]) + exe "normal Go{\<CR>i\<C-X>\<C-L>\<C-X>\<C-L>\<CR>}" + call assert_equal(['{', "\tif (i == 1)", "\t\tj = 2;", '}'], getline(3, '$')) + + %d + call setline(1, ['when while', '{', '']) + setlocal cinkeys+==while + exe "normal Giwh\<C-P> " + call assert_equal("\twhile ", getline('$')) + bw! +endfunc + +" Test for <CTRL-X> <CTRL-V> completion. Complete commands and functions +func Test_complete_cmdline() + new + exe "normal icaddb\<C-X>\<C-V>" + call assert_equal('caddbuffer', getline(1)) + exe "normal ocall getqf\<C-X>\<C-V>" + call assert_equal('call getqflist(', getline(2)) + exe "normal oabcxyz(\<C-X>\<C-V>" + call assert_equal('abcxyz(', getline(3)) + com! -buffer TestCommand1 echo 'TestCommand1' + com! -buffer TestCommand2 echo 'TestCommand2' + write! TestCommand1Test + write! TestCommand2Test + " Test repeating <CTRL-X> <CTRL-V> and switching to another CTRL-X mode + exe "normal oT\<C-X>\<C-V>\<C-X>\<C-V>\<C-X>\<C-F>\<Esc>" + call assert_equal('TestCommand2Test', getline(4)) + call delete('TestCommand1Test') + call delete('TestCommand2Test') + delcom TestCommand1 + delcom TestCommand2 + bw! +endfunc + +" Test for <CTRL-X> <CTRL-Z> stopping completion without changing the match +func Test_complete_stop() + new + func Save_mode1() + let g:mode1 = mode(1) + return '' + endfunc + func Save_mode2() + let g:mode2 = mode(1) + return '' + endfunc + inoremap <F1> <C-R>=Save_mode1()<CR> + inoremap <F2> <C-R>=Save_mode2()<CR> + call setline(1, ['aaa bbb ccc ']) + exe "normal A\<C-N>\<C-P>\<F1>\<C-X>\<C-Z>\<F2>\<Esc>" + call assert_equal('ic', g:mode1) + call assert_equal('i', g:mode2) + call assert_equal('aaa bbb ccc ', getline(1)) + exe "normal A\<C-N>\<Down>\<F1>\<C-X>\<C-Z>\<F2>\<Esc>" + call assert_equal('ic', g:mode1) + call assert_equal('i', g:mode2) + call assert_equal('aaa bbb ccc aaa', getline(1)) + set completeopt+=noselect + exe "normal A \<C-N>\<Down>\<Down>\<C-L>\<C-L>\<F1>\<C-X>\<C-Z>\<F2>\<Esc>" + call assert_equal('ic', g:mode1) + call assert_equal('i', g:mode2) + call assert_equal('aaa bbb ccc aaa bb', getline(1)) + set completeopt& + exe "normal A d\<C-N>\<F1>\<C-X>\<C-Z>\<F2>\<Esc>" + call assert_equal('ic', g:mode1) + call assert_equal('i', g:mode2) + call assert_equal('aaa bbb ccc aaa bb d', getline(1)) + com! -buffer TestCommand1 echo 'TestCommand1' + com! -buffer TestCommand2 echo 'TestCommand2' + exe "normal oT\<C-X>\<C-V>\<C-X>\<C-V>\<F1>\<C-X>\<C-Z>\<F2>\<Esc>" + call assert_equal('ic', g:mode1) + call assert_equal('i', g:mode2) + call assert_equal('TestCommand2', getline(2)) + delcom TestCommand1 + delcom TestCommand2 + unlet g:mode1 + unlet g:mode2 + iunmap <F1> + iunmap <F2> + delfunc Save_mode1 + delfunc Save_mode2 + bw! +endfunc + +" Test for typing CTRL-R in insert completion mode to insert a register +" content. +func Test_complete_reginsert() + new + call setline(1, ['a1', 'a12', 'a123', 'a1234']) + + " if a valid CTRL-X mode key is returned from <C-R>=, then it should be + " processed. Otherwise, CTRL-X mode should be stopped and the key should be + " inserted. + exe "normal Goa\<C-P>\<C-R>=\"\\<C-P>\"\<CR>" + call assert_equal('a123', getline(5)) + let @r = "\<C-P>\<C-P>" + exe "normal GCa\<C-P>\<C-R>r" + call assert_equal('a12', getline(5)) + exe "normal GCa\<C-P>\<C-R>=\"x\"\<CR>" + call assert_equal('a1234x', getline(5)) + bw! +endfunc + +func Test_issue_7021() + CheckMSWindows + + let orig_shellslash = &shellslash + set noshellslash + + set completeslash=slash + call assert_false(expand('~') =~ '/') + + let &shellslash = orig_shellslash + set completeslash= +endfunc + +" Test for 'longest' setting in 'completeopt' with latin1 and utf-8 encodings +func Test_complete_longest_match() + for e in ['latin1', 'utf-8'] + exe 'set encoding=' .. e + new + set complete=. + set completeopt=menu,longest + call setline(1, ['pfx_a1', 'pfx_a12', 'pfx_a123', 'pfx_b1']) + exe "normal Gopfx\<C-P>" + call assert_equal('pfx_', getline(5)) + bw! + endfor + + " Test for completing additional words with longest match set + new + call setline(1, ['abc1', 'abd2']) + exe "normal Goab\<C-P>\<C-X>\<C-P>" + call assert_equal('ab', getline(3)) + bw! + set complete& completeopt& +endfunc + +" Test for removing the first displayed completion match and selecting the +" match just before that. +func Test_complete_erase_firstmatch() + new + call setline(1, ['a12', 'a34', 'a56']) + set complete=. + exe "normal Goa\<C-P>\<BS>\<BS>3\<CR>" + call assert_equal('a34', getline('$')) + set complete& + bw! +endfunc + +" Test for completing words from unloaded buffers +func Test_complete_from_unloadedbuf() + call writefile(['abc'], "Xfile1", 'D') + call writefile(['def'], "Xfile2", 'D') + edit Xfile1 + edit Xfile2 + new | close + enew + bunload Xfile1 Xfile2 + set complete=u + " complete from an unloaded buffer + exe "normal! ia\<C-P>" + call assert_equal('abc', getline(1)) + exe "normal! od\<C-P>" + call assert_equal('def', getline(2)) + + set complete& + %bw! +endfunc + +" Test for completing whole lines from unloaded buffers +func Test_complete_wholeline_unloadedbuf() + call writefile(['a line1', 'a line2', 'a line3'], "Xfile1", 'D') + edit Xfile1 + enew + set complete=u + exe "normal! ia\<C-X>\<C-L>\<C-P>" + call assert_equal('a line2', getline(1)) + %d + " completing from an unlisted buffer should fail + bdel Xfile1 + exe "normal! ia\<C-X>\<C-L>\<C-P>" + call assert_equal('a', getline(1)) + + set complete& + %bw! +endfunc + +" Test for completing words from unlisted buffers +func Test_complete_from_unlistedbuf() + call writefile(['abc'], "Xfile1", 'D') + call writefile(['def'], "Xfile2", 'D') + edit Xfile1 + edit Xfile2 + new | close + bdel Xfile1 Xfile2 + set complete=U + " complete from an unlisted buffer + exe "normal! ia\<C-P>" + call assert_equal('abc', getline(1)) + exe "normal! od\<C-P>" + call assert_equal('def', getline(2)) + + set complete& + %bw! +endfunc + +" Test for completing whole lines from unlisted buffers +func Test_complete_wholeline_unlistedbuf() + call writefile(['a line1', 'a line2', 'a line3'], "Xfile1", 'D') + edit Xfile1 + enew + set complete=U + " completing from an unloaded buffer should fail + exe "normal! ia\<C-X>\<C-L>\<C-P>" + call assert_equal('a', getline(1)) + %d + bdel Xfile1 + exe "normal! ia\<C-X>\<C-L>\<C-P>" + call assert_equal('a line2', getline(1)) + + set complete& + %bw! +endfunc + +" Test for adding a multibyte character using CTRL-L in completion mode +func Test_complete_mbyte_char_add() + new + set complete=. + call setline(1, 'abė') + exe "normal! oa\<C-P>\<BS>\<BS>\<C-L>\<C-L>" + call assert_equal('abė', getline(2)) + " Test for a leader with multibyte character + %d + call setline(1, 'abėĕ') + exe "normal! oabė\<C-P>" + call assert_equal('abėĕ', getline(2)) + bw! +endfunc + +" Test for using <C-X><C-P> for local expansion even if 'complete' is set to +" not to complete matches from the local buffer. Also test using multiple +" <C-X> to cancel the current completion mode. +func Test_complete_local_expansion() + new + set complete=t + call setline(1, ['abc', 'def']) + exe "normal! Go\<C-X>\<C-P>" + call assert_equal("def", getline(3)) + exe "normal! Go\<C-P>" + call assert_equal("", getline(4)) + exe "normal! Go\<C-X>\<C-N>" + call assert_equal("abc", getline(5)) + exe "normal! Go\<C-N>" + call assert_equal("", getline(6)) + + " use multiple <C-X> to cancel the previous completion mode + exe "normal! Go\<C-P>\<C-X>\<C-P>" + call assert_equal("", getline(7)) + exe "normal! Go\<C-P>\<C-X>\<C-X>\<C-P>" + call assert_equal("", getline(8)) + exe "normal! Go\<C-P>\<C-X>\<C-X>\<C-X>\<C-P>" + call assert_equal("abc", getline(9)) + + " interrupt the current completion mode + set completeopt=menu,noinsert + exe "normal! Go\<C-X>\<C-F>\<C-X>\<C-X>\<C-P>\<C-Y>" + call assert_equal("abc", getline(10)) + + " when only one <C-X> is used to interrupt, do normal expansion + exe "normal! Go\<C-X>\<C-F>\<C-X>\<C-P>" + call assert_equal("", getline(11)) + set completeopt& + + " using two <C-X> in non-completion mode and restarting the same mode + exe "normal! God\<C-X>\<C-X>\<C-P>\<C-X>\<C-X>\<C-P>\<C-Y>" + call assert_equal("def", getline(12)) + + " test for adding a match from the original empty text + %d + call setline(1, 'abc def g') + exe "normal! o\<C-X>\<C-P>\<C-N>\<C-X>\<C-P>" + call assert_equal('def', getline(2)) + exe "normal! 0C\<C-X>\<C-N>\<C-P>\<C-X>\<C-N>" + call assert_equal('abc', getline(2)) + + bw! +endfunc + +" Test for undoing changes after a insert-mode completion +func Test_complete_undo() + new + set complete=. + " undo with 'ignorecase' + call setline(1, ['ABOVE', 'BELOW']) + set ignorecase + exe "normal! Goab\<C-G>u\<C-P>" + call assert_equal("ABOVE", getline(3)) + undo + call assert_equal("ab", getline(3)) + set ignorecase& + %d + " undo with longest match + set completeopt=menu,longest + call setline(1, ['above', 'about']) + exe "normal! Goa\<C-G>u\<C-P>" + call assert_equal("abo", getline(3)) + undo + call assert_equal("a", getline(3)) + set completeopt& + %d + " undo for line completion + call setline(1, ['above that change', 'below that change']) + exe "normal! Goabove\<C-G>u\<C-X>\<C-L>" + call assert_equal("above that change", getline(3)) + undo + call assert_equal("above", getline(3)) + + bw! +endfunc + +" Test for completing a very long word +func Test_complete_long_word() + set complete& + new + call setline(1, repeat('x', 950) .. ' one two three') + exe "normal! Gox\<C-X>\<C-P>\<C-X>\<C-P>\<C-X>\<C-P>\<C-X>\<C-P>" + call assert_equal(repeat('x', 950) .. ' one two three', getline(2)) + %d + " should fail when more than 950 characters are in a word + call setline(1, repeat('x', 951) .. ' one two three') + exe "normal! Gox\<C-X>\<C-P>\<C-X>\<C-P>\<C-X>\<C-P>\<C-X>\<C-P>" + call assert_equal(repeat('x', 951), getline(2)) + + " Test for adding a very long word to an existing completion + %d + call setline(1, ['abc', repeat('x', 1016) .. '012345']) + exe "normal! Goab\<C-P>\<C-X>\<C-P>" + call assert_equal('abc ' .. repeat('x', 1016) .. '0123', getline(3)) + bw! +endfunc + +" Test for some fields in the complete items used by complete() +func Test_complete_items() + func CompleteItems(idx) + let items = [[#{word: "one", dup: 1, user_data: 'u1'}, #{word: "one", dup: 1, user_data: 'u2'}], + \ [#{word: "one", dup: 0, user_data: 'u3'}, #{word: "one", dup: 0, user_data: 'u4'}], + \ [#{word: "one", icase: 1, user_data: 'u7'}, #{word: "oNE", icase: 1, user_data: 'u8'}], + \ [#{user_data: 'u9'}], + \ [#{word: "", user_data: 'u10'}], + \ [#{word: "", empty: 1, user_data: 'u11'}]] + call complete(col('.'), items[a:idx]) + return '' + endfunc + new + exe "normal! i\<C-R>=CompleteItems(0)\<CR>\<C-N>\<C-Y>" + call assert_equal('u2', v:completed_item.user_data) + call assert_equal('one', getline(1)) + exe "normal! o\<C-R>=CompleteItems(1)\<CR>\<C-Y>" + call assert_equal('u3', v:completed_item.user_data) + call assert_equal('one', getline(2)) + exe "normal! o\<C-R>=CompleteItems(1)\<CR>\<C-N>" + call assert_equal('', getline(3)) + set completeopt=menu,noinsert + exe "normal! o\<C-R>=CompleteItems(2)\<CR>one\<C-N>\<C-Y>" + call assert_equal('oNE', getline(4)) + call assert_equal('u8', v:completed_item.user_data) + set completeopt& + exe "normal! o\<C-R>=CompleteItems(3)\<CR>" + call assert_equal('', getline(5)) + exe "normal! o\<C-R>=CompleteItems(4)\<CR>" + call assert_equal('', getline(6)) + exe "normal! o\<C-R>=CompleteItems(5)\<CR>" + call assert_equal('', getline(7)) + call assert_equal('u11', v:completed_item.user_data) + " pass invalid argument to complete() + let cmd = "normal! o\<C-R>=complete(1, [[]])\<CR>" + call assert_fails('exe cmd', 'E730:') + bw! + delfunc CompleteItems +endfunc + +" Test for the "refresh" item in the dict returned by an insert completion +" function +func Test_complete_item_refresh_always() + let g:CallCount = 0 + func! Tcomplete(findstart, base) + if a:findstart + " locate the start of the word + let line = getline('.') + let start = col('.') - 1 + while start > 0 && line[start - 1] =~ '\a' + let start -= 1 + endwhile + return start + else + let g:CallCount += 1 + let res = ["update1", "update12", "update123"] + return #{words: res, refresh: 'always'} + endif + endfunc + set completeopt=menu,longest + set completefunc=Tcomplete + new + exe "normal! iup\<C-X>\<C-U>\<BS>\<BS>\<BS>\<BS>\<BS>" + call assert_equal('up', getline(1)) + call assert_equal(6, g:CallCount) + %d + let g:CallCount = 0 + set complete=FTcomplete + exe "normal! iup\<C-N>\<BS>\<BS>\<BS>\<BS>\<BS>" + call assert_equal('up', getline(1)) + call assert_equal(6, g:CallCount) + %d + let g:CallCount = 0 + set complete=F + exe "normal! iup\<C-N>\<BS>\<BS>\<BS>\<BS>\<BS>" + call assert_equal('up', getline(1)) + call assert_equal(6, g:CallCount) + %d + let g:CallCount = 0 + set omnifunc=Tcomplete + set complete=o + exe "normal! iup\<C-N>\<BS>\<BS>\<BS>\<BS>\<BS>" + call assert_equal('up', getline(1)) + call assert_equal(6, g:CallCount) + bw! + set completeopt& + set complete& + set completefunc& + delfunc Tcomplete +endfunc + +" Test for 'cpt' user func that fails (return -2/-3) when refresh:always +func Test_cpt_func_refresh_always_fail() + func! CompleteFail(retval, findstart, base) + if a:findstart + return a:retval + endif + call assert_equal(-999, a:findstart) " Should not reach here + endfunc + new + set complete=Ffunction('CompleteFail'\\,\ [-2]) + exe "normal! ia\<C-N>" + %d + set complete=Ffunction('CompleteFail'\\,\ [-3]) + exe "normal! ia\<C-N>" + bw! + + func! CompleteFailIntermittent(retval, findstart, base) + if a:findstart + if g:CallCount == 2 + let g:CallCount += 1 + return a:retval + endif + return col('.') - 1 + endif + let g:CallCount += 1 + let res = [[], ['foo', 'fbar'], ['foo1', 'foo2'], ['foofail'], ['fooo3']] + return #{words: res[g:CallCount], refresh: 'always'} + endfunc + new + set completeopt=menuone,noselect + set complete=Ffunction('CompleteFailIntermittent'\\,\ [-2]) + let g:CallCount = 0 + exe "normal! if\<C-N>\<c-r>=complete_info([\"items\"])\<cr>" + call assert_match('''word'': ''foo''.*''word'': ''fbar''', getline(1)) + call assert_equal(1, g:CallCount) + %d + let g:CallCount = 0 + exe "normal! if\<C-N>o\<c-r>=complete_info([\"items\", \"selected\"])\<cr>" + call assert_match('''selected'': -1.*''word'': ''foo1''.*''word'': ''foo2''', getline(1)) + call assert_equal(2, g:CallCount) + %d + set complete=Ffunction('CompleteFailIntermittent'\\,\ [-3]) + let g:CallCount = 0 + exe "normal! if\<C-N>o\<c-r>=complete_info([\"items\", \"selected\"])\<cr>" + call assert_match('''selected'': -1.*''word'': ''foo1''.*''word'': ''foo2''', getline(1)) + call assert_equal(2, g:CallCount) + %d + set complete=Ffunction('CompleteFailIntermittent'\\,\ [-2]) + " completion mode is dismissed when there are no matches in list + let g:CallCount = 0 + exe "normal! if\<C-N>oo\<c-r>=complete_info([\"items\"])\<cr>" + call assert_equal('foo{''items'': []}', getline(1)) + call assert_equal(3, g:CallCount) + %d + let g:CallCount = 0 + exe "normal! if\<C-N>oo\<bs>\<c-r>=complete_info([\"items\"])\<cr>" + call assert_equal('fo{''items'': []}', getline(1)) + call assert_equal(3, g:CallCount) + %d + " completion mode continues when matches from other sources present + set complete=.,Ffunction('CompleteFailIntermittent'\\,\ [-2]) + call setline(1, 'fooo1') + let g:CallCount = 0 + exe "normal! Gof\<C-N>oo\<c-r>=complete_info([\"items\", \"selected\"])\<cr>" + call assert_equal('foo{''selected'': -1, ''items'': [{''word'': ''fooo1'', ''menu'': '''', ' + \ . '''user_data'': '''', ''info'': '''', ''kind'': '''', ''abbr'': ''''}]}', + \ getline(2)) + call assert_equal(3, g:CallCount) + %d + call setline(1, 'fooo1') + let g:CallCount = 0 + exe "normal! Gof\<C-N>oo\<bs>\<c-r>=complete_info([\"items\"])\<cr>" + call assert_match('''word'': ''fooo1''.*''word'': ''fooo3''', getline(2)) + call assert_equal(4, g:CallCount) + %d + " refresh will stop when -3 is returned + set complete=.,,\ Ffunction('CompleteFailIntermittent'\\,\ [-3]) + call setline(1, 'fooo1') + let g:CallCount = 0 + exe "normal! Gof\<C-N>o\<bs>\<c-r>=complete_info([\"items\", \"selected\"])\<cr>" + call assert_equal('f{''selected'': -1, ''items'': [{''word'': ''fooo1'', ''menu'': '''', ' + \ . '''user_data'': '''', ''info'': '''', ''kind'': '''', ''abbr'': ''''}]}', + \ getline(2)) + call assert_equal(3, g:CallCount) + %d + call setline(1, 'fooo1') + let g:CallCount = 0 + exe "normal! Gof\<C-N>oo\<bs>\<c-r>=complete_info([\"items\", \"selected\"])\<cr>" + call assert_equal('fo{''selected'': -1, ''items'': [{''word'': ''fooo1'', ''menu'': '''', ' + \ . '''user_data'': '''', ''info'': '''', ''kind'': '''', ''abbr'': ''''}]}', + \ getline(2)) + call assert_equal(3, g:CallCount) + bw! + + set complete& completeopt& + delfunc CompleteFail + delfunc CompleteFailIntermittent +endfunc + +" Select items before they are removed by refresh:always +func Test_cpt_select_item_refresh_always() + + func CompleteMenuWords() + let info = complete_info(["items", "selected"]) + call map(info.items, {_, v -> v.word}) + return info + endfunc + + func! CompleteItemsSelect(compl, findstart, base) + if a:findstart + return col('.') - 1 + endif + let g:CallCount += 1 + if g:CallCount == 2 + return #{words: a:compl, refresh: 'always'} + endif + let res = [[], ['fo', 'foobar'], [], ['foo1', 'foo2']] + return #{words: res[g:CallCount], refresh: 'always'} + endfunc + + new + set complete=.,Ffunction('CompleteItemsSelect'\\,\ [[]]) + call setline(1, "foobarbar") + let g:CallCount = 0 + exe "normal! Gof\<c-n>\<c-n>\<c-r>=CompleteMenuWords()\<cr>" + call assert_equal('fo{''selected'': 1, ''items'': [''foobarbar'', ''fo'', ''foobar'']}', getline(2)) + call assert_equal(1, g:CallCount) + %d + call setline(1, "foobarbar") + let g:CallCount = 0 + exe "normal! Gof\<c-p>\<c-p>\<c-p>\<c-r>=CompleteMenuWords()\<cr>" + call assert_equal('fo{''selected'': 0, ''items'': [''fo'', ''foobar'', ''foobarbar'']}', getline(2)) + call assert_equal(1, g:CallCount) + %d + call setline(1, "foobarbar") + let g:CallCount = 0 + exe "normal! Gof\<c-n>\<c-n>o\<c-r>=CompleteMenuWords()\<cr>" + call assert_equal('foo{''selected'': -1, ''items'': []}' , getline(2)) + call assert_equal(1, g:CallCount) + %d + call setline(1, "foobarbar") + let g:CallCount = 0 + exe "normal! Gof\<c-n>\<c-n>\<bs>\<c-r>=CompleteMenuWords()\<cr>" + call assert_equal('f{''selected'': -1, ''items'': [''foobarbar'']}', getline(2)) + call assert_equal(2, g:CallCount) + %d + call setline(1, "foobarbar") + let g:CallCount = 0 + exe "normal! Gof\<c-p>\<c-p>\<c-p>\<bs>\<c-r>=CompleteMenuWords()\<cr>" + call assert_equal('f{''selected'': -1, ''items'': [''foobarbar'']}', getline(2)) + call assert_equal(2, g:CallCount) + + %d + set complete=.,Ffunction('CompleteItemsSelect'\\,\ [['foonext']]) + call setline(1, "foobarbar") + let g:CallCount = 0 + exe "normal! Gof\<c-n>\<c-n>\<bs>\<c-r>=CompleteMenuWords()\<cr>" + call assert_equal('f{''selected'': -1, ''items'': [''foobarbar'', ''foonext'']}', getline(2)) + call assert_equal(2, g:CallCount) + %d + call setline(1, "foobarbar") + let g:CallCount = 0 + exe "normal! Gof\<c-p>\<c-p>\<c-p>\<bs>\<c-r>=CompleteMenuWords()\<cr>" + call assert_equal('f{''selected'': -1, ''items'': [''foonext'', ''foobarbar'']}', getline(2)) + call assert_equal(2, g:CallCount) + + %d + call setline(1, "foob") + let g:CallCount = 0 + exe "normal! Gof\<c-n>\<bs>\<c-r>=CompleteMenuWords()\<cr>" + call assert_equal('foo{''selected'': 0, ''items'': [''foob'', ''foonext'']}', getline(2)) + call assert_equal(2, g:CallCount) + %d + call setline(1, "foob") + let g:CallCount = 0 + exe "normal! Gof\<c-n>\<bs>\<bs>\<c-r>=CompleteMenuWords()\<cr>" + call assert_equal('fo{''selected'': 0, ''items'': [''foob'', ''foo1'', ''foo2'']}', getline(2)) + call assert_equal(3, g:CallCount) + + %d + call setline(1, "foob") + let g:CallCount = 0 + exe "normal! Gof\<c-p>\<bs>\<c-r>=CompleteMenuWords()\<cr>" + call assert_equal('foo{''selected'': 1, ''items'': [''foonext'', ''foob'']}', getline(2)) + call assert_equal(2, g:CallCount) + %d + call setline(1, "foob") + let g:CallCount = 0 + exe "normal! Gof\<c-p>\<bs>\<bs>\<c-r>=CompleteMenuWords()\<cr>" + call assert_equal('fo{''selected'': 2, ''items'': [''foo1'', ''foo2'', ''foob'']}', getline(2)) + call assert_equal(3, g:CallCount) + + %d + set complete=.,Ffunction('CompleteItemsSelect'\\,\ [['fo'\\,\ 'foonext']]) + call setline(1, "foobarbar") + let g:CallCount = 0 + exe "normal! Gof\<c-n>\<c-n>\<bs>\<c-r>=CompleteMenuWords()\<cr>" + call assert_equal('f{''selected'': -1, ''items'': [''foobarbar'', ''fo'', ''foonext'']}', getline(2)) + call assert_equal(2, g:CallCount) + %d + call setline(1, "foobarbar") + let g:CallCount = 0 + exe "normal! Gof\<c-p>\<c-p>\<c-p>\<bs>\<c-r>=CompleteMenuWords()\<cr>" + call assert_equal('f{''selected'': -1, ''items'': [''fo'', ''foonext'', ''foobarbar'']}', getline(2)) + call assert_equal(2, g:CallCount) + bw! + + set complete& + delfunc CompleteMenuWords + delfunc CompleteItemsSelect +endfunc + +" Test two functions together, each returning refresh:always +func Test_cpt_multi_func_refresh_always() + + func CompleteMenuMatches() + let info = complete_info(["matches", "selected"]) + call map(info.matches, {_, v -> v.word}) + return info + endfunc + + func! CompleteItems1(findstart, base) + if a:findstart + return col('.') - 1 + endif + let g:CallCount1 += 1 + let res = [[], [], ['foo1', 'foobar1'], [], ['foo11', 'foo12'], [], ['foo13', 'foo14']] + return #{words: res[g:CallCount1], refresh: 'always'} + endfunc + + func! CompleteItems2(findstart, base) + if a:findstart + return col('.') - 1 + endif + let g:CallCount2 += 1 + let res = [[], [], [], ['foo2', 'foobar2'], ['foo21', 'foo22'], ['foo23'], []] + return #{words: res[g:CallCount2], refresh: 'always'} + endfunc + + set complete= + exe "normal! if\<C-N>\<c-r>=CompleteMenuMatches()\<cr>" + " \x0e is <c-n> + call assert_equal("f\x0e" . '{''matches'': [], ''selected'': -1}', getline(1)) + + set completeopt=menuone,noselect + set complete=FCompleteItems1,FCompleteItems2 + + new + let g:CallCount1 = 0 + let g:CallCount2 = 0 + exe "normal! if\<c-n>o\<c-n>o\<c-r>=CompleteMenuMatches()\<cr>" + call assert_equal('foo{''matches'': [''foo2'', ''foobar2''], ''selected'': -1}', getline(1)) + call assert_equal(3, g:CallCount1) + call assert_equal(3, g:CallCount2) + %d + let g:CallCount1 = 0 + let g:CallCount2 = 0 + exe "normal! if\<c-p>o\<c-p>o\<c-r>=CompleteMenuMatches()\<cr>" + call assert_equal('foo{''matches'': [''foo2'', ''foobar2''], ''selected'': -1}', getline(1)) + call assert_equal(3, g:CallCount1) + call assert_equal(3, g:CallCount2) + %d + let g:CallCount1 = 0 + let g:CallCount2 = 0 + exe "normal! if\<c-p>\<c-r>=CompleteMenuMatches()\<cr>" + call assert_equal('f{''matches'': [], ''selected'': -1}', getline(1)) + call assert_equal(1, g:CallCount1) + call assert_equal(1, g:CallCount2) + %d + let g:CallCount1 = 1 + let g:CallCount2 = 1 + exe "normal! if\<c-n>\<c-r>=CompleteMenuMatches()\<cr>" + call assert_equal('f{''matches'': [''foo1'', ''foobar1''], ''selected'': -1}', getline(1)) + call assert_equal(2, g:CallCount2) + call assert_equal(2, g:CallCount2) + %d + let g:CallCount1 = 1 + let g:CallCount2 = 1 + exe "normal! if\<c-n>o\<c-r>=CompleteMenuMatches()\<cr>" + call assert_equal('fo{''matches'': [''foo2'', ''foobar2''], ''selected'': -1}', getline(1)) + call assert_equal(3, g:CallCount2) + call assert_equal(3, g:CallCount2) + %d + let g:CallCount1 = 1 + let g:CallCount2 = 1 + exe "normal! if\<c-p>o\<c-r>=CompleteMenuMatches()\<cr>" + call assert_equal('fo{''matches'': [''foo2'', ''foobar2''], ''selected'': -1}', getline(1)) + call assert_equal(3, g:CallCount2) + call assert_equal(3, g:CallCount2) + %d + let g:CallCount1 = 1 + let g:CallCount2 = 1 + exe "normal! if\<c-n>oo\<c-r>=CompleteMenuMatches()\<cr>" + call assert_equal('foo{''matches'': [''foo11'', ''foo12'', ''foo21'', ''foo22''], ''selected'': -1}', getline(1)) + call assert_equal(4, g:CallCount2) + call assert_equal(4, g:CallCount2) + %d + let g:CallCount1 = 1 + let g:CallCount2 = 1 + exe "normal! if\<c-n>oo\<bs>\<c-r>=CompleteMenuMatches()\<cr>" + call assert_equal('fo{''matches'': [''foo23''], ''selected'': -1}', getline(1)) + call assert_equal(5, g:CallCount2) + call assert_equal(5, g:CallCount2) + %d + let g:CallCount1 = 1 + let g:CallCount2 = 1 + exe "normal! if\<c-p>oo\<bs>\<c-r>=CompleteMenuMatches()\<cr>" + call assert_equal('fo{''matches'': [''foo23''], ''selected'': -1}', getline(1)) + call assert_equal(5, g:CallCount2) + call assert_equal(5, g:CallCount2) + %d + let g:CallCount1 = 1 + let g:CallCount2 = 1 + exe "normal! if\<c-n>oo\<bs>o\<c-r>=CompleteMenuMatches()\<cr>" + call assert_equal('foo{''matches'': [''foo13'', ''foo14''], ''selected'': -1}', getline(1)) + call assert_equal(6, g:CallCount2) + call assert_equal(6, g:CallCount2) + bw! + + set complete& completeopt& + delfunc CompleteMenuMatches + delfunc CompleteItems1 + delfunc CompleteItems2 +endfunc + +" Test for completing from a thesaurus file without read permission +func Test_complete_unreadable_thesaurus_file() + CheckUnix + CheckNotRoot + + call writefile(['about', 'above'], 'Xunrfile', 'D') + call setfperm('Xunrfile', '---r--r--') + new + set complete=sXfile + exe "normal! ia\<C-P>" + call assert_equal('a', getline(1)) + + bw! + set complete& +endfunc + +" Test to ensure 'Scanning...' messages are not recorded in messages history +func Test_z1_complete_no_history() + new + messages clear + let currmess = execute('messages') + setlocal dictionary=README.txt + exe "normal owh\<C-X>\<C-K>" + exe "normal owh\<C-N>" + call assert_equal(currmess, execute('messages')) + bwipe! +endfunc + +" A mapping is not used for the key after CTRL-X. +func Test_no_mapping_for_ctrl_x_key() + new + inoremap <buffer> <C-K> <Cmd>let was_mapped = 'yes'<CR> + setlocal dictionary=README.txt + call feedkeys("aexam\<C-X>\<C-K> ", 'xt') + call assert_equal('example ', getline(1)) + call assert_false(exists('was_mapped')) + bwipe! +endfunc + +" Test for different ways of setting a function in 'complete' option +func Test_cpt_func_callback() + func CompleteFunc1(callnr, findstart, base) + call add(g:CompleteFunc1Args, [a:callnr, a:findstart, a:base]) + return a:findstart ? 0 : [] + endfunc + func CompleteFunc2(findstart, base) + call add(g:CompleteFunc2Args, [a:findstart, a:base]) + return a:findstart ? 0 : [] + endfunc + + let lines =<< trim END + #" Test for using a global function name + set complete=Fg:CompleteFunc2 + new + call setline(1, 'global') + LET g:CompleteFunc2Args = [] + call feedkeys("A\<C-N>\<Esc>", 'x') + call assert_equal([[1, ''], [0, 'global']], g:CompleteFunc2Args) + set complete& + bw! + + #" Test for using a function() + set complete=Ffunction('g:CompleteFunc1'\\,\ [10]) + new + call setline(1, 'one') + LET g:CompleteFunc1Args = [] + call feedkeys("A\<C-N>\<Esc>", 'x') + call assert_equal([[10, 1, ''], [10, 0, 'one']], g:CompleteFunc1Args) + set complete& + bw! + + #" Using a funcref variable + set complete=Ffuncref('g:CompleteFunc1'\\,\ [11]) + new + call setline(1, 'two') + LET g:CompleteFunc1Args = [] + call feedkeys("A\<C-N>\<Esc>", 'x') + call assert_equal([[11, 1, ''], [11, 0, 'two']], g:CompleteFunc1Args) + set complete& + bw! + + END + call v9.CheckLegacyAndMNV9Success(lines) + + " Test for using a script-local function name + func s:CompleteFunc3(findstart, base) + call add(g:CompleteFunc3Args, [a:findstart, a:base]) + return a:findstart ? 0 : [] + endfunc + set complete=Fs:CompleteFunc3 + new + call setline(1, 'script1') + let g:CompleteFunc3Args = [] + call feedkeys("A\<C-N>\<Esc>", 'x') + call assert_equal([[1, ''], [0, 'script1']], g:CompleteFunc3Args) + set complete& + bw! + + let &complete = 'Fs:CompleteFunc3' + new + call setline(1, 'script2') + let g:CompleteFunc3Args = [] + call feedkeys("A\<C-N>\<Esc>", 'x') + call assert_equal([[1, ''], [0, 'script2']], g:CompleteFunc3Args) + bw! + delfunc s:CompleteFunc3 + set complete& + + " In MNV9 script s: can be omitted + let lines =<< trim END + mnv9script + var CompleteFunc4Args = [] + def CompleteFunc4(findstart: bool, base: string): any + add(CompleteFunc4Args, [findstart, base]) + return findstart ? 0 : [] + enddef + set complete=FCompleteFunc4 + new + setline(1, 'script1') + feedkeys("A\<C-N>\<Esc>", 'x') + assert_equal([[1, ''], [0, 'script1']], CompleteFunc4Args) + set complete& + bw! + END + call v9.CheckScriptSuccess(lines) + + " MNV9 tests + let lines =<< trim END + mnv9script + + def MNV9CompleteFunc(callnr: number, findstart: number, base: string): any + add(g:MNV9completeFuncArgs, [callnr, findstart, base]) + return findstart ? 0 : [] + enddef + + # Test for using a def function with completefunc + set complete=Ffunction('MNV9CompleteFunc'\\,\ [60]) + new | only + setline(1, 'one') + g:MNV9completeFuncArgs = [] + feedkeys("A\<C-N>\<Esc>", 'x') + assert_equal([[60, 1, ''], [60, 0, 'one']], g:MNV9completeFuncArgs) + bw! + + # Test for using a global function name + &complete = 'Fg:CompleteFunc2' + new | only + setline(1, 'two') + g:CompleteFunc2Args = [] + feedkeys("A\<C-N>\<Esc>", 'x') + assert_equal([[1, ''], [0, 'two']], g:CompleteFunc2Args) + bw! + + # Test for using a script-local function name + def LocalCompleteFunc(findstart: number, base: string): any + add(g:LocalCompleteFuncArgs, [findstart, base]) + return findstart ? 0 : [] + enddef + &complete = 'FLocalCompleteFunc' + new | only + setline(1, 'three') + g:LocalCompleteFuncArgs = [] + feedkeys("A\<C-N>\<Esc>", 'x') + assert_equal([[1, ''], [0, 'three']], g:LocalCompleteFuncArgs) + bw! + END + call v9.CheckScriptSuccess(lines) + + " cleanup + set completefunc& complete& + delfunc CompleteFunc1 + delfunc CompleteFunc2 + unlet g:CompleteFunc1Args g:CompleteFunc2Args + %bw! +endfunc + +" Test for different ways of setting the 'completefunc' option +func Test_completefunc_callback() + func CompleteFunc1(callnr, findstart, base) + call add(g:CompleteFunc1Args, [a:callnr, a:findstart, a:base]) + return a:findstart ? 0 : [] + endfunc + func CompleteFunc2(findstart, base) + call add(g:CompleteFunc2Args, [a:findstart, a:base]) + return a:findstart ? 0 : [] + endfunc + + let lines =<< trim END + #" Test for using a global function name + LET &completefunc = 'g:CompleteFunc2' + new + call setline(1, 'global') + LET g:CompleteFunc2Args = [] + call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') + call assert_equal([[1, ''], [0, 'global']], g:CompleteFunc2Args) + bw! + + #" Test for using a function() + set completefunc=function('g:CompleteFunc1',\ [10]) + new + call setline(1, 'one') + LET g:CompleteFunc1Args = [] + call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') + call assert_equal([[10, 1, ''], [10, 0, 'one']], g:CompleteFunc1Args) + bw! + + #" Using a funcref variable to set 'completefunc' + VAR Fn = function('g:CompleteFunc1', [11]) + LET &completefunc = Fn + new + call setline(1, 'two') + LET g:CompleteFunc1Args = [] + call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') + call assert_equal([[11, 1, ''], [11, 0, 'two']], g:CompleteFunc1Args) + bw! + + #" Using string(funcref_variable) to set 'completefunc' + LET Fn = function('g:CompleteFunc1', [12]) + LET &completefunc = string(Fn) + new + call setline(1, 'two') + LET g:CompleteFunc1Args = [] + call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') + call assert_equal([[12, 1, ''], [12, 0, 'two']], g:CompleteFunc1Args) + bw! + + #" Test for using a funcref() + set completefunc=funcref('g:CompleteFunc1',\ [13]) + new + call setline(1, 'three') + LET g:CompleteFunc1Args = [] + call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') + call assert_equal([[13, 1, ''], [13, 0, 'three']], g:CompleteFunc1Args) + bw! + + #" Using a funcref variable to set 'completefunc' + LET Fn = funcref('g:CompleteFunc1', [14]) + LET &completefunc = Fn + new + call setline(1, 'four') + LET g:CompleteFunc1Args = [] + call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') + call assert_equal([[14, 1, ''], [14, 0, 'four']], g:CompleteFunc1Args) + bw! + + #" Using a string(funcref_variable) to set 'completefunc' + LET Fn = funcref('g:CompleteFunc1', [15]) + LET &completefunc = string(Fn) + new + call setline(1, 'four') + LET g:CompleteFunc1Args = [] + call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') + call assert_equal([[15, 1, ''], [15, 0, 'four']], g:CompleteFunc1Args) + bw! + + #" Test for using a lambda function with set + VAR optval = "LSTART a, b LMIDDLE g:CompleteFunc1(16, a, b) LEND" + LET optval = substitute(optval, ' ', '\\ ', 'g') + exe "set completefunc=" .. optval + new + call setline(1, 'five') + LET g:CompleteFunc1Args = [] + call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') + call assert_equal([[16, 1, ''], [16, 0, 'five']], g:CompleteFunc1Args) + bw! + + #" Set 'completefunc' to a lambda expression + LET &completefunc = LSTART a, b LMIDDLE g:CompleteFunc1(17, a, b) LEND + new + call setline(1, 'six') + LET g:CompleteFunc1Args = [] + call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') + call assert_equal([[17, 1, ''], [17, 0, 'six']], g:CompleteFunc1Args) + bw! + + #" Set 'completefunc' to string(lambda_expression) + LET &completefunc = 'LSTART a, b LMIDDLE g:CompleteFunc1(18, a, b) LEND' + new + call setline(1, 'six') + LET g:CompleteFunc1Args = [] + call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') + call assert_equal([[18, 1, ''], [18, 0, 'six']], g:CompleteFunc1Args) + bw! + + #" Set 'completefunc' to a variable with a lambda expression + VAR Lambda = LSTART a, b LMIDDLE g:CompleteFunc1(19, a, b) LEND + LET &completefunc = Lambda + new + call setline(1, 'seven') + LET g:CompleteFunc1Args = [] + call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') + call assert_equal([[19, 1, ''], [19, 0, 'seven']], g:CompleteFunc1Args) + bw! + + #" Set 'completefunc' to a string(variable with a lambda expression) + LET Lambda = LSTART a, b LMIDDLE g:CompleteFunc1(20, a, b) LEND + LET &completefunc = string(Lambda) + new + call setline(1, 'seven') + LET g:CompleteFunc1Args = [] + call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') + call assert_equal([[20, 1, ''], [20, 0, 'seven']], g:CompleteFunc1Args) + bw! + + #" Test for using a lambda function with incorrect return value + LET Lambda = LSTART a, b LMIDDLE strlen(a) LEND + LET &completefunc = Lambda + new + call setline(1, 'eight') + call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') + bw! + + #" Test for clearing the 'completefunc' option + set completefunc='' + set completefunc& + call assert_fails("set completefunc=function('abc')", "E700:") + call assert_fails("set completefunc=funcref('abc')", "E700:") + + #" set 'completefunc' to a non-existing function + set completefunc=g:CompleteFunc2 + call setline(1, 'five') + call assert_fails("set completefunc=function('NonExistingFunc')", 'E700:') + call assert_fails("LET &completefunc = function('NonExistingFunc')", 'E700:') + LET g:CompleteFunc2Args = [] + call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') + call assert_equal([[1, ''], [0, 'five']], g:CompleteFunc2Args) + bw! + + #" :setlocal and :setglobal + set complete=F completefunc& + setlocal completefunc=function('g:CompleteFunc1',\ [22]) + call setline(1, 'sun') + LET g:CompleteFunc1Args = [] + call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') + call assert_equal([[22, 1, ''], [22, 0, 'sun']], g:CompleteFunc1Args) + LET g:CompleteFunc1Args = [] + call feedkeys("A\<C-N>\<Esc>", 'x') + call assert_equal([[22, 1, ''], [22, 0, 'sun']], g:CompleteFunc1Args) + new + call setline(1, 'sun') + LET g:CompleteFunc1Args = [] + call assert_fails('call feedkeys("A\<C-X>\<C-U>\<Esc>", "x")', 'E764:') + call assert_equal([], g:CompleteFunc1Args) + LET g:CompleteFunc1Args = [] + call feedkeys("A\<C-N>\<Esc>", 'x') + call assert_equal([], g:CompleteFunc1Args) + bw! + setglobal completefunc=function('g:CompleteFunc1',\ [23]) + call setline(1, 'sun') + LET g:CompleteFunc1Args = [] + call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') + call assert_equal([[22, 1, ''], [22, 0, 'sun']], g:CompleteFunc1Args) + LET g:CompleteFunc1Args = [] + call feedkeys("A\<C-N>\<Esc>", 'x') + call assert_equal([[22, 1, ''], [22, 0, 'sun']], g:CompleteFunc1Args) + setlocal completefunc& + call setline(1, 'sun') + LET g:CompleteFunc1Args = [] + call assert_fails('call feedkeys("A\<C-X>\<C-U>\<Esc>", "x")', 'E764:') + call assert_equal([], g:CompleteFunc1Args) + LET g:CompleteFunc1Args = [] + call feedkeys("A\<C-N>\<Esc>", 'x') + call assert_equal([], g:CompleteFunc1Args) + new + call setline(1, 'sun') + LET g:CompleteFunc1Args = [] + call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') + call assert_equal([[23, 1, ''], [23, 0, 'sun']], g:CompleteFunc1Args) + LET g:CompleteFunc1Args = [] + call feedkeys("A\<C-N>\<Esc>", 'x') + call assert_equal([[23, 1, ''], [23, 0, 'sun']], g:CompleteFunc1Args) + set complete& completefunc& + :%bw! + END + call v9.CheckLegacyAndMNV9Success(lines) + + " Test for using a script-local function name + func s:CompleteFunc3(findstart, base) + call add(g:CompleteFunc3Args, [a:findstart, a:base]) + return a:findstart ? 0 : [] + endfunc + set completefunc=s:CompleteFunc3 + new + call setline(1, 'script1') + let g:CompleteFunc3Args = [] + call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') + call assert_equal([[1, ''], [0, 'script1']], g:CompleteFunc3Args) + bw! + + let &completefunc = 's:CompleteFunc3' + new + call setline(1, 'script2') + let g:CompleteFunc3Args = [] + call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') + call assert_equal([[1, ''], [0, 'script2']], g:CompleteFunc3Args) + bw! + delfunc s:CompleteFunc3 + + " In MNV9 script s: can be omitted + let lines =<< trim END + mnv9script + var CompleteFunc4Args = [] + def CompleteFunc4(findstart: bool, base: string): any + add(CompleteFunc4Args, [findstart, base]) + return findstart ? 0 : [] + enddef + set completefunc=CompleteFunc4 + new + setline(1, 'script1') + feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') + assert_equal([[1, ''], [0, 'script1']], CompleteFunc4Args) + bw! + END + call v9.CheckScriptSuccess(lines) + + " invalid return value + let &completefunc = {a -> 'abc'} + call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') + + " Using MNV9 lambda expression in legacy context should fail + set completefunc=(a,\ b)\ =>\ g:CompleteFunc1(21,\ a,\ b) + new | only + let g:CompleteFunc1Args = [] + call assert_fails('call feedkeys("A\<C-X>\<C-U>\<Esc>", "x")', 'E117:') + call assert_equal([], g:CompleteFunc1Args) + + " set 'completefunc' to a partial with dict. This used to cause a crash. + func SetCompleteFunc() + let params = {'complete': function('g:DictCompleteFunc')} + let &completefunc = params.complete + endfunc + func g:DictCompleteFunc(_) dict + endfunc + call SetCompleteFunc() + new + call SetCompleteFunc() + bw + call test_garbagecollect_now() + new + set completefunc= + wincmd w + set completefunc= + %bw! + delfunc g:DictCompleteFunc + delfunc SetCompleteFunc + + " MNV9 tests + let lines =<< trim END + mnv9script + + def MNV9CompleteFunc(callnr: number, findstart: number, base: string): any + add(g:MNV9completeFuncArgs, [callnr, findstart, base]) + return findstart ? 0 : [] + enddef + + # Test for using a def function with completefunc + set completefunc=function('MNV9CompleteFunc',\ [60]) + new | only + setline(1, 'one') + g:MNV9completeFuncArgs = [] + feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') + assert_equal([[60, 1, ''], [60, 0, 'one']], g:MNV9completeFuncArgs) + bw! + + # Test for using a global function name + &completefunc = g:CompleteFunc2 + new | only + setline(1, 'two') + g:CompleteFunc2Args = [] + feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') + assert_equal([[1, ''], [0, 'two']], g:CompleteFunc2Args) + bw! + + # Test for using a script-local function name + def LocalCompleteFunc(findstart: number, base: string): any + add(g:LocalCompleteFuncArgs, [findstart, base]) + return findstart ? 0 : [] + enddef + &completefunc = LocalCompleteFunc + new | only + setline(1, 'three') + g:LocalCompleteFuncArgs = [] + feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') + assert_equal([[1, ''], [0, 'three']], g:LocalCompleteFuncArgs) + bw! + END + call v9.CheckScriptSuccess(lines) + + " cleanup + set completefunc& + delfunc CompleteFunc1 + delfunc CompleteFunc2 + unlet g:CompleteFunc1Args g:CompleteFunc2Args + %bw! +endfunc + +" Test for different ways of setting the 'omnifunc' option +func Test_omnifunc_callback() + func OmniFunc1(callnr, findstart, base) + call add(g:OmniFunc1Args, [a:callnr, a:findstart, a:base]) + return a:findstart ? 0 : [] + endfunc + func OmniFunc2(findstart, base) + call add(g:OmniFunc2Args, [a:findstart, a:base]) + return a:findstart ? 0 : [] + endfunc + + let lines =<< trim END + #" Test for using a function name + LET &omnifunc = 'g:OmniFunc2' + new + call setline(1, 'zero') + LET g:OmniFunc2Args = [] + call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x') + call assert_equal([[1, ''], [0, 'zero']], g:OmniFunc2Args) + bw! + + #" Test for using a function() + set omnifunc=function('g:OmniFunc1',\ [10]) + new + call setline(1, 'one') + LET g:OmniFunc1Args = [] + call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x') + call assert_equal([[10, 1, ''], [10, 0, 'one']], g:OmniFunc1Args) + bw! + + #" Using a funcref variable to set 'omnifunc' + VAR Fn = function('g:OmniFunc1', [11]) + LET &omnifunc = Fn + new + call setline(1, 'two') + LET g:OmniFunc1Args = [] + call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x') + call assert_equal([[11, 1, ''], [11, 0, 'two']], g:OmniFunc1Args) + bw! + + #" Using a string(funcref_variable) to set 'omnifunc' + LET Fn = function('g:OmniFunc1', [12]) + LET &omnifunc = string(Fn) + new + call setline(1, 'two') + LET g:OmniFunc1Args = [] + call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x') + call assert_equal([[12, 1, ''], [12, 0, 'two']], g:OmniFunc1Args) + bw! + + #" Test for using a funcref() + set omnifunc=funcref('g:OmniFunc1',\ [13]) + new + call setline(1, 'three') + LET g:OmniFunc1Args = [] + call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x') + call assert_equal([[13, 1, ''], [13, 0, 'three']], g:OmniFunc1Args) + bw! + + #" Use let to set 'omnifunc' to a funcref + LET Fn = funcref('g:OmniFunc1', [14]) + LET &omnifunc = Fn + new + call setline(1, 'four') + LET g:OmniFunc1Args = [] + call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x') + call assert_equal([[14, 1, ''], [14, 0, 'four']], g:OmniFunc1Args) + bw! + + #" Using a string(funcref) to set 'omnifunc' + LET Fn = funcref("g:OmniFunc1", [15]) + LET &omnifunc = string(Fn) + new + call setline(1, 'four') + LET g:OmniFunc1Args = [] + call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x') + call assert_equal([[15, 1, ''], [15, 0, 'four']], g:OmniFunc1Args) + bw! + + #" Test for using a lambda function with set + VAR optval = "LSTART a, b LMIDDLE g:OmniFunc1(16, a, b) LEND" + LET optval = substitute(optval, ' ', '\\ ', 'g') + exe "set omnifunc=" .. optval + new + call setline(1, 'five') + LET g:OmniFunc1Args = [] + call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x') + call assert_equal([[16, 1, ''], [16, 0, 'five']], g:OmniFunc1Args) + bw! + + #" Set 'omnifunc' to a lambda expression + LET &omnifunc = LSTART a, b LMIDDLE g:OmniFunc1(17, a, b) LEND + new + call setline(1, 'six') + LET g:OmniFunc1Args = [] + call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x') + call assert_equal([[17, 1, ''], [17, 0, 'six']], g:OmniFunc1Args) + bw! + + #" Set 'omnifunc' to a string(lambda_expression) + LET &omnifunc = 'LSTART a, b LMIDDLE g:OmniFunc1(18, a, b) LEND' + new + call setline(1, 'six') + LET g:OmniFunc1Args = [] + call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x') + call assert_equal([[18, 1, ''], [18, 0, 'six']], g:OmniFunc1Args) + bw! + + #" Set 'omnifunc' to a variable with a lambda expression + VAR Lambda = LSTART a, b LMIDDLE g:OmniFunc1(19, a, b) LEND + LET &omnifunc = Lambda + new + call setline(1, 'seven') + LET g:OmniFunc1Args = [] + call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x') + call assert_equal([[19, 1, ''], [19, 0, 'seven']], g:OmniFunc1Args) + bw! + + #" Set 'omnifunc' to a string(variable with a lambda expression) + LET Lambda = LSTART a, b LMIDDLE g:OmniFunc1(20, a, b) LEND + LET &omnifunc = string(Lambda) + new + call setline(1, 'seven') + LET g:OmniFunc1Args = [] + call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x') + call assert_equal([[20, 1, ''], [20, 0, 'seven']], g:OmniFunc1Args) + bw! + + #" Test for using a lambda function with incorrect return value + LET Lambda = LSTART a, b LMIDDLE strlen(a) LEND + LET &omnifunc = Lambda + new + call setline(1, 'eight') + call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x') + bw! + + #" Test for clearing the 'omnifunc' option + set omnifunc='' + set omnifunc& + call assert_fails("set omnifunc=function('abc')", "E700:") + call assert_fails("set omnifunc=funcref('abc')", "E700:") + + #" set 'omnifunc' to a non-existing function + set omnifunc=g:OmniFunc2 + call setline(1, 'nine') + call assert_fails("set omnifunc=function('NonExistingFunc')", 'E700:') + call assert_fails("LET &omnifunc = function('NonExistingFunc')", 'E700:') + LET g:OmniFunc2Args = [] + call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x') + call assert_equal([[1, ''], [0, 'nine']], g:OmniFunc2Args) + bw! + + #" :setlocal and :setglobal + set complete=o omnifunc& + setlocal omnifunc=function('g:OmniFunc1',\ [22]) + call setline(1, 'sun') + LET g:OmniFunc1Args = [] + call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x') + call assert_equal([[22, 1, ''], [22, 0, 'sun']], g:OmniFunc1Args) + LET g:OmniFunc1Args = [] + call feedkeys("A\<C-N>\<Esc>", 'x') + call assert_equal([[22, 1, ''], [22, 0, 'sun']], g:OmniFunc1Args) + new + call setline(1, 'sun') + LET g:OmniFunc1Args = [] + call assert_fails('call feedkeys("A\<C-X>\<C-O>\<Esc>", "x")', 'E764:') + call assert_equal([], g:OmniFunc1Args) + LET g:OmniFunc1Args = [] + call feedkeys("A\<C-N>\<Esc>", 'x') + call assert_equal([], g:OmniFunc1Args) + bw! + setglobal omnifunc=function('g:OmniFunc1',\ [23]) + call setline(1, 'sun') + LET g:OmniFunc1Args = [] + call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x') + call assert_equal([[22, 1, ''], [22, 0, 'sun']], g:OmniFunc1Args) + LET g:OmniFunc1Args = [] + call feedkeys("A\<C-N>\<Esc>", 'x') + call assert_equal([[22, 1, ''], [22, 0, 'sun']], g:OmniFunc1Args) + setlocal omnifunc& + call setline(1, 'sun') + LET g:OmniFunc1Args = [] + call assert_fails('call feedkeys("A\<C-X>\<C-O>\<Esc>", "x")', 'E764:') + call assert_equal([], g:OmniFunc1Args) + LET g:OmniFunc1Args = [] + call feedkeys("A\<C-N>\<Esc>", 'x') + call assert_equal([], g:OmniFunc1Args) + new + call setline(1, 'sun') + LET g:OmniFunc1Args = [] + call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x') + call assert_equal([[23, 1, ''], [23, 0, 'sun']], g:OmniFunc1Args) + LET g:OmniFunc1Args = [] + call feedkeys("A\<C-N>\<Esc>", 'x') + call assert_equal([[23, 1, ''], [23, 0, 'sun']], g:OmniFunc1Args) + set complete& omnifunc& + :%bw! + END + call v9.CheckLegacyAndMNV9Success(lines) + + " Test for using a script-local function name + func s:OmniFunc3(findstart, base) + call add(g:OmniFunc3Args, [a:findstart, a:base]) + return a:findstart ? 0 : [] + endfunc + set omnifunc=s:OmniFunc3 + new + call setline(1, 'script1') + let g:OmniFunc3Args = [] + call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x') + call assert_equal([[1, ''], [0, 'script1']], g:OmniFunc3Args) + bw! + + set complete=Fs:OmniFunc3 + new + call setline(1, 'script1') + let g:OmniFunc3Args = [] + call feedkeys("A\<C-N>\<Esc>", 'x') + call assert_equal([[1, ''], [0, 'script1']], g:OmniFunc3Args) + bw! + set complete& + + let &omnifunc = 's:OmniFunc3' + new + call setline(1, 'script2') + let g:OmniFunc3Args = [] + call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x') + call assert_equal([[1, ''], [0, 'script2']], g:OmniFunc3Args) + bw! + delfunc s:OmniFunc3 + + " invalid return value + let &omnifunc = {a -> 'abc'} + call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x') + + " Using MNV9 lambda expression in legacy context should fail + set omnifunc=(a,\ b)\ =>\ OmniFunc1(21,\ a,\ b) + new | only + let g:OmniFunc1Args = [] + call assert_fails('call feedkeys("A\<C-X>\<C-O>\<Esc>", "x")', 'E117:') + call assert_equal([], g:OmniFunc1Args) + + " set 'omnifunc' to a partial with dict. This used to cause a crash. + func SetOmniFunc() + let params = {'omni': function('g:DictOmniFunc')} + let &omnifunc = params.omni + endfunc + func g:DictOmniFunc(_) dict + endfunc + call SetOmniFunc() + new + call SetOmniFunc() + bw + call test_garbagecollect_now() + new + set omnifunc= + wincmd w + set omnifunc= + %bw! + delfunc g:DictOmniFunc + delfunc SetOmniFunc + + " MNV9 tests + let lines =<< trim END + mnv9script + + def MNV9omniFunc(callnr: number, findstart: number, base: string): any + add(g:MNV9omniFunc_Args, [callnr, findstart, base]) + return findstart ? 0 : [] + enddef + + # Test for using a def function with omnifunc + set omnifunc=function('MNV9omniFunc',\ [60]) + new | only + setline(1, 'one') + g:MNV9omniFunc_Args = [] + feedkeys("A\<C-X>\<C-O>\<Esc>", 'x') + assert_equal([[60, 1, ''], [60, 0, 'one']], g:MNV9omniFunc_Args) + bw! + + # Test for using a global function name + &omnifunc = g:OmniFunc2 + new | only + setline(1, 'two') + g:OmniFunc2Args = [] + feedkeys("A\<C-X>\<C-O>\<Esc>", 'x') + assert_equal([[1, ''], [0, 'two']], g:OmniFunc2Args) + bw! + + # Test for using a script-local function name + def LocalOmniFunc(findstart: number, base: string): any + add(g:LocalOmniFuncArgs, [findstart, base]) + return findstart ? 0 : [] + enddef + &omnifunc = LocalOmniFunc + new | only + setline(1, 'three') + g:LocalOmniFuncArgs = [] + feedkeys("A\<C-X>\<C-O>\<Esc>", 'x') + assert_equal([[1, ''], [0, 'three']], g:LocalOmniFuncArgs) + bw! + END + call v9.CheckScriptSuccess(lines) + + " cleanup + set omnifunc& + delfunc OmniFunc1 + delfunc OmniFunc2 + unlet g:OmniFunc1Args g:OmniFunc2Args + %bw! +endfunc + +" Test for different ways of setting the 'thesaurusfunc' option +func Test_thesaurusfunc_callback() + func TsrFunc1(callnr, findstart, base) + call add(g:TsrFunc1Args, [a:callnr, a:findstart, a:base]) + return a:findstart ? 0 : [] + endfunc + func TsrFunc2(findstart, base) + call add(g:TsrFunc2Args, [a:findstart, a:base]) + return a:findstart ? 0 : ['sunday'] + endfunc + + let lines =<< trim END + #" Test for using a function name + LET &thesaurusfunc = 'g:TsrFunc2' + new + call setline(1, 'zero') + LET g:TsrFunc2Args = [] + call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x') + call assert_equal([[1, ''], [0, 'zero']], g:TsrFunc2Args) + bw! + + #" Test for using a function() + set thesaurusfunc=function('g:TsrFunc1',\ [10]) + new + call setline(1, 'one') + LET g:TsrFunc1Args = [] + call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x') + call assert_equal([[10, 1, ''], [10, 0, 'one']], g:TsrFunc1Args) + bw! + + #" Using a funcref variable to set 'thesaurusfunc' + VAR Fn = function('g:TsrFunc1', [11]) + LET &thesaurusfunc = Fn + new + call setline(1, 'two') + LET g:TsrFunc1Args = [] + call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x') + call assert_equal([[11, 1, ''], [11, 0, 'two']], g:TsrFunc1Args) + bw! + + #" Using a string(funcref_variable) to set 'thesaurusfunc' + LET Fn = function('g:TsrFunc1', [12]) + LET &thesaurusfunc = string(Fn) + new + call setline(1, 'two') + LET g:TsrFunc1Args = [] + call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x') + call assert_equal([[12, 1, ''], [12, 0, 'two']], g:TsrFunc1Args) + bw! + + #" Test for using a funcref() + set thesaurusfunc=funcref('g:TsrFunc1',\ [13]) + new + call setline(1, 'three') + LET g:TsrFunc1Args = [] + call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x') + call assert_equal([[13, 1, ''], [13, 0, 'three']], g:TsrFunc1Args) + bw! + + #" Using a funcref variable to set 'thesaurusfunc' + LET Fn = funcref('g:TsrFunc1', [14]) + LET &thesaurusfunc = Fn + new + call setline(1, 'four') + LET g:TsrFunc1Args = [] + call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x') + call assert_equal([[14, 1, ''], [14, 0, 'four']], g:TsrFunc1Args) + bw! + + #" Using a string(funcref_variable) to set 'thesaurusfunc' + LET Fn = funcref('g:TsrFunc1', [15]) + LET &thesaurusfunc = string(Fn) + new + call setline(1, 'four') + LET g:TsrFunc1Args = [] + call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x') + call assert_equal([[15, 1, ''], [15, 0, 'four']], g:TsrFunc1Args) + bw! + + #" Test for using a lambda function + VAR optval = "LSTART a, b LMIDDLE g:TsrFunc1(16, a, b) LEND" + LET optval = substitute(optval, ' ', '\\ ', 'g') + exe "set thesaurusfunc=" .. optval + new + call setline(1, 'five') + LET g:TsrFunc1Args = [] + call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x') + call assert_equal([[16, 1, ''], [16, 0, 'five']], g:TsrFunc1Args) + bw! + + #" Test for using a lambda function with set + LET &thesaurusfunc = LSTART a, b LMIDDLE g:TsrFunc1(17, a, b) LEND + new + call setline(1, 'six') + LET g:TsrFunc1Args = [] + call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x') + call assert_equal([[17, 1, ''], [17, 0, 'six']], g:TsrFunc1Args) + bw! + + #" Set 'thesaurusfunc' to a string(lambda expression) + LET &thesaurusfunc = 'LSTART a, b LMIDDLE g:TsrFunc1(18, a, b) LEND' + new + call setline(1, 'six') + LET g:TsrFunc1Args = [] + call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x') + call assert_equal([[18, 1, ''], [18, 0, 'six']], g:TsrFunc1Args) + bw! + + #" Set 'thesaurusfunc' to a variable with a lambda expression + VAR Lambda = LSTART a, b LMIDDLE g:TsrFunc1(19, a, b) LEND + LET &thesaurusfunc = Lambda + new + call setline(1, 'seven') + LET g:TsrFunc1Args = [] + call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x') + call assert_equal([[19, 1, ''], [19, 0, 'seven']], g:TsrFunc1Args) + bw! + + #" Set 'thesaurusfunc' to a string(variable with a lambda expression) + LET Lambda = LSTART a, b LMIDDLE g:TsrFunc1(20, a, b) LEND + LET &thesaurusfunc = string(Lambda) + new + call setline(1, 'seven') + LET g:TsrFunc1Args = [] + call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x') + call assert_equal([[20, 1, ''], [20, 0, 'seven']], g:TsrFunc1Args) + bw! + + #" Test for using a lambda function with incorrect return value + LET Lambda = LSTART a, b LMIDDLE strlen(a) LEND + LET &thesaurusfunc = Lambda + new + call setline(1, 'eight') + call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x') + bw! + + #" Test for clearing the 'thesaurusfunc' option + set thesaurusfunc='' + set thesaurusfunc& + call assert_fails("set thesaurusfunc=function('abc')", "E700:") + call assert_fails("set thesaurusfunc=funcref('abc')", "E700:") + + #" set 'thesaurusfunc' to a non-existing function + set thesaurusfunc=g:TsrFunc2 + call setline(1, 'ten') + call assert_fails("set thesaurusfunc=function('NonExistingFunc')", 'E700:') + call assert_fails("LET &thesaurusfunc = function('NonExistingFunc')", 'E700:') + LET g:TsrFunc2Args = [] + call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x') + call assert_equal([[1, ''], [0, 'ten']], g:TsrFunc2Args) + bw! + + #" Use a buffer-local value and a global value + set thesaurusfunc& + setlocal thesaurusfunc=function('g:TsrFunc1',\ [22]) + call setline(1, 'sun') + LET g:TsrFunc1Args = [] + call feedkeys("A\<C-X>\<C-T>\<Esc>", "x") + call assert_equal('sun', getline(1)) + call assert_equal([[22, 1, ''], [22, 0, 'sun']], g:TsrFunc1Args) + new + call setline(1, 'sun') + LET g:TsrFunc1Args = [] + call feedkeys("A\<C-X>\<C-T>\<Esc>", "x") + call assert_equal('sun', getline(1)) + call assert_equal([], g:TsrFunc1Args) + set thesaurusfunc=function('g:TsrFunc1',\ [23]) + wincmd w + call setline(1, 'sun') + LET g:TsrFunc1Args = [] + call feedkeys("A\<C-X>\<C-T>\<Esc>", "x") + call assert_equal('sun', getline(1)) + call assert_equal([[22, 1, ''], [22, 0, 'sun']], g:TsrFunc1Args) + :%bw! + END + call v9.CheckLegacyAndMNV9Success(lines) + + " Test for using a script-local function name + func s:TsrFunc3(findstart, base) + call add(g:TsrFunc3Args, [a:findstart, a:base]) + return a:findstart ? 0 : [] + endfunc + + set tsrfu=s:TsrFunc3 + new + call setline(1, 'script1') + let g:TsrFunc3Args = [] + call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x') + call assert_equal([[1, ''], [0, 'script1']], g:TsrFunc3Args) + bw! + + let &tsrfu = 's:TsrFunc3' + new + call setline(1, 'script2') + let g:TsrFunc3Args = [] + call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x') + call assert_equal([[1, ''], [0, 'script2']], g:TsrFunc3Args) + bw! + + new | only + set thesaurusfunc= + setlocal thesaurusfunc=NoSuchFunc + setglobal thesaurusfunc=s:TsrFunc3 + call assert_equal('NoSuchFunc', &thesaurusfunc) + call assert_equal('NoSuchFunc', &l:thesaurusfunc) + call assert_equal('s:TsrFunc3', &g:thesaurusfunc) + new | only + call assert_equal('s:TsrFunc3', &thesaurusfunc) + call assert_equal('s:TsrFunc3', &g:thesaurusfunc) + call assert_equal('', &l:thesaurusfunc) + call setline(1, 'script1') + let g:TsrFunc3Args = [] + call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x') + call assert_equal([[1, ''], [0, 'script1']], g:TsrFunc3Args) + bw! + + new | only + set thesaurusfunc= + setlocal thesaurusfunc=NoSuchFunc + set thesaurusfunc=s:TsrFunc3 + call assert_equal('s:TsrFunc3', &thesaurusfunc) + call assert_equal('s:TsrFunc3', &g:thesaurusfunc) + call assert_equal('', &l:thesaurusfunc) + call setline(1, 'script1') + let g:TsrFunc3Args = [] + call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x') + call assert_equal([[1, ''], [0, 'script1']], g:TsrFunc3Args) + setlocal bufhidden=wipe + new | only! + call assert_equal('s:TsrFunc3', &thesaurusfunc) + call assert_equal('s:TsrFunc3', &g:thesaurusfunc) + call assert_equal('', &l:thesaurusfunc) + call setline(1, 'script1') + let g:TsrFunc3Args = [] + call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x') + call assert_equal([[1, ''], [0, 'script1']], g:TsrFunc3Args) + bw! + + delfunc s:TsrFunc3 + + " invalid return value + let &thesaurusfunc = {a -> 'abc'} + call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x') + + " Using MNV9 lambda expression in legacy context should fail + set thesaurusfunc=(a,\ b)\ =>\ TsrFunc1(21,\ a,\ b) + new | only + let g:TsrFunc1Args = [] + call assert_fails('call feedkeys("A\<C-X>\<C-T>\<Esc>", "x")', 'E117:') + call assert_equal([], g:TsrFunc1Args) + bw! + + " set 'thesaurusfunc' to a partial with dict. This used to cause a crash. + func SetTsrFunc() + let params = {'thesaurus': function('g:DictTsrFunc')} + let &thesaurusfunc = params.thesaurus + endfunc + func g:DictTsrFunc(_) dict + endfunc + call SetTsrFunc() + new + call SetTsrFunc() + bw + call test_garbagecollect_now() + new + set thesaurusfunc= + wincmd w + %bw! + delfunc SetTsrFunc + + " set buffer-local 'thesaurusfunc' to a partial with dict. This used to + " cause a crash. + func SetLocalTsrFunc() + let params = {'thesaurus': function('g:DictTsrFunc')} + let &l:thesaurusfunc = params.thesaurus + endfunc + call SetLocalTsrFunc() + call test_garbagecollect_now() + call SetLocalTsrFunc() + set thesaurusfunc= + bw! + delfunc g:DictTsrFunc + delfunc SetLocalTsrFunc + + " MNV9 tests + let lines =<< trim END + mnv9script + + def MNV9tsrFunc(callnr: number, findstart: number, base: string): any + add(g:MNV9tsrFunc_Args, [callnr, findstart, base]) + return findstart ? 0 : [] + enddef + + # Test for using a def function with thesaurusfunc + set thesaurusfunc=function('MNV9tsrFunc',\ [60]) + new | only + setline(1, 'one') + g:MNV9tsrFunc_Args = [] + feedkeys("A\<C-X>\<C-T>\<Esc>", 'x') + assert_equal([[60, 1, ''], [60, 0, 'one']], g:MNV9tsrFunc_Args) + bw! + + # Test for using a global function name + &thesaurusfunc = g:TsrFunc2 + new | only + setline(1, 'two') + g:TsrFunc2Args = [] + feedkeys("A\<C-X>\<C-T>\<Esc>", 'x') + assert_equal([[1, ''], [0, 'two']], g:TsrFunc2Args) + bw! + + # Test for using a script-local function name + def LocalTsrFunc(findstart: number, base: string): any + add(g:LocalTsrFuncArgs, [findstart, base]) + return findstart ? 0 : [] + enddef + &thesaurusfunc = LocalTsrFunc + new | only + setline(1, 'three') + g:LocalTsrFuncArgs = [] + feedkeys("A\<C-X>\<C-T>\<Esc>", 'x') + assert_equal([[1, ''], [0, 'three']], g:LocalTsrFuncArgs) + bw! + END + call v9.CheckScriptSuccess(lines) + + " cleanup + set thesaurusfunc& + delfunc TsrFunc1 + delfunc TsrFunc2 + unlet g:TsrFunc1Args g:TsrFunc2Args + %bw! +endfunc + +func FooBarComplete(findstart, base) + if a:findstart + return col('.') - 1 + else + return ["Foo", "Bar", "}"] + endif +endfunc + +func Test_complete_smartindent() + new + setlocal smartindent completefunc=FooBarComplete + exe "norm! o{\<cr>\<c-x>\<c-u>\<c-p>}\<cr>\<esc>" + let result = getline(1,'$') + call assert_equal(['', '{','}',''], result) + %d + setlocal complete=FFooBarComplete + exe "norm! o{\<cr>\<c-n>\<c-p>}\<cr>\<esc>" + let result = getline(1,'$') + call assert_equal(['', '{','}',''], result) + %d + setlocal complete=F + exe "norm! o{\<cr>\<c-n>\<c-p>}\<cr>\<esc>" + let result = getline(1,'$') + call assert_equal(['', '{','}',''], result) + bw! + delfunction! FooBarComplete +endfunc + +func Test_complete_overrun() + " this was going past the end of the copied text + new + sil norm si0s0 + bwipe! +endfunc + +func Test_infercase_very_long_line() + " this was truncating the line when inferring case + new + let longLine = "blah "->repeat(300) + let verylongLine = "blah "->repeat(400) + call setline(1, verylongLine) + call setline(2, longLine) + set ic infercase + exe "normal 2Go\<C-X>\<C-L>\<Esc>" + call assert_equal(longLine, getline(3)) + + " check that the too long text is NUL terminated + %del + norm o + norm 1987ax + exec "norm ox\<C-X>\<C-L>" + call assert_equal(repeat('x', 1987), getline(3)) + + bwipe! + set noic noinfercase +endfunc + +func Test_ins_complete_add() + " this was reading past the end of allocated memory + new + norm o + norm 7o + sil! norm o + + bwipe! +endfunc + +func Test_ins_complete_end_of_line() + " this was reading past the end of the line + new + " Note that the 'space' at the end of the expression below is a non-breaking + " space, U+00a0. + execute "norm 8oý " + sil! norm o + + bwipe! +endfunc + +func s:Tagfunc(t,f,o) + bwipe! + return [] +endfunc + +" This was using freed memory, since 'complete' was in a wiped out buffer. +" Also using a window that was closed. +func Test_tagfunc_wipes_out_buffer() + new + set complete=.,t,w,b,u,i + se tagfunc=s:Tagfunc + sil norm i + + bwipe! +endfunc + +func s:TagfuncComplete(t,f,o) + call complete(1, ['ddd', 'eee', 'fff']) + return [] +endfunc + +" 'tagfunc' calling complete() should not cause hang or E684. +func Test_tagfunc_calls_complete() + new + call setline(1, ['aaa', 'bbb', 'ccc']) + setlocal tagfunc=s:TagfuncComplete + setlocal completeopt=menu,noselect + + let v:errmsg = '' + + " This used to hang. + setlocal complete=.,t + call feedkeys("Go\<C-N>\<C-E>\<Esc>", 'tx') + call assert_equal('', getline('.')) + call assert_equal('', v:errmsg) + + " This used to cause E684. + setlocal complete=t,. + call feedkeys("cc\<C-N>\<C-E>\<Esc>", 'tx') + call assert_equal('', getline('.')) + call assert_equal('', v:errmsg) + + bwipe! +endfunc + +func Test_ins_complete_popup_position() + CheckScreendump + + let lines =<< trim END + mnv9script + set nowrap + setline(1, ['one', 'two', 'this is line ', 'four']) + prop_type_add('test', {highlight: 'Error'}) + prop_add(3, 0, { + text_align: 'above', + text: 'The quick brown fox jumps over the lazy dog', + type: 'test' + }) + END + call writefile(lines, 'XinsPopup', 'D') + let buf = RunMNVInTerminal('-S XinsPopup', #{rows: 10}) + + call term_sendkeys(buf, "3GA\<C-N>") + call VerifyScreenDump(buf, 'Test_ins_complete_popup_position_1', {}) + + call StopMNVInTerminal(buf) +endfunc + +func GetCompleteInfo() + let g:compl_info = complete_info() + return '' +endfunc + +func Test_completion_restart() + new + set complete=. completeopt=menuone backspace=2 + call setline(1, 'workhorse workhorse') + exe "normal $a\<C-N>\<BS>\<BS>\<C-R>=GetCompleteInfo()\<CR>" + call assert_equal(1, len(g:compl_info['items'])) + call assert_equal('workhorse', g:compl_info['items'][0]['word']) + set complete& completeopt& backspace& + bwipe! +endfunc + +func Test_complete_info_index() + new + call setline(1, ["aaa", "bbb", "ccc", "ddd", "eee", "fff"]) + inoremap <buffer><F5> <C-R>=GetCompleteInfo()<CR> + + " Ensure 'index' in complete_info() is coherent with the 'items' array. + + set completeopt=menu,preview + " Search forward + call feedkeys("Go\<C-X>\<C-N>\<F5>\<Esc>_dd", 'tx') + call assert_equal("aaa", g:compl_info['items'][g:compl_info['selected']]['word']) + call assert_equal(6 , len(g:compl_info['items'])) + call feedkeys("Go\<C-X>\<C-N>\<C-N>\<F5>\<Esc>_dd", 'tx') + call assert_equal("bbb", g:compl_info['items'][g:compl_info['selected']]['word']) + call assert_equal(6 , len(g:compl_info['items'])) + call feedkeys("Go\<C-X>\<C-N>\<C-N>\<C-N>\<F5>\<Esc>_dd", 'tx') + call assert_equal("ccc", g:compl_info['items'][g:compl_info['selected']]['word']) + call assert_equal(6 , len(g:compl_info['items'])) + call feedkeys("Go\<C-X>\<C-N>\<C-N>\<C-N>\<C-N>\<F5>\<Esc>_dd", 'tx') + call assert_equal("ddd", g:compl_info['items'][g:compl_info['selected']]['word']) + call assert_equal(6 , len(g:compl_info['items'])) + call feedkeys("Go\<C-X>\<C-N>\<C-N>\<C-N>\<C-N>\<C-N>\<F5>\<Esc>_dd", 'tx') + call assert_equal("eee", g:compl_info['items'][g:compl_info['selected']]['word']) + call assert_equal(6 , len(g:compl_info['items'])) + call feedkeys("Go\<C-X>\<C-N>\<C-N>\<C-N>\<C-N>\<C-N>\<C-N>\<F5>\<Esc>_dd", 'tx') + call assert_equal("fff", g:compl_info['items'][g:compl_info['selected']]['word']) + call assert_equal(6 , len(g:compl_info['items'])) + " Search forward: unselected item + call feedkeys("Go\<C-X>\<C-N>\<C-N>\<C-N>\<C-N>\<C-N>\<C-N>\<C-N>\<F5>\<Esc>_dd", 'tx') + call assert_equal(6 , len(g:compl_info['items'])) + call assert_equal(-1 , g:compl_info['selected']) + + " Search backward + call feedkeys("Go\<C-X>\<C-P>\<F5>\<Esc>_dd", 'tx') + call assert_equal("fff", g:compl_info['items'][g:compl_info['selected']]['word']) + call assert_equal(6 , len(g:compl_info['items'])) + call feedkeys("Go\<C-X>\<C-P>\<C-P>\<F5>\<Esc>_dd", 'tx') + call assert_equal("eee", g:compl_info['items'][g:compl_info['selected']]['word']) + call assert_equal(6 , len(g:compl_info['items'])) + call feedkeys("Go\<C-X>\<C-P>\<C-P>\<C-P>\<F5>\<Esc>_dd", 'tx') + call assert_equal("ddd", g:compl_info['items'][g:compl_info['selected']]['word']) + call assert_equal(6 , len(g:compl_info['items'])) + call feedkeys("Go\<C-X>\<C-P>\<C-P>\<C-P>\<C-P>\<F5>\<Esc>_dd", 'tx') + call assert_equal("ccc", g:compl_info['items'][g:compl_info['selected']]['word']) + call assert_equal(6 , len(g:compl_info['items'])) + call feedkeys("Go\<C-X>\<C-P>\<C-P>\<C-P>\<C-P>\<C-P>\<F5>\<Esc>_dd", 'tx') + call assert_equal("bbb", g:compl_info['items'][g:compl_info['selected']]['word']) + call assert_equal(6 , len(g:compl_info['items'])) + call feedkeys("Go\<C-X>\<C-P>\<C-P>\<C-P>\<C-P>\<C-P>\<C-P>\<F5>\<Esc>_dd", 'tx') + call assert_equal("aaa", g:compl_info['items'][g:compl_info['selected']]['word']) + call assert_equal(6 , len(g:compl_info['items'])) + " search backwards: unselected item + call feedkeys("Go\<C-X>\<C-P>\<C-P>\<C-P>\<C-P>\<C-P>\<C-P>\<C-P>\<F5>\<Esc>_dd", 'tx') + call assert_equal(6 , len(g:compl_info['items'])) + call assert_equal(-1 , g:compl_info['selected']) + + " switch direction: forwards, then backwards + call feedkeys("Go\<C-X>\<C-N>\<C-P>\<C-P>\<F5>\<Esc>_dd", 'tx') + call assert_equal("fff", g:compl_info['items'][g:compl_info['selected']]['word']) + call assert_equal(6 , len(g:compl_info['items'])) + " switch direction: forwards, then backwards, then forwards again + call feedkeys("Go\<C-X>\<C-N>\<C-P>\<C-P>\<F5>\<Esc>_dd", 'tx') + call feedkeys("Go\<C-X>\<C-N>\<C-N>\<C-P>\<C-P>\<C-N>\<F5>\<Esc>_dd", 'tx') + call assert_equal("aaa", g:compl_info['items'][g:compl_info['selected']]['word']) + call assert_equal(6 , len(g:compl_info['items'])) + + " switch direction: backwards, then forwards + call feedkeys("Go\<C-X>\<C-P>\<C-N>\<C-N>\<F5>\<Esc>_dd", 'tx') + call assert_equal("aaa", g:compl_info['items'][g:compl_info['selected']]['word']) + call assert_equal(6 , len(g:compl_info['items'])) + " switch direction: backwards, then forwards, then backwards again + call feedkeys("Go\<C-X>\<C-P>\<C-P>\<C-N>\<C-N>\<C-P>\<F5>\<Esc>_dd", 'tx') + call assert_equal("fff", g:compl_info['items'][g:compl_info['selected']]['word']) + call assert_equal(6 , len(g:compl_info['items'])) + + " Add 'noselect', check that 'selected' is -1 when nothing is selected. + set completeopt+=noselect + " Search forward. + call feedkeys("Go\<C-X>\<C-N>\<F5>\<Esc>_dd", 'tx') + call assert_equal(-1, g:compl_info['selected']) + + " Search backward. + call feedkeys("Go\<C-X>\<C-P>\<F5>\<Esc>_dd", 'tx') + call assert_equal(-1, g:compl_info['selected']) + + call feedkeys("Go\<C-X>\<C-N>\<C-P>\<F5>\<Esc>_dd", 'tx') + call assert_equal(5, g:compl_info['selected']) + call assert_equal(6 , len(g:compl_info['items'])) + call assert_equal("fff", g:compl_info['items'][g:compl_info['selected']]['word']) + call feedkeys("Go\<C-X>\<C-N>\<C-N>\<C-N>\<C-N>\<C-N>\<C-N>\<C-N>\<C-N>\<C-N>\<F5>\<Esc>_dd", 'tx') + call assert_equal("aaa", g:compl_info['items'][g:compl_info['selected']]['word']) + call assert_equal(6 , len(g:compl_info['items'])) + call feedkeys("Go\<C-X>\<C-N>\<F5>\<Esc>_dd", 'tx') + call assert_equal(-1, g:compl_info['selected']) + call assert_equal(6 , len(g:compl_info['items'])) + + set completeopt& + bwipe! +endfunc + +func Test_complete_changed_complete_info() + CheckRunMNVInTerminal + " this used to crash mnv, see #13929 + let lines =<< trim END + set completeopt=menuone + autocmd CompleteChanged * call complete_info(['items']) + call feedkeys("iii\<cr>\<c-p>") + END + call writefile(lines, 'Xsegfault', 'D') + let buf = RunMNVInTerminal('-S Xsegfault', #{rows: 5}) + call WaitForAssert({-> assert_match('^ii', term_getline(buf, 1))}, 1000) + call StopMNVInTerminal(buf) +endfunc + +func Test_completefunc_first_call_complete_add() + new + + func Complete(findstart, base) abort + if a:findstart + let col = col('.') + call complete_add('#') + return col - 1 + else + return [] + endif + endfunc + + set completeopt=longest completefunc=Complete + " This used to cause heap-buffer-overflow + call assert_fails('call feedkeys("ifoo#\<C-X>\<C-U>", "xt")', 'E840:') + + delfunc Complete + set completeopt& completefunc& + bwipe! +endfunc + +func Test_complete_opt_fuzzy() + func OnPumChange() + let g:item = get(v:event, 'completed_item', {}) + let g:word = get(g:item, 'word', v:null) + let g:abbr = get(g:item, 'abbr', v:null) + let g:selected = get(complete_info(['selected']), 'selected') + endfunction + + augroup AAAAA_Group + au! + autocmd CompleteChanged * :call OnPumChange() + augroup END + + let g:change = 0 + func Omni_test(findstart, base) + if a:findstart + return col(".") + endif + if g:change == 0 + return [#{word: "foo"}, #{word: "foobar"}, #{word: "fooBaz"}, #{word: "foobala"}, #{word: "你好吗"}, #{word: "我好"}] + elseif g:change == 1 + return [#{word: "cp_match_array"}, #{word: "cp_str"}, #{word: "cp_score"}] + else + return [#{word: "for i = .."}, #{word: "bar"}, #{word: "foo"}, #{word: "for .. ipairs"}, #{word: "for .. pairs"}] + endif + endfunc + + new + set omnifunc=Omni_test + set completeopt+=noinsert,fuzzy + call feedkeys("Gi\<C-x>\<C-o>", 'tx') + call assert_equal('foo', g:word) + call feedkeys("S\<C-x>\<C-o>fb", 'tx') + call assert_equal('fooBaz', g:word) + call feedkeys("S\<C-x>\<C-o>fa", 'tx') + call assert_equal('foobar', g:word) + " select next + call feedkeys("S\<C-x>\<C-o>fb\<C-n>", 'tx') + call assert_equal('foobar', g:word) + " can cyclically select next + call feedkeys("S\<C-x>\<C-o>fb\<C-n>\<C-n>\<C-n>", 'tx') + call assert_equal(v:null, g:word) + " select prev + call feedkeys("S\<C-x>\<C-o>fb\<C-p>", 'tx') + call assert_equal(v:null, g:word) + " can cyclically select prev + call feedkeys("S\<C-x>\<C-o>fb\<C-p>\<C-p>\<C-p>\<C-p>", 'tx') + call assert_equal('fooBaz', g:word) + + func Comp() + call complete(col('.'), ["fooBaz", "foobar", "foobala"]) + return '' + endfunc + call feedkeys("i\<C-R>=Comp()\<CR>", 'tx') + call assert_equal('fooBaz', g:word) + + " respect noselect + set completeopt+=noselect + call feedkeys("S\<C-x>\<C-o>fb", 'tx') + call assert_equal(v:null, g:word) + call feedkeys("S\<C-x>\<C-o>fb\<C-n>", 'tx') + call assert_equal('fooBaz', g:word) + + " test case for nosort option + set cot=menuone,menu,noinsert,fuzzy,nosort + " "fooBaz" should have a higher score when the leader is "fb". + " With "nosort", "foobar" should still be shown first in the popup menu. + call feedkeys("S\<C-x>\<C-o>fb", 'tx') + call assert_equal('foobar', g:word) + call feedkeys("S\<C-x>\<C-o>好", 'tx') + call assert_equal("你好吗", g:word) + + set cot+=noselect + call feedkeys("S\<C-x>\<C-o>好", 'tx') + call assert_equal(v:null, g:word) + call feedkeys("S\<C-x>\<C-o>好\<C-N>", 'tx') + call assert_equal('你好吗', g:word) + + " "nosort" shouldn't enable fuzzy filtering when "fuzzy" isn't present. + set cot=menuone,noinsert,nosort + call feedkeys("S\<C-x>\<C-o>fooB\<C-Y>", 'tx') + call assert_equal('fooBaz', getline('.')) + + set cot=menuone,fuzzy,nosort + func CompAnother() + call complete(col('.'), [#{word: "do" }, #{word: "echo"}, #{word: "for (${1:expr1}, ${2:expr2}, ${3:expr3}) {\n\t$0\n}", abbr: "for" }, #{word: "foo"}]) + return '' + endfunc + call feedkeys("i\<C-R>=CompAnother()\<CR>\<C-N>\<C-N>", 'tx') + call assert_equal("for", g:abbr) + call assert_equal(2, g:selected) + + set cot+=noinsert + call feedkeys("i\<C-R>=CompAnother()\<CR>f", 'tx') + call assert_equal("for", g:abbr) + call assert_equal(2, g:selected) + + set cot=menu,menuone,noselect,fuzzy + call feedkeys("i\<C-R>=CompAnother()\<CR>\<C-N>\<C-N>\<C-N>\<C-N>", 'tx') + call assert_equal("foo", g:word) + call feedkeys("i\<C-R>=CompAnother()\<CR>\<C-P>", 'tx') + call assert_equal("foo", g:word) + call feedkeys("i\<C-R>=CompAnother()\<CR>\<C-P>\<C-P>", 'tx') + call assert_equal("for", g:abbr) + + %d + set cot=menu,fuzzy + call feedkeys("Sblue\<CR>bar\<CR>b\<C-X>\<C-P>\<C-Y>\<ESC>", 'tx') + call assert_equal('blue', getline('.')) + call feedkeys("Sb\<C-X>\<C-N>\<C-Y>\<ESC>", 'tx') + call assert_equal('bar', getline('.')) + call feedkeys("Sb\<C-X>\<C-P>\<C-N>\<C-Y>\<ESC>", 'tx') + call assert_equal('b', getline('.')) + + " chain completion + call feedkeys("Slore spum\<CR>lor\<C-X>\<C-P>\<C-X>\<C-P>\<ESC>", 'tx') + call assert_equal('lore spum', getline('.')) + + " issue #15412 + call feedkeys("Salpha bravio charlie\<CR>alpha\<C-X>\<C-N>\<C-X>\<C-N>\<C-X>\<C-N>\<ESC>", 'tx') + call assert_equal('alpha bravio charlie', getline('.')) + + set cot=fuzzy,menu,noinsert + call feedkeys(":let g:change=2\<CR>") + call feedkeys("S\<C-X>\<C-O>for\<C-N>\<C-N>\<C-N>", 'tx') + call assert_equal('for', getline('.')) + call feedkeys("S\<C-X>\<C-O>for\<C-P>", 'tx') + call assert_equal('for', getline('.')) + call feedkeys("S\<C-X>\<C-O>for\<C-P>\<C-P>", 'tx') + call assert_equal('for .. ipairs', getline('.')) + + call feedkeys(":let g:change=1\<CR>") + call feedkeys("S\<C-X>\<C-O>c\<C-Y>", 'tx') + call assert_equal('cp_str', getline('.')) + + " Issue 18488: sort after collection when "fuzzy" (unless "nosort") + %d + set completeopt& + set completeopt+=fuzzy,noselect + func! PrintMenuWords() + let info = complete_info(["items"]) + call map(info.items, {_, v -> v.word}) + return info + endfunc + call setline(1, ['func1', 'xfunc', 'func2']) + call feedkeys("Gof\<C-N>\<C-R>=PrintMenuWords()\<CR>\<Esc>0", 'tx') + call assert_equal('f{''items'': [''func1'', ''func2'', ''xfunc'']}', getline('.')) + + " Issue #18802: Reset selected item after fuzzy sort + %d + call setline(1, ['aa', 'aaa', 'aaaa']) + set completeopt=menuone,noinsert,fuzzy + call feedkeys("Goa\<C-N>\<C-Y>\<Esc>", 'tx') + call assert_equal('aa', getline('.')) + call feedkeys("Goa\<C-P>\<C-Y>\<Esc>", 'tx') + call assert_equal('aaaa', getline('.')) + + " clean up + set omnifunc= + bw! + set complete& completeopt& + autocmd! AAAAA_Group + augroup! AAAAA_Group + delfunc OnPumChange + delfunc Omni_test + delfunc Comp + delfunc PrintMenuWords + unlet g:item + unlet g:word + unlet g:abbr +endfunc + +func Test_complete_fuzzy_collect() + new + set completeopt+=fuzzy + call setline(1, ['hello help hero h']) + " Use "!" flag of feedkeys() so that ex_normal_busy is not set and + " ins_compl_check_keys() is not skipped. + " Add a "0" after the <Esc> to avoid waiting for an escape sequence. + call feedkeys("A\<C-X>\<C-N>\<Esc>0", 'tx!') + call assert_equal('hello help hero hello', getline('.')) + set completeopt+=noinsert + call setline(1, ['hello help hero h']) + call feedkeys("A\<C-X>\<C-N>\<Esc>0", 'tx!') + call assert_equal('hello help hero h', getline('.')) + + set completeopt-=noinsert + call setline(1, ['xyz yxz x']) + call feedkeys("A\<C-X>\<C-N>\<Esc>0", 'tx!') + call assert_equal('xyz yxz xyz', getline('.')) + " can fuzzy get yxz when use Ctrl-N twice + call setline(1, ['xyz yxz x']) + call feedkeys("A\<C-X>\<C-N>\<C-N>\<Esc>0", 'tx!') + call assert_equal('xyz yxz yxz', getline('.')) + + call setline(1, ['你好 你']) + call feedkeys("A\<C-X>\<C-N>\<Esc>0", 'tx!') + call assert_equal('你好 你好', getline('.')) + call setline(1, ['你的 我的 的']) + call feedkeys("A\<C-X>\<C-N>\<Esc>0", 'tx!') + call assert_equal('你的 我的 你的', getline('.')) + " can fuzzy get multiple-byte word when use Ctrl-N twice + call setline(1, ['你的 我的 的']) + call feedkeys("A\<C-X>\<C-N>\<C-N>\<Esc>0", 'tx!') + call assert_equal('你的 我的 我的', getline('.')) + + " check that "adding" expansion works + call setline(1, ['hello world foo bar']) + call feedkeys("Ohlo\<C-X>\<C-N>\<C-X>\<C-N>\<C-X>\<C-N>\<C-X>\<C-N>\<Esc>0", 'tx!') + call assert_equal('hello world foo bar', getline('.')) + call feedkeys("Swld\<C-X>\<C-N>\<C-X>\<C-N>\<C-X>\<C-N>\<Esc>0", 'tx!') + call assert_equal('world foo bar', getline('.')) + %delete + + " fuzzy on file + call writefile([''], 'fobar', 'D') + call writefile([''], 'foobar', 'D') + call setline(1, ['fob']) + call cursor(1, 1) + call feedkeys("A\<C-X>\<C-f>\<Esc>0", 'tx!') + call assert_equal('fobar', getline('.')) + call feedkeys("Sfob\<C-X>\<C-f>\<C-N>\<Esc>0", 'tx!') + call assert_equal('foobar', getline('.')) + call feedkeys("S../\<C-X>\<C-f>\<Esc>0", 'tx!') + call assert_match('../*', getline('.')) + call feedkeys("S../td\<C-X>\<C-f>\<Esc>0", 'tx!') + call assert_match('../testdir', getline('.')) + + " can get completion from other buffer + vnew + call setline(1, ["completeness,", "compatibility", "Composite", "Omnipotent"]) + wincmd p + call feedkeys("Somp\<C-N>\<Esc>0", 'tx!') + call assert_equal('completeness', getline('.')) + call feedkeys("Somp\<C-N>\<C-N>\<Esc>0", 'tx!') + call assert_equal('compatibility', getline('.')) + call feedkeys("Somp\<C-P>\<Esc>0", 'tx!') + call assert_equal('Omnipotent', getline('.')) + call feedkeys("Somp\<C-P>\<C-P>\<Esc>0", 'tx!') + call assert_equal('Composite', getline('.')) + call feedkeys("S omp\<C-N>\<Esc>0", 'tx!') + call assert_equal(' completeness', getline('.')) + + " fuzzy on whole line completion + call setline(1, ["world is on fire", "no one can save me but you", 'user can execute', '']) + call cursor(4, 1) + call feedkeys("Swio\<C-X>\<C-L>\<Esc>0", 'tx!') + call assert_equal('world is on fire', getline('.')) + call feedkeys("Su\<C-X>\<C-L>\<C-P>\<Esc>0", 'tx!') + call assert_equal('no one can save me but you', getline('.')) + + " issue #15526 + set completeopt=menuone,menu,noselect,fuzzy + call setline(1, ['Text', 'ToText', '']) + call cursor(3, 1) + call feedkeys("STe\<C-X>\<C-N>x\<CR>\<Esc>0", 'tx!') + call assert_equal('Tex', getline(line('.') - 1)) + + call setline(1, ['fuzzy', 'fuzzycollect', 'completefuzzycollect']) + call feedkeys("Gofuzzy\<C-X>\<C-N>\<C-N>\<C-N>\<CR>\<Esc>0", 'tx!') + call assert_equal('fuzzycollect', getline(line('.') - 1)) + call feedkeys("Gofuzzy\<C-X>\<C-N>\<C-N>\<C-N>\<C-N>\<CR>\<Esc>0", 'tx!') + call assert_equal('completefuzzycollect', getline(line('.') - 1)) + + " keywords in 'dictionary' + call writefile(['hello', 'think'], 'Xtest_dict.txt', 'D') + set dict=Xtest_dict.txt + call feedkeys("Sh\<C-X>\<C-K>\<C-N>\<CR>\<Esc>0", 'tx!') + call assert_equal('hello', getline(line('.') - 1)) + call feedkeys("Sh\<C-X>\<C-K>\<C-N>\<C-N>\<CR>\<Esc>0", 'tx!') + call assert_equal('think', getline(line('.') - 1)) + + call setline(1, ['foo bar fuzzy', 'completefuzzycollect']) + call feedkeys("Gofuzzy\<C-X>\<C-N>\<C-N>\<C-N>\<C-Y>\<Esc>0", 'tx!') + call assert_equal('completefuzzycollect', getline('.')) + + %d _ + call setline(1, ['fuzzy', 'fuzzy foo', "fuzzy bar", 'fuzzycollect']) + call feedkeys("Gofuzzy\<C-X>\<C-N>\<C-N>\<C-N>\<C-Y>\<Esc>0", 'tx!') + call assert_equal('fuzzycollect', getline('.')) + + " when 'fuzzy' is not set, and 'infercase' and 'ignorecase' are set, then + " uppercase completes from lowercase words in dictionary + set completeopt& + set infercase ignorecase + call writefile(['hello'], 'Xtest_case.txt', 'D') + set dictionary=Xtest_case.txt + call feedkeys("ggdGSH\<C-X>\<C-K>\<C-Y>\<Esc>", 'tx') + call assert_equal('Hello', getline('.')) + call feedkeys("ggdGSHE\<C-X>\<C-K>\<C-Y>\<Esc>", 'tx') + call assert_equal('HELLO', getline('.')) + + bw! + bw! + set dict& + set completeopt& cpt& ignorecase& infercase& +endfunc + +" Issue #19434 +" Fuzzy whole-line completion should not loop infinitely when the cursor is in +" the middle of the line (non-zero column). +func Test_complete_fuzzy_wholeline_no_hang() + new + set completeopt=preview,fuzzy,noinsert,menuone + call setline(1, [ + \ '<!DOCTYPE html>', + \ '<html lang="en-US">', + \ ' <head>', + \ ' </head>', + \ ' <body>', + \ ' <div class="page-landscape">', + \ ' </div>', + \ ' </body>', + \ '</html>', + \ ]) + call cursor(6, 1) + call feedkeys("faC\<C-X>\<C-L>\<Esc>0", 'tx!') + call assert_equal(' <div cl', getline(6)) + + bw! + set completeopt& +endfunc + +" Issue #18752 +func Test_complete_fuzzy_collect_multiwin() + new + set completeopt=fuzzy + + vnew + call setline(1, ["completeness,", "compatibility", "Composite", "Omnipotent"]) + wincmd p + call feedkeys("Somp\<C-P>\<Esc>0", 'tx!') + call assert_equal('Omnipotent', getline('.')) + + bw! + set completeopt& +endfunc + +func Test_cfc_with_longest() + new + set completeopt=menu,menuone,longest,fuzzy + + " keyword + exe "normal ggdGShello helio think h\<C-X>\<C-N>\<ESC>" + call assert_equal("hello helio think hel", getline('.')) + exe "normal hello helio think h\<C-X>\<C-P>\<ESC>" + call assert_equal("hello helio think hel", getline('.')) + + " skip non-consecutive prefixes + exe "normal ggdGShello helio heo\<C-X>\<C-N>\<ESC>" + call assert_equal("hello helio heo", getline('.')) + + " dict + call writefile(['help'], 'test_keyword.txt', 'D') + set complete=ktest_keyword.txt + exe "normal ggdGSh\<C-N>\<ESC>" + " auto insert help when only have one match + call assert_equal("help", getline('.')) + call writefile(['hello', 'help', 'think'], 'xtest_keyword.txt', 'D') + set complete=kxtest_keyword.txt + " auto insert hel + exe "normal ggdGSh\<C-N>\<ESC>" + call assert_equal("hel", getline('.')) + + " line start with a space + call writefile([' hello'], 'test_case1.txt', 'D') + set complete=ktest_case1.txt + exe "normal ggdGSh\<C-N>\<ESC>" + call assert_equal("hello", getline('.')) + + " multiple matches + set complete=ktest_case2.txt + call writefile([' hello help what'], 'test_case2.txt', 'D') + exe "normal ggdGSh\<C-N>\<C-N>\<C-N>\<C-N>\<ESC>" + call assert_equal("what", getline('.')) + + " multiple lines of matches + set complete=ktest_case3.txt + call writefile([' hello help what', 'hola', ' hey'], 'test_case3.txt', 'D') + exe "normal ggdGSh\<C-N>\<C-N>\<ESC>" + call assert_equal("hey", getline('.')) + exe "normal ggdGSh\<C-N>\<C-N>\<C-N>\<C-N>\<ESC>" + call assert_equal("hola", getline('.')) + + set complete=ktest_case4.txt + call writefile([' auto int enum register', 'why'], 'test_case4.txt', 'D') + exe "normal ggdGSe\<C-N>\<C-N>\<ESC>" + call assert_equal("enum", getline('.')) + + set complete=ktest_case5.txt + call writefile(['hello friends', 'go', 'hero'], 'test_case5.txt', 'D') + exe "normal ggdGSh\<C-N>\<C-N>\<ESC>" + call assert_equal("hero", getline('.')) + set complete& + + " file + call writefile([''], 'hello', 'D') + call writefile([''], 'helio', 'D') + exe "normal ggdGS./h\<C-X>\<C-f>\<ESC>" + call assert_equal('./hel', getline('.')) + + " word + call setline(1, ['what do you think', 'why i have that', '']) + call cursor(3,1) + call feedkeys("Sw\<C-X>\<C-l>\<C-N>\<Esc>0", 'tx!') + call assert_equal('wh', getline('.')) + + exe "normal ggdG" + " auto complete when only one match + exe "normal Shello\<CR>h\<C-X>\<C-N>\<esc>" + call assert_equal('hello', getline('.')) + exe "normal Sh\<C-N>\<C-P>\<esc>" + call assert_equal('hello', getline('.')) + + exe "normal Shello\<CR>h\<C-X>\<C-N>\<Esc>cch\<C-X>\<C-N>\<Esc>" + call assert_equal('hello', getline('.')) + + " continue search for new leader after insert common prefix + exe "normal ohellokate\<CR>h\<C-X>\<C-N>k\<C-N>\<C-y>\<esc>" + call assert_equal('hellokate', getline('.')) + + bw! + set completeopt& +endfunc + +func Test_completefuzzycollect_with_completeslash() + CheckMSWindows + + call writefile([''], 'fobar', 'D') + let orig_shellslash = &shellslash + set cpt& + new + set completeopt+=fuzzy + set noshellslash + + " Test with completeslash unset + set completeslash= + call setline(1, ['.\fob']) + call feedkeys("A\<C-X>\<C-F>\<Esc>0", 'tx!') + call assert_equal('.\fobar', getline('.')) + + " Test with completeslash=backslash + set completeslash=backslash + call feedkeys("S.\\fob\<C-X>\<C-F>\<Esc>0", 'tx!') + call assert_equal('.\fobar', getline('.')) + + " Test with completeslash=slash + set completeslash=slash + call feedkeys("S.\\fob\<C-X>\<C-F>\<Esc>0", 'tx!') + call assert_equal('./fobar', getline('.')) + + " Reset and clean up + let &shellslash = orig_shellslash + set completeslash= + %bw! +endfunc + +" Check that tie breaking is stable for completeopt+=fuzzy (which should +" behave the same on different platforms). +func Test_complete_fuzzy_match_tie() + new + set completeopt+=fuzzy,noselect + call setline(1, ['aaabbccc', 'aaabbCCC', 'aaabbcccc', 'aaabbCCCC', '']) + + call feedkeys("Gcc\<C-X>\<C-N>ab\<C-N>\<C-Y>", 'tx') + call assert_equal('aaabbccc', getline('.')) + call feedkeys("Gcc\<C-X>\<C-N>ab\<C-N>\<C-N>\<C-Y>", 'tx') + call assert_equal('aaabbCCC', getline('.')) + call feedkeys("Gcc\<C-X>\<C-N>ab\<C-N>\<C-N>\<C-N>\<C-Y>", 'tx') + call assert_equal('aaabbcccc', getline('.')) + call feedkeys("Gcc\<C-X>\<C-N>ab\<C-N>\<C-N>\<C-N>\<C-N>\<C-Y>", 'tx') + call assert_equal('aaabbCCCC', getline('.')) + + bwipe! + set completeopt& +endfunc + +func Test_complete_backwards_default() + new + call append(1, ['foobar', 'foobaz']) + new + call feedkeys("i\<c-p>", 'tx') + call assert_equal('foobaz', getline('.')) + bw! + bw! +endfunc + +func Test_complete_info_matches() + let g:what = ['matches'] + func ShownInfo() + let g:compl_info = complete_info(g:what) + return '' + endfunc + set completeopt+=noinsert + + new + call setline(1, ['aaa', 'aab', 'aba', 'abb']) + inoremap <buffer><F5> <C-R>=ShownInfo()<CR> + + call feedkeys("Go\<C-X>\<C-N>\<F5>\<Esc>dd", 'tx') + call assert_equal([ + \ {'word': 'aaa', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}, + \ {'word': 'aab', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}, + \ {'word': 'aba', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}, + \ {'word': 'abb', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}, + \], g:compl_info['matches']) + + call feedkeys("Goa\<C-X>\<C-N>b\<F5>\<Esc>dd", 'tx') + call assert_equal([ + \ {'word': 'aba', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}, + \ {'word': 'abb', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}, + \], g:compl_info['matches']) + + " items and matches both in what + let g:what = ['items', 'matches'] + call feedkeys("Goa\<C-X>\<C-N>b\<F5>\<Esc>dd", 'tx') + call assert_equal([ + \ {'word': 'aaa', 'menu': '', 'user_data': '', 'match': v:false, 'info': '', 'kind': '', 'abbr': ''}, + \ {'word': 'aab', 'menu': '', 'user_data': '', 'match': v:false, 'info': '', 'kind': '', 'abbr': ''}, + \ {'word': 'aba', 'menu': '', 'user_data': '', 'match': v:true, 'info': '', 'kind': '', 'abbr': ''}, + \ {'word': 'abb', 'menu': '', 'user_data': '', 'match': v:true, 'info': '', 'kind': '', 'abbr': ''}, + \], g:compl_info['items']) + call assert_false(has_key(g:compl_info, 'matches')) + + bw! + unlet g:what + delfunc ShownInfo + set cot& +endfunc + +func Test_complete_info_completed() + func ShownInfo() + let g:compl_info = complete_info(['completed']) + return '' + endfunc + set completeopt+=noinsert + + new + call setline(1, ['aaa', 'aab', 'aba', 'abb']) + inoremap <buffer><F5> <C-R>=ShownInfo()<CR> + + call feedkeys("Go\<C-X>\<C-N>\<F5>\<Esc>dd", 'tx') + call assert_equal({'word': 'aaa', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}, g:compl_info['completed']) + + call feedkeys("Go\<C-X>\<C-N>\<C-N>\<F5>\<Esc>dd", 'tx') + call assert_equal({'word': 'aab', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}, g:compl_info['completed']) + + call feedkeys("Go\<C-X>\<C-N>\<C-N>\<C-N>\<C-N>\<F5>\<Esc>dd", 'tx') + call assert_equal({'word': 'abb', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}, g:compl_info['completed']) + + set completeopt+=noselect + call feedkeys("Go\<C-X>\<C-N>\<F5>\<Esc>dd", 'tx') + call assert_equal({}, g:compl_info) + + bw! + delfunc ShownInfo + set cot& +endfunc + +func Test_complete_info_selected() + set completeopt=menuone,noselect + new + call setline(1, ["ward", "werd", "wurd", "wxrd"]) + + exe "normal! Gow\<c-n>u\<c-n>\<c-r>=complete_info().selected\<cr>" + call assert_equal('wurd2', getline(5)) + + exe "normal! Sw\<c-n>u\<c-n>\<c-r>=complete_info(['selected']).selected\<cr>" + call assert_equal('wurd2', getline(5)) + + exe "normal! Sw\<c-n>u\<c-n>\<c-r>=complete_info(['items', 'selected']).selected\<cr>" + call assert_equal('wurd2', getline(5)) + + exe "normal! Sw\<c-n>u\<c-n>\<c-r>=complete_info(['matches', 'selected']).selected\<cr>" + call assert_equal('wurd0', getline(5)) + + bw! + set cot& +endfunc + +func Test_completeopt_preinsert() + func Omni_test(findstart, base) + if a:findstart + return col(".") + endif + return [#{word: "fobar"}, #{word: "foobar"}, #{word: "你的"}, #{word: "你好世界"}] + endfunc + set omnifunc=Omni_test + set completeopt=menu,menuone,preinsert + func GetLine() + let g:line = getline('.') + let g:col = col('.') + endfunc + + new + inoremap <buffer><F5> <C-R>=GetLine()<CR> + call feedkeys("S\<C-X>\<C-O>f\<F5>\<ESC>", 'tx') + call assert_equal("fobar", g:line) + call assert_equal(2, g:col) + + call feedkeys("S\<C-X>\<C-O>foo\<F5>\<ESC>", 'tx') + call assert_equal("foobar", g:line) + + call feedkeys("S\<C-X>\<C-O>foo\<BS>\<BS>\<BS>", 'tx') + call assert_equal("", getline('.')) + + " delete a character and input new leader + call feedkeys("S\<C-X>\<C-O>foo\<BS>b\<F5>\<ESC>", 'tx') + call assert_equal("fobar", g:line) + call assert_equal(4, g:col) + + " delete preinsert when prepare completion + call feedkeys("S\<C-X>\<C-O>f\<Space>", 'tx') + call assert_equal("f ", getline('.')) + + call feedkeys("S\<C-X>\<C-O>你\<F5>\<ESC>", 'tx') + call assert_equal("你的", g:line) + call assert_equal(4, g:col) + + call feedkeys("S\<C-X>\<C-O>你好\<F5>\<ESC>", 'tx') + call assert_equal("你好世界", g:line) + call assert_equal(7, g:col) + + call feedkeys("Shello wo\<Left>\<Left>\<Left>\<C-X>\<C-O>f\<F5>\<ESC>", 'tx') + call assert_equal("hello fobar wo", g:line) + call assert_equal(9, g:col) + + call feedkeys("Shello wo\<Left>\<Left>\<Left>\<C-X>\<C-O>f\<BS>\<F5>\<ESC>", 'tx') + call assert_equal("hello wo", g:line) + call assert_equal(8, g:col) + + call feedkeys("Shello wo\<Left>\<Left>\<Left>\<C-X>\<C-O>foo\<F5>\<ESC>", 'tx') + call assert_equal("hello foobar wo", g:line) + call assert_equal(11, g:col) + + call feedkeys("Shello wo\<Left>\<Left>\<Left>\<C-X>\<C-O>foo\<BS>b\<F5>\<ESC>", 'tx') + call assert_equal("hello fobar wo", g:line) + call assert_equal(11, g:col) + + " confirm + call feedkeys("S\<C-X>\<C-O>f\<C-Y>", 'tx') + call assert_equal("fobar", getline('.')) + call assert_equal(5, col('.')) + + " cancel + call feedkeys("S\<C-X>\<C-O>fo\<C-E>", 'tx') + call assert_equal("fo", getline('.')) + call assert_equal(2, col('.')) + + call feedkeys("S hello hero\<CR>h\<C-X>\<C-N>\<F5>\<ESC>", 'tx') + call assert_equal("hello", g:line) + call assert_equal(2, col('.')) + + call feedkeys("Sh\<C-X>\<C-N>\<C-Y>", 'tx') + call assert_equal("hello", getline('.')) + call assert_equal(5, col('.')) + + " delete preinsert part + call feedkeys("S\<C-X>\<C-O>fo ", 'tx') + call assert_equal("fo ", getline('.')) + call assert_equal(3, col('.')) + + call feedkeys("She\<C-X>\<C-N>\<C-U>", 'tx') + call assert_equal("", getline('.')) + call assert_equal(1, col('.')) + + call feedkeys("She\<C-X>\<C-N>\<C-W>", 'tx') + call assert_equal("", getline('.')) + call assert_equal(1, col('.')) + + " whole line + call feedkeys("Shello hero\<CR>\<C-X>\<C-L>\<F5>\<ESC>", 'tx') + call assert_equal("hello hero", g:line) + call assert_equal(1, g:col) + + call feedkeys("Shello hero\<CR>he\<C-X>\<C-L>\<F5>\<ESC>", 'tx') + call assert_equal("hello hero", g:line) + call assert_equal(3, g:col) + + call feedkeys("Shello hero\<CR>h\<C-X>\<C-N>er\<F5>\<ESC>", 'tx') + call assert_equal("hero", g:line) + call assert_equal(4, g:col) + + " can not work with fuzzy + set cot+=fuzzy + call feedkeys("S\<C-X>\<C-O>", 'tx') + call assert_equal("fobar", getline('.')) + call assert_equal(5, col('.')) + + " test for fuzzy and noinsert + set cot+=noinsert + call feedkeys("S\<C-X>\<C-O>fb\<F5>\<ESC>", 'tx') + call assert_equal("fb", g:line) + call assert_equal(3, g:col) + + call feedkeys("S\<C-X>\<C-O>你\<F5>\<ESC>", 'tx') + call assert_equal("你", g:line) + call assert_equal(4, g:col) + + call feedkeys("S\<C-X>\<C-O>fb\<C-Y>", 'tx') + call assert_equal("fobar", getline('.')) + call assert_equal(5, col('.')) + + " When the pum is not visible, the preinsert has no effect + set cot=preinsert + call feedkeys("Sfoo1 foo2\<CR>f\<C-X>\<C-N>bar", 'tx') + call assert_equal("foo1bar", getline('.')) + call assert_equal(7, col('.')) + + set cot=preinsert,menuone + call feedkeys("Sfoo1 foo2\<CR>f\<C-X>\<C-N>\<F5>\<ESC>", 'tx') + call assert_equal("foo1", g:line) + call assert_equal(2, g:col) + + inoremap <buffer> <f3> <cmd>call complete(4, [{'word': "fobar"}, {'word': "foobar"}])<CR> + call feedkeys("Swp.\<F3>\<F5>\<BS>\<ESC>", 'tx') + call assert_equal("wp.fobar", g:line) + call assert_equal(4, g:col) + call assert_equal("wp.", getline('.')) + + %delete _ + let &l:undolevels = &l:undolevels + normal! ifoo + let &l:undolevels = &l:undolevels + normal! obar + let &l:undolevels = &l:undolevels + normal! obaz + let &l:undolevels = &l:undolevels + + func CheckUndo() + let g:errmsg = '' + call assert_equal(['foo', 'bar', 'baz'], getline(1, '$')) + undo + call assert_equal(['foo', 'bar'], getline(1, '$')) + undo + call assert_equal(['foo'], getline(1, '$')) + undo + call assert_equal([''], getline(1, '$')) + later 3 + call assert_equal(['foo', 'bar', 'baz'], getline(1, '$')) + call assert_equal('', v:errmsg) + endfunc + + " Check that switching buffer with "preinsert" doesn't corrupt undo. + new + setlocal bufhidden=wipe + inoremap <buffer> <F2> <Cmd>enew!<CR> + call feedkeys("i\<C-X>\<C-O>\<F2>\<Esc>", 'tx') + bwipe! + call CheckUndo() + + " Check that closing window with "preinsert" doesn't corrupt undo. + new + setlocal bufhidden=wipe + inoremap <buffer> <F2> <Cmd>close!<CR> + call feedkeys("i\<C-X>\<C-O>\<F2>\<Esc>", 'tx') + call CheckUndo() + + %delete _ + delfunc CheckUndo + + bw! + set cot& + set omnifunc& + delfunc Omni_test +endfunc + +func Test_autocomplete_completeopt_preinsert() + func Omni_test(findstart, base) + if a:findstart + return col(".") - 1 + endif + return [#{word: "fobar"}, #{word: "foobar"}] + endfunc + set omnifunc=Omni_test complete+=o + set completeopt=preinsert autocomplete + func GetLine() + let g:line = getline('.') + let g:col = col('.') + endfunc + + call test_override("char_avail", 1) + new + inoremap <buffer><F5> <C-R>=GetLine()<CR> + call feedkeys("Sfo\<F5>\<ESC>", 'tx') + call assert_equal("fobar", g:line) + call assert_equal(3, g:col) + + call feedkeys("Sfoo\<F5>\<ESC>", 'tx') + call assert_equal("foobar", g:line) + + call feedkeys("Sfoo\<BS>\<BS>\<BS>", 'tx') + call assert_equal("", getline('.')) + + " delete a character + call feedkeys("Sfoo\<BS>b\<F5>\<ESC>", 'tx') + call assert_equal("fobar", g:line) + call assert_equal(4, g:col) + + set complete& + %d + call setline(1, ['fobar', 'foobar']) + + call feedkeys("Gofoo\<BS>\<BS>\<F5>\<ESC>", 'tx') + call assert_equal("fobar", g:line) + call assert_equal(2, g:col) + + call feedkeys("Shello wo\<Left>\<Left>\<Left>f\<F5>\<ESC>", 'tx') + call assert_equal("hello fobar wo", g:line) + call assert_equal(9, g:col) + + call feedkeys("Shello wo\<Left>\<Left>\<Left>f\<BS>\<F5>\<ESC>", 'tx') + call assert_equal("hello wo", g:line) + call assert_equal(8, g:col) + + call feedkeys("Shello wo\<Left>\<Left>\<Left>foo\<F5>\<ESC>", 'tx') + call assert_equal("hello foobar wo", g:line) + call assert_equal(11, g:col) + + call feedkeys("Shello wo\<Left>\<Left>\<Left>foo\<BS>b\<F5>\<ESC>", 'tx') + call assert_equal("hello fobar wo", g:line) + call assert_equal(11, g:col) + + " confirm + call feedkeys("Sf\<C-Y>", 'tx') + call assert_equal("fobar", getline('.')) + call assert_equal(5, col('.')) + + " cancel + call feedkeys("Sfo\<C-E>", 'tx') + call assert_equal("fo", getline('.')) + call assert_equal(2, col('.')) + + " delete preinsert part + call feedkeys("Sfo ", 'tx') + call assert_equal("fo ", getline('.')) + call assert_equal(3, col('.')) + + " can not work with fuzzy + set cot+=fuzzy + call feedkeys("Sf", 'tx') + call assert_equal("f", getline('.')) + set cot-=fuzzy + + " does not work with 'ignorecase' unless 'infercase' is also enabled + %d + call setline(1, ['FIX', 'fobar', 'foobar']) + set ignorecase + call feedkeys("Gof\<F5>\<ESC>", 'tx') + call assert_equal("f", g:line) " should not produce 'FIX' + set infercase + call feedkeys("Gof\<F5>\<ESC>", 'tx') + call assert_equal("fix", g:line) + set ignorecase& infercase& + + %delete _ + let &l:undolevels = &l:undolevels + normal! ifoo + let &l:undolevels = &l:undolevels + normal! obar + let &l:undolevels = &l:undolevels + normal! obaz + let &l:undolevels = &l:undolevels + + func CheckUndo() + let g:errmsg = '' + call assert_equal(['foo', 'bar', 'baz'], getline(1, '$')) + undo + call assert_equal(['foo', 'bar'], getline(1, '$')) + undo + call assert_equal(['foo'], getline(1, '$')) + undo + call assert_equal([''], getline(1, '$')) + later 3 + call assert_equal(['foo', 'bar', 'baz'], getline(1, '$')) + call assert_equal('', v:errmsg) + endfunc + + " Check that switching buffer with "preinsert" doesn't corrupt undo. + new + setlocal bufhidden=wipe + inoremap <buffer> <F2> <Cmd>enew!<CR> + call feedkeys("if\<F2>\<Esc>", 'tx') + bwipe! + call CheckUndo() + + " Check that closing window with "preinsert" doesn't corrupt undo. + new + setlocal bufhidden=wipe + inoremap <buffer> <F2> <Cmd>close!<CR> + call feedkeys("if\<F2>\<Esc>", 'tx') + call CheckUndo() + + %delete _ + delfunc CheckUndo + + bw! + set cot& + set omnifunc& + set autocomplete& + call test_override("char_avail", 0) + delfunc Omni_test + delfunc GetLine +endfunc + +" Check that mark positions are correct after triggering multiline completion. +func Test_complete_multiline_marks() + func Omni_test(findstart, base) + if a:findstart + return col(".") + endif + return [ + \ #{word: "func ()\n\t\nend"}, + \ #{word: "foobar"}, + \ #{word: "你好\n\t\n我好"} + \ ] + endfunc + set omnifunc=Omni_test + + new + let lines = mapnew(range(10), 'string(v:val)') + call setline(1, lines) + call setpos("'a", [0, 3, 1, 0]) + + call feedkeys("A \<C-X>\<C-O>\<C-E>\<BS>", 'tx') + call assert_equal(lines, getline(1, '$')) + call assert_equal([0, 3, 1, 0], getpos("'a")) + + call feedkeys("A \<C-X>\<C-O>\<C-N>\<C-E>\<BS>", 'tx') + call assert_equal(lines, getline(1, '$')) + call assert_equal([0, 3, 1, 0], getpos("'a")) + + call feedkeys("A \<C-X>\<C-O>\<C-N>\<C-N>\<C-E>\<BS>", 'tx') + call assert_equal(lines, getline(1, '$')) + call assert_equal([0, 3, 1, 0], getpos("'a")) + + call feedkeys("A \<C-X>\<C-O>\<C-N>\<C-N>\<C-N>\<C-E>\<BS>", 'tx') + call assert_equal(lines, getline(1, '$')) + call assert_equal([0, 3, 1, 0], getpos("'a")) + + call feedkeys("A \<C-X>\<C-O>\<C-Y>", 'tx') + call assert_equal(['0 func ()', "\t", 'end'] + lines[1:], getline(1, '$')) + call assert_equal([0, 5, 1, 0], getpos("'a")) + + bw! + set omnifunc& + delfunc Omni_test +endfunc + +func Test_complete_match_count() + func! PrintMenuWords() + let info = complete_info(["selected", "matches"]) + call map(info.matches, {_, v -> v.word}) + return info + endfunc + + new + set cpt=.^0,w + call setline(1, ["fo", "foo", "foobar", "fobarbaz"]) + exe "normal! Gof\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('fo{''matches'': [''fo'', ''foo'', ''foobar'', ''fobarbaz''], ''selected'': 0}', getline(5)) + 5d + set cpt=.^0,w + exe "normal! Gof\<c-p>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('fobarbaz{''matches'': [''fo'', ''foo'', ''foobar'', ''fobarbaz''], ''selected'': 3}', getline(5)) + 5d + set cpt=.^1,w + exe "normal! Gof\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('fo{''matches'': [''fo''], ''selected'': 0}', getline(5)) + 5d + " max_matches is ignored for backward search + exe "normal! Gof\<c-p>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('fobarbaz{''matches'': [''fo'', ''foo'', ''foobar'', ''fobarbaz''], ''selected'': 3}', getline(5)) + 5d + set cpt=.^2,w + exe "normal! Gof\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('fo{''matches'': [''fo'', ''foo''], ''selected'': 0}', getline(5)) + 5d + set cot=menuone,noselect + set cpt=.^1,w + exe "normal! Gof\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('f{''matches'': [''fo''], ''selected'': -1}', getline(5)) + " With non-matching items + %d + call setline(1, ["free", "freebar", "foo", "fobarbaz"]) + set cpt=.^2,w + exe "normal! Gofo\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('fo{''matches'': [''foo'', ''fobarbaz''], ''selected'': -1}', getline(5)) + set cot& + + func ComplFunc(findstart, base) + if a:findstart + return col(".") + endif + return ["foo1", "foo2", "foo3", "foo4"] + endfunc + + %d + set completefunc=ComplFunc + set cpt=.^1,F^2 + call setline(1, ["fo", "foo", "foobar", "fobarbaz"]) + exe "normal! Gof\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('fo{''matches'': [''fo'', ''foo1'', ''foo2''], ''selected'': 0}', getline(5)) + 5d + set cpt=.^1,,,F^2,,, + call setline(1, ["fo", "foo", "foobar", "fobarbaz"]) + exe "normal! Gof\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('fo{''matches'': [''fo'', ''foo1'', ''foo2''], ''selected'': 0}', getline(5)) + 5d + exe "normal! Gof\<c-n>\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('foo1{''matches'': [''fo'', ''foo1'', ''foo2''], ''selected'': 1}', getline(5)) + 5d + exe "normal! Gof\<c-n>\<c-n>\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('foo2{''matches'': [''fo'', ''foo1'', ''foo2''], ''selected'': 2}', getline(5)) + 5d + exe "normal! Gof\<c-n>\<c-n>\<c-n>\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('f{''matches'': [''fo'', ''foo1'', ''foo2''], ''selected'': -1}', getline(5)) + 5d + exe "normal! Gof\<c-n>\<c-n>\<c-n>\<c-n>\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('fo{''matches'': [''fo'', ''foo1'', ''foo2''], ''selected'': 0}', getline(5)) + + 5d + exe "normal! Gof\<c-n>\<c-p>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('f{''matches'': [''fo'', ''foo1'', ''foo2''], ''selected'': -1}', getline(5)) + 5d + exe "normal! Gof\<c-n>\<c-p>\<c-p>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('foo2{''matches'': [''fo'', ''foo1'', ''foo2''], ''selected'': 2}', getline(5)) + 5d + exe "normal! Gof\<c-n>\<c-p>\<c-p>\<c-p>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('foo1{''matches'': [''fo'', ''foo1'', ''foo2''], ''selected'': 1}', getline(5)) + 5d + exe "normal! Gof\<c-n>\<c-p>\<c-p>\<c-p>\<c-p>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('fo{''matches'': [''fo'', ''foo1'', ''foo2''], ''selected'': 0}', getline(5)) + 5d + exe "normal! Gof\<c-n>\<c-p>\<c-p>\<c-p>\<c-p>\<c-p>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('f{''matches'': [''fo'', ''foo1'', ''foo2''], ''selected'': -1}', getline(5)) + + %d + call setline(1, ["foo"]) + set cpt=FComplFunc^2,. + exe "normal! Gof\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('foo1{''matches'': [''foo1'', ''foo2'', ''foo''], ''selected'': 0}', getline(2)) + bw! + + " Test refresh:always with max_items + let g:CallCount = 0 + func! CompleteItemsSelect(findstart, base) + if a:findstart + return col('.') - 1 + endif + let g:CallCount += 1 + let res = [[], ['foobar'], ['foo1', 'foo2', 'foo3'], ['foo4', 'foo5', 'foo6']] + return #{words: res[g:CallCount], refresh: 'always'} + endfunc + + new + set complete=.,Ffunction('CompleteItemsSelect')^2 + call setline(1, "foobarbar") + let g:CallCount = 0 + exe "normal! Gof\<c-n>\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('foobar{''matches'': [''foobarbar'', ''foobar''], ''selected'': 1}', getline(2)) + call assert_equal(1, g:CallCount) + %d + call setline(1, "foobarbar") + let g:CallCount = 0 + exe "normal! Gof\<c-n>\<c-p>o\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('fo{''matches'': [''foobarbar'', ''foo1'', ''foo2''], ''selected'': -1}', getline(2)) + call assert_equal(2, g:CallCount) + %d + call setline(1, "foobarbar") + let g:CallCount = 0 + exe "normal! Gof\<c-n>\<c-p>o\<bs>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('f{''matches'': [''foobarbar'', ''foo4'', ''foo5''], ''selected'': -1}', getline(2)) + call assert_equal(3, g:CallCount) + bw! + + " Test 'fuzzy' with max_items + new + set completeopt=menu,noselect,fuzzy + set complete=. + call setline(1, ["abcd", "abac", "abdc"]) + exe "normal! Goa\<c-n>c\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('ac{''matches'': [''abac'', ''abcd'', ''abdc''], ''selected'': -1}', getline(4)) + exe "normal! Sa\<c-n>c\<c-n>\<c-n>\<c-p>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('abac{''matches'': [''abac'', ''abcd'', ''abdc''], ''selected'': 0}', getline(4)) + execute "normal Sa\<c-n>c\<c-n>" + call assert_equal('abac', getline(4)) + execute "normal Sa\<c-n>c\<c-n>\<c-n>\<c-n>\<c-n>\<c-n>" + call assert_equal('abac', getline(4)) + set complete=.^1 + exe "normal! Sa\<c-n>c\<c-n>\<c-n>\<c-p>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('abac{''matches'': [''abac''], ''selected'': 0}', getline(4)) + execute "normal Sa\<c-n>c\<c-n>\<c-n>\<c-n>" + call assert_equal('abac', getline(4)) + set complete=.^2 + execute "normal Sa\<c-n>c\<c-n>\<c-n>\<c-n>\<c-n>" + call assert_equal('abac', getline(4)) + set complete=.^3 + execute "normal Sa\<c-n>c\<c-n>\<c-n>\<c-n>\<c-n>\<c-n>" + call assert_equal('abac', getline(4)) + set complete=.^4 + execute "normal Sa\<c-n>c\<c-n>\<c-n>\<c-n>\<c-n>\<c-n>" + call assert_equal('abac', getline(4)) + + func! ComplFunc(findstart, base) + if a:findstart + return col(".") + endif + return ["abcde", "abacr"] + endfunc + + set complete=.,FComplFunc^1 + execute "normal Sa\<c-n>c\<c-n>\<c-n>" + call assert_equal('abacr', getline(4)) + execute "normal Sa\<c-n>c\<c-n>\<c-n>\<c-n>\<c-n>\<c-n>\<c-n>" + call assert_equal('abac', getline(4)) + set complete=.^1,FComplFunc^1 + execute "normal Sa\<c-n>c\<c-n>\<c-n>\<c-n>\<c-n>" + call assert_equal('abac', getline(4)) + bw! + + " Items with '\n' that cause menu to shift, with no leader (issue #17394) + func! ComplFunc(findstart, base) + if a:findstart == 1 + return col('.') - 1 + endif + return ["one\ntwo\nthree", "four five six", "hello\nworld\nhere"] + endfunc + set completeopt=menuone,popup,noselect,fuzzy infercase + set complete=.^1,FComplFunc^5 + new + call setline(1, ["foo", "bar", "baz"]) + execute "normal Go\<c-n>\<c-n>\<c-n>" + call assert_equal(['one', 'two', 'three'], getline(4, 6)) + %d + call setline(1, ["foo", "bar", "baz"]) + execute "normal Go\<c-n>\<c-n>\<c-n>\<c-p>" + call assert_equal('foo', getline(4)) + execute "normal S\<c-n>\<c-n>\<c-n>\<c-n>\<c-n>\<c-n>\<c-n>" + call assert_equal('foo', getline(4)) + set complete=.^1,FComplFunc^2 + execute "normal S\<c-n>\<c-n>\<c-n>\<c-n>\<c-n>\<c-n>" + call assert_equal('foo', getline(4)) + execute "normal S\<c-n>\<c-p>\<c-p>\<c-p>\<c-n>\<c-n>" + call assert_equal('four five six', getline(4)) + bw! + + set completeopt& complete& infercase& + delfunc PrintMenuWords + delfunc ComplFunc + delfunc CompleteItemsSelect +endfunc + +func Test_complete_append_selected_match_default() + " when typing a normal character during completion, + " completion is ended, see + " :h popupmenu-completion ("There are three states:") + func PrintMenuWords() + let info = complete_info(["selected", "matches"]) + call map(info.matches, {_, v -> v.word}) + return info + endfunc + + new + call setline(1, ["fo", "foo", "foobar", "fobarbaz"]) + exe "normal! Gof\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('fo{''matches'': [''fo'', ''foo'', ''foobar'', ''fobarbaz''], ''selected'': 0}', getline(5)) + %d + call setline(1, ["fo", "foo", "foobar", "fobarbaz"]) + exe "normal! Gof\<c-n>o\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('foo{''matches'': [], ''selected'': -1}', getline(5)) + %d + set completeopt=menu,noselect + call setline(1, ["fo", "foo", "foobar", "fobarbaz"]) + exe "normal! Gof\<c-n>\<c-n>o\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('foo{''matches'': [], ''selected'': -1}', getline(5)) + bw! + + set completeopt& + delfunc PrintMenuWords +endfunc + +" Test normal mode (^N/^P/^X^N/^X^P) with smartcase when 1) matches are first +" found and 2) matches are filtered (when a character is typed). +func Test_smartcase_normal_mode() + + func! PrintMenu() + let info = complete_info(["matches"]) + call map(info.matches, {_, v -> v.word}) + return info + endfunc + + func! TestInner(key) + let pr = "\<c-r>=PrintMenu()\<cr>" + + new + set completeopt=menuone,noselect ignorecase smartcase + call setline(1, ["Fast", "FAST", "False", "FALSE", "fast", "false"]) + exe $"normal! ggOF{a:key}{pr}" + call assert_equal('F{''matches'': [''Fast'', ''FAST'', ''False'', + \ ''FALSE'']}', getline(1)) + %d + call setline(1, ["Fast", "FAST", "False", "FALSE", "fast", "false"]) + exe $"normal! ggOF{a:key}a{pr}" + call assert_equal('Fa{''matches'': [''Fast'', ''False'']}', getline(1)) + %d + call setline(1, ["Fast", "FAST", "False", "FALSE", "fast", "false"]) + exe $"normal! ggOF{a:key}a\<bs>{pr}" + call assert_equal('F{''matches'': [''Fast'', ''FAST'', ''False'', + \ ''FALSE'']}', getline(1)) + %d + call setline(1, ["Fast", "FAST", "False", "FALSE", "fast", "false"]) + exe $"normal! ggOF{a:key}ax{pr}" + call assert_equal('Fax{''matches'': []}', getline(1)) + %d + call setline(1, ["Fast", "FAST", "False", "FALSE", "fast", "false"]) + exe $"normal! ggOF{a:key}ax\<bs>{pr}" + call assert_equal('Fa{''matches'': [''Fast'', ''False'']}', getline(1)) + + %d + call setline(1, ["Fast", "FAST", "False", "FALSE", "fast", "false"]) + exe $"normal! ggOF{a:key}A{pr}" + call assert_equal('FA{''matches'': [''FAST'', ''FALSE'']}', getline(1)) + %d + call setline(1, ["Fast", "FAST", "False", "FALSE", "fast", "false"]) + exe $"normal! ggOF{a:key}A\<bs>{pr}" + call assert_equal('F{''matches'': [''Fast'', ''FAST'', ''False'', + \ ''FALSE'']}', getline(1)) + %d + call setline(1, ["Fast", "FAST", "False", "FALSE", "fast", "false"]) + exe $"normal! ggOF{a:key}AL{pr}" + call assert_equal('FAL{''matches'': [''FALSE'']}', getline(1)) + %d + call setline(1, ["Fast", "FAST", "False", "FALSE", "fast", "false"]) + exe $"normal! ggOF{a:key}ALx{pr}" + call assert_equal('FALx{''matches'': []}', getline(1)) + %d + call setline(1, ["Fast", "FAST", "False", "FALSE", "fast", "false"]) + exe $"normal! ggOF{a:key}ALx\<bs>{pr}" + call assert_equal('FAL{''matches'': [''FALSE'']}', getline(1)) + + %d + call setline(1, ["Fast", "FAST", "False", "FALSE", "fast", "false"]) + exe $"normal! ggOf{a:key}{pr}" + call assert_equal('f{''matches'': [''Fast'', ''FAST'', ''False'', ''FALSE'', + \ ''fast'', ''false'']}', getline(1)) + %d + call setline(1, ["Fast", "FAST", "False", "FALSE", "fast", "false"]) + exe $"normal! ggOf{a:key}a{pr}" + call assert_equal('fa{''matches'': [''Fast'', ''FAST'', ''False'', ''FALSE'', + \ ''fast'', ''false'']}', getline(1)) + + %d + exe $"normal! ggOf{a:key}{pr}" + call assert_equal('f{''matches'': []}', getline(1)) + exe $"normal! ggOf{a:key}a\<bs>{pr}" + call assert_equal('f{''matches'': []}', getline(1)) + set ignorecase& smartcase& completeopt& + bw! + endfunc + + call TestInner("\<c-n>") + call TestInner("\<c-p>") + call TestInner("\<c-x>\<c-n>") + call TestInner("\<c-x>\<c-p>") + delfunc PrintMenu + delfunc TestInner +endfunc + +" Test 'nearest' flag of 'completeopt' +func Test_nearest_cpt_option() + + func! PrintMenuWords() + let info = complete_info(["selected", "matches"]) + call map(info.matches, {_, v -> v.word}) + return info + endfunc + + new + set completeopt+=nearest + call setline(1, ["fo", "foo", "foobar"]) + exe "normal! Gof\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('foobar{''matches'': [''foobar'', ''foo'', ''fo''], ''selected'': 0}', getline(4)) + %d + call setline(1, ["fo", "foo", "foobar"]) + exe "normal! Of\<c-p>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('foobar{''matches'': [''fo'', ''foo'', ''foobar''], ''selected'': 2}', getline(1)) + %d + + set completeopt=menu,noselect,nearest + call setline(1, ["fo", "foo", "foobar", "foobarbaz"]) + exe "normal! Gof\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('f{''matches'': [''foobarbaz'', ''foobar'', ''foo'', ''fo''], ''selected'': -1}', getline(5)) + %d + call setline(1, ["fo", "foo", "foobar", "foobarbaz"]) + exe "normal! Gof\<c-p>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('f{''matches'': [''foobarbaz'', ''foobar'', ''foo'', ''fo''], ''selected'': -1}', getline(5)) + %d + call setline(1, ["fo", "foo", "foobar", "foobarbaz"]) + exe "normal! Of\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('f{''matches'': [''fo'', ''foo'', ''foobar'', ''foobarbaz''], ''selected'': -1}', getline(1)) + %d + call setline(1, ["fo", "foo", "foobar", "foobarbaz"]) + exe "normal! Of\<c-p>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('f{''matches'': [''fo'', ''foo'', ''foobar'', ''foobarbaz''], ''selected'': -1}', getline(1)) + %d + call setline(1, ["fo", "foo", "foobar", "foobarbaz"]) + exe "normal! of\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('f{''matches'': [''foo'', ''fo'', ''foobar'', ''foobarbaz''], ''selected'': -1}', getline(2)) + %d + call setline(1, ["fo", "foo", "foobar", "foobarbaz"]) + exe "normal! of\<c-p>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('f{''matches'': [''foo'', ''fo'', ''foobar'', ''foobarbaz''], ''selected'': -1}', getline(2)) + %d + call setline(1, ["fo", "foo", "foobar", "foobarbaz"]) + exe "normal! jof\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('f{''matches'': [''foobar'', ''foo'', ''foobarbaz'', ''fo''], ''selected'': -1}', getline(3)) + %d + call setline(1, ["fo", "foo", "foobar", "foobarbaz"]) + exe "normal! jof\<c-p>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('f{''matches'': [''foobar'', ''foo'', ''foobarbaz'', ''fo''], ''selected'': -1}', getline(3)) + %d + call setline(1, ["fo", "foo", "foobar", "foobarbaz"]) + exe "normal! 2jof\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('f{''matches'': [''foobarbaz'', ''foobar'', ''foo'', ''fo''], ''selected'': -1}', getline(4)) + %d + call setline(1, ["fo", "foo", "foobar", "foobarbaz"]) + exe "normal! 2jof\<c-p>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('f{''matches'': [''foobarbaz'', ''foobar'', ''foo'', ''fo''], ''selected'': -1}', getline(4)) + + %d + set completeopt=menuone,noselect,nearest + call setline(1, "foo") + exe "normal! Of\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('f{''matches'': [''foo''], ''selected'': -1}', getline(1)) + %d + call setline(1, "foo") + exe "normal! o\<c-p>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('{''matches'': [''foo''], ''selected'': -1}', getline(2)) + %d + exe "normal! o\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('', getline(1)) + %d + exe "normal! o\<c-p>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('', getline(1)) + + " Reposition match: node is at tail but score is too small + %d + call setline(1, ["foo1", "bar1", "bar2", "foo2", "foo1"]) + exe "normal! of\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('f{''matches'': [''foo1'', ''foo2''], ''selected'': -1}', getline(2)) + " Reposition match: node is in middle but score is too big + %d + call setline(1, ["foo1", "bar1", "bar2", "foo3", "foo1", "foo2"]) + exe "normal! of\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('f{''matches'': [''foo1'', ''foo3'', ''foo2''], ''selected'': -1}', getline(2)) + + " Multiple sources + func F1(findstart, base) + if a:findstart + return col('.') - 1 + endif + return ['foo4', 'foo5'] + endfunc + %d + set complete+=FF1 + call setline(1, ["foo1", "foo2", "bar1", "foo3"]) + exe "normal! 2jof\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('f{''matches'': [''foo3'', ''foo2'', ''foo1'', ''foo4'', ''foo5''], + \ ''selected'': -1}', getline(4)) + set complete-=FF1 + delfunc F1 + + set completeopt=menu,longest,nearest + %d + call setline(1, ["fo", "foo", "foobar", "foobarbaz"]) + exe "normal! of\<c-n>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('fo{''matches'': [''foo'', ''fo'', ''foobar'', ''foobarbaz''], ''selected'': -1}', getline(2)) + %d + call setline(1, ["fo", "foo", "foobar", "foobarbaz"]) + exe "normal! 2jof\<c-p>\<c-r>=PrintMenuWords()\<cr>" + call assert_equal('fo{''matches'': [''foobarbaz'', ''foobar'', ''foo'', ''fo''], ''selected'': -1}', getline(4)) + bw! + + set completeopt& + delfunc PrintMenuWords +endfunc + +func Test_register_completion() + let @a = "completion test apple application" + let @b = "banana behavior better best" + let @c = "complete completion compliment computer" + let g:save_reg = '' + func GetItems() + let g:result = complete_info(['pum_visible']) + endfunc + + new + call setline(1, "comp") + call cursor(1, 4) + call feedkeys("a\<C-X>\<C-R>\<C-N>\<C-N>\<Esc>", 'tx') + call assert_equal("compliment", getline(1)) + + inoremap <buffer><F2> <C-R>=GetItems()<CR> + call feedkeys("S\<C-X>\<C-R>\<F2>\<ESC>", 'tx') + call assert_equal(1, g:result['pum_visible']) + + call setline(1, "app") + call cursor(1, 3) + call feedkeys("a\<C-X>\<C-R>\<C-N>\<Esc>", 'tx') + call assert_equal("application", getline(1)) + + " Test completion with case differences + set ignorecase + let @e = "TestCase UPPERCASE lowercase" + call setline(1, "testc") + call cursor(1, 5) + call feedkeys("a\<C-X>\<C-R>\<Esc>", 'tx') + call assert_equal("TestCase", getline(1)) + + " Test clipboard registers if available + if has('clipboard_working') + let g:save_reg = getreg('*') + call setreg('*', "clipboard selection unique words") + call setline(1, "uni") + call cursor(1, 3) + call feedkeys("a\<C-X>\<C-R>\<Esc>", 'tx') + call assert_equal("unique", getline(1)) + call setreg('*', g:save_reg) + + let g:save_reg = getreg('+') + call setreg('+', "system clipboard special content") + call setline(1, "spe") + call cursor(1, 3) + call feedkeys("a\<C-X>\<C-R>\<Esc>", 'tx') + call assert_equal("special", getline(1)) + call setreg('+', g:save_reg) + + call setreg('*', g:save_reg) + call setreg('a', "normal register") + call setreg('*', "clipboard mixed content") + call setline(1, "mix") + call cursor(1, 3) + call feedkeys("a\<C-X>\<C-R>\<Esc>", 'tx') + call assert_equal("mixed", getline(1)) + call setreg('*', g:save_reg) + endif + + " Test black hole register should be skipped + let @_ = "blackhole content should not appear" + call setline(1, "black") + call cursor(1, 5) + call feedkeys("a\<C-X>\<C-R>\<Esc>", 'tx') + call assert_equal("black", getline(1)) + + let @1 = "recent yank zero" + call setline(1, "ze") + call cursor(1, 2) + call feedkeys("a\<C-X>\<C-R>\<Esc>", 'tx') + call assert_equal("zero", getline(1)) + + call feedkeys("Sze\<C-X>\<C-R>\<C-R>=string(complete_info(['mode']))\<CR>\<ESC>", "tx") + call assert_equal("zero{'mode': 'register'}", getline(1)) + + " Test consecutive CTRL-X CTRL-R (adding mode) + " First CTRL-X CTRL-R should split into words, second should use full content + let @f = "hello world test complete" + call setline(1, "hel") + call cursor(1, 3) + call feedkeys("a\<C-X>\<C-R>\<C-N>\<Esc>", 'tx') + call assert_equal("hello", getline(1)) + + " Second consecutive CTRL-X CTRL-R should complete with full content + call setline(1, "hello") + call cursor(1, 5) + call feedkeys("a\<C-X>\<C-R>\<C-X>\<C-R>\<Esc>", 'tx') + call assert_equal("hello world test complete", getline(1)) + + " Test consecutive completion with multi-line register + let @g = "first line content\nsecond line here\nthird line data" + call setline(1, "first") + call cursor(1, 5) + call feedkeys("a\<C-X>\<C-R>\<C-X>\<C-R>\<Esc>", 'tx') + call assert_equal("first line content", getline(1)) + + " Clean up + bwipe! + delfunc GetItems + unlet g:result + unlet g:save_reg + set ignorecase& +endfunc + +" Test refresh:always with unloaded buffers (issue #17363) +func Test_complete_unloaded_buf_refresh_always() + func TestComplete(findstart, base) + if a:findstart + let line = getline('.') + let start = col('.') - 1 + while start > 0 && line[start - 1] =~ '\a' + let start -= 1 + endwhile + return start + else + let g:CallCount += 1 + let res = ["update1", "update12", "update123"] + return #{words: res, refresh: 'always'} + endif + endfunc + + let g:CallCount = 0 + set completeopt=menu,longest + set completefunc=TestComplete + set complete=b,u,t,i,F + badd foo1 + badd foo2 + new + exe "normal! iup\<C-N>\<BS>\<BS>\<BS>\<BS>\<BS>" + call assert_equal('up', getline(1)) + call assert_equal(6, g:CallCount) + + bd! foo1 + bd! foo2 + bw! + set completeopt& + set complete& + set completefunc& + delfunc TestComplete +endfunc + +" Verify that the order of matches from each source is consistent +" during both ^N and ^P completions (Issue #17425). +func Test_complete_with_multiple_function_sources() + func F1(findstart, base) + if a:findstart + return col('.') - 1 + endif + return ['one', 'two', 'three'] + endfunc + + func F2(findstart, base) + if a:findstart + return col('.') - 1 + endif + return ['four', 'five', 'six'] + endfunc + + func F3(findstart, base) + if a:findstart + return col('.') - 1 + endif + return ['seven', 'eight', 'nine'] + endfunc + + new + setlocal complete=.,FF1,FF2,FF3 + inoremap <buffer> <F2> <Cmd>let b:matches = complete_info(["matches"]).matches<CR> + call setline(1, ['xxx', 'yyy', 'zzz', '']) + + call feedkeys("GS\<C-N>\<F2>\<Esc>0", 'tx!') + call assert_equal([ + \ 'xxx', 'yyy', 'zzz', + \ 'one', 'two', 'three', + \ 'four', 'five', 'six', + \ 'seven', 'eight', 'nine', + \ ], b:matches->mapnew('v:val.word')) + + call feedkeys("GS\<C-P>\<F2>\<Esc>0", 'tx!') + call assert_equal([ + \ 'seven', 'eight', 'nine', + \ 'four', 'five', 'six', + \ 'one', 'two', 'three', + \ 'xxx', 'yyy', 'zzz', + \ ], b:matches->mapnew('v:val.word')) + + %delete + + call feedkeys("GS\<C-N>\<F2>\<Esc>0", 'tx!') + call assert_equal([ + \ 'one', 'two', 'three', + \ 'four', 'five', 'six', + \ 'seven', 'eight', 'nine', + \ ], b:matches->mapnew('v:val.word')) + + call feedkeys("GS\<C-P>\<F2>\<Esc>0", 'tx!') + call assert_equal([ + \ 'seven', 'eight', 'nine', + \ 'four', 'five', 'six', + \ 'one', 'two', 'three', + \ ], b:matches->mapnew('v:val.word')) + + bwipe! + delfunc F1 + delfunc F2 + delfunc F3 +endfunc + +func Test_complete_fuzzy_omnifunc_backspace() + let g:do_complete = v:false + func Omni_test(findstart, base) + if a:findstart + let g:do_complete = !g:do_complete + endif + if g:do_complete + return a:findstart ? 0 : [#{word: a:base .. 'def'}, #{word: a:base .. 'ghi'}] + endif + return a:findstart ? -3 : {} + endfunc + + new + setlocal omnifunc=Omni_test + setlocal completeopt=menuone,fuzzy,noinsert + call setline(1, 'abc') + call feedkeys("A\<C-X>\<C-O>\<BS>\<Esc>0", 'tx!') + call assert_equal('ab', getline(1)) + + bwipe! + delfunc Omni_test + unlet g:do_complete +endfunc + +" Test that option shortmess=c turns off completion messages +func Test_shortmess() + CheckScreendump + + let lines =<< trim END + call setline(1, ['hello', 'hullo', 'heee']) + END + + call writefile(lines, 'Xpumscript', 'D') + let buf = RunMNVInTerminal('-S Xpumscript', #{rows: 12}) + call term_sendkeys(buf, "Goh\<C-N>") + call TermWait(buf, 200) + call VerifyScreenDump(buf, 'Test_shortmess_complmsg_1', {}) + call term_sendkeys(buf, "\<ESC>:set shm+=c\<CR>") + call term_sendkeys(buf, "Sh\<C-N>") + call TermWait(buf, 200) + call VerifyScreenDump(buf, 'Test_shortmess_complmsg_2', {}) + + call StopMNVInTerminal(buf) +endfunc + +" Test 'complete' containing F{func} that complete from nonkeyword +func Test_nonkeyword_trigger() + + " Trigger expansion even when another char is waiting in the typehead + call test_override("char_avail", 1) + + let g:CallCount = 0 + func! NonKeywordComplete(findstart, base) + let line = getline('.')->strpart(0, col('.') - 1) + let nonkeyword2 = len(line) > 1 && match(line[-2:-2], '\k') != 0 + if a:findstart + return nonkeyword2 ? col('.') - 3 : (col('.') - 2) + else + let g:CallCount += 1 + return [$"{a:base}foo", $"{a:base}bar"] + endif + endfunc + + new + inoremap <buffer> <F2> <Cmd>let b:matches = complete_info(["matches"]).matches<CR> + inoremap <buffer> <F3> <Cmd>let b:selected = complete_info(["selected"]).selected<CR> + call setline(1, ['abc', 'abcd', 'fo', 'b', '']) + + " Test 1a: Nonkeyword before cursor lists words with at least two letters + call feedkeys("GS=\<C-N>\<F2>\<Esc>0", 'tx!') + call assert_equal(['abc', 'abcd', 'fo'], b:matches->mapnew('v:val.word')) + call assert_equal('=abc', getline('.')) + + " Test 1b: With F{func} nonkeyword collects matches + set complete=.,FNonKeywordComplete + for noselect in range(2) + if noselect + set completeopt+=noselect + endif + let g:CallCount = 0 + call feedkeys("S=\<C-N>\<F2>\<Esc>0", 'tx!') + call assert_equal(['abc', 'abcd', 'fo', '=foo', '=bar'], b:matches->mapnew('v:val.word')) + call assert_equal(1, g:CallCount) + call assert_equal(noselect ? '=' : '=abc', getline('.')) + let g:CallCount = 0 + call feedkeys("S->\<C-N>\<F2>\<Esc>0", 'tx!') + call assert_equal(['abc', 'abcd', 'fo', '->foo', '->bar'], b:matches->mapnew('v:val.word')) + call assert_equal(1, g:CallCount) + call assert_equal(noselect ? '->' : '->abc', getline('.')) + set completeopt& + endfor + + " Test 1c: Keyword collects from {func} + let g:CallCount = 0 + call feedkeys("Sa\<C-N>\<F2>\<Esc>0", 'tx!') + call assert_equal(['abc', 'abcd', 'afoo', 'abar'], b:matches->mapnew('v:val.word')) + call assert_equal(1, g:CallCount) + call assert_equal('abc', getline('.')) + + set completeopt+=noselect + let g:CallCount = 0 + call feedkeys("Sa\<C-N>\<F2>\<Esc>0", 'tx!') + call assert_equal(['abc', 'abcd', 'afoo', 'abar'], b:matches->mapnew('v:val.word')) + call assert_equal(1, g:CallCount) + call assert_equal('a', getline('.')) + + " Test 1d: Nonkeyword after keyword collects items again + let g:CallCount = 0 + call feedkeys("Sa\<C-N>#\<C-N>\<F2>\<Esc>0", 'tx!') + call assert_equal(['abc', 'abcd', 'fo', '#foo', '#bar'], b:matches->mapnew('v:val.word')) + call assert_equal(2, g:CallCount) + call assert_equal('a#', getline('.')) + set completeopt& + + " Test 2: Filter nonkeyword and keyword matches with different startpos + set completeopt+=menuone,noselect + call feedkeys("S#a\<C-N>b\<F2>\<F3>\<Esc>0", 'tx!') + call assert_equal(['abc', 'abcd', '#abar'], b:matches->mapnew('v:val.word')) + call assert_equal(-1, b:selected) + call assert_equal('#ab', getline('.')) + + set completeopt+=fuzzy + call feedkeys("S#a\<C-N>b\<F2>\<F3>\<Esc>0", 'tx!') + call assert_equal(['#abar', 'abc', 'abcd'], b:matches->mapnew('v:val.word')) + call assert_equal(-1, b:selected) + call assert_equal('#ab', getline('.')) + set completeopt& + + " Test 3: Navigate menu containing nonkeyword and keyword items + call feedkeys("S->\<C-N>\<F2>\<Esc>0", 'tx!') + call assert_equal(['abc', 'abcd', 'fo', '->foo', '->bar'], b:matches->mapnew('v:val.word')) + call assert_equal('->abc', getline('.')) + call feedkeys("S->" . repeat("\<C-N>", 3) . "\<Esc>0", 'tx!') + call assert_equal('->fo', getline('.')) + call feedkeys("S->" . repeat("\<C-N>", 4) . "\<Esc>0", 'tx!') + call assert_equal('->foo', getline('.')) + call feedkeys("S->" . repeat("\<C-N>", 4) . "\<C-P>\<Esc>0", 'tx!') + call assert_equal('->fo', getline('.')) + call feedkeys("S->" . repeat("\<C-N>", 5) . "\<Esc>0", 'tx!') + call assert_equal('->bar', getline('.')) + call feedkeys("S->" . repeat("\<C-N>", 5) . "\<C-P>\<Esc>0", 'tx!') + call assert_equal('->foo', getline('.')) + call feedkeys("S->" . repeat("\<C-N>", 6) . "\<Esc>0", 'tx!') + call assert_equal('->', getline('.')) + call feedkeys("S->" . repeat("\<C-N>", 7) . "\<Esc>0", 'tx!') + call assert_equal('->abc', getline('.')) + call feedkeys("S->" . repeat("\<C-P>", 7) . "\<Esc>0", 'tx!') + call assert_equal('->fo', getline('.')) + " Replace + call feedkeys("S# x y z\<Esc>0lR\<C-N>\<Esc>0", 'tx!') + call assert_equal('#abcy z', getline('.')) + call feedkeys("S# x y z\<Esc>0lR" . repeat("\<C-P>", 4) . "\<Esc>0", 'tx!') + call assert_equal('#bary z', getline('.')) + + bw! + call test_override("char_avail", 0) + delfunc NonKeywordComplete + set complete& + unlet g:CallCount +endfunc + +func Test_autocomplete_trigger() + " Trigger expansion even when another char is waiting in the typehead + call test_override("char_avail", 1) + + let g:CallCount = 0 + func! NonKeywordComplete(findstart, base) + let line = getline('.')->strpart(0, col('.') - 1) + let nonkeyword2 = len(line) > 1 && match(line[-2:-2], '\k') != 0 + if a:findstart + return nonkeyword2 ? col('.') - 3 : (col('.') - 2) + else + let g:CallCount += 1 + return [$"{a:base}foo", $"{a:base}bar"] + endif + endfunc + + new + inoremap <buffer> <F2> <Cmd>let b:matches = complete_info(["matches"]).matches<CR> + inoremap <buffer> <F3> <Cmd>let b:selected = complete_info(["matches", "selected"]).selected<CR> + + call setline(1, ['abc', 'abcd', 'fo', 'b', '']) + set autocomplete + + " Test 1a: Nonkeyword doesn't open menu without F{func} when autocomplete + call feedkeys("GS=\<F2>\<Esc>0", 'tx!') + call assert_equal([], b:matches) + call assert_equal('=', getline('.')) + " ^N opens menu of keywords (of len > 1) + call feedkeys("S=\<C-E>\<C-N>\<F2>\<Esc>0", 'tx!') + call assert_equal(['abc', 'abcd', 'fo'], b:matches->mapnew('v:val.word')) + call assert_equal('=abc', getline('.')) + + " Test 1b: With F{func} nonkeyword collects matches + set complete=.,FNonKeywordComplete + let g:CallCount = 0 + call feedkeys("S=\<F2>\<Esc>0", 'tx!') + call assert_equal(['=foo', '=bar'], b:matches->mapnew('v:val.word')) + call assert_equal(1, g:CallCount) + call assert_equal('=', getline('.')) + let g:CallCount = 0 + call feedkeys("S->\<F2>\<Esc>0", 'tx!') + call assert_equal(['->foo', '->bar'], b:matches->mapnew('v:val.word')) + call assert_equal(2, g:CallCount) + call assert_equal('->', getline('.')) + + " Test 1c: Keyword after nonkeyword can collect both types of items + let g:CallCount = 0 + call feedkeys("S#a\<F2>\<Esc>0", 'tx!') + call assert_equal(['abcd', 'abc', '#afoo', '#abar'], b:matches->mapnew('v:val.word')) + call assert_equal(2, g:CallCount) + call assert_equal('#a', getline('.')) + let g:CallCount = 0 + call feedkeys("S#a.\<F2>\<Esc>0", 'tx!') + call assert_equal(['.foo', '.bar'], b:matches->mapnew('v:val.word')) + call assert_equal(3, g:CallCount) + call assert_equal('#a.', getline('.')) + let g:CallCount = 0 + call feedkeys("S#a.a\<F2>\<Esc>0", 'tx!') + call assert_equal(['abcd', 'abc', '.afoo', '.abar'], b:matches->mapnew('v:val.word')) + call assert_equal(4, g:CallCount) + call assert_equal('#a.a', getline('.')) + + " Test 1d: Nonkeyword after keyword collects items again + let g:CallCount = 0 + call feedkeys("Sa\<F2>\<Esc>0", 'tx!') + call assert_equal(['abcd', 'abc', 'afoo', 'abar'], b:matches->mapnew('v:val.word')) + call assert_equal(1, g:CallCount) + call assert_equal('a', getline('.')) + let g:CallCount = 0 + call feedkeys("Sa#\<F2>\<Esc>0", 'tx!') + call assert_equal(['#foo', '#bar'], b:matches->mapnew('v:val.word')) + call assert_equal(2, g:CallCount) + call assert_equal('a#', getline('.')) + + " Test 2: Filter nonkeyword and keyword matches with different startpos + for fuzzy in range(2) + if fuzzy + set completeopt+=fuzzy + endif + call feedkeys("S#ab\<F2>\<F3>\<Esc>0", 'tx!') + if fuzzy + call assert_equal(['#abar', 'abc', 'abcd'], b:matches->mapnew('v:val.word')) + else " Ordering of items is by 'nearest' to cursor by default + call assert_equal(['abcd', 'abc', '#abar'], b:matches->mapnew('v:val.word')) + endif + call assert_equal(-1, b:selected) + call assert_equal('#ab', getline('.')) + call feedkeys("S#ab" . repeat("\<C-N>", 3) . "\<F3>\<Esc>0", 'tx!') + call assert_equal(fuzzy ? '#abcd' : '#abar', getline('.')) + call assert_equal(2, b:selected) + + let g:CallCount = 0 + call feedkeys("GS#aba\<F2>\<Esc>0", 'tx!') + call assert_equal(['#abar'], b:matches->mapnew('v:val.word')) + call assert_equal(2, g:CallCount) + call assert_equal('#aba', getline('.')) + + let g:CallCount = 0 + call feedkeys("S#abc\<F2>\<Esc>0", 'tx!') + if fuzzy + call assert_equal(['abc', 'abcd'], b:matches->mapnew('v:val.word')) + else + call assert_equal(['abcd', 'abc'], b:matches->mapnew('v:val.word')) + endif + call assert_equal(2, g:CallCount) + set completeopt& + endfor + + " Test 3: Navigate menu containing nonkeyword and keyword items + call feedkeys("S#a\<F2>\<Esc>0", 'tx!') + call assert_equal(['abcd', 'abc', '#afoo', '#abar'], b:matches->mapnew('v:val.word')) + call feedkeys("S#a" . repeat("\<C-N>", 3) . "\<Esc>0", 'tx!') + call assert_equal('#afoo', getline('.')) + call feedkeys("S#a" . repeat("\<C-N>", 3) . "\<C-P>\<Esc>0", 'tx!') + call assert_equal('#abc', getline('.')) + + call feedkeys("S#a.a\<F2>\<Esc>0", 'tx!') + call assert_equal(['abcd', 'abc', '.afoo', '.abar'], b:matches->mapnew('v:val.word')) + call feedkeys("S#a.a" . repeat("\<C-N>", 2) . "\<Esc>0", 'tx!') + call assert_equal('#a.abc', getline('.')) + call feedkeys("S#a.a" . repeat("\<C-N>", 3) . "\<Esc>0", 'tx!') + call assert_equal('#a.afoo', getline('.')) + call feedkeys("S#a.a" . repeat("\<C-N>", 3) . "\<C-P>\<Esc>0", 'tx!') + call assert_equal('#a.abc', getline('.')) + call feedkeys("S#a.a" . repeat("\<C-P>", 6) . "\<Esc>0", 'tx!') + call assert_equal('#a.abar', getline('.')) + + " Test 4a: When autocomplete menu is active, ^X^N completes buffer keywords + let g:CallCount = 0 + call feedkeys("S#a\<C-E>\<C-X>\<C-N>\<F2>\<Esc>0", 'tx!') + call assert_equal(['abc', 'abcd'], b:matches->mapnew('v:val.word')) + call assert_equal(2, g:CallCount) + + " Test 4b: When autocomplete menu is active, ^X^O completes omnifunc + let g:CallCount = 0 + set omnifunc=NonKeywordComplete + call feedkeys("S#a\<C-X>\<C-O>\<F2>\<Esc>0", 'tx!') + call assert_equal(['#afoo', '#abar'], b:matches->mapnew('v:val.word')) + call assert_equal(3, g:CallCount) + + " Test 4c: When autocomplete menu is active, ^E^N completes keyword + call feedkeys("Sa\<C-E>\<F2>\<Esc>0", 'tx!') + call assert_equal([], b:matches->mapnew('v:val.word')) + let g:CallCount = 0 + call feedkeys("Sa\<C-E>\<C-N>\<F2>\<Esc>0", 'tx!') + call assert_equal(['abc', 'abcd', 'afoo', 'abar'], b:matches->mapnew('v:val.word')) + call assert_equal(2, g:CallCount) + + " Test 4d: When autocomplete menu is active, ^X^L completes lines + %d + let g:CallCount = 0 + call setline(1, ["afoo bar", "barbar foo", "foo bar", "and"]) + call feedkeys("Goa\<C-X>\<C-L>\<F2>\<Esc>0", 'tx!') + call assert_equal(['afoo bar', 'and'], b:matches->mapnew('v:val.word')) + call assert_equal(1, g:CallCount) + + " Issue #18044 + %d + call setline(1, ["first line", "second line"]) + call feedkeys("Gof\<C-X>\<C-L>\<Esc>", 'tx!') + call assert_equal("first line", getline(3)) + call feedkeys("Sf\<C-X>\<C-L>\<C-X>\<C-L>\<Esc>", 'tx!') + call assert_equal("second line", getline(4)) + + " Test 5: When invalid prefix stops completion, backspace should restart it + %d + set complete& + call setline(1, ["afoo bar", "barbar foo", "foo bar", "and"]) + call feedkeys("Goabc\<F2>\<Esc>0", 'tx!') + call assert_equal([], b:matches->mapnew('v:val.word')) + call feedkeys("Sabc\<BS>\<BS>\<F2>\<Esc>0", 'tx!') + call assert_equal(['and', 'afoo'], b:matches->mapnew('v:val.word')) + call feedkeys("Szx\<BS>\<F2>\<Esc>0", 'tx!') + call assert_equal([], b:matches->mapnew('v:val.word')) + call feedkeys("Sazx\<Left>\<BS>\<F2>\<Esc>0", 'tx!') + call assert_equal(['and', 'afoo'], b:matches->mapnew('v:val.word')) + + " Test 6: <BS> should clear the selected item (PR #18265) + %d + call setline(1, ["foobarfoo", "foobar", "foobarbaz"]) + call feedkeys("Gofo\<C-N>\<C-N>\<F2>\<F3>\<Esc>0", 'tx!') + call assert_equal(['foobarbaz', 'foobar', 'foobarfoo'], b:matches->mapnew('v:val.word')) + call assert_equal(1, b:selected) + call feedkeys("Sfo\<C-N>\<C-N>\<BS>\<F2>\<F3>\<Esc>0", 'tx!') + call assert_equal(['foobarbaz', 'foobar', 'foobarfoo'], b:matches->mapnew('v:val.word')) + call assert_equal(-1, b:selected) + call assert_equal('fooba', getline(4)) + call feedkeys("Sfo\<C-N>\<C-N>\<BS>\<C-N>\<F2>\<F3>\<Esc>0", 'tx!') + call assert_equal(['foobarbaz', 'foobar', 'foobarfoo'], b:matches->mapnew('v:val.word')) + call assert_equal(0, b:selected) + call assert_equal('foobarbaz', getline(4)) + + " Test 7: Remove selection when menu contents change (PR #18265) + %d + call setline(1, ["foobar", "fodxyz", "fodabc"]) + call feedkeys("Gofoo\<C-N>\<BS>\<BS>\<BS>\<BS>d\<F2>\<F3>\<Esc>0", 'tx!') + call assert_equal(['fodabc', 'fodxyz'], b:matches->mapnew('v:val.word')) + call assert_equal(-1, b:selected) + + " Test 8: Ctrl_W / Ctrl_U (delete word/line) should restart autocompletion + func! TestComplete(findstart, base) + if a:findstart + return col('.') - 1 + endif + return ['fooze', 'faberge'] + endfunc + set omnifunc=TestComplete + set complete+=o + call feedkeys("Sprefix->fo\<F2>\<Esc>0", 'tx!') + call assert_equal(['fodabc', 'fodxyz', 'foobar', 'fooze'], b:matches->mapnew('v:val.word')) + call feedkeys("Sprefix->fo\<C-W>\<F2>\<Esc>0", 'tx!') + call assert_equal(['fooze', 'faberge'], b:matches->mapnew('v:val.word')) + call feedkeys("Sprefix->\<Esc>afo\<C-U>\<F2>\<Esc>0", 'tx!') + call assert_equal(['fooze', 'faberge'], b:matches->mapnew('v:val.word')) + + " Test 9: Trigger autocomplete immediately upon entering Insert mode + " 'faberge' is filtered out because it doesn't start with the current prefix + " 'foo'; non-prefix omnifunc matches are excluded from the PUM when leader + " is NULL (compl_orig_text is used as a fallback filter). + call feedkeys("Sprefix->foo\<Esc>a\<F2>\<Esc>0", 'tx!') + call assert_equal(['foobar', 'fooze'], b:matches->mapnew('v:val.word')) + call feedkeys("Sprefix->fooxx\<Esc>hcw\<F2>\<Esc>0", 'tx!') + call assert_equal(['foobar', 'fooze'], b:matches->mapnew('v:val.word')) + + bw! + call test_override("char_avail", 0) + delfunc NonKeywordComplete + delfunc TestComplete + set autocomplete& omnifunc& complete& + unlet g:CallCount +endfunc + +" Test autocomplete timing +func Test_autocomplete_timer() + + let g:CallCount = 0 + func! TestComplete(delay, check, refresh, findstart, base) + if a:findstart + return col('.') - 1 + else + let g:CallCount += 1 + if a:delay + sleep 310m " Exceed timeout + endif + if a:check + while !complete_check() + sleep 2m + endwhile + return v:none " This should trigger after interrupted by timeout + endif + let res = [["ab", "ac", "ad"], ["abb", "abc", "abd"], ["acb", "cc", "cd"]] + if a:refresh + return #{words: res[g:CallCount - 1], refresh: 'always'} + endif + return res[g:CallCount - 1] + endif + endfunc + + " Trigger expansion even when another char is waiting in the typehead + call test_override("char_avail", 1) + + new + inoremap <buffer> <F2> <Cmd>let b:matches = complete_info(["matches"]).matches<CR> + inoremap <buffer> <F3> <Cmd>let b:selected = complete_info(["selected"]).selected<CR> + set autocomplete + + call setline(1, ['abc', 'bcd', 'cde']) + + " Test 1: When matches are found before timeout expires, it exits + " 'collection' mode and transitions to 'filter' mode. + set complete=.,Ffunction('TestComplete'\\,\ [0\\,\ 0\\,\ 0]) + let g:CallCount = 0 + call feedkeys("Goa\<F2>\<Esc>0", 'tx!') + call assert_equal(['abc', 'ab', 'ac', 'ad'], b:matches->mapnew('v:val.word')) + call assert_equal(1, g:CallCount) + + let g:CallCount = 0 + call feedkeys("Sab\<F2>\<Esc>0", 'tx!') + call assert_equal(['abc', 'ab'], b:matches->mapnew('v:val.word')) + call assert_equal(1, g:CallCount) + + " Test 2: When timeout expires before all matches are found, it returns + " with partial list but still transitions to 'filter' mode. + set complete=.,Ffunction('TestComplete'\\,\ [1\\,\ 0\\,\ 0]) + let g:CallCount = 0 + call feedkeys("Sab\<F2>\<Esc>0", 'tx!') + call assert_equal(['abc', 'ab'], b:matches->mapnew('v:val.word')) + call assert_equal(1, g:CallCount) + + " Test 3: When interrupted by ^N before timeout expires, it remains in + " 'collection' mode without transitioning. + set complete=.,Ffunction('TestComplete'\\,\ [0\\,\ 1\\,\ 0]) + let g:CallCount = 0 + call feedkeys("Sa\<C-N>b\<F2>\<Esc>0", 'tx!') + call assert_equal(2, g:CallCount) + + let g:CallCount = 0 + call feedkeys("Sa\<C-N>b\<C-N>c\<F2>\<Esc>0", 'tx!') + call assert_equal(3, g:CallCount) + + " Test 4: Simulate long running func that is stuck in complete_check() + let g:CallCount = 0 + set complete=.,Ffunction('TestComplete'\\,\ [0\\,\ 1\\,\ 0]) + call feedkeys("Sa\<F2>\<Esc>0", 'tx!') + call assert_equal(['abc'], b:matches->mapnew('v:val.word')) + call assert_equal(1, g:CallCount) + + let g:CallCount = 0 + call feedkeys("Sab\<F2>\<Esc>0", 'tx!') + call assert_equal(['abc'], b:matches->mapnew('v:val.word')) + call assert_equal(1, g:CallCount) + + " Test 5: refresh:always stays in 'collection' mode + set complete=.,Ffunction('TestComplete'\\,\ [0\\,\ 0\\,\ 1]) + let g:CallCount = 0 + call feedkeys("Sa\<F2>\<Esc>0", 'tx!') + call assert_equal(['abc', 'ab', 'ac', 'ad'], b:matches->mapnew('v:val.word')) + call assert_equal(1, g:CallCount) + + let g:CallCount = 0 + call feedkeys("Sab\<F2>\<Esc>0", 'tx!') + call assert_equal(['abc', 'abb', 'abd'], b:matches->mapnew('v:val.word')) + call assert_equal(2, g:CallCount) + + " Test 6: <c-n> and <c-p> navigate menu + set complete=.,Ffunction('TestComplete'\\,\ [0\\,\ 0\\,\ 0]) + let g:CallCount = 0 + call feedkeys("Sab\<c-n>\<F2>\<F3>\<Esc>0", 'tx!') + call assert_equal(['abc', 'ab'], b:matches->mapnew('v:val.word')) + call assert_equal(0, b:selected) + call assert_equal(1, g:CallCount) + call feedkeys("Sab\<c-n>\<c-n>\<F2>\<F3>\<Esc>0", 'tx!') + call assert_equal(1, b:selected) + call feedkeys("Sab\<c-n>\<c-p>\<F2>\<F3>\<Esc>0", 'tx!') + call assert_equal(-1, b:selected) + + " Test 7: Following 'cot' option values have no effect + set completeopt=menu,menuone,noselect,noinsert,longest + set complete=.,Ffunction('TestComplete'\\,\ [0\\,\ 0\\,\ 0]) + let g:CallCount = 0 + call feedkeys("Sab\<c-n>\<F2>\<F3>\<Esc>0", 'tx!') + call assert_equal(['abc', 'ab'], b:matches->mapnew('v:val.word')) + call assert_equal(0, b:selected) + call assert_equal(1, g:CallCount) + call assert_equal('abc', getline(4)) + set completeopt& + + " Test 8: {func} completes after space, but not '.' + set complete=.,Ffunction('TestComplete'\\,\ [0\\,\ 0\\,\ 0]) + let g:CallCount = 0 + call feedkeys("S \<F2>\<F3>\<Esc>0", 'tx!') + call assert_equal(['ab', 'ac', 'ad'], b:matches->mapnew('v:val.word')) + call assert_equal(1, g:CallCount) + set complete=. + call feedkeys("S \<F2>\<F3>\<Esc>0", 'tx!') + call assert_equal([], b:matches->mapnew('v:val.word')) + + " Test 9: Matches nearest to the cursor are prioritized (by default) + %d + let g:CallCount = 0 + set complete=. + call setline(1, ["fo", "foo", "foobar", "foobarbaz"]) + call feedkeys("jof\<F2>\<Esc>0", 'tx!') + call assert_equal(['foo', 'foobar', 'fo', 'foobarbaz'], b:matches->mapnew('v:val.word')) + + bw! + call test_override("char_avail", 0) + delfunc TestComplete + set autocomplete& complete& + unlet g:CallCount +endfunc + +func s:TestCompleteScriptLocal(findstart, base) + if a:findstart + return 1 + else + return ['foo', 'foobar'] + endif +endfunc + +" Issue 17869 +func Test_scriptlocal_autoload_func() + let save_rtp = &rtp + set rtp=Xruntime/some + let dir = 'Xruntime/some/autoload' + call mkdir(dir, 'pR') + + let lines =<< trim END + mnv9script + export def Func(findstart: bool, base: string): any + if findstart + return 1 + else + return ['match', 'matchfoo'] + endif + enddef + END + call writefile(lines, dir .. '/compl.mnv') + + call test_override("char_avail", 1) + new + inoremap <buffer> <F2> <Cmd>let b:matches = complete_info(["matches"]).matches<CR> + setlocal autocomplete + + setlocal complete=.,Fcompl#Func + call feedkeys("im\<F2>\<Esc>0", 'xt!') + call assert_equal(['match', 'matchfoo'], b:matches->mapnew('v:val.word')) + + setlocal complete=.,F<SID>TestCompleteScriptLocal + call feedkeys("Sf\<F2>\<Esc>0", 'xt!') + call assert_equal(['foo', 'foobar'], b:matches->mapnew('v:val.word')) + + setlocal complete& + bwipe! + call test_override("char_avail", 0) + let &rtp = save_rtp +endfunc + +" Issue #17907 +func Test_omni_start_invalid_col() + func OmniFunc(startcol, findstart, base) + if a:findstart + return a:startcol + else + return ['foo', 'foobar'] + endif + endfunc + + new + set complete=o + set omnifunc=funcref('OmniFunc',\ [-1]) + call setline(1, ['baz ']) + call feedkeys("A\<C-N>\<Esc>0", 'tx!') + call assert_equal('baz foo', getline(1)) + + set omnifunc=funcref('OmniFunc',\ [1000]) + call setline(1, ['bar ']) + call feedkeys("A\<C-N>\<Esc>0", 'tx!') + call assert_equal('bar foo', getline(1)) + bw! + + delfunc OmniFunc + set omnifunc& complete& +endfunc + +func Test_completetimeout_autocompletetimeout() + func OmniFunc(findstart, base) + if a:findstart + return 1 + else + return ['fooOmni'] + endif + endfunc + + set omnifunc=OmniFunc + call test_override("char_avail", 1) + inoremap <F2> <Cmd>let b:matches = complete_info(["matches"]).matches<CR> + + call setline(1, ['foobar', 'foobarbaz']) + new + call setline(1, ['foo', 'foobaz', '']) + set complete=.,o,w + call feedkeys("G", 'xt!') + + set autocomplete + for tt in [1, 80, 1000, -1, 0] + exec $'set autocompletetimeout={tt}' + call feedkeys("\<Esc>Sf\<F2>\<Esc>0", 'xt!') + call assert_equal(['foobaz', 'foo', 'fooOmni', 'foobar', 'foobarbaz'], b:matches->mapnew('v:val.word')) + endfor + set autocomplete& + + for tt in [80, 1000, -1, 0] + exec $'set completetimeout={tt}' + call feedkeys("\<Esc>Sf\<C-N>\<F2>\<Esc>0", 'xt!') + call assert_equal(['foo', 'foobaz', 'fooOmni', 'foobar', 'foobarbaz'], b:matches->mapnew('v:val.word')) + endfor + + " Clock does not have fine granularity, so checking 'elapsed time' is only + " approximate. We can only test that some type of timeout is enforced. + call setline(1, map(range(60000), '"foo" . v:val')) + set completetimeout=1 + call feedkeys("Gof\<C-N>\<F2>\<Esc>0", 'xt!') + let match_count = len(b:matches->mapnew('v:val.word')) + call assert_true(match_count < 4000) + + set completetimeout=1000 + call feedkeys("\<Esc>Sf\<C-N>\<F2>\<Esc>0", 'xt!') + let match_count = len(b:matches->mapnew('v:val.word')) + call assert_true(match_count > 2000) + + set autocomplete + set autocompletetimeout=81 + call feedkeys("\<Esc>Sf\<F2>\<Esc>0", 'xt!') + let match_count = len(b:matches->mapnew('v:val.word')) + call assert_true(match_count < 50000) + + set complete& omnifunc& autocomplete& autocompletetimeout& completetimeout& + bwipe! + %d + call test_override("char_avail", 0) + iunmap <F2> + delfunc OmniFunc +endfunc + +func Test_autocompletedelay() + CheckScreendump + + let lines =<< trim [SCRIPT] + call setline(1, ['foo', 'foobar', 'foobarbaz']) + setlocal autocomplete + [SCRIPT] + call writefile(lines, 'XTest_autocomplete_delay', 'D') + let buf = RunMNVInTerminal('-S XTest_autocomplete_delay', {'rows': 10}) + + call term_sendkeys(buf, "Gof") + call VerifyScreenDump(buf, 'Test_autocompletedelay_1', {}) + + call term_sendkeys(buf, "\<Esc>:set autocompletedelay=500\<CR>") + call term_sendkeys(buf, "Sf") + call VerifyScreenDump(buf, 'Test_autocompletedelay_2', {}) + call term_sendkeys(buf, "o") + call VerifyScreenDump(buf, 'Test_autocompletedelay_3', {}) + sleep 500m + call VerifyScreenDump(buf, 'Test_autocompletedelay_4', {}) + call term_sendkeys(buf, "\<BS>") + call VerifyScreenDump(buf, 'Test_autocompletedelay_5', {}) + sleep 500m + call VerifyScreenDump(buf, 'Test_autocompletedelay_6', {}) + + " During delay wait, user can open menu using CTRL_N completion + call term_sendkeys(buf, "\<Esc>:set completeopt=menuone\<CR>") + call term_sendkeys(buf, "Sf\<C-N>") + call VerifyScreenDump(buf, 'Test_autocompletedelay_7', {}) + + " After the menu is open, ^N/^P and Up/Down should not delay + call term_sendkeys(buf, "\<Esc>:set completeopt=menu noruler\<CR>") + call term_sendkeys(buf, "\<Esc>Sf") + sleep 500ms + call term_sendkeys(buf, "\<C-N>") + call VerifyScreenDump(buf, 'Test_autocompletedelay_8', {}) + call term_sendkeys(buf, "\<Down>") + call VerifyScreenDump(buf, 'Test_autocompletedelay_9', {}) + + " When menu is not open Up/Down moves cursor to different line + call term_sendkeys(buf, "\<Esc>Sf") + call term_sendkeys(buf, "\<Up>") + call VerifyScreenDump(buf, 'Test_autocompletedelay_10', {}) + call term_sendkeys(buf, "\<Down>") + call VerifyScreenDump(buf, 'Test_autocompletedelay_11', {}) + + call term_sendkeys(buf, "\<esc>") + call StopMNVInTerminal(buf) +endfunc + +" Preinsert longest prefix when autocomplete +func Test_autocomplete_longest() + func GetLine() + let g:line = getline('.') + let g:col = col('.') + let g:preinserted = preinserted() + endfunc + + call test_override("char_avail", 1) + new + inoremap <buffer><F5> <C-R>=GetLine()<CR> + set completeopt+=longest autocomplete + call setline(1, ["foobar", "foozbar"]) + call feedkeys("Go\<ESC>", 'tx') + + func DoTest(typed, line, col) + call feedkeys($"S{a:typed}\<F5>\<ESC>", 'tx') + call assert_equal(a:line, g:line) + call assert_equal(a:col, g:col) + endfunc + + call DoTest("f", 'foo', 2) + call DoTest("fo", 'foo', 3) + call DoTest("foo", 'foo', 4) + call DoTest("foob", 'foobar', 5) + call DoTest("foob\<BS>", 'foo', 4) + call DoTest("foob\<BS>\<BS>", 'foo', 3) + call DoTest("foo\<BS>", 'foo', 3) + call DoTest("foo\<BS>\<BS>", 'foo', 2) + call DoTest("foo\<BS>\<BS>\<BS>", '', 1) + + call DoTest("foo \<BS>", 'foo', 4) + call DoTest("foo \<BS>\<BS>", 'foo', 3) + + call DoTest("f\<C-N>", 'foozbar', 8) + call DoTest("f\<C-N>\<C-N>", 'foobar', 7) + call DoTest("f\<C-N>\<C-N>\<C-N>", 'foo', 2) + call DoTest("f\<C-N>\<C-N>\<C-N>\<C-N>", 'foozbar', 8) + call DoTest("f\<C-N>\<C-N>\<C-N>\<C-N>\<C-P>", 'foo', 2) + call DoTest("f\<C-N>\<C-N>\<C-N>\<C-N>\<C-P>\<C-P>", 'foobar', 7) + call DoTest("f\<C-P>", 'foobar', 7) + call DoTest("fo\<BS>\<C-P>", 'foobar', 7) + + " <C-Y> to accept preinserted text + inoremap <buffer><F6> <C-R>=pumvisible()<CR> + call DoTest("zar\<C-O>0f", 'foozar', 2) + call DoTest("zar\<C-O>0f\<C-Y>", 'foozar', 4) + call DoTest("zar\<C-O>0f\<C-Y>\<F6>", 'foo1zar', 5) + call DoTest("zar\<C-O>0f\<C-Y>\<BS>", 'foozar', 3) + call DoTest("zar\<C-O>0f\<C-Y>\<BS>\<F6>", 'fo1zar', 4) + + " Select items in menu + call DoTest("zar\<C-O>0f\<C-N>", 'foozbarzar', 8) + call DoTest("zar\<C-O>0f\<C-N>\<C-N>", 'foobarzar', 7) + call DoTest("zar\<C-O>0f\<C-N>\<C-N>\<C-N>", 'foozar', 2) + call DoTest("zar\<C-O>0f\<C-N>\<C-N>\<C-N>\<C-N>", 'foozbarzar', 8) + call DoTest("zar\<C-O>0f\<C-N>\<C-N>\<C-N>\<C-N>\<C-P>", 'foozar', 2) + call DoTest("zar\<C-O>0f\<C-N>\<C-N>\<C-N>\<C-N>\<C-P>\<C-P>", 'foobarzar', 7) + call DoTest("zar\<C-O>0f\<C-P>", 'foobarzar', 7) + + " Should not work with fuzzy + set cot+=fuzzy + call DoTest("f", 'f', 2) + set cot-=fuzzy + + " preinserted() + call DoTest("f", 'foo', 2) + call assert_equal(1, g:preinserted) + call assert_equal(0, preinserted()) + call DoTest("f\<BS>", '', 1) + call assert_equal(0, g:preinserted) + call DoTest("f ", 'f ', 3) + call assert_equal(0, g:preinserted) + call DoTest("foob", 'foobar', 5) + call assert_equal(1, g:preinserted) + call DoTest("foob\<BS>\<BS>x", 'fox', 4) + call assert_equal(0, g:preinserted) + + " Complete non-keyword + func Omni(findstart, base) + if a:findstart + return 5 + else + return ['xyz:'] + endif + endfunc + set omnifunc=Omni + set cpt+=o + call DoTest("xyz:", "xyz:xyz:", 5) + call DoTest("xyz:\<BS>\<BS>", "xyz:", 3) + set omnifunc& cpt& + delfunc Omni + + " leader should match prefix of inserted word + %delete + set smartcase ignorecase + call setline(1, ["FOO"]) + call feedkeys($"Gof\<F5>\<Esc>", 'tx') + call assert_equal('f', g:line) + call feedkeys($"SF\<F5>\<Esc>", 'tx') + call assert_equal('FOO', g:line) + set smartcase& ignorecase& + + " avoid repeating text that is already present after the cursor + %delete + call setline(1, ["foobarbaz", ""]) + call feedkeys($"G", 'tx') + call DoTest("baz\<C-O>0f", "foobarbaz", 2) + call feedkeys($"Sxfoozar\<CR>\<Esc>", 'tx') + call DoTest("baz\<C-O>0f", "foobarbaz", 2) + call feedkeys($"Sfoozar\<CR>\<Esc>", 'tx') + call DoTest("baz\<C-O>0f", "foobaz", 2) + + " Verify that redo (dot) works + %delete + call setline(1, ["foobar", "foozbar", "foobaz", "changed", "change"]) + call feedkeys($"/foo\<CR>", 'tx') + call feedkeys($"cwch\<C-N>\<Esc>n.n.", 'tx') + call assert_equal(repeat(['changed'], 3), getline(1, 3)) + + " Select a match and delete up to text equal to another match + %delete + call setline(1, ["foobar", "foo"]) + call feedkeys("Go\<ESC>", 'tx') + call DoTest("f\<C-N>\<C-N>\<BS>\<BS>\<BS>\<BS>", 'foo', 3) + + " Issue #18410: When both "preinsert" and "longest" are set, "preinsert" + " takes precedence + %delete + set autocomplete completeopt+=longest,preinsert + call setline(1, ['foobar', 'foofoo', 'foobaz', '']) + call feedkeys("G", 'tx') + call DoTest("f", 'foobar', 2) + call assert_equal(1, g:preinserted) + + " complete_info() + %delete + func GetPreinsert() + let g:cinfo = complete_info(['preinserted_text']) + return "" + endfunc + inoremap <buffer><F6> <C-R>=GetPreinsert()<CR> + call setline(1, ["foo_bar_xyz", "foo__xyz"]) + + set completeopt& completeopt+=preinsert + call feedkeys("G4li\<F6>\<C-Y>", 'tx') + call assert_equal("bar_xyz", g:cinfo.preinserted_text) + + set completeopt& completeopt+=longest + call feedkeys("Gof\<F6>\<ESC>", 'tx') + call assert_equal("oo_bar_xyz", g:cinfo.preinserted_text) + unlet g:cinfo + delfunc GetPreinsert + set completeopt& + + " Undo + %delete _ + let &l:undolevels = &l:undolevels + normal! ifoo + let &l:undolevels = &l:undolevels + normal! ofoobar + let &l:undolevels = &l:undolevels + normal! ofoobaz + let &l:undolevels = &l:undolevels + + func CheckUndo() + let g:errmsg = '' + call assert_equal(['foo', 'foobar', 'foobaz'], getline(1, '$')) + undo + call assert_equal(['foo', 'foobar'], getline(1, '$')) + undo + call assert_equal(['foo'], getline(1, '$')) + undo + call assert_equal([''], getline(1, '$')) + later 3 + call assert_equal(['foo', 'foobar', 'foobaz'], getline(1, '$')) + call assert_equal('', v:errmsg) + endfunc + + " Check that switching buffer with "longest" doesn't corrupt undo. + new + setlocal bufhidden=wipe + inoremap <buffer> <F2> <Cmd>enew!<CR> + call feedkeys("if\<F2>\<Esc>", 'tx') + bwipe! + call CheckUndo() + + " Check that closing window with "longest" doesn't corrupt undo. + new + setlocal bufhidden=wipe + inoremap <buffer> <F2> <Cmd>close!<CR> + call feedkeys("if\<F2>\<Esc>", 'tx') + call CheckUndo() + + %delete _ + delfunc CheckUndo + + " Check that behavior of "longest" in manual completion is unchanged. + for ac in [v:false, v:true] + let &ac = ac + set completeopt=menuone,longest + call feedkeys("Ssign u\<C-X>\<C-V>", 'tx') + call assert_equal('sign un', getline('.')) + call feedkeys("Ssign u\<C-X>\<C-V>\<C-V>", 'tx') + call assert_equal('sign undefine', getline('.')) + call feedkeys("Ssign u\<C-X>\<C-V>\<C-V>\<C-V>", 'tx') + call assert_equal('sign unplace', getline('.')) + call feedkeys("Ssign u\<C-X>\<C-V>\<C-V>\<C-V>\<C-V>", 'tx') + call assert_equal('sign u', getline('.')) + %delete + endfor + + bw! + set cot& autocomplete& + delfunc GetLine + delfunc DoTest + call test_override("char_avail", 0) +endfunc + +" Issue #18326 +func Test_fuzzy_select_item_when_acl() + CheckScreendump + let lines =<< trim [SCRIPT] + call setline(1, ["v", "vi", "mnv"]) + set autocomplete completeopt=menuone,noinsert,fuzzy autocompletedelay=300 + [SCRIPT] + call writefile(lines, 'XTest_autocomplete_delay', 'D') + let buf = RunMNVInTerminal('-S XTest_autocomplete_delay', {'rows': 10}) + + call term_sendkeys(buf, "Govi") + call VerifyScreenDump(buf, 'Test_fuzzy_autocompletedelay_1', {}) + + call term_sendkeys(buf, "\<Esc>Sv") + call VerifyScreenDump(buf, 'Test_fuzzy_autocompletedelay_2', {}) + sleep 500m + call term_sendkeys(buf, "i") + call VerifyScreenDump(buf, 'Test_fuzzy_autocompletedelay_3', {}) + + call term_sendkeys(buf, "\<esc>") + call StopMNVInTerminal(buf) +endfunc + +" Issue #18378: crash when fuzzy reorders items during refresh:always +func Test_refresh_always_with_fuzzy() + func ComplFunc1(findstart, base) + if a:findstart + return 1 + else + return ['foo', 'foobar'] + endif + endfunc + func ComplFunc2(findstart, base) + if a:findstart + return 1 + else + return #{words: ['foo'], refresh: 'always'} + endif + endfunc + set complete=.,FComplFunc1,FComplFunc2 + set autocomplete + call test_override("char_avail", 1) + new + call setline(1, ['fox']) + exe "normal! Gofo" + bw! + delfunc ComplFunc1 + delfunc ComplFunc2 + set complete& autocomplete& + call test_override("char_avail", 0) +endfunc + +func Test_autocompletedelay_longest_preinsert() + CheckScreendump + let lines =<< trim [SCRIPT] + call setline(1, ['autocomplete', 'autocomxxx']) + set autocomplete completeopt+=longest autocompletedelay=500 + [SCRIPT] + call writefile(lines, 'XTest_autocompletedelay', 'D') + let buf = RunMNVInTerminal('-S XTest_autocompletedelay', {'rows': 10}) + + " No spurious characters when autocompletedelay is in effect + call term_sendkeys(buf, "Goau") + sleep 10m + call term_sendkeys(buf, "toc") + sleep 100m + call VerifyScreenDump(buf, 'Test_autocompletedelay_longest_1', {}) + sleep 500m + call VerifyScreenDump(buf, 'Test_autocompletedelay_longest_2', {}) + + " Deleting a char should still show longest text + call term_sendkeys(buf, "\<Esc>Saut") + sleep 10m + call term_sendkeys(buf, "\<BS>") + sleep 100m + call VerifyScreenDump(buf, 'Test_autocompletedelay_longest_3', {}) + sleep 500m + call VerifyScreenDump(buf, 'Test_autocompletedelay_longest_4', {}) + + " Preinsert + call term_sendkeys(buf, "\<Esc>:set completeopt& completeopt+=preinsert\<CR>") + + " Show preinserted text right away but display popup later + call term_sendkeys(buf, "\<Esc>Sau") + sleep 100m + call VerifyScreenDump(buf, 'Test_autocompletedelay_preinsert_1', {}) + sleep 500m + call VerifyScreenDump(buf, 'Test_autocompletedelay_preinsert_2', {}) + + call term_sendkeys(buf, "\<esc>") + call StopMNVInTerminal(buf) +endfunc + +" Issue 18493 +func Test_longest_preinsert_accept() + call test_override("char_avail", 1) + new + call setline(1, ['func1', 'xfunc', 'func2']) + set completeopt+=noselect + + call feedkeys("Gof\<C-N>\<Down>\<C-Y>", 'tx') + call assert_equal('func1', getline('.')) + + set completeopt+=longest autocomplete + call feedkeys("Sf\<Down>\<C-Y>", 'tx') + call assert_equal('func2', getline('.')) + call feedkeys("Sf\<C-Y>", 'tx') + call assert_equal('func', getline('.')) + + set completeopt& autocomplete& + bw! + call test_override("char_avail", 0) +endfunc + +" Issue 19114 +func Test_fuzzy_filenames_compl_autocompl() + CheckScreendump + let dir = 'Xtempdir' + call mkdir(dir, 'pR') + call writefile([], dir .. '/.name') + call writefile([], dir .. '/name') + call writefile([], dir .. '/test.mnv') + + let buf = RunMNVInTerminal('', {'rows': 10}) + call term_sendkeys(buf, ':call test_override("char_avail", 1)') + call term_sendkeys(buf, "\<CR>") + call term_sendkeys(buf, "iset ac cot=fuzzy,longest\<ESC>") + call term_sendkeys(buf, ":source\<CR>") + call term_sendkeys(buf, "o.na\<C-X>\<C-F>") " this used to cause segfault + call TermWait(buf, 200) + call VerifyScreenDump(buf, 'Test_fuzzy_filenames_compl_autocompl', {}) + call StopMNVInTerminal(buf) +endfunc + +" Issue 19130 +func Test_helptags_autocomplete_timeout() + func! TestComplete(findstart, base) + if a:findstart + return col('.') - 1 + else + sleep 310m " Exceed timeout + return ["foo"] + endif + endfunc + + call test_override("char_avail", 1) + new + set autocomplete completeopt=fuzzy complete=.,FTestComplete + call feedkeys("Goa\<Esc>0", 'tx!') + call feedkeys(":h\<CR>", 'tx') " used to throw E149 exception + call test_override("char_avail", 0) + set autocomplete& completeopt& complete& + bw! +endfunc + +func Test_autocomplete_preinsert_null_leader() + " Test that non-prefix matches from omnifunc are filtered when leader is NULL. + " When autocomplete first fires, compl_leader is NULL. Previously the prefix + " filter was bypassed, allowing non-prefix fuzzy matches to be incorrectly + " shown in the PUM and preinserted. + func NonPrefixOmni(findstart, base) + if a:findstart + return col(".") - 1 + endif + " Return "key" (doesn't start with 'y') and "yellow" (starts with 'y'). + " Simulates what a fuzzy omnifunc returns (e.g. mnvcomplete#Complete with + " wildoptions=fuzzy). + return ["key", "yellow"] + endfunc + + call test_override("char_avail", 1) + new + set omnifunc=NonPrefixOmni complete=o + set completeopt=preinsert autocomplete + + func GetState() + let g:line = getline('.') + let g:col = col('.') + let g:matches = complete_info(['matches']).matches->mapnew('v:val.word') + endfunc + inoremap <buffer> <F5> <C-R>=GetState()<CR> + + " Type 'y': "key" should be filtered out (doesn't start with 'y'), + " "yellow" should be the only PUM entry and preinserted with cursor after 'y'. + call feedkeys("iy\<F5>\<C-E>\<Esc>", 'tx') + call assert_equal("yellow", g:line) + call assert_equal(2, g:col) + call assert_equal(['yellow'], g:matches) + + bw! + set omnifunc& complete& completeopt& autocomplete& + call test_override("char_avail", 0) + delfunc NonPrefixOmni + delfunc GetState +endfunc + +" Issue #19329: When register contents are inserted, remove preinserted text +func Test_ins_register_preinsert_autocomplete() + func TestOmni(findstart, base) + if a:findstart + return col(".") - 1 + endif + return ["foo", "foobar"] + endfunc + + call test_override("char_avail", 1) + new + set omnifunc=TestOmni complete^=o + set completeopt=preinsert autocomplete + + call feedkeys("ifoo \<C-R>\<C-P>=\"xyz\"\<CR>\<Esc>", 'tx') + call assert_equal("foo xyz", getline('.')) + bw! + set omnifunc& complete& completeopt& autocomplete& + call test_override("char_avail", 0) + delfunc TestOmni +endfunc + +" mnv: shiftwidth=2 sts=2 expandtab nofoldenable |