Mercurial > vim
view src/testdir/test_popup.vim @ 33674:021e5bb88513 v9.0.2074
patch 9.0.2074: Completion menu may be wrong
Commit: https://github.com/vim/vim/commit/daef8c74375141974d61b85199b383017644978c
Author: Christian Brabandt <cb@256bit.org>
Date: Fri Oct 27 19:16:26 2023 +0200
patch 9.0.2074: Completion menu may be wrong
Problem: Completion menu may be wrong
Solution: Check for the original direction of the completion menu,
add more tests, make it work with 'noselect'
completion: move in right direction when filling completion_info()
When moving through the insert completion menu and switching directions,
we need to make sure we start at the correct position in the list and
move correctly forward/backwards through it, so that we do not skip
entries and the selected item points to the correct entry in the list
of completion entries generated by the completion_info() function.
The general case is this:
1) CTRL-X CTRL-N, we will traverse the list starting from
compl_first_match and then go forwards (using the cp->next pointer)
through the list (skipping the very first entry, which has the
CP_ORIGINAL_TEXT flag set (since that is the empty/non-selected entry
2) CTRL-X CTRL-P, we will traverse the list starting from
compl_first_match (which now points to the last entry). The previous
entry will have the CP_ORIGINAL_TEXT flag set, so we need to start
traversing the list from the second prev pointer.
There are in fact 2 special cases after starting the completion menu
with CTRL-X:
3) CTRL-N and then going backwards by pressing CTRL-P again.
compl_first_match will point to the same entry as in step 1 above,
but since compl_dir_foward() has been switched by pressing CTRL-P
to backwards we need to pretend to be in still in case 1 and still
traverse the list in forward direction using the cp_next pointer
4) CTRL-P and then going forwards by pressing CTRL-N again.
compl_first_match will point to the same entry as in step 2 above,
but since compl_dir_foward() has been switched by pressing CTRL-N
to forwards we need to pretend to be in still in case 2 and still
traverse the list in backward direction using the cp_prev pointer
For the 'noselect' case however, this is slightly different again. When
going backwards, we only need to go one cp_prev pointer back. And
resting of the direction works again slightly different. So we need to
take the noselect option into account when deciding in which direction
to iterate through the list of matches.
related: #13402
related: #12971
closes: #13408
Signed-off-by: Christian Brabandt <cb@256bit.org>
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Fri, 27 Oct 2023 19:30:05 +0200 |
parents | 695b50472e85 |
children | f4ae2a159bde |
line wrap: on
line source
" Test for completion menu source shared.vim source screendump.vim source check.vim let g:months = ['January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December'] let g:setting = '' func ListMonths() if g:setting != '' exe ":set" g:setting endif let mth = copy(g:months) let entered = strcharpart(getline('.'),0,col('.')) if !empty(entered) let mth = filter(mth, 'v:val=~"^".entered') endif call complete(1, mth) return '' endfunc func Test_popup_complete2() " Although the popupmenu is not visible, this does not mean completion mode " has ended. After pressing <f5> to complete the currently typed char, Vim " still stays in the first state of the completion (:h ins-completion-menu), " although the popupmenu wasn't shown <c-e> will remove the inserted " completed text (:h complete_CTRL-E), while the following <c-e> will behave " like expected (:h i_CTRL-E) new inoremap <f5> <c-r>=ListMonths()<cr> call append(1, ["December2015"]) :1 call feedkeys("aD\<f5>\<C-E>\<C-E>\<C-E>\<C-E>\<enter>\<esc>", 'tx') call assert_equal(["Dece", "", "December2015"], getline(1,3)) %d bw! endfunc func Test_popup_complete() new inoremap <f5> <c-r>=ListMonths()<cr> " <C-E> - select original typed text before the completion started call feedkeys("aJu\<f5>\<down>\<c-e>\<esc>", 'tx') call assert_equal(["Ju"], getline(1,2)) %d " <C-Y> - accept current match call feedkeys("a\<f5>". repeat("\<down>",7). "\<c-y>\<esc>", 'tx') call assert_equal(["August"], getline(1,2)) %d " <BS> - Delete one character from the inserted text (state: 1) " TODO: This should not end the completion, but it does. " This should according to the documentation: " January " but instead, this does " Januar " (idea is, C-L inserts the match from the popup menu " but if the menu is closed, it will insert the character <c-l> call feedkeys("aJ\<f5>\<bs>\<c-l>\<esc>", 'tx') call assert_equal(["Januar"], getline(1,2)) %d " any-non special character: Stop completion without changing the match " and insert the typed character call feedkeys("a\<f5>20", 'tx') call assert_equal(["January20"], getline(1,2)) %d " any-non printable, non-white character: Add this character and " reduce number of matches call feedkeys("aJu\<f5>\<c-p>l\<c-y>", 'tx') call assert_equal(["Jul"], getline(1,2)) %d " any-non printable, non-white character: Add this character and " reduce number of matches call feedkeys("aJu\<f5>\<c-p>l\<c-n>\<c-y>", 'tx') call assert_equal(["July"], getline(1,2)) %d " any-non printable, non-white character: Add this character and " reduce number of matches call feedkeys("aJu\<f5>\<c-p>l\<c-e>", 'tx') call assert_equal(["Jul"], getline(1,2)) %d " <BS> - Delete one character from the inserted text (state: 2) call feedkeys("a\<f5>\<c-n>\<bs>", 'tx') call assert_equal(["Februar"], getline(1,2)) %d " <c-l> - Insert one character from the current match call feedkeys("aJ\<f5>".repeat("\<c-n>",3)."\<c-l>\<esc>", 'tx') call assert_equal(["J"], getline(1,2)) %d " <c-l> - Insert one character from the current match call feedkeys("aJ\<f5>".repeat("\<c-n>",4)."\<c-l>\<esc>", 'tx') call assert_equal(["January"], getline(1,2)) %d " <c-y> - Accept current selected match call feedkeys("aJ\<f5>\<c-y>\<esc>", 'tx') call assert_equal(["January"], getline(1,2)) %d " <c-e> - End completion, go back to what was there before selecting a match call feedkeys("aJu\<f5>\<c-e>\<esc>", 'tx') call assert_equal(["Ju"], getline(1,2)) %d " <PageUp> - Select a match several entries back call feedkeys("a\<f5>\<PageUp>\<c-y>\<esc>", 'tx') call assert_equal([""], getline(1,2)) %d " <PageUp><PageUp> - Select a match several entries back call feedkeys("a\<f5>\<PageUp>\<PageUp>\<c-y>\<esc>", 'tx') call assert_equal(["December"], getline(1,2)) %d " <PageUp><PageUp><PageUp> - Select a match several entries back call feedkeys("a\<f5>\<PageUp>\<PageUp>\<PageUp>\<c-y>\<esc>", 'tx') call assert_equal(["February"], getline(1,2)) %d " <PageDown> - Select a match several entries further call feedkeys("a\<f5>\<PageDown>\<c-y>\<esc>", 'tx') call assert_equal(["November"], getline(1,2)) %d " <PageDown><PageDown> - Select a match several entries further call feedkeys("a\<f5>\<PageDown>\<PageDown>\<c-y>\<esc>", 'tx') call assert_equal(["December"], getline(1,2)) %d " <PageDown><PageDown><PageDown> - Select a match several entries further call feedkeys("a\<f5>\<PageDown>\<PageDown>\<PageDown>\<c-y>\<esc>", 'tx') call assert_equal([""], getline(1,2)) %d " <PageDown><PageDown><PageDown><PageDown> - Select a match several entries further call feedkeys("a\<f5>".repeat("\<PageDown>",4)."\<c-y>\<esc>", 'tx') call assert_equal(["October"], getline(1,2)) %d " <Up> - Select a match don't insert yet call feedkeys("a\<f5>\<Up>\<c-y>\<esc>", 'tx') call assert_equal([""], getline(1,2)) %d " <Up><Up> - Select a match don't insert yet call feedkeys("a\<f5>\<Up>\<Up>\<c-y>\<esc>", 'tx') call assert_equal(["December"], getline(1,2)) %d " <Up><Up><Up> - Select a match don't insert yet call feedkeys("a\<f5>\<Up>\<Up>\<Up>\<c-y>\<esc>", 'tx') call assert_equal(["November"], getline(1,2)) %d " <Tab> - Stop completion and insert the match call feedkeys("a\<f5>\<Tab>\<c-y>\<esc>", 'tx') call assert_equal(["January "], getline(1,2)) %d " <Space> - Stop completion and insert the match call feedkeys("a\<f5>".repeat("\<c-p>",5)." \<esc>", 'tx') call assert_equal(["September "], getline(1,2)) %d " <Enter> - Use the text and insert line break (state: 1) call feedkeys("a\<f5>\<enter>\<esc>", 'tx') call assert_equal(["January", ''], getline(1,2)) %d " <Enter> - Insert the current selected text (state: 2) call feedkeys("a\<f5>".repeat("\<Up>",5)."\<enter>\<esc>", 'tx') call assert_equal(["September"], getline(1,2)) %d " Insert match immediately, if there is only one match " <c-y> selects a character from the line above call append(0, ["December2015"]) call feedkeys("aD\<f5>\<C-Y>\<C-Y>\<C-Y>\<C-Y>\<enter>\<esc>", 'tx') call assert_equal(["December2015", "December2015", ""], getline(1,3)) %d " use menuone for 'completeopt' " Since for the first <c-y> the menu is still shown, will only select " three letters from the line above set completeopt&vim set completeopt+=menuone call append(0, ["December2015"]) call feedkeys("aD\<f5>\<C-Y>\<C-Y>\<C-Y>\<C-Y>\<enter>\<esc>", 'tx') call assert_equal(["December2015", "December201", ""], getline(1,3)) %d " use longest for 'completeopt' set completeopt&vim call feedkeys("aM\<f5>\<C-N>\<C-P>\<c-e>\<enter>\<esc>", 'tx') set completeopt+=longest call feedkeys("aM\<f5>\<C-N>\<C-P>\<c-e>\<enter>\<esc>", 'tx') call assert_equal(["M", "Ma", ""], getline(1,3)) %d " use noselect/noinsert for 'completeopt' set completeopt&vim call feedkeys("aM\<f5>\<enter>\<esc>", 'tx') set completeopt+=noselect call feedkeys("aM\<f5>\<enter>\<esc>", 'tx') set completeopt-=noselect completeopt+=noinsert call feedkeys("aM\<f5>\<enter>\<esc>", 'tx') call assert_equal(["March", "M", "March"], getline(1,4)) %d endfunc func Test_popup_completion_insertmode() new inoremap <F5> <C-R>=ListMonths()<CR> call feedkeys("a\<f5>\<down>\<enter>\<esc>", 'tx') call assert_equal('February', getline(1)) %d " Set noinsertmode let g:setting = 'noinsertmode' call feedkeys("a\<f5>\<down>\<enter>\<esc>", 'tx') call assert_equal('February', getline(1)) call assert_false(pumvisible()) %d " Go through all matches, until none is selected let g:setting = '' call feedkeys("a\<f5>". repeat("\<c-n>",12)."\<enter>\<esc>", 'tx') call assert_equal('', getline(1)) %d " select previous entry call feedkeys("a\<f5>\<c-p>\<enter>\<esc>", 'tx') call assert_equal('', getline(1)) %d " select last entry call feedkeys("a\<f5>\<c-p>\<c-p>\<enter>\<esc>", 'tx') call assert_equal('December', getline(1)) iunmap <F5> endfunc func Test_noinsert_complete() func! s:complTest1() abort eval ['source', 'soundfold']->complete(1) return '' endfunc func! s:complTest2() abort call complete(1, ['source', 'soundfold']) return '' endfunc new set completeopt+=noinsert inoremap <F5> <C-R>=s:complTest1()<CR> call feedkeys("i\<F5>soun\<CR>\<CR>\<ESC>.", 'tx') call assert_equal('soundfold', getline(1)) call assert_equal('soundfold', getline(2)) bwipe! new inoremap <F5> <C-R>=s:complTest2()<CR> call feedkeys("i\<F5>\<CR>\<ESC>", 'tx') call assert_equal('source', getline(1)) bwipe! set completeopt-=noinsert iunmap <F5> endfunc func Test_complete_no_filter() func! s:complTest1() abort call complete(1, [{'word': 'foobar'}]) return '' endfunc func! s:complTest2() abort call complete(1, [{'word': 'foobar', 'equal': 1}]) return '' endfunc let completeopt = &completeopt " without equal=1 new set completeopt=menuone,noinsert,menu inoremap <F5> <C-R>=s:complTest1()<CR> call feedkeys("i\<F5>z\<CR>\<CR>\<ESC>.", 'tx') call assert_equal('z', getline(1)) bwipe! " with equal=1 new set completeopt=menuone,noinsert,menu inoremap <F5> <C-R>=s:complTest2()<CR> call feedkeys("i\<F5>z\<CR>\<CR>\<ESC>.", 'tx') call assert_equal('foobar', getline(1)) bwipe! let &completeopt = completeopt iunmap <F5> endfunc func Test_compl_vim_cmds_after_register_expr() func! s:test_func() return 'autocmd ' endfunc augroup AAAAA_Group au! augroup END new call feedkeys("i\<c-r>=s:test_func()\<CR>\<C-x>\<C-v>\<Esc>", 'tx') call assert_equal('autocmd AAAAA_Group', getline(1)) autocmd! AAAAA_Group augroup! AAAAA_Group bwipe! endfunc func Test_compl_ignore_mappings() call setline(1, ['foo', 'bar', 'baz', 'foobar']) inoremap <C-P> (C-P) inoremap <C-N> (C-N) normal! G call feedkeys("o\<C-X>\<C-N>\<C-N>\<C-N>\<C-P>\<C-N>\<C-Y>", 'tx') call assert_equal('baz', getline('.')) " Also test with unsimplified keys call feedkeys("o\<C-X>\<*C-N>\<*C-N>\<*C-N>\<*C-P>\<*C-N>\<C-Y>", 'tx') call assert_equal('baz', getline('.')) iunmap <C-P> iunmap <C-N> bwipe! endfunc func DummyCompleteOne(findstart, base) if a:findstart return 0 else wincmd n return ['onedef', 'oneDEF'] endif endfunc " Test that nothing happens if the 'completefunc' tries to open " a new window (fails to open window, continues) func Test_completefunc_opens_new_window_one() new let winid = win_getid() setlocal completefunc=DummyCompleteOne call setline(1, 'one') /^one call assert_fails('call feedkeys("A\<C-X>\<C-U>\<C-N>\<Esc>", "x")', 'E565:') call assert_equal(winid, win_getid()) call assert_equal('onedef', getline(1)) q! endfunc " Test that nothing happens if the 'completefunc' opens " a new window (no completion, no crash) func DummyCompleteTwo(findstart, base) if a:findstart wincmd n return 0 else return ['twodef', 'twoDEF'] endif endfunc " Test that nothing happens if the 'completefunc' opens " a new window (no completion, no crash) func Test_completefunc_opens_new_window_two() new let winid = win_getid() setlocal completefunc=DummyCompleteTwo call setline(1, 'two') /^two call assert_fails('call feedkeys("A\<C-X>\<C-U>\<C-N>\<Esc>", "x")', 'E565:') call assert_equal(winid, win_getid()) call assert_equal('twodef', getline(1)) q! endfunc func DummyCompleteThree(findstart, base) if a:findstart return 0 else return ['threedef', 'threeDEF'] endif endfunc :"Test that 'completefunc' works when it's OK. func Test_completefunc_works() new let winid = win_getid() setlocal completefunc=DummyCompleteThree call setline(1, 'three') /^three call feedkeys("A\<C-X>\<C-U>\<C-N>\<Esc>", "x") call assert_equal(winid, win_getid()) call assert_equal('threeDEF', getline(1)) q! endfunc func DummyCompleteFour(findstart, base) if a:findstart return 0 else call complete_add('four1') eval 'four2'->complete_add() call complete_check() call complete_add('four3') call complete_add('four4') call complete_check() call complete_add('four5') call complete_add('four6') return [] endif endfunc " Test that 'omnifunc' works when it's OK. func Test_omnifunc_with_check() new setlocal omnifunc=DummyCompleteFour call setline(1, 'four') /^four call feedkeys("A\<C-X>\<C-O>\<C-N>\<Esc>", "x") call assert_equal('four2', getline(1)) call setline(1, 'four') /^four call feedkeys("A\<C-X>\<C-O>\<C-N>\<C-N>\<Esc>", "x") call assert_equal('four3', getline(1)) call setline(1, 'four') /^four call feedkeys("A\<C-X>\<C-O>\<C-N>\<C-N>\<C-N>\<C-N>\<Esc>", "x") call assert_equal('four5', getline(1)) q! endfunc func UndoComplete() call complete(1, ['January', 'February', 'March', \ 'April', 'May', 'June', 'July', 'August', 'September', \ 'October', 'November', 'December']) return '' endfunc " Test that no undo item is created when no completion is inserted func Test_complete_no_undo() set completeopt=menu,preview,noinsert,noselect inoremap <Right> <C-R>=UndoComplete()<CR> new call feedkeys("ixxx\<CR>\<CR>yyy\<Esc>k", 'xt') call feedkeys("iaaa\<Esc>0", 'xt') call assert_equal('aaa', getline(2)) call feedkeys("i\<Right>\<Esc>", 'xt') call assert_equal('aaa', getline(2)) call feedkeys("u", 'xt') call assert_equal('', getline(2)) call feedkeys("ibbb\<Esc>0", 'xt') call assert_equal('bbb', getline(2)) call feedkeys("A\<Right>\<Down>\<CR>\<Esc>", 'xt') call assert_equal('January', getline(2)) call feedkeys("u", 'xt') call assert_equal('bbb', getline(2)) call feedkeys("A\<Right>\<C-N>\<Esc>", 'xt') call assert_equal('January', getline(2)) call feedkeys("u", 'xt') call assert_equal('bbb', getline(2)) iunmap <Right> set completeopt& q! endfunc func DummyCompleteFive(findstart, base) if a:findstart return 0 else return [ \ { 'word': 'January', 'info': "info1-1\n1-2\n1-3" }, \ { 'word': 'February', 'info': "info2-1\n2-2\n2-3" }, \ { 'word': 'March', 'info': "info3-1\n3-2\n3-3" }, \ { 'word': 'April', 'info': "info4-1\n4-2\n4-3" }, \ { 'word': 'May', 'info': "info5-1\n5-2\n5-3" }, \ ] endif endfunc " Test that 'completefunc' on Scratch buffer with preview window works when " it's OK. func Test_completefunc_with_scratch_buffer() CheckFeature quickfix new +setlocal\ buftype=nofile\ bufhidden=wipe\ noswapfile set completeopt+=preview setlocal completefunc=DummyCompleteFive call feedkeys("A\<C-X>\<C-U>\<C-N>\<C-N>\<C-N>\<Esc>", "x") call assert_equal(['April'], getline(1, '$')) pclose q! set completeopt& endfunc " <C-E> - select original typed text before the completion started without " auto-wrap text. func Test_completion_ctrl_e_without_autowrap() new let tw_save = &tw set tw=78 let li = [ \ '" zzz', \ '" zzzyyyyyyyyyyyyyyyyyyy'] call setline(1, li) 0 call feedkeys("A\<C-X>\<C-N>\<C-E>\<Esc>", "tx") call assert_equal(li, getline(1, '$')) let &tw = tw_save q! endfunc func DummyCompleteSix() call complete(1, ['Hello', 'World']) return '' endfunction " complete() correctly clears the list of autocomplete candidates " See #1411 func Test_completion_clear_candidate_list() new %d " select first entry from the completion popup call feedkeys("a xxx\<C-N>\<C-R>=DummyCompleteSix()\<CR>", "tx") call assert_equal('Hello', getline(1)) %d " select second entry from the completion popup call feedkeys("a xxx\<C-N>\<C-R>=DummyCompleteSix()\<CR>\<C-N>", "tx") call assert_equal('World', getline(1)) %d " select original text call feedkeys("a xxx\<C-N>\<C-R>=DummyCompleteSix()\<CR>\<C-N>\<C-N>", "tx") call assert_equal(' xxx', getline(1)) %d " back at first entry from completion list call feedkeys("a xxx\<C-N>\<C-R>=DummyCompleteSix()\<CR>\<C-N>\<C-N>\<C-N>", "tx") call assert_equal('Hello', getline(1)) bw! endfunc func Test_completion_respect_bs_option() new let li = ["aaa", "aaa12345", "aaaabcdef", "aaaABC"] set bs=indent,eol call setline(1, li) 1 call feedkeys("A\<C-X>\<C-N>\<C-P>\<BS>\<BS>\<BS>\<Esc>", "tx") call assert_equal('aaa', getline(1)) %d set bs=indent,eol,start call setline(1, li) 1 call feedkeys("A\<C-X>\<C-N>\<C-P>\<BS>\<BS>\<BS>\<Esc>", "tx") call assert_equal('', getline(1)) bw! endfunc func CompleteUndo() abort call complete(1, g:months) return '' endfunc func Test_completion_can_undo() inoremap <Right> <c-r>=CompleteUndo()<cr> set completeopt+=noinsert,noselect new call feedkeys("a\<Right>a\<Esc>", 'xt') call assert_equal('a', getline(1)) undo call assert_equal('', getline(1)) bwipe! set completeopt& iunmap <Right> endfunc func Test_completion_comment_formatting() new setl formatoptions=tcqro call feedkeys("o/*\<cr>\<cr>/\<esc>", 'tx') call assert_equal(['', '/*', ' *', ' */'], getline(1,4)) %d call feedkeys("o/*\<cr>foobar\<cr>/\<esc>", 'tx') call assert_equal(['', '/*', ' * foobar', ' */'], getline(1,4)) %d try call feedkeys("o/*\<cr>\<cr>\<c-x>\<c-u>/\<esc>", 'tx') call assert_report('completefunc not set, should have failed') catch call assert_exception('E764:') endtry call assert_equal(['', '/*', ' *', ' */'], getline(1,4)) bwipe! endfunc func MessCompleteMonths() for m in split("Jan Feb Mar Apr May Jun Jul Aug Sep") call complete_add(m) if complete_check() break endif endfor return [] endfunc func MessCompleteMore() call complete(1, split("Oct Nov Dec")) return [] endfunc func MessComplete(findstart, base) if a:findstart let line = getline('.') let start = col('.') - 1 while start > 0 && line[start - 1] =~ '\a' let start -= 1 endwhile return start else call MessCompleteMonths() call MessCompleteMore() return [] endif endfunc func Test_complete_func_mess() " Calling complete() after complete_add() in 'completefunc' is wrong, but it " should not crash. set completefunc=MessComplete new call setline(1, 'Ju') call assert_fails('call feedkeys("A\<c-x>\<c-u>/\<esc>", "tx")', 'E565:') call assert_equal('Jan/', getline(1)) bwipe! set completefunc= endfunc func Test_complete_CTRLN_startofbuffer() new call setline(1, [ 'organize(cupboard, 3, 2);', \ 'prioritize(bureau, 8, 7);', \ 'realize(bannister, 4, 4);', \ 'moralize(railing, 3,9);']) let expected=['cupboard.organize(3, 2);', \ 'bureau.prioritize(8, 7);', \ 'bannister.realize(4, 4);', \ 'railing.moralize(3,9);'] call feedkeys("qai\<c-n>\<c-n>.\<esc>3wdW\<cr>q3@a", 'tx') call assert_equal(expected, getline(1,'$')) bwipe! endfunc func Test_popup_and_window_resize() CheckFeature terminal CheckFeature quickfix CheckNotGui let g:test_is_flaky = 1 let h = winheight(0) if h < 15 return endif let rows = h / 3 let buf = term_start([GetVimProg(), '--clean', '-c', 'set noswapfile'], {'term_rows': rows}) call term_sendkeys(buf, (h / 3 - 1) . "o\<esc>") " Wait for the nested Vim to exit insert mode, where it will show the ruler. " Need to trigger a redraw. call WaitFor({-> execute("redraw") == "" && term_getline(buf, rows) =~ '\<' . rows . ',.*Bot'}) call term_sendkeys(buf, "Gi\<c-x>") call term_sendkeys(buf, "\<c-v>") call TermWait(buf, 50) " popup first entry "!" must be at the top call WaitForAssert({-> assert_match('^!\s*$', term_getline(buf, 1))}) exe 'resize +' . (h - 1) call TermWait(buf, 50) redraw! " popup shifted down, first line is now empty call WaitForAssert({-> assert_equal('', term_getline(buf, 1))}) sleep 100m " popup is below cursor line and shows first match "!" call WaitForAssert({-> assert_match('^!\s*$', term_getline(buf, term_getcursor(buf)[0] + 1))}) " cursor line also shows ! call assert_match('^!\s*$', term_getline(buf, term_getcursor(buf)[0])) bwipe! endfunc func Test_popup_and_preview_autocommand() CheckFeature python CheckFeature quickfix if winheight(0) < 15 throw 'Skipped: window height insufficient' endif " This used to crash Vim new augroup MyBufAdd au! au BufAdd * nested tab sball augroup END set omnifunc=pythoncomplete#Complete call setline(1, 'import os') " make the line long call setline(2, ' os.') $ call feedkeys("A\<C-X>\<C-O>\<C-N>\<C-N>\<C-N>\<enter>\<esc>", 'tx') call assert_equal("import os", getline(1)) call assert_match(' os.\(EX_IOERR\|O_CREAT\)$', getline(2)) call assert_equal(1, winnr('$')) " previewwindow option is not set call assert_equal(0, &previewwindow) norm! gt call assert_equal(0, &previewwindow) norm! gT call assert_equal(10, tabpagenr('$')) tabonly pclose augroup MyBufAdd au! augroup END augroup! MyBufAdd bw! endfunc func Test_popup_and_previewwindow_dump() CheckScreendump CheckFeature quickfix let lines =<< trim END set previewheight=9 silent! pedit call setline(1, map(repeat(["ab"], 10), "v:val .. v:key")) exec "norm! G\<C-E>\<C-E>" END call writefile(lines, 'Xscript', 'D') let buf = RunVimInTerminal('-S Xscript', {}) " wait for the script to finish call TermWait(buf) " Test that popup and previewwindow do not overlap. call term_sendkeys(buf, "o") call TermWait(buf, 50) call term_sendkeys(buf, "\<C-X>\<C-N>") call VerifyScreenDump(buf, 'Test_popup_and_previewwindow_01', {}) call term_sendkeys(buf, "\<Esc>u") call StopVimInTerminal(buf) endfunc func Test_balloon_split() CheckFunction balloon_split call assert_equal([ \ 'tempname: 0x555555e380a0 "/home/mool/.viminfz.tmp"', \ ], balloon_split( \ 'tempname: 0x555555e380a0 "/home/mool/.viminfz.tmp"')) call assert_equal([ \ 'one two three four one two three four one two thre', \ 'e four', \ ], balloon_split( \ 'one two three four one two three four one two three four')) eval 'struct = {one = 1, two = 2, three = 3}' \ ->balloon_split() \ ->assert_equal([ \ 'struct = {', \ ' one = 1,', \ ' two = 2,', \ ' three = 3}', \ ]) call assert_equal([ \ 'struct = {', \ ' one = 1,', \ ' nested = {', \ ' n1 = "yes",', \ ' n2 = "no"}', \ ' two = 2}', \ ], balloon_split( \ 'struct = {one = 1, nested = {n1 = "yes", n2 = "no"} two = 2}')) call assert_equal([ \ 'struct = 0x234 {', \ ' long = 2343 "\\"some long string that will be wr', \ 'apped in two\\"",', \ ' next = 123}', \ ], balloon_split( \ 'struct = 0x234 {long = 2343 "\\"some long string that will be wrapped in two\\"", next = 123}')) call assert_equal([ \ 'Some comment', \ '', \ 'typedef this that;', \ ], balloon_split( \ "Some comment\n\ntypedef this that;")) endfunc func Test_popup_position() CheckScreendump let lines =<< trim END 123456789_123456789_123456789_a 123456789_123456789_123456789_b 123 END call writefile(lines, 'Xtest', 'D') let buf = RunVimInTerminal('Xtest', {}) call term_sendkeys(buf, ":vsplit\<CR>") " default pumwidth in left window: overlap in right window call term_sendkeys(buf, "GA\<C-N>") call VerifyScreenDump(buf, 'Test_popup_position_01', {'rows': 8}) call term_sendkeys(buf, "\<Esc>u") " default pumwidth: fill until right of window call term_sendkeys(buf, "\<C-W>l") call term_sendkeys(buf, "GA\<C-N>") call VerifyScreenDump(buf, 'Test_popup_position_02', {'rows': 8}) " larger pumwidth: used as minimum width call term_sendkeys(buf, "\<Esc>u") call term_sendkeys(buf, ":set pumwidth=30\<CR>") call term_sendkeys(buf, "GA\<C-N>") call VerifyScreenDump(buf, 'Test_popup_position_03', {'rows': 8}) " completed text wider than the window and 'pumwidth' smaller than available " space call term_sendkeys(buf, "\<Esc>u") call term_sendkeys(buf, ":set pumwidth=20\<CR>") call term_sendkeys(buf, "ggI123456789_\<Esc>") call term_sendkeys(buf, "jI123456789_\<Esc>") call term_sendkeys(buf, "GA\<C-N>") call VerifyScreenDump(buf, 'Test_popup_position_04', {'rows': 10}) call term_sendkeys(buf, "\<Esc>u") call StopVimInTerminal(buf) endfunc func Test_popup_command() CheckFeature menu menu Test.Foo Foo call assert_fails('popup Test.Foo', 'E336:') call assert_fails('popup Test.Foo.X', 'E327:') call assert_fails('popup Foo', 'E337:') unmenu Test.Foo endfunc func Test_popup_command_dump() CheckFeature menu CheckScreendump let script =<< trim END func StartTimer() call timer_start(100, {-> ChangeMenu()}) endfunc func ChangeMenu() aunmenu PopUp.&Paste nnoremenu 1.40 PopUp.&Paste :echomsg "pasted"<CR> echomsg 'changed' endfunc END call writefile(script, 'XtimerScript', 'D') let lines =<< trim END one two three four five and one two Xthree four five one more two three four five END call writefile(lines, 'Xtest', 'D') let buf = RunVimInTerminal('-S XtimerScript Xtest', {}) call term_sendkeys(buf, ":source $VIMRUNTIME/menu.vim\<CR>") call term_sendkeys(buf, "/X\<CR>:popup PopUp\<CR>") call VerifyScreenDump(buf, 'Test_popup_command_01', {}) " go to the Paste entry in the menu call term_sendkeys(buf, "jj") call VerifyScreenDump(buf, 'Test_popup_command_02', {}) " Select a word call term_sendkeys(buf, "j\<CR>") call VerifyScreenDump(buf, 'Test_popup_command_03', {}) call term_sendkeys(buf, "\<Esc>") " Set a timer to change a menu entry while it's displayed. The text should " not change but the command does. Making the screendump also verifies that " "changed" shows up, which means the timer triggered. call term_sendkeys(buf, "/X\<CR>:call StartTimer() | popup PopUp\<CR>") call VerifyScreenDump(buf, 'Test_popup_command_04', {}) " Select the Paste entry, executes the changed menu item. call term_sendkeys(buf, "jj\<CR>") call VerifyScreenDump(buf, 'Test_popup_command_05', {}) call term_sendkeys(buf, "\<Esc>") " Add a window toolbar to the window and check the :popup menu position. call term_sendkeys(buf, ":nnoremenu WinBar.TEST :\<CR>") call term_sendkeys(buf, "/X\<CR>:popup PopUp\<CR>") call VerifyScreenDump(buf, 'Test_popup_command_06', {}) call term_sendkeys(buf, "\<Esc>") call StopVimInTerminal(buf) endfunc func Test_popup_complete_backwards() new call setline(1, ['Post', 'Port', 'Po']) let expected=['Post', 'Port', 'Port'] call cursor(3,2) call feedkeys("A\<C-X>". repeat("\<C-P>", 3). "rt\<cr>", 'tx') call assert_equal(expected, getline(1,'$')) bwipe! endfunc func Test_popup_complete_backwards_ctrl_p() new call setline(1, ['Post', 'Port', 'Po']) let expected=['Post', 'Port', 'Port'] call cursor(3,2) call feedkeys("A\<C-P>\<C-N>rt\<cr>", 'tx') call assert_equal(expected, getline(1,'$')) bwipe! endfunc func Test_complete_o_tab() let s:o_char_pressed = 0 fun! s:act_on_text_changed() if s:o_char_pressed let s:o_char_pressed = 0 call feedkeys("\<c-x>\<c-n>", 'i') endif endfunc set completeopt=menu,noselect new imap <expr> <buffer> <tab> pumvisible() ? "\<c-p>" : "X" autocmd! InsertCharPre <buffer> let s:o_char_pressed = (v:char ==# 'o') autocmd! TextChangedI <buffer> call <sid>act_on_text_changed() call setline(1, ['hoard', 'hoax', 'hoarse', '']) let l:expected = ['hoard', 'hoax', 'hoarse', 'hoax', 'hoax'] call cursor(4,1) call test_override("char_avail", 1) call feedkeys("Ahoa\<tab>\<tab>\<c-y>\<esc>", 'tx') call feedkeys("oho\<tab>\<tab>\<c-y>\<esc>", 'tx') call assert_equal(l:expected, getline(1,'$')) call test_override("char_avail", 0) bwipe! set completeopt& delfunc s:act_on_text_changed endfunc func Test_menu_only_exists_in_terminal() CheckCommand tlmenu CheckNotGui tlnoremenu &Edit.&Paste<Tab>"+gP <C-W>"+ aunmenu * try popup Edit call assert_false(1, 'command should have failed') catch call assert_exception('E328:') endtry endfunc " This used to crash before patch 8.1.1424 func Test_popup_delete_when_shown() CheckFeature menu CheckNotGui func Func() popup Foo return "\<Ignore>" endfunc nmenu Foo.Bar : nnoremap <expr> <F2> Func() call feedkeys("\<F2>\<F2>\<Esc>", 'xt') delfunc Func nunmenu Foo.Bar nunmap <F2> endfunc func Test_popup_complete_info_01() new inoremap <buffer><F5> <C-R>=complete_info().mode<CR> func s:complTestEval() abort call complete(1, ['aa', 'ab']) return '' endfunc inoremap <buffer><F6> <C-R>=s:complTestEval()<CR> call writefile([ \ 'dummy dummy.txt 1', \], 'Xdummy.txt', 'D') setlocal tags=Xdummy.txt setlocal dictionary=Xdummy.txt setlocal thesaurus=Xdummy.txt setlocal omnifunc=syntaxcomplete#Complete setlocal completefunc=syntaxcomplete#Complete setlocal spell for [keys, mode_name] in [ \ ["", ''], \ ["\<C-X>", 'ctrl_x'], \ ["\<C-X>\<C-N>", 'keyword'], \ ["\<C-X>\<C-P>", 'keyword'], \ ["\<C-X>\<C-E>", 'scroll'], \ ["\<C-X>\<C-Y>", 'scroll'], \ ["\<C-X>\<C-E>\<C-E>\<C-Y>", 'scroll'], \ ["\<C-X>\<C-Y>\<C-E>\<C-Y>", 'scroll'], \ ["\<C-X>\<C-L>", 'whole_line'], \ ["\<C-X>\<C-F>", 'files'], \ ["\<C-X>\<C-]>", 'tags'], \ ["\<C-X>\<C-D>", 'path_defines'], \ ["\<C-X>\<C-I>", 'path_patterns'], \ ["\<C-X>\<C-K>", 'dictionary'], \ ["\<C-X>\<C-T>", 'thesaurus'], \ ["\<C-X>\<C-V>", 'cmdline'], \ ["\<C-X>\<C-U>", 'function'], \ ["\<C-X>\<C-O>", 'omni'], \ ["\<C-X>s", 'spell'], \ ["\<F6>", 'eval'], \] call feedkeys("i" . keys . "\<F5>\<Esc>", 'tx') call assert_equal(mode_name, getline('.')) %d endfor bwipe! endfunc func UserDefinedComplete(findstart, base) if a:findstart return 0 else return [ \ { 'word': 'Jan', 'menu': 'January' }, \ { 'word': 'Feb', 'menu': 'February' }, \ { 'word': 'Mar', 'menu': 'March' }, \ { 'word': 'Apr', 'menu': 'April' }, \ { 'word': 'May', 'menu': 'May' }, \ ] endif endfunc func GetCompleteInfo() if empty(g:compl_what) let g:compl_info = complete_info() else let g:compl_info = g:compl_what->complete_info() endif return '' endfunc func Test_popup_complete_info_02() new inoremap <buffer><F5> <C-R>=GetCompleteInfo()<CR> setlocal completefunc=UserDefinedComplete let d = { \ 'mode': 'function', \ 'pum_visible': 1, \ 'items': [ \ {'word': 'Jan', 'menu': 'January', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}, \ {'word': 'Feb', 'menu': 'February', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}, \ {'word': 'Mar', 'menu': 'March', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}, \ {'word': 'Apr', 'menu': 'April', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}, \ {'word': 'May', 'menu': 'May', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''} \ ], \ 'selected': 0, \ } let g:compl_what = [] call feedkeys("i\<C-X>\<C-U>\<F5>", 'tx') call assert_equal(d, g:compl_info) let g:compl_what = ['mode', 'pum_visible', 'selected'] call remove(d, 'items') call feedkeys("i\<C-X>\<C-U>\<F5>", 'tx') call assert_equal(d, g:compl_info) let g:compl_what = ['mode'] call remove(d, 'selected') call remove(d, 'pum_visible') call feedkeys("i\<C-X>\<C-U>\<F5>", 'tx') call assert_equal(d, g:compl_info) bwipe! endfunc func Test_popup_complete_info_no_pum() new call assert_false( pumvisible() ) let no_pum_info = complete_info() let d = { \ 'mode': '', \ 'pum_visible': 0, \ 'items': [], \ 'selected': -1, \ } call assert_equal( d, complete_info() ) bwipe! endfunc func Test_CompleteChanged() new call setline(1, ['foo', 'bar', 'foobar', '']) set complete=. completeopt=noinsert,noselect,menuone function! OnPumChange() let g:event = copy(v:event) let g:item = get(v:event, 'completed_item', {}) let g:word = get(g:item, 'word', v:null) endfunction augroup AAAAA_Group au! autocmd CompleteChanged * :call OnPumChange() augroup END call cursor(4, 1) call feedkeys("Sf\<C-N>", 'tx') call assert_equal({'completed_item': {}, 'width': 15, \ 'height': 2, 'size': 2, \ 'col': 0, 'row': 4, 'scrollbar': v:false}, g:event) call feedkeys("a\<C-N>\<C-N>\<C-E>", 'tx') call assert_equal('foo', g:word) call feedkeys("a\<C-N>\<C-N>\<C-N>\<C-E>", 'tx') call assert_equal('foobar', g:word) call feedkeys("a\<C-N>\<C-N>\<C-N>\<C-N>\<C-E>", 'tx') call assert_equal(v:null, g:word) call feedkeys("a\<C-N>\<C-N>\<C-N>\<C-N>\<C-P>", 'tx') call assert_equal('foobar', g:word) autocmd! AAAAA_Group set complete& completeopt& delfunc! OnPumChange bw! endfunc func GetPumPosition() call assert_true( pumvisible() ) let g:pum_pos = pum_getpos() return '' endfunc func Test_pum_getpos() new inoremap <buffer><F5> <C-R>=GetPumPosition()<CR> setlocal completefunc=UserDefinedComplete let d = { \ 'height': 5, \ 'width': 15, \ 'row': 1, \ 'col': 0, \ 'size': 5, \ 'scrollbar': v:false, \ } call feedkeys("i\<C-X>\<C-U>\<F5>", 'tx') call assert_equal(d, g:pum_pos) call assert_false( pumvisible() ) call assert_equal( {}, pum_getpos() ) bw! unlet g:pum_pos endfunc " Test for the popup menu with the 'rightleft' option set func Test_pum_rightleft() CheckFeature rightleft CheckScreendump let lines =<< trim END abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz vim victory END call writefile(lines, 'Xtest1', 'D') let buf = RunVimInTerminal('--cmd "set rightleft" Xtest1', {}) call term_sendkeys(buf, "Go\<C-P>") call VerifyScreenDump(buf, 'Test_pum_rightleft_01', {'rows': 8}) call term_sendkeys(buf, "\<C-P>\<C-Y>") call TermWait(buf, 30) redraw! call WaitForAssert({-> assert_match('\s*miv', Screenline(5))}) " Test for expanding tabs to spaces in the popup menu let lines =<< trim END one two one three four END call writefile(lines, 'Xtest2', 'D') call term_sendkeys(buf, "\<Esc>:e! Xtest2\<CR>") call TermWait(buf, 30) call term_sendkeys(buf, "Goone\<C-X>\<C-L>") call TermWait(buf, 30) redraw! call VerifyScreenDump(buf, 'Test_pum_rightleft_02', {'rows': 7}) call term_sendkeys(buf, "\<C-Y>") call TermWait(buf, 30) redraw! call WaitForAssert({-> assert_match('\s*eerht eno', Screenline(4))}) call StopVimInTerminal(buf) endfunc " Test for a popup menu with a scrollbar func Test_pum_scrollbar() CheckScreendump let lines =<< trim END one two three END call writefile(lines, 'Xtest1', 'D') let buf = RunVimInTerminal('--cmd "set pumheight=2" Xtest1', {}) call TermWait(buf) call term_sendkeys(buf, "Go\<C-P>\<C-P>\<C-P>") call VerifyScreenDump(buf, 'Test_pum_scrollbar_01', {'rows': 7}) call term_sendkeys(buf, "\<C-E>\<Esc>dd") call TermWait(buf) if has('rightleft') call term_sendkeys(buf, ":set rightleft\<CR>") call TermWait(buf) call term_sendkeys(buf, "Go\<C-P>\<C-P>\<C-P>") call VerifyScreenDump(buf, 'Test_pum_scrollbar_02', {'rows': 7}) endif call StopVimInTerminal(buf) endfunc " Test default highlight groups for popup menu func Test_pum_highlights_default() CheckScreendump let lines =<< trim END func CompleteFunc( findstart, base ) if a:findstart return 0 endif return { \ 'words': [ \ { 'word': 'aword1', 'menu': 'extra text 1', 'kind': 'W', }, \ { 'word': 'aword2', 'menu': 'extra text 2', 'kind': 'W', }, \ { 'word': 'aword3', 'menu': 'extra text 3', 'kind': 'W', }, \]} endfunc set completeopt=menu set completefunc=CompleteFunc END call writefile(lines, 'Xscript', 'D') let buf = RunVimInTerminal('-S Xscript', {}) call TermWait(buf) call term_sendkeys(buf, "iaw\<C-X>\<C-u>") call TermWait(buf, 50) call VerifyScreenDump(buf, 'Test_pum_highlights_01', {}) call term_sendkeys(buf, "\<C-E>\<Esc>u") call TermWait(buf) call StopVimInTerminal(buf) endfunc " Test custom highlight groups for popup menu func Test_pum_highlights_custom() CheckScreendump let lines =<< trim END func CompleteFunc( findstart, base ) if a:findstart return 0 endif return { \ 'words': [ \ { 'word': 'aword1', 'menu': 'extra text 1', 'kind': 'W', }, \ { 'word': 'aword2', 'menu': 'extra text 2', 'kind': 'W', }, \ { 'word': 'aword3', 'menu': 'extra text 3', 'kind': 'W', }, \]} endfunc set completeopt=menu set completefunc=CompleteFunc hi PmenuKind ctermfg=1 ctermbg=225 hi PmenuKindSel ctermfg=1 ctermbg=7 hi PmenuExtra ctermfg=243 ctermbg=225 hi PmenuExtraSel ctermfg=0 ctermbg=7 END call writefile(lines, 'Xscript', 'D') let buf = RunVimInTerminal('-S Xscript', {}) call TermWait(buf) call term_sendkeys(buf, "iaw\<C-X>\<C-u>") call TermWait(buf, 50) call VerifyScreenDump(buf, 'Test_pum_highlights_02', {}) call term_sendkeys(buf, "\<C-E>\<Esc>u") call TermWait(buf) call StopVimInTerminal(buf) endfunc " vim: shiftwidth=2 sts=2 expandtab