blob: b1a2a9e307ec54b34e79c5c97bf7b2c9c8af74f1 [file] [log] [blame]
Bram Moolenaar6d91bcb2020-08-12 18:50:36 +02001" Test for insert completion
2
Bram Moolenaar09dd2bb2019-12-14 18:42:15 +01003source screendump.vim
Bram Moolenaar50f91d22019-08-02 19:52:15 +02004source check.vim
Bram Moolenaar15993ce2017-10-26 20:21:44 +02005
6" Test for insert expansion
7func Test_ins_complete()
Bram Moolenaarcf1ba352017-10-27 00:55:04 +02008 edit test_ins_complete.vim
Bram Moolenaarfb094e12017-11-05 20:59:28 +01009 " The files in the current directory interferes with the files
10 " used by this test. So use a separate directory for the test.
11 call mkdir('Xdir')
12 cd Xdir
13
Bram Moolenaar15993ce2017-10-26 20:21:44 +020014 set ff=unix
15 call writefile(["test11\t36Gepeto\t/Tag/",
16 \ "asd\ttest11file\t36G",
17 \ "Makefile\tto\trun"], 'Xtestfile')
18 call writefile(['', 'start of testfile',
19 \ 'ru',
20 \ 'run1',
21 \ 'run2',
22 \ 'STARTTEST',
23 \ 'ENDTEST',
24 \ 'end of testfile'], 'Xtestdata')
25 set ff&
26
27 enew!
28 edit Xtestdata
29 new
30 call append(0, ['#include "Xtestfile"', ''])
31 call cursor(2, 1)
32
33 set cot=
34 set cpt=.,w
35 " add-expands (word from next line) from other window
36 exe "normal iru\<C-N>\<C-N>\<C-X>\<C-N>\<Esc>\<C-A>"
37 call assert_equal('run1 run3', getline('.'))
38 " add-expands (current buffer first)
39 exe "normal o\<C-P>\<C-X>\<C-N>"
40 call assert_equal('run3 run3', getline('.'))
41 " Local expansion, ends in an empty line (unless it becomes a global
42 " expansion)
43 exe "normal o\<C-X>\<C-P>\<C-P>\<C-P>\<C-P>\<C-P>"
44 call assert_equal('', getline('.'))
45 " starts Local and switches to global add-expansion
46 exe "normal o\<C-X>\<C-P>\<C-P>\<C-X>\<C-X>\<C-N>\<C-X>\<C-N>\<C-N>"
47 call assert_equal('run1 run2', getline('.'))
48
49 set cpt=.,w,i
50 " i-add-expands and switches to local
51 exe "normal OM\<C-N>\<C-X>\<C-N>\<C-X>\<C-N>\<C-X>\<C-X>\<C-X>\<C-P>"
52 call assert_equal("Makefile\tto\trun3", getline('.'))
53 " add-expands lines (it would end in an empty line if it didn't ignored
54 " itself)
55 exe "normal o\<C-X>\<C-L>\<C-X>\<C-L>\<C-P>\<C-P>"
56 call assert_equal("Makefile\tto\trun3", getline('.'))
57 call assert_equal("Makefile\tto\trun3", getline(line('.') - 1))
58
59 set cpt=kXtestfile
60 " checks k-expansion, and file expansion (use Xtest11 instead of test11,
61 " because TEST11.OUT may match first on DOS)
62 write Xtest11.one
63 write Xtest11.two
64 exe "normal o\<C-N>\<Esc>IX\<Esc>A\<C-X>\<C-F>\<C-N>"
65 call assert_equal('Xtest11.two', getline('.'))
66
67 " use CTRL-X CTRL-F to complete Xtest11.one, remove it and then use CTRL-X
68 " CTRL-F again to verify this doesn't cause trouble.
69 exe "normal oXt\<C-X>\<C-F>\<BS>\<BS>\<BS>\<BS>\<BS>\<BS>\<BS>\<BS>\<C-X>\<C-F>"
70 call assert_equal('Xtest11.one', getline('.'))
71 normal ddk
72
73 set cpt=w
74 " checks make_cyclic in other window
75 exe "normal oST\<C-N>\<C-P>\<C-P>\<C-P>\<C-P>"
76 call assert_equal('STARTTEST', getline('.'))
77
78 set cpt=u nohid
79 " checks unloaded buffer expansion
80 only
81 exe "normal oEN\<C-N>"
82 call assert_equal('ENDTEST', getline('.'))
83 " checks adding mode abortion
84 exe "normal ounl\<C-N>\<C-X>\<C-X>\<C-P>"
85 call assert_equal('unless', getline('.'))
86
87 set cpt=t,d def=^\\k* tags=Xtestfile notagbsearch
88 " tag expansion, define add-expansion interrupted
89 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>"
90 call assert_equal('test11file 36Gepeto /Tag/ asd', getline('.'))
91 " t-expansion
92 exe "normal oa\<C-N>\<Esc>"
93 call assert_equal('asd', getline('.'))
94
95 %bw!
96 call delete('Xtestfile')
97 call delete('Xtest11.one')
98 call delete('Xtest11.two')
99 call delete('Xtestdata')
100 set cpt& cot& def& tags& tagbsearch& hidden&
Bram Moolenaarfb094e12017-11-05 20:59:28 +0100101 cd ..
102 call delete('Xdir', 'rf')
Bram Moolenaar15993ce2017-10-26 20:21:44 +0200103endfunc
Bram Moolenaarffd99f72017-11-02 15:44:14 +0100104
105func Test_omni_dash()
106 func Omni(findstart, base)
107 if a:findstart
108 return 5
109 else
110 echom a:base
111 return ['-help', '-v']
112 endif
113 endfunc
114 set omnifunc=Omni
115 new
116 exe "normal Gofind -\<C-x>\<C-o>"
Bram Moolenaarcc233582020-12-12 13:32:07 +0100117 call assert_equal("find -help", getline('$'))
Bram Moolenaarffd99f72017-11-02 15:44:14 +0100118
119 bwipe!
120 delfunc Omni
121 set omnifunc=
122endfunc
Bram Moolenaar02ae9b42018-02-09 15:06:02 +0100123
Bram Moolenaarffa96842018-06-12 22:05:14 +0200124func Test_completefunc_args()
125 let s:args = []
126 func! CompleteFunc(findstart, base)
127 let s:args += [[a:findstart, empty(a:base)]]
128 endfunc
129 new
130
131 set completefunc=CompleteFunc
132 call feedkeys("i\<C-X>\<C-U>\<Esc>", 'x')
Bram Moolenaar52d3aae2018-06-13 21:27:24 +0200133 call assert_equal([1, 1], s:args[0])
134 call assert_equal(0, s:args[1][0])
Bram Moolenaarffa96842018-06-12 22:05:14 +0200135 set completefunc=
136
137 let s:args = []
138 set omnifunc=CompleteFunc
139 call feedkeys("i\<C-X>\<C-O>\<Esc>", 'x')
Bram Moolenaar52d3aae2018-06-13 21:27:24 +0200140 call assert_equal([1, 1], s:args[0])
141 call assert_equal(0, s:args[1][0])
Bram Moolenaarffa96842018-06-12 22:05:14 +0200142 set omnifunc=
143
144 bwipe!
145 unlet s:args
146 delfunc CompleteFunc
147endfunc
148
Bram Moolenaarcee9bc22019-01-11 13:02:23 +0100149func s:CompleteDone_CompleteFuncNone( findstart, base )
150 if a:findstart
151 return 0
152 endif
153
154 return v:none
155endfunc
156
Bram Moolenaar1e115362019-01-09 23:01:02 +0100157func s:CompleteDone_CompleteFuncDict( findstart, base )
Bram Moolenaar9b56a572018-02-10 16:19:32 +0100158 if a:findstart
159 return 0
160 endif
161
162 return {
Bram Moolenaar08928322020-01-04 14:32:48 +0100163 \ 'words': [
164 \ {
165 \ 'word': 'aword',
166 \ 'abbr': 'wrd',
167 \ 'menu': 'extra text',
168 \ 'info': 'words are cool',
169 \ 'kind': 'W',
170 \ 'user_data': 'test'
171 \ }
172 \ ]
173 \ }
Bram Moolenaar1e115362019-01-09 23:01:02 +0100174endfunc
Bram Moolenaar9b56a572018-02-10 16:19:32 +0100175
Bram Moolenaarcee9bc22019-01-11 13:02:23 +0100176func s:CompleteDone_CheckCompletedItemNone()
177 let s:called_completedone = 1
178endfunc
179
Bram Moolenaar3f169ce2020-01-26 22:43:31 +0100180func s:CompleteDone_CheckCompletedItemDict(pre)
Bram Moolenaar9b56a572018-02-10 16:19:32 +0100181 call assert_equal( 'aword', v:completed_item[ 'word' ] )
182 call assert_equal( 'wrd', v:completed_item[ 'abbr' ] )
183 call assert_equal( 'extra text', v:completed_item[ 'menu' ] )
184 call assert_equal( 'words are cool', v:completed_item[ 'info' ] )
185 call assert_equal( 'W', v:completed_item[ 'kind' ] )
186 call assert_equal( 'test', v:completed_item[ 'user_data' ] )
187
Bram Moolenaar3f169ce2020-01-26 22:43:31 +0100188 if a:pre
189 call assert_equal('function', complete_info().mode)
190 endif
Bram Moolenaar17e04782020-01-17 18:58:59 +0100191
Bram Moolenaar9b56a572018-02-10 16:19:32 +0100192 let s:called_completedone = 1
Bram Moolenaar1e115362019-01-09 23:01:02 +0100193endfunc
Bram Moolenaar9b56a572018-02-10 16:19:32 +0100194
Bram Moolenaarcee9bc22019-01-11 13:02:23 +0100195func Test_CompleteDoneNone()
196 au CompleteDone * :call <SID>CompleteDone_CheckCompletedItemNone()
Bram Moolenaar9845f362019-04-08 18:59:54 +0200197 let oldline = join(map(range(&columns), 'nr2char(screenchar(&lines-1, v:val+1))'), '')
Bram Moolenaarcee9bc22019-01-11 13:02:23 +0100198
199 set completefunc=<SID>CompleteDone_CompleteFuncNone
200 execute "normal a\<C-X>\<C-U>\<C-Y>"
201 set completefunc&
Bram Moolenaar9845f362019-04-08 18:59:54 +0200202 let newline = join(map(range(&columns), 'nr2char(screenchar(&lines-1, v:val+1))'), '')
Bram Moolenaarcee9bc22019-01-11 13:02:23 +0100203
204 call assert_true(s:called_completedone)
Bram Moolenaar9845f362019-04-08 18:59:54 +0200205 call assert_equal(oldline, newline)
Bram Moolenaarcee9bc22019-01-11 13:02:23 +0100206
207 let s:called_completedone = 0
208 au! CompleteDone
209endfunc
210
211func Test_CompleteDoneDict()
Bram Moolenaar3f169ce2020-01-26 22:43:31 +0100212 au CompleteDonePre * :call <SID>CompleteDone_CheckCompletedItemDict(1)
213 au CompleteDone * :call <SID>CompleteDone_CheckCompletedItemDict(0)
Bram Moolenaar9b56a572018-02-10 16:19:32 +0100214
215 set completefunc=<SID>CompleteDone_CompleteFuncDict
216 execute "normal a\<C-X>\<C-U>\<C-Y>"
217 set completefunc&
218
Bram Moolenaarcee9bc22019-01-11 13:02:23 +0100219 call assert_equal('test', v:completed_item[ 'user_data' ])
220 call assert_true(s:called_completedone)
Bram Moolenaar9b56a572018-02-10 16:19:32 +0100221
222 let s:called_completedone = 0
223 au! CompleteDone
224endfunc
225
Bram Moolenaarcee9bc22019-01-11 13:02:23 +0100226func s:CompleteDone_CompleteFuncDictNoUserData(findstart, base)
Bram Moolenaar9b56a572018-02-10 16:19:32 +0100227 if a:findstart
228 return 0
229 endif
230
231 return {
Bram Moolenaar08928322020-01-04 14:32:48 +0100232 \ 'words': [
233 \ {
234 \ 'word': 'aword',
235 \ 'abbr': 'wrd',
236 \ 'menu': 'extra text',
237 \ 'info': 'words are cool',
238 \ 'kind': 'W',
239 \ 'user_data': ['one', 'two'],
240 \ }
241 \ ]
242 \ }
Bram Moolenaar1e115362019-01-09 23:01:02 +0100243endfunc
Bram Moolenaar9b56a572018-02-10 16:19:32 +0100244
Bram Moolenaar1e115362019-01-09 23:01:02 +0100245func s:CompleteDone_CheckCompletedItemDictNoUserData()
Bram Moolenaar9b56a572018-02-10 16:19:32 +0100246 call assert_equal( 'aword', v:completed_item[ 'word' ] )
247 call assert_equal( 'wrd', v:completed_item[ 'abbr' ] )
248 call assert_equal( 'extra text', v:completed_item[ 'menu' ] )
249 call assert_equal( 'words are cool', v:completed_item[ 'info' ] )
250 call assert_equal( 'W', v:completed_item[ 'kind' ] )
Bram Moolenaar08928322020-01-04 14:32:48 +0100251 call assert_equal( ['one', 'two'], v:completed_item[ 'user_data' ] )
Bram Moolenaar9b56a572018-02-10 16:19:32 +0100252
253 let s:called_completedone = 1
Bram Moolenaar1e115362019-01-09 23:01:02 +0100254endfunc
Bram Moolenaar9b56a572018-02-10 16:19:32 +0100255
Bram Moolenaarcee9bc22019-01-11 13:02:23 +0100256func Test_CompleteDoneDictNoUserData()
Bram Moolenaar9b56a572018-02-10 16:19:32 +0100257 au CompleteDone * :call <SID>CompleteDone_CheckCompletedItemDictNoUserData()
258
259 set completefunc=<SID>CompleteDone_CompleteFuncDictNoUserData
260 execute "normal a\<C-X>\<C-U>\<C-Y>"
261 set completefunc&
262
Bram Moolenaar08928322020-01-04 14:32:48 +0100263 call assert_equal(['one', 'two'], v:completed_item[ 'user_data' ])
Bram Moolenaarcee9bc22019-01-11 13:02:23 +0100264 call assert_true(s:called_completedone)
Bram Moolenaar9b56a572018-02-10 16:19:32 +0100265
266 let s:called_completedone = 0
267 au! CompleteDone
268endfunc
269
Bram Moolenaarcee9bc22019-01-11 13:02:23 +0100270func s:CompleteDone_CompleteFuncList(findstart, base)
Bram Moolenaar9b56a572018-02-10 16:19:32 +0100271 if a:findstart
272 return 0
273 endif
274
275 return [ 'aword' ]
Bram Moolenaar1e115362019-01-09 23:01:02 +0100276endfunc
Bram Moolenaar9b56a572018-02-10 16:19:32 +0100277
Bram Moolenaar1e115362019-01-09 23:01:02 +0100278func s:CompleteDone_CheckCompletedItemList()
Bram Moolenaar9b56a572018-02-10 16:19:32 +0100279 call assert_equal( 'aword', v:completed_item[ 'word' ] )
280 call assert_equal( '', v:completed_item[ 'abbr' ] )
281 call assert_equal( '', v:completed_item[ 'menu' ] )
282 call assert_equal( '', v:completed_item[ 'info' ] )
283 call assert_equal( '', v:completed_item[ 'kind' ] )
284 call assert_equal( '', v:completed_item[ 'user_data' ] )
285
286 let s:called_completedone = 1
Bram Moolenaar1e115362019-01-09 23:01:02 +0100287endfunc
Bram Moolenaar9b56a572018-02-10 16:19:32 +0100288
Bram Moolenaarcee9bc22019-01-11 13:02:23 +0100289func Test_CompleteDoneList()
Bram Moolenaar9b56a572018-02-10 16:19:32 +0100290 au CompleteDone * :call <SID>CompleteDone_CheckCompletedItemList()
291
292 set completefunc=<SID>CompleteDone_CompleteFuncList
293 execute "normal a\<C-X>\<C-U>\<C-Y>"
294 set completefunc&
295
Bram Moolenaarcee9bc22019-01-11 13:02:23 +0100296 call assert_equal('', v:completed_item[ 'user_data' ])
297 call assert_true(s:called_completedone)
Bram Moolenaar9b56a572018-02-10 16:19:32 +0100298
299 let s:called_completedone = 0
300 au! CompleteDone
301endfunc
302
Bram Moolenaaraf559d22018-08-08 22:55:41 +0200303func Test_CompleteDone_undo()
304 au CompleteDone * call append(0, "prepend1")
305 new
306 call setline(1, ["line1", "line2"])
307 call feedkeys("Go\<C-X>\<C-N>\<CR>\<ESC>", "tx")
308 call assert_equal(["prepend1", "line1", "line2", "line1", ""],
309 \ getline(1, '$'))
310 undo
311 call assert_equal(["line1", "line2"], getline(1, '$'))
312 bwipe!
313 au! CompleteDone
314endfunc
315
Bram Moolenaarb806aa52020-09-12 22:52:57 +0200316func CompleteTest(findstart, query)
317 if a:findstart
318 return col('.')
319 endif
320 return ['matched']
321endfunc
322
323func Test_completefunc_info()
324 new
325 set completeopt=menuone
326 set completefunc=CompleteTest
327 call feedkeys("i\<C-X>\<C-U>\<C-R>\<C-R>=string(complete_info())\<CR>\<ESC>", "tx")
Bram Moolenaarf9d51352020-10-26 19:22:42 +0100328 call assert_equal("matched{'pum_visible': 1, 'mode': 'function', 'selected': 0, 'items': [{'word': 'matched', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}]}", getline(1))
Bram Moolenaarb806aa52020-09-12 22:52:57 +0200329 bwipe!
330 set completeopt&
331 set completefunc&
332endfunc
333
Bram Moolenaar02ae9b42018-02-09 15:06:02 +0100334" Check that when using feedkeys() typeahead does not interrupt searching for
335" completions.
336func Test_compl_feedkeys()
337 new
338 set completeopt=menuone,noselect
339 call feedkeys("ajump ju\<C-X>\<C-N>\<C-P>\<ESC>", "tx")
340 call assert_equal("jump jump", getline(1))
341 bwipe!
342 set completeopt&
343endfunc
Bram Moolenaarf03e3282019-07-22 21:55:18 +0200344
345func Test_compl_in_cmdwin()
346 set wildmenu wildchar=<Tab>
347 com! -nargs=1 -complete=command GetInput let input = <q-args>
348 com! -buffer TestCommand echo 'TestCommand'
Bram Moolenaar4ff2f2f2020-10-25 13:22:42 +0100349 let w:test_winvar = 'winvar'
350 let b:test_bufvar = 'bufvar'
Bram Moolenaarf03e3282019-07-22 21:55:18 +0200351
Bram Moolenaar4ff2f2f2020-10-25 13:22:42 +0100352 " User-defined commands
Bram Moolenaarf03e3282019-07-22 21:55:18 +0200353 let input = ''
354 call feedkeys("q:iGetInput T\<C-x>\<C-v>\<CR>", 'tx!')
355 call assert_equal('TestCommand', input)
356
357 let input = ''
358 call feedkeys("q::GetInput T\<Tab>\<CR>:q\<CR>", 'tx!')
359 call assert_equal('T', input)
360
Bram Moolenaar4ff2f2f2020-10-25 13:22:42 +0100361
362 com! -nargs=1 -complete=var GetInput let input = <q-args>
363 " Window-local variables
364 let input = ''
365 call feedkeys("q:iGetInput w:test_\<C-x>\<C-v>\<CR>", 'tx!')
366 call assert_equal('w:test_winvar', input)
367
368 let input = ''
369 call feedkeys("q::GetInput w:test_\<Tab>\<CR>:q\<CR>", 'tx!')
370 call assert_equal('w:test_', input)
371
372 " Buffer-local variables
373 let input = ''
374 call feedkeys("q:iGetInput b:test_\<C-x>\<C-v>\<CR>", 'tx!')
375 call assert_equal('b:test_bufvar', input)
376
377 let input = ''
378 call feedkeys("q::GetInput b:test_\<Tab>\<CR>:q\<CR>", 'tx!')
379 call assert_equal('b:test_', input)
380
Bram Moolenaarf03e3282019-07-22 21:55:18 +0200381 delcom TestCommand
382 delcom GetInput
Bram Moolenaar4ff2f2f2020-10-25 13:22:42 +0100383 unlet w:test_winvar
384 unlet b:test_bufvar
Bram Moolenaarf03e3282019-07-22 21:55:18 +0200385 set wildmenu& wildchar&
386endfunc
Bram Moolenaarac3150d2019-07-28 16:36:39 +0200387
388" Test for insert path completion with completeslash option
389func Test_ins_completeslash()
Bram Moolenaar50f91d22019-08-02 19:52:15 +0200390 CheckMSWindows
Bram Moolenaar8f187fc2020-09-26 18:47:11 +0200391
Bram Moolenaarac3150d2019-07-28 16:36:39 +0200392 call mkdir('Xdir')
Bram Moolenaarac3150d2019-07-28 16:36:39 +0200393 let orig_shellslash = &shellslash
394 set cpt&
Bram Moolenaarac3150d2019-07-28 16:36:39 +0200395 new
Bram Moolenaar8f187fc2020-09-26 18:47:11 +0200396
Bram Moolenaarac3150d2019-07-28 16:36:39 +0200397 set noshellslash
398
399 set completeslash=
400 exe "normal oXd\<C-X>\<C-F>"
401 call assert_equal('Xdir\', getline('.'))
402
403 set completeslash=backslash
404 exe "normal oXd\<C-X>\<C-F>"
405 call assert_equal('Xdir\', getline('.'))
406
407 set completeslash=slash
408 exe "normal oXd\<C-X>\<C-F>"
409 call assert_equal('Xdir/', getline('.'))
410
411 set shellslash
412
413 set completeslash=
414 exe "normal oXd\<C-X>\<C-F>"
415 call assert_equal('Xdir/', getline('.'))
416
417 set completeslash=backslash
418 exe "normal oXd\<C-X>\<C-F>"
419 call assert_equal('Xdir\', getline('.'))
420
421 set completeslash=slash
422 exe "normal oXd\<C-X>\<C-F>"
423 call assert_equal('Xdir/', getline('.'))
424 %bw!
425 call delete('Xdir', 'rf')
426
Bram Moolenaar50f91d22019-08-02 19:52:15 +0200427 set noshellslash
428 set completeslash=slash
429 call assert_true(stridx(globpath(&rtp, 'syntax/*.vim', 1, 1)[0], '\') != -1)
430
Bram Moolenaarac3150d2019-07-28 16:36:39 +0200431 let &shellslash = orig_shellslash
Bram Moolenaar50f91d22019-08-02 19:52:15 +0200432 set completeslash=
Bram Moolenaarac3150d2019-07-28 16:36:39 +0200433endfunc
434
Bram Moolenaard0e1b712020-09-27 20:13:03 +0200435func Test_pum_stopped_by_timer()
436 CheckScreendump
437
438 let lines =<< trim END
439 call setline(1, ['hello', 'hullo', 'heeee', ''])
440 func StartCompl()
441 call timer_start(100, { -> execute('stopinsert') })
442 call feedkeys("Gah\<C-N>")
443 endfunc
444 END
445
446 call writefile(lines, 'Xpumscript')
447 let buf = RunVimInTerminal('-S Xpumscript', #{rows: 12})
448 call term_sendkeys(buf, ":call StartCompl()\<CR>")
449 call TermWait(buf, 200)
450 call term_sendkeys(buf, "k")
451 call VerifyScreenDump(buf, 'Test_pum_stopped_by_timer', {})
452
453 call StopVimInTerminal(buf)
454 call delete('Xpumscript')
455endfunc
456
Bram Moolenaar09dd2bb2019-12-14 18:42:15 +0100457func Test_pum_with_folds_two_tabs()
458 CheckScreendump
459
460 let lines =<< trim END
461 set fdm=marker
462 call setline(1, ['" x {{{1', '" a some text'])
463 call setline(3, range(&lines)->map({_, val -> '" a' .. val}))
464 norm! zm
465 tab sp
466 call feedkeys('2Gzv', 'xt')
467 call feedkeys("0fa", 'xt')
468 END
469
470 call writefile(lines, 'Xpumscript')
471 let buf = RunVimInTerminal('-S Xpumscript', #{rows: 10})
Bram Moolenaar6a2c5a72020-04-08 21:50:25 +0200472 call TermWait(buf, 50)
Bram Moolenaar09dd2bb2019-12-14 18:42:15 +0100473 call term_sendkeys(buf, "a\<C-N>")
474 call VerifyScreenDump(buf, 'Test_pum_with_folds_two_tabs', {})
475
476 call term_sendkeys(buf, "\<Esc>")
477 call StopVimInTerminal(buf)
478 call delete('Xpumscript')
479endfunc
Bram Moolenaar5e5a98d2019-12-15 14:55:33 +0100480
481func Test_pum_with_preview_win()
482 CheckScreendump
483
484 let lines =<< trim END
485 funct Omni_test(findstart, base)
486 if a:findstart
487 return col(".") - 1
488 endif
489 return [#{word: "one", info: "1info"}, #{word: "two", info: "2info"}, #{word: "three", info: "3info"}]
490 endfunc
491 set omnifunc=Omni_test
492 set completeopt+=longest
493 END
494
495 call writefile(lines, 'Xpreviewscript')
496 let buf = RunVimInTerminal('-S Xpreviewscript', #{rows: 12})
Bram Moolenaar6a2c5a72020-04-08 21:50:25 +0200497 call TermWait(buf, 50)
Bram Moolenaar5e5a98d2019-12-15 14:55:33 +0100498 call term_sendkeys(buf, "Gi\<C-X>\<C-O>")
Bram Moolenaar6a2c5a72020-04-08 21:50:25 +0200499 call TermWait(buf, 100)
Bram Moolenaar5e5a98d2019-12-15 14:55:33 +0100500 call term_sendkeys(buf, "\<C-N>")
501 call VerifyScreenDump(buf, 'Test_pum_with_preview_win', {})
502
503 call term_sendkeys(buf, "\<Esc>")
504 call StopVimInTerminal(buf)
505 call delete('Xpreviewscript')
506endfunc
Bram Moolenaar830c1af2020-01-05 20:35:44 +0100507
508" Test for inserting the tag search pattern in insert mode
509func Test_ins_compl_tag_sft()
510 call writefile([
511 \ "!_TAG_FILE_ENCODING\tutf-8\t//",
512 \ "first\tXfoo\t/^int first() {}$/",
513 \ "second\tXfoo\t/^int second() {}$/",
514 \ "third\tXfoo\t/^int third() {}$/"],
515 \ 'Xtags')
516 set tags=Xtags
517 let code =<< trim [CODE]
518 int first() {}
519 int second() {}
520 int third() {}
521 [CODE]
522 call writefile(code, 'Xfoo')
523
524 enew
525 set showfulltag
526 exe "normal isec\<C-X>\<C-]>\<C-N>\<CR>"
527 call assert_equal('int second() {}', getline(1))
528 set noshowfulltag
529
530 call delete('Xtags')
531 call delete('Xfoo')
532 set tags&
533 %bwipe!
534endfunc
Bram Moolenaaree4e0c12020-04-06 21:35:05 +0200535
536" Test for 'completefunc' deleting text
537func Test_completefunc_error()
538 new
Bram Moolenaarad48e6c2020-04-21 22:19:45 +0200539 " delete text when called for the first time
Bram Moolenaaree4e0c12020-04-06 21:35:05 +0200540 func CompleteFunc(findstart, base)
541 if a:findstart == 1
542 normal dd
543 return col('.') - 1
544 endif
545 return ['a', 'b']
546 endfunc
547 set completefunc=CompleteFunc
548 call setline(1, ['', 'abcd', ''])
549 call assert_fails('exe "normal 2G$a\<C-X>\<C-U>"', 'E840:')
Bram Moolenaarad48e6c2020-04-21 22:19:45 +0200550
551 " delete text when called for the second time
552 func CompleteFunc2(findstart, base)
553 if a:findstart == 1
554 return col('.') - 1
555 endif
556 normal dd
557 return ['a', 'b']
558 endfunc
559 set completefunc=CompleteFunc2
560 call setline(1, ['', 'abcd', ''])
Bram Moolenaar6adb9ea2020-04-30 22:31:18 +0200561 call assert_fails('exe "normal 2G$a\<C-X>\<C-U>"', 'E578:')
Bram Moolenaarad48e6c2020-04-21 22:19:45 +0200562
Bram Moolenaarf9ab52e2020-05-05 19:57:18 +0200563 " Jump to a different window from the complete function
564 " TODO: The following test causes an ASAN failure. Once this issue is
565 " addressed, enable the following test.
566 "func! CompleteFunc(findstart, base)
567 " if a:findstart == 1
568 " return col('.') - 1
569 " endif
570 " wincmd p
571 " return ['a', 'b']
572 "endfunc
573 "set completefunc=CompleteFunc
574 "new
575 "call assert_fails('exe "normal a\<C-X>\<C-U>"', 'E839:')
576 "close!
577
Bram Moolenaaree4e0c12020-04-06 21:35:05 +0200578 set completefunc&
579 delfunc CompleteFunc
Bram Moolenaarad48e6c2020-04-21 22:19:45 +0200580 delfunc CompleteFunc2
Bram Moolenaaree4e0c12020-04-06 21:35:05 +0200581 close!
582endfunc
583
Bram Moolenaarf9ab52e2020-05-05 19:57:18 +0200584" Test for returning non-string values from 'completefunc'
585func Test_completefunc_invalid_data()
586 new
587 func! CompleteFunc(findstart, base)
588 if a:findstart == 1
589 return col('.') - 1
590 endif
591 return [{}, '', 'moon']
592 endfunc
593 set completefunc=CompleteFunc
594 exe "normal i\<C-X>\<C-U>"
595 call assert_equal('moon', getline(1))
596 set completefunc&
597 close!
598endfunc
599
Bram Moolenaarad48e6c2020-04-21 22:19:45 +0200600" Test for errors in using complete() function
601func Test_complete_func_error()
602 call assert_fails('call complete(1, ["a"])', 'E785:')
603 func ListColors()
604 call complete(col('.'), "blue")
605 endfunc
606 call assert_fails('exe "normal i\<C-R>=ListColors()\<CR>"', 'E474:')
607 func ListMonths()
608 call complete(col('.'), test_null_list())
609 endfunc
610 call assert_fails('exe "normal i\<C-R>=ListMonths()\<CR>"', 'E474:')
611 delfunc ListColors
612 delfunc ListMonths
613 call assert_fails('call complete_info({})', 'E714:')
Bram Moolenaarf9ab52e2020-05-05 19:57:18 +0200614 call assert_equal([], complete_info(['items']).items)
Bram Moolenaarad48e6c2020-04-21 22:19:45 +0200615endfunc
616
Bram Moolenaar224a5f12020-04-28 20:29:07 +0200617" Test for completing words following a completed word in a line
618func Test_complete_wrapscan()
619 " complete words from another buffer
620 new
621 call setline(1, ['one two', 'three four'])
622 new
623 setlocal complete=w
624 call feedkeys("itw\<C-N>\<C-X>\<C-N>\<C-X>\<C-N>\<C-X>\<C-N>", 'xt')
625 call assert_equal('two three four', getline(1))
626 close!
627 " complete words from the current buffer
628 setlocal complete=.
629 %d
630 call setline(1, ['one two', ''])
631 call cursor(2, 1)
632 call feedkeys("ion\<C-N>\<C-X>\<C-N>\<C-X>\<C-N>\<C-X>\<C-N>", 'xt')
633 call assert_equal('one two one two', getline(2))
634 close!
635endfunc
636
Bram Moolenaarf9ab52e2020-05-05 19:57:18 +0200637" Test for completing special characters
638func Test_complete_special_chars()
639 new
640 call setline(1, 'int .*[-\^$ func float')
641 call feedkeys("oin\<C-X>\<C-P>\<C-X>\<C-P>\<C-X>\<C-P>", 'xt')
642 call assert_equal('int .*[-\^$ func float', getline(2))
643 close!
644endfunc
645
646" Test for completion when text is wrapped across lines.
647func Test_complete_across_line()
648 new
649 call setline(1, ['red green blue', 'one two three'])
650 setlocal textwidth=20
651 exe "normal 2G$a re\<C-X>\<C-P>\<C-X>\<C-P>\<C-X>\<C-P>\<C-X>\<C-P>"
652 call assert_equal(['one two three red', 'green blue one'], getline(2, '$'))
653 close!
654endfunc
655
656" Test for using CTRL-L to add one character when completing matching
657func Test_complete_add_onechar()
658 new
659 call setline(1, ['wool', 'woodwork'])
660 call feedkeys("Gowoo\<C-P>\<C-P>\<C-P>\<C-L>f", 'xt')
661 call assert_equal('woof', getline(3))
662
663 " use 'ignorecase' and backspace to erase characters from the prefix string
664 " and then add letters using CTRL-L
665 %d
666 set ignorecase backspace=2
667 setlocal complete=.
668 call setline(1, ['workhorse', 'workload'])
669 normal Go
670 exe "normal aWOR\<C-P>\<bs>\<bs>\<bs>\<bs>\<bs>\<bs>\<C-L>r\<C-L>\<C-L>"
671 call assert_equal('workh', getline(3))
672 set ignorecase& backspace&
673 close!
674endfunc
675
676" Test insert completion with 'cindent' (adjust the indent)
677func Test_complete_with_cindent()
678 new
679 setlocal cindent
680 call setline(1, ['if (i == 1)', " j = 2;"])
681 exe "normal Go{\<CR>i\<C-X>\<C-L>\<C-X>\<C-L>\<CR>}"
682 call assert_equal(['{', "\tif (i == 1)", "\t\tj = 2;", '}'], getline(3, '$'))
683
684 %d
685 call setline(1, ['when while', '{', ''])
686 setlocal cinkeys+==while
687 exe "normal Giwh\<C-P> "
688 call assert_equal("\twhile ", getline('$'))
689 close!
690endfunc
691
692" Test for <CTRL-X> <CTRL-V> completion. Complete commands and functions
693func Test_complete_cmdline()
694 new
695 exe "normal icaddb\<C-X>\<C-V>"
696 call assert_equal('caddbuffer', getline(1))
697 exe "normal ocall getqf\<C-X>\<C-V>"
698 call assert_equal('call getqflist(', getline(2))
699 exe "normal oabcxyz(\<C-X>\<C-V>"
700 call assert_equal('abcxyz(', getline(3))
701 close!
702endfunc
703
Bram Moolenaar8f187fc2020-09-26 18:47:11 +0200704func Test_issue_7021()
705 CheckMSWindows
706
707 let orig_shellslash = &shellslash
708 set noshellslash
709
710 set completeslash=slash
711 call assert_false(expand('~') =~ '/')
712
713 let &shellslash = orig_shellslash
714 set completeslash=
715endfunc
716
Bram Moolenaarcc233582020-12-12 13:32:07 +0100717" Test to ensure 'Scanning...' messages are not recorded in messages history
718func Test_z1_complete_no_history()
719 new
720 messages clear
721 let currmess = execute('messages')
722 setlocal dictionary=README.txt
723 exe "normal owh\<C-X>\<C-K>"
724 exe "normal owh\<C-N>"
725 call assert_equal(currmess, execute('messages'))
726 close!
727endfunc
728
Bram Moolenaaree4e0c12020-04-06 21:35:05 +0200729" vim: shiftwidth=2 sts=2 expandtab