diff options
Diffstat (limited to 'src/nvim/testdir/test_ins_complete.vim')
| -rw-r--r-- | src/nvim/testdir/test_ins_complete.vim | 2192 |
1 files changed, 0 insertions, 2192 deletions
diff --git a/src/nvim/testdir/test_ins_complete.vim b/src/nvim/testdir/test_ins_complete.vim deleted file mode 100644 index ec1379a378..0000000000 --- a/src/nvim/testdir/test_ins_complete.vim +++ /dev/null @@ -1,2192 +0,0 @@ -" Test for insert completion - -source screendump.vim -source check.vim -source vim9.vim - -" Test for insert expansion -func Test_ins_complete() - edit test_ins_complete.vim - " The files in the current directory interferes with the files - " used by this test. So use a separate directory for the test. - call mkdir('Xdir') - cd Xdir - - set ff=unix - call writefile(["test11\t36Gepeto\t/Tag/", - \ "asd\ttest11file\t36G", - \ "Makefile\tto\trun"], 'Xtestfile') - call writefile(['', 'start of testfile', - \ 'ru', - \ 'run1', - \ 'run2', - \ 'STARTTEST', - \ 'ENDTEST', - \ 'end of testfile'], 'Xtestdata') - 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('Xtestfile') - call delete('Xtest11.one') - call delete('Xtest11.two') - call delete('Xtestdata') - set cpt& cot& def& tags& tagbsearch& hidden& - cd .. - call delete('Xdir', 'rf') -endfunc - -func Test_omni_dash() - func Omni(findstart, base) - if a:findstart - return 5 - else - echom a:base - return ['-help', '-v'] - endif - endfunc - set omnifunc=Omni - new - exe "normal Gofind -\<C-x>\<C-o>" - call assert_equal("find -help", getline('$')) - - bwipe! - delfunc Omni - set omnifunc= -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 - - bwipe! - delfunc Omni - unlet g:CallCount - set omnifunc= -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= - - bwipe! - unlet s:args - delfunc CompleteFunc -endfunc - -func s:CompleteDone_CompleteFuncNone( findstart, base ) - throw 'skipped: Nvim does not support v:none' - 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('function', complete_info().mode) - endif - - let s:called_completedone = 1 -endfunc - -func Test_CompleteDoneNone() - throw 'skipped: Nvim does not support v:none' - 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 - au! CompleteDone -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! 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 - 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 - 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 - call feedkeys("i\<C-X>\<C-U>\<C-R>\<C-R>=string(complete_info())\<CR>\<ESC>", "tx") - call assert_equal("matched{'pum_visible': 1, 'mode': 'function', 'selected': 0, 'items': [{'word': 'matched', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}]}", getline(1)) - bwipe! - set completeopt& - set completefunc& -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 - -func s:ComplInCmdwin_GlobalCompletion(a, l, p) - return 'global' -endfunc - -func s:ComplInCmdwin_LocalCompletion(a, l, p) - return 'local' -endfunc - -func Test_compl_in_cmdwin() - set wildmenu wildchar=<Tab> - com! -nargs=1 -complete=command GetInput let input = <q-args> - com! -buffer TestCommand echo 'TestCommand' - let w:test_winvar = 'winvar' - let b:test_bufvar = 'bufvar' - - " User-defined commands - let input = '' - call feedkeys("q:iGetInput T\<C-x>\<C-v>\<CR>", 'tx!') - call assert_equal('TestCommand', input) - - let input = '' - call feedkeys("q::GetInput T\<Tab>\<CR>:q\<CR>", 'tx!') - call assert_equal('T', input) - - com! -nargs=1 -complete=var GetInput let input = <q-args> - " Window-local variables - let input = '' - call feedkeys("q:iGetInput w:test_\<C-x>\<C-v>\<CR>", 'tx!') - call assert_equal('w:test_winvar', input) - - let input = '' - call feedkeys("q::GetInput w:test_\<Tab>\<CR>:q\<CR>", 'tx!') - call assert_equal('w:test_', input) - - " Buffer-local variables - let input = '' - call feedkeys("q:iGetInput b:test_\<C-x>\<C-v>\<CR>", 'tx!') - call assert_equal('b:test_bufvar', input) - - let input = '' - call feedkeys("q::GetInput b:test_\<Tab>\<CR>:q\<CR>", 'tx!') - call assert_equal('b:test_', input) - - - " Argument completion of buffer-local command - func s:ComplInCmdwin_GlobalCompletionList(a, l, p) - return ['global'] - endfunc - - func s:ComplInCmdwin_LocalCompletionList(a, l, p) - return ['local'] - endfunc - - func s:ComplInCmdwin_CheckCompletion(arg) - call assert_equal('local', a:arg) - endfunc - - com! -nargs=1 -complete=custom,<SID>ComplInCmdwin_GlobalCompletion - \ TestCommand call s:ComplInCmdwin_CheckCompletion(<q-args>) - com! -buffer -nargs=1 -complete=custom,<SID>ComplInCmdwin_LocalCompletion - \ TestCommand call s:ComplInCmdwin_CheckCompletion(<q-args>) - call feedkeys("q:iTestCommand \<Tab>\<CR>", 'tx!') - - com! -nargs=1 -complete=customlist,<SID>ComplInCmdwin_GlobalCompletionList - \ TestCommand call s:ComplInCmdwin_CheckCompletion(<q-args>) - com! -buffer -nargs=1 -complete=customlist,<SID>ComplInCmdwin_LocalCompletionList - \ TestCommand call s:ComplInCmdwin_CheckCompletion(<q-args>) - - call feedkeys("q:iTestCommand \<Tab>\<CR>", 'tx!') - - func! s:ComplInCmdwin_CheckCompletion(arg) - call assert_equal('global', a:arg) - endfunc - new - call feedkeys("q:iTestCommand \<Tab>\<CR>", 'tx!') - quit - - delfunc s:ComplInCmdwin_GlobalCompletion - delfunc s:ComplInCmdwin_LocalCompletion - delfunc s:ComplInCmdwin_GlobalCompletionList - delfunc s:ComplInCmdwin_LocalCompletionList - delfunc s:ComplInCmdwin_CheckCompletion - - delcom -buffer TestCommand - delcom TestCommand - delcom GetInput - unlet w:test_winvar - unlet b:test_bufvar - set wildmenu& wildchar& -endfunc - -" Test for insert path completion with completeslash option -func Test_ins_completeslash() - CheckMSWindows - - call mkdir('Xdir') - - let orig_shellslash = &shellslash - set cpt& - - new - - set noshellslash - - set completeslash= - exe "normal oXd\<C-X>\<C-F>" - call assert_equal('Xdir\', getline('.')) - - set completeslash=backslash - exe "normal oXd\<C-X>\<C-F>" - call assert_equal('Xdir\', getline('.')) - - set completeslash=slash - exe "normal oXd\<C-X>\<C-F>" - call assert_equal('Xdir/', getline('.')) - - set shellslash - - set completeslash= - exe "normal oXd\<C-X>\<C-F>" - call assert_equal('Xdir/', getline('.')) - - set completeslash=backslash - exe "normal oXd\<C-X>\<C-F>" - call assert_equal('Xdir\', getline('.')) - - set completeslash=slash - exe "normal oXd\<C-X>\<C-F>" - call assert_equal('Xdir/', getline('.')) - %bw! - call delete('Xdir', 'rf') - - set noshellslash - set completeslash=slash - call assert_true(stridx(globpath(&rtp, 'syntax/*.vim', 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') - let buf = RunVimInTerminal('-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 StopVimInTerminal(buf) - call delete('Xpumscript') -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') - let buf = RunVimInTerminal('-S Xpumscript', #{rows: 10}) - call term_wait(buf, 100) - call term_sendkeys(buf, "a\<C-N>") - call VerifyScreenDump(buf, 'Test_pum_with_folds_two_tabs', {}) - - call term_sendkeys(buf, "\<Esc>") - call StopVimInTerminal(buf) - call delete('Xpumscript') -endfunc - -func Test_pum_with_preview_win() - CheckScreendump - - let lines =<< trim END - funct 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') - let buf = RunVimInTerminal('-S Xpreviewscript', #{rows: 12}) - call term_wait(buf, 100) - call term_sendkeys(buf, "Gi\<C-X>\<C-O>") - call term_wait(buf, 200) - call term_sendkeys(buf, "\<C-N>") - call VerifyScreenDump(buf, 'Test_pum_with_preview_win', {}) - - call term_sendkeys(buf, "\<Esc>") - call StopVimInTerminal(buf) - call delete('Xpreviewscript') -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') - set tags=Xtags - let code =<< trim [CODE] - int first() {} - int second() {} - int third() {} - [CODE] - call writefile(code, 'Xfoo') - - enew - set showfulltag - exe "normal isec\<C-X>\<C-]>\<C-N>\<CR>" - call assert_equal('int second() {}', getline(1)) - set noshowfulltag - - call delete('Xtags') - call delete('Xfoo') - 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:') - - " 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:') - - " 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:') - close! - - set completefunc& - delfunc CompleteFunc - delfunc CompleteFunc2 - delfunc CompleteFunc3 - close! -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)) - set completefunc& - close! -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>"', 'E474:') - func ListMonths() - call complete(col('.'), test_null_list()) - endfunc - " Nvim allows a NULL list - " call assert_fails('exe "normal i\<C-R>=ListMonths()\<CR>"', 'E474:') - delfunc ListColors - delfunc ListMonths - call assert_fails('call complete_info({})', 'E714:') - 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 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)) - close! - " 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)) - close! -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)) - close! -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, '$')) - close! -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>r\<C-L>\<C-L>" - call assert_equal('workh', getline(3)) - set ignorecase& backspace& - close! -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 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('$')) - close! -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 - close! -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 - close! -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'] - for e in ['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") - call writefile(['def'], "Xfile2") - 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! - call delete("Xfile1") - call delete("Xfile2") -endfunc - -" Test for completing whole lines from unloaded buffers -func Test_complete_wholeline_unloadedbuf() - call writefile(['a line1', 'a line2', 'a line3'], "Xfile1") - 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! - call delete("Xfile1") -endfunc - -" Test for completing words from unlisted buffers -func Test_complete_from_unlistedbuf() - call writefile(['abc'], "Xfile1") - call writefile(['def'], "Xfile2") - 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! - call delete("Xfile1") - call delete("Xfile2") -endfunc - -" Test for completing whole lines from unlisted buffers -func Test_complete_wholeline_unlistedbuf() - call writefile(['a line1', 'a line2', 'a line3'], "Xfile1") - edit Xfile1 - enew - set complete=U - " completing from a 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! - call delete("Xfile1") -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 - new - set completeopt=menu,longest - set completefunc=Tcomplete - exe "normal! iup\<C-X>\<C-U>\<BS>\<BS>\<BS>\<BS>\<BS>" - call assert_equal('up', getline(1)) - call assert_equal(2, g:CallCount) - set completeopt& - set completefunc& - bw! - delfunc Tcomplete -endfunc - -" Test for completing from a thesaurus file without read permission -func Test_complete_unreadable_thesaurus_file() - CheckUnix - CheckNotRoot - - call writefile(['about', 'above'], 'Xfile') - call setfperm('Xfile', '---r--r--') - new - set complete=sXfile - exe "normal! ia\<C-P>" - call assert_equal('a', getline(1)) - bw! - call delete('Xfile') - 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 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 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 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 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 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 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=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! - END - call CheckLegacyAndVim9Success(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 - - " invalid return value - let &completefunc = {a -> 'abc'} - call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') - - " Using Vim9 lambda expression in legacy context should fail - " set completefunc=(a,\ b)\ =>\ 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 - - " Vim9 tests - let lines =<< trim END - vim9script - - def Vim9CompleteFunc(callnr: number, findstart: number, base: string): any - add(g:Vim9completeFuncArgs, [callnr, findstart, base]) - return findstart ? 0 : [] - enddef - - # Test for using a def function with completefunc - set completefunc=function('Vim9CompleteFunc',\ [60]) - new | only - setline(1, 'one') - g:Vim9completeFuncArgs = [] - feedkeys("A\<C-X>\<C-U>\<Esc>", 'x') - assert_equal([[60, 1, ''], [60, 0, 'one']], g:Vim9completeFuncArgs) - 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 s:LocalCompleteFunc(findstart: number, base: string): any - add(g:LocalCompleteFuncArgs, [findstart, base]) - return findstart ? 0 : [] - enddef - &completefunc = s: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 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 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 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 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 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 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=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! - END - call CheckLegacyAndVim9Success(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! - - 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 Vim9 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 - - " Vim9 tests - let lines =<< trim END - vim9script - - def Vim9omniFunc(callnr: number, findstart: number, base: string): any - add(g:Vim9omniFunc_Args, [callnr, findstart, base]) - return findstart ? 0 : [] - enddef - - # Test for using a def function with omnifunc - set omnifunc=function('Vim9omniFunc',\ [60]) - new | only - setline(1, 'one') - g:Vim9omniFunc_Args = [] - feedkeys("A\<C-X>\<C-O>\<Esc>", 'x') - assert_equal([[60, 1, ''], [60, 0, 'one']], g:Vim9omniFunc_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 s:LocalOmniFunc(findstart: number, base: string): any - add(g:LocalOmniFuncArgs, [findstart, base]) - return findstart ? 0 : [] - enddef - &omnifunc = s: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 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 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 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 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 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 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=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 CheckLegacyAndVim9Success(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! - delfunc s:TsrFunc3 - - " invalid return value - let &thesaurusfunc = {a -> 'abc'} - call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x') - - " Using Vim9 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 - - " Vim9 tests - let lines =<< trim END - vim9script - - def Vim9tsrFunc(callnr: number, findstart: number, base: string): any - add(g:Vim9tsrFunc_Args, [callnr, findstart, base]) - return findstart ? 0 : [] - enddef - - # Test for using a def function with thesaurusfunc - set thesaurusfunc=function('Vim9tsrFunc',\ [60]) - new | only - setline(1, 'one') - g:Vim9tsrFunc_Args = [] - feedkeys("A\<C-X>\<C-T>\<Esc>", 'x') - assert_equal([[60, 1, ''], [60, 0, 'one']], g:Vim9tsrFunc_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 s:LocalTsrFunc(findstart: number, base: string): any - add(g:LocalTsrFuncArgs, [findstart, base]) - return findstart ? 0 : [] - enddef - &thesaurusfunc = s: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 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) - 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 - norm 8oý - sil! norm o - - bwipe! -endfunc - -" vim: shiftwidth=2 sts=2 expandtab |