" Test for completion menu source util/screendump.mnv 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 to complete the currently typed char, MNV " still stays in the first state of the completion (:h ins-completion-menu), " although the popupmenu wasn't shown will remove the inserted " completed text (:h complete_CTRL-E), while the following will behave " like expected (:h i_CTRL-E) new inoremap

=ListMonths() call append(1, ["December2015"]) :1 call feedkeys("aD\\\\\\\", 'tx') call assert_equal(["Dece", "", "December2015"], getline(1,3)) %d bw! endfunc func Test_popup_complete() new inoremap

=ListMonths() " - select original typed text before the completion started call feedkeys("aJu\\\\", 'tx') call assert_equal(["Ju"], getline(1,2)) %d " - accept current match call feedkeys("a\". repeat("\",7). "\\", 'tx') call assert_equal(["August"], getline(1,2)) %d " - 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 call feedkeys("aJ\\\\", '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\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\\l\", '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\\l\\", '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\\l\", 'tx') call assert_equal(["Jul"], getline(1,2)) %d " - Delete one character from the inserted text (state: 2) call feedkeys("a\\\", 'tx') call assert_equal(["Februar"], getline(1,2)) %d " - Insert one character from the current match call feedkeys("aJ\".repeat("\",3)."\\", 'tx') call assert_equal(["J"], getline(1,2)) %d " - Insert one character from the current match call feedkeys("aJ\".repeat("\",4)."\\", 'tx') call assert_equal(["January"], getline(1,2)) %d " - Accept current selected match call feedkeys("aJ\\\", 'tx') call assert_equal(["January"], getline(1,2)) %d " - End completion, go back to what was there before selecting a match call feedkeys("aJu\\\", 'tx') call assert_equal(["Ju"], getline(1,2)) %d " - Select a match several entries back call feedkeys("a\\\\", 'tx') call assert_equal([""], getline(1,2)) %d " - Select a match several entries back call feedkeys("a\\\\\", 'tx') call assert_equal(["December"], getline(1,2)) %d " - Select a match several entries back call feedkeys("a\\\\\\", 'tx') call assert_equal(["February"], getline(1,2)) %d " - Select a match several entries further call feedkeys("a\\\\", 'tx') call assert_equal(["November"], getline(1,2)) %d " - Select a match several entries further call feedkeys("a\\\\\", 'tx') call assert_equal(["December"], getline(1,2)) %d " - Select a match several entries further call feedkeys("a\\\\\\", 'tx') call assert_equal([""], getline(1,2)) %d " - Select a match several entries further call feedkeys("a\".repeat("\",4)."\\", 'tx') call assert_equal(["October"], getline(1,2)) %d " - Select a match don't insert yet call feedkeys("a\\\\", 'tx') call assert_equal([""], getline(1,2)) %d " - Select a match don't insert yet call feedkeys("a\\\\\", 'tx') call assert_equal(["December"], getline(1,2)) %d " - Select a match don't insert yet call feedkeys("a\\\\\\", 'tx') call assert_equal(["November"], getline(1,2)) %d " - Stop completion and insert the match call feedkeys("a\\\\", 'tx') call assert_equal(["January "], getline(1,2)) %d " - Stop completion and insert the match call feedkeys("a\".repeat("\",5)." \", 'tx') call assert_equal(["September "], getline(1,2)) %d " - Use the text and insert line break (state: 1) call feedkeys("a\\\", 'tx') call assert_equal(["January", ''], getline(1,2)) %d " - Insert the current selected text (state: 2) call feedkeys("a\".repeat("\",5)."\\", 'tx') call assert_equal(["September"], getline(1,2)) %d " Insert match immediately, if there is only one match " selects a character from the line above call append(0, ["December2015"]) call feedkeys("aD\\\\\\\", 'tx') call assert_equal(["December2015", "December2015", ""], getline(1,3)) %d " use menuone for 'completeopt' " Since for the first the menu is still shown, will only select " three letters from the line above set completeopt&mnv set completeopt+=menuone call append(0, ["December2015"]) call feedkeys("aD\\\\\\\", 'tx') call assert_equal(["December2015", "December201", ""], getline(1,3)) %d " use longest for 'completeopt' set completeopt&mnv call feedkeys("aM\\\\\\", 'tx') set completeopt+=longest call feedkeys("aM\\\\\\", 'tx') call assert_equal(["M", "Ma", ""], getline(1,3)) %d " use noselect/noinsert for 'completeopt' set completeopt&mnv call feedkeys("aM\\\", 'tx') set completeopt+=noselect call feedkeys("aM\\\", 'tx') set completeopt-=noselect completeopt+=noinsert call feedkeys("aM\\\", 'tx') call assert_equal(["March", "M", "March"], getline(1,4)) %d set completeopt& endfunc func Test_popup_completion_insertmode() new inoremap

=ListMonths() call feedkeys("a\\\\", 'tx') call assert_equal('February', getline(1)) %d " Set noinsertmode let g:setting = 'noinsertmode' call feedkeys("a\\\\", '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\". repeat("\",12)."\\", 'tx') call assert_equal('', getline(1)) %d " select previous entry call feedkeys("a\\\\", 'tx') call assert_equal('', getline(1)) %d " select last entry call feedkeys("a\\\\\", 'tx') call assert_equal('December', getline(1)) iunmap 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

=s:complTest1() call feedkeys("i\soun\\\.", 'tx') call assert_equal('soundfold', getline(1)) call assert_equal('soundfold', getline(2)) bwipe! new inoremap

=s:complTest2() call feedkeys("i\\\", 'tx') call assert_equal('source', getline(1)) bwipe! set completeopt-=noinsert iunmap 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

=s:complTest1() call feedkeys("i\z\\\.", 'tx') call assert_equal('z', getline(1)) bwipe! " with equal=1 new set completeopt=menuone,noinsert,menu inoremap

=s:complTest2() call feedkeys("i\z\\\.", 'tx') call assert_equal('foobar', getline(1)) bwipe! let &completeopt = completeopt iunmap endfunc func Test_compl_mnv_cmds_after_register_expr() func! s:test_func() return 'autocmd ' endfunc augroup AAAAA_Group au! augroup END new call feedkeys("i\=s:test_func()\\\\", '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) inoremap (C-N) normal! G call feedkeys("o\\\\\\\", 'tx') call assert_equal('baz', getline('.')) " Also test with unsimplified keys call feedkeys("o\\<*C-N>\<*C-N>\<*C-N>\<*C-P>\<*C-N>\", 'tx') call assert_equal('baz', getline('.')) iunmap iunmap 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\\\\", "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\\\\", "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\\\\", "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\\\\", "x") call assert_equal('four2', getline(1)) call setline(1, 'four') /^four call feedkeys("A\\\\\", "x") call assert_equal('four3', getline(1)) call setline(1, 'four') /^four call feedkeys("A\\\\\\\", "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

=UndoComplete() new call feedkeys("ixxx\\yyy\k", 'xt') call feedkeys("iaaa\0", 'xt') call assert_equal('aaa', getline(2)) call feedkeys("i\\", 'xt') call assert_equal('aaa', getline(2)) call feedkeys("u", 'xt') call assert_equal('', getline(2)) call feedkeys("ibbb\0", 'xt') call assert_equal('bbb', getline(2)) call feedkeys("A\\\\", 'xt') call assert_equal('January', getline(2)) call feedkeys("u", 'xt') call assert_equal('bbb', getline(2)) call feedkeys("A\\\", 'xt') call assert_equal('January', getline(2)) call feedkeys("u", 'xt') call assert_equal('bbb', getline(2)) iunmap 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\\\\\\", "x") call assert_equal(['April'], getline(1, '$')) pclose q! set completeopt& endfunc " - 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\\\\", "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\\=DummyCompleteSix()\", "tx") call assert_equal('Hello', getline(1)) %d " select second entry from the completion popup call feedkeys("a xxx\\=DummyCompleteSix()\\", "tx") call assert_equal('World', getline(1)) %d " select original text call feedkeys("a xxx\\=DummyCompleteSix()\\\", "tx") call assert_equal(' xxx', getline(1)) %d " back at first entry from completion list call feedkeys("a xxx\\=DummyCompleteSix()\\\\", "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\\\\\\\", "tx") call assert_equal('aaa', getline(1)) %d set bs=indent,eol,start call setline(1, li) 1 call feedkeys("A\\\\\\\", "tx") call assert_equal('', getline(1)) bw! endfunc func CompleteUndo() abort call complete(1, g:months) return '' endfunc func Test_completion_can_undo() inoremap

=CompleteUndo() set completeopt+=noinsert,noselect new call feedkeys("a\a\", 'xt') call assert_equal('a', getline(1)) undo call assert_equal('', getline(1)) bwipe! set completeopt& iunmap endfunc func Test_completion_comment_formatting() new setl formatoptions=tcqro call feedkeys("o/*\\/\", 'tx') call assert_equal(['', '/*', ' *', ' */'], getline(1,4)) %d call feedkeys("o/*\foobar\/\", 'tx') call assert_equal(['', '/*', ' * foobar', ' */'], getline(1,4)) %d try call feedkeys("o/*\\\\/\", '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\\/\", "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\\.\3wdW\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([GetMNVProg(), '--clean', '-c', 'set noswapfile'], {'term_rows': rows}) call term_sendkeys(buf, (h / 3 - 1) . "o\") " Wait for the nested MNV 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\") call term_sendkeys(buf, "\") 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 MNV 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\\\\\\\", '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 s:run_popup_and_previewwindow_dump(lines, dumpfile) CheckScreendump CheckFeature quickfix call writefile(a:lines, 'Xscript', 'D') let buf = RunMNVInTerminal('-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, "\\") call VerifyScreenDump(buf, a:dumpfile, {}) call term_sendkeys(buf, "\u") call StopMNVInTerminal(buf) endfunc func Test_popup_and_previewwindow_dump_pedit() let lines =<< trim END set previewheight=9 silent! pedit call setline(1, map(repeat(["ab"], 10), "v:val .. v:key")) exec "norm! G\\" END call s:run_popup_and_previewwindow_dump(lines, 'Test_popup_and_previewwindow_pedit') endfunc func Test_popup_and_previewwindow_dump_pbuffer() let lines =<< trim END set previewheight=9 silent! pbuffer call setline(1, map(repeat(["ab"], 10), "v:val .. v:key")) exec "norm! G\\\" END call s:run_popup_and_previewwindow_dump(lines, 'Test_popup_and_previewwindow_pbuffer') endfunc func Test_balloon_split() CheckFunction balloon_split call assert_equal([ \ 'tempname: 0x555555e380a0 "/home/mool/.mnvinfz.tmp"', \ ], balloon_split( \ 'tempname: 0x555555e380a0 "/home/mool/.mnvinfz.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 = RunMNVInTerminal('Xtest', {'cols': 75}) call term_sendkeys(buf, ":vsplit\") " default pumwidth in left window: overlap in right window call term_sendkeys(buf, "GA\") call VerifyScreenDump(buf, 'Test_popup_position_01', {'rows': 8}) call term_sendkeys(buf, "\u") " default pumwidth: fill until right of window call term_sendkeys(buf, "\l") call term_sendkeys(buf, "GA\") call VerifyScreenDump(buf, 'Test_popup_position_02', {'rows': 8}) " larger pumwidth: used as minimum width call term_sendkeys(buf, "\u") call term_sendkeys(buf, ":set pumwidth=30\