| " 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 |
| |
| 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_ins_complete_invalid_byte() |
| if has('unix') && executable('base64') |
| " this weird command was causing an illegal memory access |
| call writefile(['bm9ybTlvMDCAMM4Dbw4OGA4ODg=='], 'Xinvalid64') |
| call system('base64 -d Xinvalid64 > Xinvalid') |
| call writefile(['qa!'], 'Xexit') |
| call RunVim([], [], " -i NONE -n -X -Z -e -m -s -S Xinvalid -S Xexit") |
| call delete('Xinvalid64') |
| call delete('Xinvalid') |
| call delete('Xexit') |
| endif |
| 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_autoload() |
| let save_rtp = &rtp |
| set rtp=Xruntime/some |
| let dir = 'Xruntime/some/autoload' |
| call mkdir(dir, 'p') |
| |
| let lines =<< trim END |
| vim9script |
| def omni#func(findstart: bool, base: string): any |
| if findstart |
| return 1 |
| else |
| return ['match'] |
| endif |
| enddef |
| { |
| eval 1 + 2 |
| } |
| END |
| call writefile(lines, dir .. '/omni.vim') |
| |
| new |
| setlocal omnifunc=omni#func |
| call feedkeys("i\<C-X>\<C-O>\<Esc>", 'xt') |
| |
| bwipe! |
| call delete('Xruntime', 'rf') |
| 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= |
| |
| 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': 'test' |
| \ } |
| \ ] |
| \ } |
| 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( 'test', 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() |
| 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('test', 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', |
| \ 'user_data': ['one', 'two'], |
| \ } |
| \ ] |
| \ } |
| 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( ['one', 'two'], 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(['one', 'two'], 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 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() |
| CheckFeature 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_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 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 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 TermWait(buf, 50) |
| call term_sendkeys(buf, "Gi\<C-X>\<C-O>") |
| call TermWait(buf, 100) |
| 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>"', 'E578:') |
| |
| " 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>"', 'E578:') |
| |
| " 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 |
| 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 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 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')) |
| close! |
| 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 |
| |
| " vim: shiftwidth=2 sts=2 expandtab |