blob: c807364ec335e9e2d8bf19737597326f4f9349f2 [file] [log] [blame]
Bram Moolenaarae3150e2016-06-11 23:22:36 +02001" Tests for editing the command line.
2
Bram Moolenaarc3c766e2017-03-08 22:55:19 +01003
Bram Moolenaarae3150e2016-06-11 23:22:36 +02004func Test_complete_tab()
5 call writefile(['testfile'], 'Xtestfile')
6 call feedkeys(":e Xtest\t\r", "tx")
7 call assert_equal('testfile', getline(1))
8 call delete('Xtestfile')
9endfunc
10
11func Test_complete_list()
12 " We can't see the output, but at least we check the code runs properly.
13 call feedkeys(":e test\<C-D>\r", "tx")
14 call assert_equal('test', expand('%:t'))
15endfunc
16
17func Test_complete_wildmenu()
18 call writefile(['testfile1'], 'Xtestfile1')
19 call writefile(['testfile2'], 'Xtestfile2')
20 set wildmenu
21 call feedkeys(":e Xtest\t\t\r", "tx")
22 call assert_equal('testfile2', getline(1))
23
24 call delete('Xtestfile1')
25 call delete('Xtestfile2')
26 set nowildmenu
27endfunc
Bram Moolenaaraa4d7322016-07-09 18:50:29 +020028
Bram Moolenaarcf5fdf72017-03-02 23:05:51 +010029func Test_map_completion()
30 if !has('cmdline_compl')
31 return
32 endif
33 call feedkeys(":map <unique> <si\<Tab>\<Home>\"\<CR>", 'xt')
34 call assert_equal('"map <unique> <silent>', getreg(':'))
35 call feedkeys(":map <script> <un\<Tab>\<Home>\"\<CR>", 'xt')
36 call assert_equal('"map <script> <unique>', getreg(':'))
37 call feedkeys(":map <expr> <sc\<Tab>\<Home>\"\<CR>", 'xt')
38 call assert_equal('"map <expr> <script>', getreg(':'))
39 call feedkeys(":map <buffer> <e\<Tab>\<Home>\"\<CR>", 'xt')
40 call assert_equal('"map <buffer> <expr>', getreg(':'))
41 call feedkeys(":map <nowait> <b\<Tab>\<Home>\"\<CR>", 'xt')
42 call assert_equal('"map <nowait> <buffer>', getreg(':'))
43 call feedkeys(":map <special> <no\<Tab>\<Home>\"\<CR>", 'xt')
44 call assert_equal('"map <special> <nowait>', getreg(':'))
45 call feedkeys(":map <silent> <sp\<Tab>\<Home>\"\<CR>", 'xt')
46 call assert_equal('"map <silent> <special>', getreg(':'))
47endfunc
48
Bram Moolenaar15eedf12017-01-22 19:25:33 +010049func Test_match_completion()
50 if !has('cmdline_compl')
51 return
52 endif
53 hi Aardig ctermfg=green
54 call feedkeys(":match \<Tab>\<Home>\"\<CR>", 'xt')
55 call assert_equal('"match Aardig', getreg(':'))
56 call feedkeys(":match \<S-Tab>\<Home>\"\<CR>", 'xt')
57 call assert_equal('"match none', getreg(':'))
58endfunc
59
60func Test_highlight_completion()
61 if !has('cmdline_compl')
62 return
63 endif
64 hi Aardig ctermfg=green
65 call feedkeys(":hi \<Tab>\<Home>\"\<CR>", 'xt')
66 call assert_equal('"hi Aardig', getreg(':'))
Bram Moolenaarea588152017-04-10 22:45:30 +020067 call feedkeys(":hi default \<Tab>\<Home>\"\<CR>", 'xt')
68 call assert_equal('"hi default Aardig', getreg(':'))
69 call feedkeys(":hi clear Aa\<Tab>\<Home>\"\<CR>", 'xt')
70 call assert_equal('"hi clear Aardig', getreg(':'))
Bram Moolenaar15eedf12017-01-22 19:25:33 +010071 call feedkeys(":hi li\<S-Tab>\<Home>\"\<CR>", 'xt')
72 call assert_equal('"hi link', getreg(':'))
73 call feedkeys(":hi d\<S-Tab>\<Home>\"\<CR>", 'xt')
74 call assert_equal('"hi default', getreg(':'))
75 call feedkeys(":hi c\<S-Tab>\<Home>\"\<CR>", 'xt')
76 call assert_equal('"hi clear', getreg(':'))
Bram Moolenaarc96272e2017-03-26 13:50:09 +020077
78 " A cleared group does not show up in completions.
79 hi Anders ctermfg=green
80 call assert_equal(['Aardig', 'Anders'], getcompletion('A', 'highlight'))
81 hi clear Aardig
82 call assert_equal(['Anders'], getcompletion('A', 'highlight'))
83 hi clear Anders
84 call assert_equal([], getcompletion('A', 'highlight'))
Bram Moolenaar15eedf12017-01-22 19:25:33 +010085endfunc
86
Bram Moolenaar2b2207b2017-01-22 16:46:56 +010087func Test_expr_completion()
Bram Moolenaar15eedf12017-01-22 19:25:33 +010088 if !has('cmdline_compl')
Bram Moolenaar2b2207b2017-01-22 16:46:56 +010089 return
90 endif
91 for cmd in [
92 \ 'let a = ',
93 \ 'if',
94 \ 'elseif',
95 \ 'while',
96 \ 'for',
97 \ 'echo',
98 \ 'echon',
99 \ 'execute',
100 \ 'echomsg',
101 \ 'echoerr',
102 \ 'call',
103 \ 'return',
104 \ 'cexpr',
105 \ 'caddexpr',
106 \ 'cgetexpr',
107 \ 'lexpr',
108 \ 'laddexpr',
109 \ 'lgetexpr']
110 call feedkeys(":" . cmd . " getl\<Tab>\<Home>\"\<CR>", 'xt')
111 call assert_equal('"' . cmd . ' getline(', getreg(':'))
112 endfor
113endfunc
114
Bram Moolenaaraa4d7322016-07-09 18:50:29 +0200115func Test_getcompletion()
Bram Moolenaar0d3e24b2016-07-09 19:20:59 +0200116 if !has('cmdline_compl')
117 return
118 endif
Bram Moolenaaraa4d7322016-07-09 18:50:29 +0200119 let groupcount = len(getcompletion('', 'event'))
120 call assert_true(groupcount > 0)
121 let matchcount = len(getcompletion('File', 'event'))
122 call assert_true(matchcount > 0)
123 call assert_true(groupcount > matchcount)
124
Bram Moolenaar0d3e24b2016-07-09 19:20:59 +0200125 if has('menu')
126 source $VIMRUNTIME/menu.vim
127 let matchcount = len(getcompletion('', 'menu'))
128 call assert_true(matchcount > 0)
129 call assert_equal(['File.'], getcompletion('File', 'menu'))
130 call assert_true(matchcount > 0)
131 let matchcount = len(getcompletion('File.', 'menu'))
132 call assert_true(matchcount > 0)
133 endif
Bram Moolenaaraa4d7322016-07-09 18:50:29 +0200134
Bram Moolenaarc1fb7632016-07-17 23:34:21 +0200135 let l = getcompletion('v:n', 'var')
136 call assert_true(index(l, 'v:null') >= 0)
Bram Moolenaarb56195e2016-07-28 22:53:37 +0200137 let l = getcompletion('v:notexists', 'var')
138 call assert_equal([], l)
Bram Moolenaarc1fb7632016-07-17 23:34:21 +0200139
Bram Moolenaarcd43eff2018-03-29 15:55:38 +0200140 args a.c b.c
141 let l = getcompletion('', 'arglist')
142 call assert_equal(['a.c', 'b.c'], l)
143 %argdelete
144
Bram Moolenaarc1fb7632016-07-17 23:34:21 +0200145 let l = getcompletion('', 'augroup')
146 call assert_true(index(l, 'END') >= 0)
Bram Moolenaarb56195e2016-07-28 22:53:37 +0200147 let l = getcompletion('blahblah', 'augroup')
148 call assert_equal([], l)
Bram Moolenaarc1fb7632016-07-17 23:34:21 +0200149
150 let l = getcompletion('', 'behave')
151 call assert_true(index(l, 'mswin') >= 0)
Bram Moolenaarb56195e2016-07-28 22:53:37 +0200152 let l = getcompletion('not', 'behave')
153 call assert_equal([], l)
Bram Moolenaarc1fb7632016-07-17 23:34:21 +0200154
155 let l = getcompletion('', 'color')
156 call assert_true(index(l, 'default') >= 0)
Bram Moolenaarb56195e2016-07-28 22:53:37 +0200157 let l = getcompletion('dirty', 'color')
158 call assert_equal([], l)
Bram Moolenaarc1fb7632016-07-17 23:34:21 +0200159
160 let l = getcompletion('', 'command')
161 call assert_true(index(l, 'sleep') >= 0)
Bram Moolenaarb56195e2016-07-28 22:53:37 +0200162 let l = getcompletion('awake', 'command')
163 call assert_equal([], l)
Bram Moolenaarc1fb7632016-07-17 23:34:21 +0200164
165 let l = getcompletion('', 'dir')
Bram Moolenaarb56195e2016-07-28 22:53:37 +0200166 call assert_true(index(l, 'samples/') >= 0)
167 let l = getcompletion('NoMatch', 'dir')
168 call assert_equal([], l)
Bram Moolenaarc1fb7632016-07-17 23:34:21 +0200169
170 let l = getcompletion('exe', 'expression')
171 call assert_true(index(l, 'executable(') >= 0)
Bram Moolenaarb56195e2016-07-28 22:53:37 +0200172 let l = getcompletion('kill', 'expression')
173 call assert_equal([], l)
Bram Moolenaarc1fb7632016-07-17 23:34:21 +0200174
175 let l = getcompletion('tag', 'function')
176 call assert_true(index(l, 'taglist(') >= 0)
Bram Moolenaarb56195e2016-07-28 22:53:37 +0200177 let l = getcompletion('paint', 'function')
178 call assert_equal([], l)
Bram Moolenaarc1fb7632016-07-17 23:34:21 +0200179
Bram Moolenaarb49edc12016-07-23 15:47:34 +0200180 let Flambda = {-> 'hello'}
181 let l = getcompletion('', 'function')
182 let l = filter(l, {i, v -> v =~ 'lambda'})
Bram Moolenaarb56195e2016-07-28 22:53:37 +0200183 call assert_equal([], l)
Bram Moolenaarb49edc12016-07-23 15:47:34 +0200184
Bram Moolenaarc1fb7632016-07-17 23:34:21 +0200185 let l = getcompletion('run', 'file')
186 call assert_true(index(l, 'runtest.vim') >= 0)
Bram Moolenaarb56195e2016-07-28 22:53:37 +0200187 let l = getcompletion('walk', 'file')
188 call assert_equal([], l)
Bram Moolenaare9d58a62016-08-13 15:07:41 +0200189 set wildignore=*.vim
190 let l = getcompletion('run', 'file', 1)
191 call assert_true(index(l, 'runtest.vim') < 0)
192 set wildignore&
Bram Moolenaarc1fb7632016-07-17 23:34:21 +0200193
194 let l = getcompletion('ha', 'filetype')
195 call assert_true(index(l, 'hamster') >= 0)
Bram Moolenaarb56195e2016-07-28 22:53:37 +0200196 let l = getcompletion('horse', 'filetype')
197 call assert_equal([], l)
Bram Moolenaarc1fb7632016-07-17 23:34:21 +0200198
199 let l = getcompletion('z', 'syntax')
200 call assert_true(index(l, 'zimbu') >= 0)
Bram Moolenaarb56195e2016-07-28 22:53:37 +0200201 let l = getcompletion('emacs', 'syntax')
202 call assert_equal([], l)
Bram Moolenaarc1fb7632016-07-17 23:34:21 +0200203
204 let l = getcompletion('jikes', 'compiler')
205 call assert_true(index(l, 'jikes') >= 0)
Bram Moolenaarb56195e2016-07-28 22:53:37 +0200206 let l = getcompletion('break', 'compiler')
207 call assert_equal([], l)
Bram Moolenaarc1fb7632016-07-17 23:34:21 +0200208
209 let l = getcompletion('last', 'help')
210 call assert_true(index(l, ':tablast') >= 0)
Bram Moolenaarb56195e2016-07-28 22:53:37 +0200211 let l = getcompletion('giveup', 'help')
212 call assert_equal([], l)
Bram Moolenaarc1fb7632016-07-17 23:34:21 +0200213
214 let l = getcompletion('time', 'option')
215 call assert_true(index(l, 'timeoutlen') >= 0)
Bram Moolenaarb56195e2016-07-28 22:53:37 +0200216 let l = getcompletion('space', 'option')
217 call assert_equal([], l)
Bram Moolenaarc1fb7632016-07-17 23:34:21 +0200218
219 let l = getcompletion('er', 'highlight')
220 call assert_true(index(l, 'ErrorMsg') >= 0)
Bram Moolenaarb56195e2016-07-28 22:53:37 +0200221 let l = getcompletion('dark', 'highlight')
222 call assert_equal([], l)
Bram Moolenaarc1fb7632016-07-17 23:34:21 +0200223
Bram Moolenaar9e507ca2016-10-15 15:39:39 +0200224 let l = getcompletion('', 'messages')
225 call assert_true(index(l, 'clear') >= 0)
226 let l = getcompletion('not', 'messages')
227 call assert_equal([], l)
228
Bram Moolenaarcae92dc2017-08-06 15:22:15 +0200229 let l = getcompletion('', 'mapclear')
230 call assert_true(index(l, '<buffer>') >= 0)
231 let l = getcompletion('not', 'mapclear')
232 call assert_equal([], l)
233
Bram Moolenaar62fe66f2018-05-22 16:58:47 +0200234 let l = getcompletion('.', 'shellcmd')
235 call assert_equal(['./', '../'], l[0:1])
236 call assert_equal(-1, match(l[2:], '^\.\.\?/$'))
237 let root = has('win32') ? 'C:\\' : '/'
238 let l = getcompletion(root, 'shellcmd')
239 let expected = map(filter(glob(root . '*', 0, 1),
240 \ 'isdirectory(v:val) || executable(v:val)'), 'isdirectory(v:val) ? v:val . ''/'' : v:val')
241 call assert_equal(expected, l)
242
Bram Moolenaarb650b982016-08-05 20:35:13 +0200243 if has('cscope')
244 let l = getcompletion('', 'cscope')
245 let cmds = ['add', 'find', 'help', 'kill', 'reset', 'show']
246 call assert_equal(cmds, l)
247 " using cmdline completion must not change the result
248 call feedkeys(":cscope find \<c-d>\<c-c>", 'xt')
249 let l = getcompletion('', 'cscope')
250 call assert_equal(cmds, l)
251 let keys = ['a', 'c', 'd', 'e', 'f', 'g', 'i', 's', 't']
252 let l = getcompletion('find ', 'cscope')
253 call assert_equal(keys, l)
254 endif
255
Bram Moolenaar7522f692016-08-06 14:12:50 +0200256 if has('signs')
257 sign define Testing linehl=Comment
258 let l = getcompletion('', 'sign')
259 let cmds = ['define', 'jump', 'list', 'place', 'undefine', 'unplace']
260 call assert_equal(cmds, l)
261 " using cmdline completion must not change the result
262 call feedkeys(":sign list \<c-d>\<c-c>", 'xt')
263 let l = getcompletion('', 'sign')
264 call assert_equal(cmds, l)
265 let l = getcompletion('list ', 'sign')
266 call assert_equal(['Testing'], l)
267 endif
268
Bram Moolenaarc1fb7632016-07-17 23:34:21 +0200269 " For others test if the name is recognized.
Bram Moolenaar62fe66f2018-05-22 16:58:47 +0200270 let names = ['buffer', 'environment', 'file_in_path', 'mapping', 'tag', 'tag_listfiles', 'user']
Bram Moolenaarc1fb7632016-07-17 23:34:21 +0200271 if has('cmdline_hist')
272 call add(names, 'history')
273 endif
274 if has('gettext')
275 call add(names, 'locale')
276 endif
277 if has('profile')
278 call add(names, 'syntime')
279 endif
Bram Moolenaarc1fb7632016-07-17 23:34:21 +0200280
281 set tags=Xtags
282 call writefile(["!_TAG_FILE_ENCODING\tutf-8\t//", "word\tfile\tcmd"], 'Xtags')
283
284 for name in names
285 let matchcount = len(getcompletion('', name))
286 call assert_true(matchcount >= 0, 'No matches for ' . name)
287 endfor
288
289 call delete('Xtags')
290
Bram Moolenaaraa4d7322016-07-09 18:50:29 +0200291 call assert_fails('call getcompletion("", "burp")', 'E475:')
292endfunc
Bram Moolenaar73d4e4c2016-08-27 21:55:13 +0200293
294func Test_expand_star_star()
295 call mkdir('a/b', 'p')
296 call writefile(['asdfasdf'], 'a/b/fileXname')
297 call feedkeys(":find **/fileXname\<Tab>\<CR>", 'xt')
298 call assert_equal('find a/b/fileXname', getreg(':'))
Bram Moolenaar1773ddf2016-08-28 13:38:54 +0200299 bwipe!
Bram Moolenaar73d4e4c2016-08-27 21:55:13 +0200300 call delete('a', 'rf')
301endfunc
Bram Moolenaar21efc362016-12-03 14:05:49 +0100302
303func Test_paste_in_cmdline()
304 let @a = "def"
305 call feedkeys(":abc \<C-R>a ghi\<C-B>\"\<CR>", 'tx')
306 call assert_equal('"abc def ghi', @:)
307
308 new
309 call setline(1, 'asdf.x /tmp/some verylongword a;b-c*d ')
310
311 call feedkeys(":aaa \<C-R>\<C-W> bbb\<C-B>\"\<CR>", 'tx')
312 call assert_equal('"aaa asdf bbb', @:)
313
314 call feedkeys("ft:aaa \<C-R>\<C-F> bbb\<C-B>\"\<CR>", 'tx')
315 call assert_equal('"aaa /tmp/some bbb', @:)
316
Bram Moolenaare2c8d832018-05-01 19:24:03 +0200317 call feedkeys(":aaa \<C-R>\<C-L> bbb\<C-B>\"\<CR>", 'tx')
318 call assert_equal('"aaa '.getline(1).' bbb', @:)
319
Bram Moolenaar21efc362016-12-03 14:05:49 +0100320 set incsearch
321 call feedkeys("fy:aaa veryl\<C-R>\<C-W> bbb\<C-B>\"\<CR>", 'tx')
322 call assert_equal('"aaa verylongword bbb', @:)
323
324 call feedkeys("f;:aaa \<C-R>\<C-A> bbb\<C-B>\"\<CR>", 'tx')
325 call assert_equal('"aaa a;b-c*d bbb', @:)
Bram Moolenaareaaa9bb2016-12-09 18:42:20 +0100326
327 call feedkeys(":\<C-\>etoupper(getline(1))\<CR>\<C-B>\"\<CR>", 'tx')
328 call assert_equal('"ASDF.X /TMP/SOME VERYLONGWORD A;B-C*D ', @:)
Bram Moolenaar21efc362016-12-03 14:05:49 +0100329 bwipe!
Bram Moolenaar72532d32018-04-07 19:09:09 +0200330
331 " Error while typing a command used to cause that it was not executed
332 " in the end.
333 new
334 try
335 call feedkeys(":file \<C-R>%Xtestfile\<CR>", 'tx')
336 catch /^Vim\%((\a\+)\)\=:E32/
337 " ignore error E32
338 endtry
339 call assert_equal("Xtestfile", bufname("%"))
340 bwipe!
Bram Moolenaar21efc362016-12-03 14:05:49 +0100341endfunc
Bram Moolenaareaaa9bb2016-12-09 18:42:20 +0100342
343func Test_remove_char_in_cmdline()
344 call feedkeys(":abc def\<S-Left>\<Del>\<C-B>\"\<CR>", 'tx')
345 call assert_equal('"abc ef', @:)
346
347 call feedkeys(":abc def\<S-Left>\<BS>\<C-B>\"\<CR>", 'tx')
348 call assert_equal('"abcdef', @:)
349
350 call feedkeys(":abc def ghi\<S-Left>\<C-W>\<C-B>\"\<CR>", 'tx')
351 call assert_equal('"abc ghi', @:)
352
353 call feedkeys(":abc def\<S-Left>\<C-U>\<C-B>\"\<CR>", 'tx')
354 call assert_equal('"def', @:)
355endfunc
Bram Moolenaarfe38b492016-12-11 21:34:23 +0100356
Bram Moolenaarf1f6f3f2017-02-09 22:28:20 +0100357func Test_illegal_address1()
Bram Moolenaarfe38b492016-12-11 21:34:23 +0100358 new
359 2;'(
360 2;')
361 quit
362endfunc
Bram Moolenaarba47b512017-01-24 21:18:19 +0100363
Bram Moolenaarf1f6f3f2017-02-09 22:28:20 +0100364func Test_illegal_address2()
365 call writefile(['c', 'x', ' x', '.', '1;y'], 'Xtest.vim')
366 new
367 source Xtest.vim
368 " Trigger calling validate_cursor()
369 diffsp Xtest.vim
370 quit!
371 bwipe!
372 call delete('Xtest.vim')
373endfunc
374
Bram Moolenaarba47b512017-01-24 21:18:19 +0100375func Test_cmdline_complete_wildoptions()
376 help
377 call feedkeys(":tag /\<c-a>\<c-b>\"\<cr>", 'tx')
378 let a = join(sort(split(@:)),' ')
379 set wildoptions=tagfile
380 call feedkeys(":tag /\<c-a>\<c-b>\"\<cr>", 'tx')
381 let b = join(sort(split(@:)),' ')
382 call assert_equal(a, b)
383 bw!
384endfunc
Bram Moolenaarcbf20fb2017-02-03 21:19:04 +0100385
Bram Moolenaara33ddbb2017-03-29 21:30:04 +0200386func Test_cmdline_complete_user_cmd()
387 command! -complete=color -nargs=1 Foo :
388 call feedkeys(":Foo \<Tab>\<Home>\"\<cr>", 'tx')
389 call assert_equal('"Foo blue', @:)
390 call feedkeys(":Foo b\<Tab>\<Home>\"\<cr>", 'tx')
391 call assert_equal('"Foo blue', @:)
392 delcommand Foo
393endfunc
394
Bram Moolenaarc312b8b2017-10-28 17:53:04 +0200395func Test_cmdline_write_alternatefile()
396 new
397 call setline('.', ['one', 'two'])
398 f foo.txt
399 new
400 f #-A
401 call assert_equal('foo.txt-A', expand('%'))
402 f #<-B.txt
403 call assert_equal('foo-B.txt', expand('%'))
404 f %<
405 call assert_equal('foo-B', expand('%'))
406 new
407 call assert_fails('f #<', 'E95')
408 bw!
409 f foo-B.txt
410 f %<-A
411 call assert_equal('foo-B-A', expand('%'))
412 bw!
413 bw!
414endfunc
415
Bram Moolenaarcbf20fb2017-02-03 21:19:04 +0100416" using a leading backslash here
417set cpo+=C
418
419func Test_cmdline_search_range()
420 new
421 call setline(1, ['a', 'b', 'c', 'd'])
422 /d
423 1,\/s/b/B/
424 call assert_equal('B', getline(2))
425
426 /a
427 $
428 \?,4s/c/C/
429 call assert_equal('C', getline(3))
430
431 call setline(1, ['a', 'b', 'c', 'd'])
432 %s/c/c/
433 1,\&s/b/B/
434 call assert_equal('B', getline(2))
435
436 bwipe!
437endfunc
438
Bram Moolenaar65189a12017-02-06 22:22:17 +0100439" Tests for getcmdline(), getcmdpos() and getcmdtype()
440func Check_cmdline(cmdtype)
441 call assert_equal('MyCmd a', getcmdline())
442 call assert_equal(8, getcmdpos())
443 call assert_equal(a:cmdtype, getcmdtype())
444 return ''
445endfunc
446
447func Test_getcmdtype()
448 call feedkeys(":MyCmd a\<C-R>=Check_cmdline(':')\<CR>\<Esc>", "xt")
449
450 let cmdtype = ''
451 debuggreedy
452 call feedkeys(":debug echo 'test'\<CR>", "t")
453 call feedkeys("let cmdtype = \<C-R>=string(getcmdtype())\<CR>\<CR>", "t")
454 call feedkeys("cont\<CR>", "xt")
455 0debuggreedy
456 call assert_equal('>', cmdtype)
457
458 call feedkeys("/MyCmd a\<C-R>=Check_cmdline('/')\<CR>\<Esc>", "xt")
459 call feedkeys("?MyCmd a\<C-R>=Check_cmdline('?')\<CR>\<Esc>", "xt")
460
461 call feedkeys(":call input('Answer?')\<CR>", "t")
Bram Moolenaar31eb1392017-02-09 21:44:03 +0100462 call feedkeys("MyCmd a\<C-R>=Check_cmdline('@')\<CR>\<C-C>", "xt")
Bram Moolenaar65189a12017-02-06 22:22:17 +0100463
464 call feedkeys(":insert\<CR>MyCmd a\<C-R>=Check_cmdline('-')\<CR>\<Esc>", "xt")
465
466 cnoremap <expr> <F6> Check_cmdline('=')
467 call feedkeys("a\<C-R>=MyCmd a\<F6>\<Esc>\<Esc>", "xt")
468 cunmap <F6>
469endfunc
470
Bram Moolenaar52604f22017-04-07 16:17:39 +0200471func Test_verbosefile()
472 set verbosefile=Xlog
473 echomsg 'foo'
474 echomsg 'bar'
475 set verbosefile=
476 let log = readfile('Xlog')
477 call assert_match("foo\nbar", join(log, "\n"))
478 call delete('Xlog')
479endfunc
480
Bram Moolenaarff3be4f2018-05-12 13:18:46 +0200481func Test_setcmdpos()
482 func InsertTextAtPos(text, pos)
483 call assert_equal(0, setcmdpos(a:pos))
484 return a:text
485 endfunc
486
487 " setcmdpos() with position in the middle of the command line.
488 call feedkeys(":\"12\<C-R>=InsertTextAtPos('a', 3)\<CR>b\<CR>", 'xt')
489 call assert_equal('"1ab2', @:)
490
491 call feedkeys(":\"12\<C-R>\<C-R>=InsertTextAtPos('a', 3)\<CR>b\<CR>", 'xt')
492 call assert_equal('"1b2a', @:)
493
494 " setcmdpos() with position beyond the end of the command line.
495 call feedkeys(":\"12\<C-B>\<C-R>=InsertTextAtPos('a', 10)\<CR>b\<CR>", 'xt')
496 call assert_equal('"12ab', @:)
497
498 " setcmdpos() returns 1 when not editing the command line.
499 call assert_equal(1, setcmdpos(3))
500endfunc
501
Bram Moolenaarcbf20fb2017-02-03 21:19:04 +0100502set cpo&