blob: 696043c7b4a8e1650c53ffc6ad4eb2fedb41d10b [file] [log] [blame]
Bram Moolenaar08243d22017-01-10 16:12:29 +01001" Tests for various functions.
Bram Moolenaarf1c118b2018-09-03 22:08:10 +02002source shared.vim
Bram Moolenaar8c5a2782019-08-07 23:07:07 +02003source check.vim
Bram Moolenaarc2585492019-09-22 21:29:53 +02004source term_util.vim
Bram Moolenaar4132eb52020-02-14 16:53:00 +01005source screendump.vim
Bram Moolenaar08243d22017-01-10 16:12:29 +01006
Bram Moolenaarc7d16dc2017-11-18 20:32:03 +01007" Must be done first, since the alternate buffer must be unset.
8func Test_00_bufexists()
9 call assert_equal(0, bufexists('does_not_exist'))
10 call assert_equal(1, bufexists(bufnr('%')))
11 call assert_equal(0, bufexists(0))
12 new Xfoo
13 let bn = bufnr('%')
14 call assert_equal(1, bufexists(bn))
15 call assert_equal(1, bufexists('Xfoo'))
16 call assert_equal(1, bufexists(getcwd() . '/Xfoo'))
17 call assert_equal(1, bufexists(0))
18 bw
19 call assert_equal(0, bufexists(bn))
20 call assert_equal(0, bufexists('Xfoo'))
21endfunc
22
Bram Moolenaar24c2e482017-01-29 15:45:12 +010023func Test_empty()
24 call assert_equal(1, empty(''))
25 call assert_equal(0, empty('a'))
26
27 call assert_equal(1, empty(0))
28 call assert_equal(1, empty(-0))
29 call assert_equal(0, empty(1))
30 call assert_equal(0, empty(-1))
31
Bram Moolenaar5feabe02020-01-30 18:24:53 +010032 if has('float')
33 call assert_equal(1, empty(0.0))
34 call assert_equal(1, empty(-0.0))
35 call assert_equal(0, empty(1.0))
36 call assert_equal(0, empty(-1.0))
37 call assert_equal(0, empty(1.0/0.0))
38 call assert_equal(0, empty(0.0/0.0))
39 endif
Bram Moolenaar24c2e482017-01-29 15:45:12 +010040
41 call assert_equal(1, empty([]))
42 call assert_equal(0, empty(['a']))
43
44 call assert_equal(1, empty({}))
45 call assert_equal(0, empty({'a':1}))
46
47 call assert_equal(1, empty(v:null))
48 call assert_equal(1, empty(v:none))
49 call assert_equal(1, empty(v:false))
50 call assert_equal(0, empty(v:true))
51
Bram Moolenaar41042f32017-03-09 12:09:32 +010052 if has('channel')
53 call assert_equal(1, empty(test_null_channel()))
54 endif
55 if has('job')
56 call assert_equal(1, empty(test_null_job()))
57 endif
58
Bram Moolenaar24c2e482017-01-29 15:45:12 +010059 call assert_equal(0, empty(function('Test_empty')))
Bram Moolenaar17aca702019-05-16 22:24:55 +020060 call assert_equal(0, empty(function('Test_empty', [0])))
Bram Moolenaar7c215c52020-02-29 13:43:27 +010061
62 call assert_fails("call empty(test_void())", 'E685:')
63 call assert_fails("call empty(test_unknown())", 'E685:')
Bram Moolenaar24c2e482017-01-29 15:45:12 +010064endfunc
65
Bram Moolenaardd589232020-02-29 17:38:12 +010066func Test_test_void()
67 call assert_fails('echo 1 == test_void()', 'E685:')
68 if has('float')
69 call assert_fails('echo 1.0 == test_void()', 'E685:')
70 endif
71 call assert_fails('let x = json_encode(test_void())', 'E685:')
72 call assert_fails('let x = copy(test_void())', 'E685:')
73 call assert_fails('let x = copy([test_void()])', 'E685:')
74endfunc
75
Bram Moolenaar24c2e482017-01-29 15:45:12 +010076func Test_len()
77 call assert_equal(1, len(0))
78 call assert_equal(2, len(12))
79
80 call assert_equal(0, len(''))
81 call assert_equal(2, len('ab'))
82
83 call assert_equal(0, len([]))
84 call assert_equal(2, len([2, 1]))
85
86 call assert_equal(0, len({}))
87 call assert_equal(2, len({'a': 1, 'b': 2}))
88
89 call assert_fails('call len(v:none)', 'E701:')
90 call assert_fails('call len({-> 0})', 'E701:')
91endfunc
92
93func Test_max()
94 call assert_equal(0, max([]))
95 call assert_equal(2, max([2]))
96 call assert_equal(2, max([1, 2]))
97 call assert_equal(2, max([1, 2, v:null]))
98
99 call assert_equal(0, max({}))
100 call assert_equal(2, max({'a':1, 'b':2}))
101
102 call assert_fails('call max(1)', 'E712:')
103 call assert_fails('call max(v:none)', 'E712:')
104endfunc
105
106func Test_min()
107 call assert_equal(0, min([]))
108 call assert_equal(2, min([2]))
109 call assert_equal(1, min([1, 2]))
110 call assert_equal(0, min([1, 2, v:null]))
111
112 call assert_equal(0, min({}))
113 call assert_equal(1, min({'a':1, 'b':2}))
114
115 call assert_fails('call min(1)', 'E712:')
116 call assert_fails('call min(v:none)', 'E712:')
117endfunc
118
Bram Moolenaar42ab17b2018-05-20 14:11:10 +0200119func Test_strwidth()
120 for aw in ['single', 'double']
121 exe 'set ambiwidth=' . aw
122 call assert_equal(0, strwidth(''))
123 call assert_equal(1, strwidth("\t"))
124 call assert_equal(3, strwidth('Vim'))
125 call assert_equal(4, strwidth(1234))
126 call assert_equal(5, strwidth(-1234))
127
Bram Moolenaar30276f22019-01-24 17:59:39 +0100128 call assert_equal(2, strwidth('😉'))
129 call assert_equal(17, strwidth('Eĥoŝanĝo ĉiuĵaŭde'))
130 call assert_equal((aw == 'single') ? 6 : 7, strwidth('Straße'))
Bram Moolenaar42ab17b2018-05-20 14:11:10 +0200131
132 call assert_fails('call strwidth({->0})', 'E729:')
133 call assert_fails('call strwidth([])', 'E730:')
134 call assert_fails('call strwidth({})', 'E731:')
Bram Moolenaar5feabe02020-01-30 18:24:53 +0100135 if has('float')
136 call assert_fails('call strwidth(1.2)', 'E806:')
137 endif
Bram Moolenaar42ab17b2018-05-20 14:11:10 +0200138 endfor
139
140 set ambiwidth&
141endfunc
142
Bram Moolenaar08243d22017-01-10 16:12:29 +0100143func Test_str2nr()
144 call assert_equal(0, str2nr(''))
145 call assert_equal(1, str2nr('1'))
146 call assert_equal(1, str2nr(' 1 '))
147
148 call assert_equal(1, str2nr('+1'))
149 call assert_equal(1, str2nr('+ 1'))
150 call assert_equal(1, str2nr(' + 1 '))
151
152 call assert_equal(-1, str2nr('-1'))
153 call assert_equal(-1, str2nr('- 1'))
154 call assert_equal(-1, str2nr(' - 1 '))
155
156 call assert_equal(123456789, str2nr('123456789'))
157 call assert_equal(-123456789, str2nr('-123456789'))
Bram Moolenaar24c2e482017-01-29 15:45:12 +0100158
159 call assert_equal(5, str2nr('101', 2))
Bram Moolenaarf6ed61e2019-09-07 19:05:09 +0200160 call assert_equal(5, '0b101'->str2nr(2))
Bram Moolenaar24c2e482017-01-29 15:45:12 +0100161 call assert_equal(5, str2nr('0B101', 2))
162 call assert_equal(-5, str2nr('-101', 2))
163 call assert_equal(-5, str2nr('-0b101', 2))
164 call assert_equal(-5, str2nr('-0B101', 2))
165
166 call assert_equal(65, str2nr('101', 8))
167 call assert_equal(65, str2nr('0101', 8))
168 call assert_equal(-65, str2nr('-101', 8))
169 call assert_equal(-65, str2nr('-0101', 8))
170
171 call assert_equal(11259375, str2nr('abcdef', 16))
172 call assert_equal(11259375, str2nr('ABCDEF', 16))
173 call assert_equal(-11259375, str2nr('-ABCDEF', 16))
174 call assert_equal(11259375, str2nr('0xabcdef', 16))
175 call assert_equal(11259375, str2nr('0Xabcdef', 16))
176 call assert_equal(11259375, str2nr('0XABCDEF', 16))
177 call assert_equal(-11259375, str2nr('-0xABCDEF', 16))
178
Bram Moolenaar60a8de22019-09-15 14:33:22 +0200179 call assert_equal(1, str2nr("1'000'000", 10, 0))
180 call assert_equal(256, str2nr("1'0000'0000", 2, 1))
181 call assert_equal(262144, str2nr("1'000'000", 8, 1))
182 call assert_equal(1000000, str2nr("1'000'000", 10, 1))
Bram Moolenaarea8dcf82019-09-15 21:12:22 +0200183 call assert_equal(1000, str2nr("1'000''000", 10, 1))
Bram Moolenaar60a8de22019-09-15 14:33:22 +0200184 call assert_equal(65536, str2nr("1'00'00", 16, 1))
185
Bram Moolenaar24c2e482017-01-29 15:45:12 +0100186 call assert_equal(0, str2nr('0x10'))
187 call assert_equal(0, str2nr('0b10'))
188 call assert_equal(1, str2nr('12', 2))
189 call assert_equal(1, str2nr('18', 8))
190 call assert_equal(1, str2nr('1g', 16))
191
192 call assert_equal(0, str2nr(v:null))
193 call assert_equal(0, str2nr(v:none))
194
195 call assert_fails('call str2nr([])', 'E730:')
196 call assert_fails('call str2nr({->2})', 'E729:')
Bram Moolenaar5feabe02020-01-30 18:24:53 +0100197 if has('float')
198 call assert_fails('call str2nr(1.2)', 'E806:')
199 endif
Bram Moolenaar24c2e482017-01-29 15:45:12 +0100200 call assert_fails('call str2nr(10, [])', 'E474:')
201endfunc
202
203func Test_strftime()
Bram Moolenaar10455d42019-11-21 15:36:18 +0100204 CheckFunction strftime
205
Bram Moolenaar24c2e482017-01-29 15:45:12 +0100206 " Format of strftime() depends on system. We assume
207 " that basic formats tested here are available and
208 " identical on all systems which support strftime().
209 "
210 " The 2nd parameter of strftime() is a local time, so the output day
211 " of strftime() can be 17 or 18, depending on timezone.
212 call assert_match('^2017-01-1[78]$', strftime('%Y-%m-%d', 1484695512))
213 "
Bram Moolenaarf6ed61e2019-09-07 19:05:09 +0200214 call assert_match('^\d\d\d\d-\(0\d\|1[012]\)-\([012]\d\|3[01]\) \([01]\d\|2[0-3]\):[0-5]\d:\([0-5]\d\|60\)$', '%Y-%m-%d %H:%M:%S'->strftime())
Bram Moolenaar24c2e482017-01-29 15:45:12 +0100215
216 call assert_fails('call strftime([])', 'E730:')
217 call assert_fails('call strftime("%Y", [])', 'E745:')
Bram Moolenaardb517302019-06-18 22:53:24 +0200218
219 " Check that the time changes after we change the timezone
220 " Save previous timezone value, if any
221 if exists('$TZ')
222 let tz = $TZ
223 endif
224
225 " Force EST and then UTC, save the current hour (24-hour clock) for each
226 let $TZ = 'EST' | let est = strftime('%H')
227 let $TZ = 'UTC' | let utc = strftime('%H')
228
229 " Those hours should be two bytes long, and should not be the same; if they
230 " are, a tzset(3) call may have failed somewhere
231 call assert_equal(strlen(est), 2)
232 call assert_equal(strlen(utc), 2)
Bram Moolenaar87652a72019-06-18 23:07:37 +0200233 " TODO: this fails on MS-Windows
234 if has('unix')
235 call assert_notequal(est, utc)
236 endif
Bram Moolenaardb517302019-06-18 22:53:24 +0200237
238 " If we cached a timezone value, put it back, otherwise clear it
239 if exists('tz')
240 let $TZ = tz
241 else
242 unlet $TZ
243 endif
Bram Moolenaar10455d42019-11-21 15:36:18 +0100244endfunc
Bram Moolenaardb517302019-06-18 22:53:24 +0200245
Bram Moolenaar10455d42019-11-21 15:36:18 +0100246func Test_strptime()
247 CheckFunction strptime
248
249 if exists('$TZ')
250 let tz = $TZ
251 endif
252 let $TZ = 'UTC'
253
Bram Moolenaar9a838fe2019-12-06 12:45:01 +0100254 call assert_equal(1484653763, strptime('%Y-%m-%d %T', '2017-01-17 11:49:23'))
Bram Moolenaar10455d42019-11-21 15:36:18 +0100255
256 call assert_fails('call strptime()', 'E119:')
257 call assert_fails('call strptime("xxx")', 'E119:')
258 call assert_equal(0, strptime("%Y", ''))
259 call assert_equal(0, strptime("%Y", "xxx"))
260
261 if exists('tz')
262 let $TZ = tz
263 else
264 unlet $TZ
265 endif
Bram Moolenaar24c2e482017-01-29 15:45:12 +0100266endfunc
267
Bram Moolenaardce1e892019-02-10 23:18:53 +0100268func Test_resolve_unix()
Bram Moolenaar26109902018-10-06 15:43:17 +0200269 if !has('unix')
270 return
271 endif
272
273 " Xlink1 -> Xlink2
274 " Xlink2 -> Xlink3
275 silent !ln -s -f Xlink2 Xlink1
276 silent !ln -s -f Xlink3 Xlink2
277 call assert_equal('Xlink3', resolve('Xlink1'))
278 call assert_equal('./Xlink3', resolve('./Xlink1'))
279 call assert_equal('Xlink3/', resolve('Xlink2/'))
280 " FIXME: these tests result in things like "Xlink2/" instead of "Xlink3/"?!
281 "call assert_equal('Xlink3/', resolve('Xlink1/'))
282 "call assert_equal('./Xlink3/', resolve('./Xlink1/'))
283 "call assert_equal(getcwd() . '/Xlink3/', resolve(getcwd() . '/Xlink1/'))
284 call assert_equal(getcwd() . '/Xlink3', resolve(getcwd() . '/Xlink1'))
285
286 " Test resolve() with a symlink cycle.
287 " Xlink1 -> Xlink2
288 " Xlink2 -> Xlink3
289 " Xlink3 -> Xlink1
290 silent !ln -s -f Xlink1 Xlink3
291 call assert_fails('call resolve("Xlink1")', 'E655:')
292 call assert_fails('call resolve("./Xlink1")', 'E655:')
293 call assert_fails('call resolve("Xlink2")', 'E655:')
294 call assert_fails('call resolve("Xlink3")', 'E655:')
295 call delete('Xlink1')
296 call delete('Xlink2')
297 call delete('Xlink3')
298
299 silent !ln -s -f Xdir//Xfile Xlink
300 call assert_equal('Xdir/Xfile', resolve('Xlink'))
301 call delete('Xlink')
302
303 silent !ln -s -f Xlink2/ Xlink1
Bram Moolenaara0d1fef2019-09-04 22:29:14 +0200304 call assert_equal('Xlink2', 'Xlink1'->resolve())
Bram Moolenaar26109902018-10-06 15:43:17 +0200305 call assert_equal('Xlink2/', resolve('Xlink1/'))
306 call delete('Xlink1')
307
308 silent !ln -s -f ./Xlink2 Xlink1
309 call assert_equal('Xlink2', resolve('Xlink1'))
310 call assert_equal('./Xlink2', resolve('./Xlink1'))
311 call delete('Xlink1')
312endfunc
313
Bram Moolenaardce1e892019-02-10 23:18:53 +0100314func s:normalize_fname(fname)
315 let ret = substitute(a:fname, '\', '/', 'g')
316 let ret = substitute(ret, '//', '/', 'g')
Bram Moolenaarf92e58c2019-09-08 21:51:41 +0200317 return ret->tolower()
Bram Moolenaardce1e892019-02-10 23:18:53 +0100318endfunc
319
320func Test_resolve_win32()
321 if !has('win32')
322 return
323 endif
324
325 " test for shortcut file
326 if executable('cscript')
327 new Xfile
328 wq
Bram Moolenaare7eb9272019-06-24 00:58:07 +0200329 let lines =<< trim END
330 Set fs = CreateObject("Scripting.FileSystemObject")
331 Set ws = WScript.CreateObject("WScript.Shell")
332 Set shortcut = ws.CreateShortcut("Xlink.lnk")
333 shortcut.TargetPath = fs.BuildPath(ws.CurrentDirectory, "Xfile")
334 shortcut.Save
335 END
336 call writefile(lines, 'link.vbs')
Bram Moolenaardce1e892019-02-10 23:18:53 +0100337 silent !cscript link.vbs
338 call delete('link.vbs')
339 call assert_equal(s:normalize_fname(getcwd() . '\Xfile'), s:normalize_fname(resolve('./Xlink.lnk')))
340 call delete('Xfile')
341
342 call assert_equal(s:normalize_fname(getcwd() . '\Xfile'), s:normalize_fname(resolve('./Xlink.lnk')))
343 call delete('Xlink.lnk')
344 else
345 echomsg 'skipped test for shortcut file'
346 endif
347
348 " remove files
349 call delete('Xlink')
350 call delete('Xdir', 'd')
351 call delete('Xfile')
352
353 " test for symbolic link to a file
354 new Xfile
355 wq
Bram Moolenaar4a792c82019-06-06 12:22:41 +0200356 call assert_equal('Xfile', resolve('Xfile'))
Bram Moolenaardce1e892019-02-10 23:18:53 +0100357 silent !mklink Xlink Xfile
358 if !v:shell_error
359 call assert_equal(s:normalize_fname(getcwd() . '\Xfile'), s:normalize_fname(resolve('./Xlink')))
360 call delete('Xlink')
361 else
362 echomsg 'skipped test for symbolic link to a file'
363 endif
364 call delete('Xfile')
365
366 " test for junction to a directory
367 call mkdir('Xdir')
368 silent !mklink /J Xlink Xdir
369 if !v:shell_error
370 call assert_equal(s:normalize_fname(getcwd() . '\Xdir'), s:normalize_fname(resolve(getcwd() . '/Xlink')))
371
372 call delete('Xdir', 'd')
373
374 " test for junction already removed
375 call assert_equal(s:normalize_fname(getcwd() . '\Xlink'), s:normalize_fname(resolve(getcwd() . '/Xlink')))
376 call delete('Xlink')
377 else
378 echomsg 'skipped test for junction to a directory'
379 call delete('Xdir', 'd')
380 endif
381
382 " test for symbolic link to a directory
383 call mkdir('Xdir')
384 silent !mklink /D Xlink Xdir
385 if !v:shell_error
386 call assert_equal(s:normalize_fname(getcwd() . '\Xdir'), s:normalize_fname(resolve(getcwd() . '/Xlink')))
387
388 call delete('Xdir', 'd')
389
390 " test for symbolic link already removed
391 call assert_equal(s:normalize_fname(getcwd() . '\Xlink'), s:normalize_fname(resolve(getcwd() . '/Xlink')))
392 call delete('Xlink')
393 else
394 echomsg 'skipped test for symbolic link to a directory'
395 call delete('Xdir', 'd')
396 endif
397
398 " test for buffer name
399 new Xfile
400 wq
401 silent !mklink Xlink Xfile
402 if !v:shell_error
403 edit Xlink
404 call assert_equal('Xlink', bufname('%'))
405 call delete('Xlink')
406 bw!
407 else
408 echomsg 'skipped test for buffer name'
409 endif
410 call delete('Xfile')
Bram Moolenaar1bbebab2019-05-29 20:36:54 +0200411
412 " test for reparse point
413 call mkdir('Xdir')
Bram Moolenaar4a792c82019-06-06 12:22:41 +0200414 call assert_equal('Xdir', resolve('Xdir'))
Bram Moolenaar1bbebab2019-05-29 20:36:54 +0200415 silent !mklink /D Xdirlink Xdir
416 if !v:shell_error
417 w Xdir/text.txt
Bram Moolenaar4a792c82019-06-06 12:22:41 +0200418 call assert_equal('Xdir/text.txt', resolve('Xdir/text.txt'))
Bram Moolenaar1bbebab2019-05-29 20:36:54 +0200419 call assert_equal(s:normalize_fname(getcwd() . '\Xdir\text.txt'), s:normalize_fname(resolve('Xdirlink\text.txt')))
420 call assert_equal(s:normalize_fname(getcwd() . '\Xdir'), s:normalize_fname(resolve('Xdirlink')))
Bram Moolenaar4a792c82019-06-06 12:22:41 +0200421 call delete('Xdirlink')
Bram Moolenaar1bbebab2019-05-29 20:36:54 +0200422 else
423 echomsg 'skipped test for reparse point'
424 endif
425
426 call delete('Xdir', 'rf')
Bram Moolenaardce1e892019-02-10 23:18:53 +0100427endfunc
428
Bram Moolenaar24c2e482017-01-29 15:45:12 +0100429func Test_simplify()
430 call assert_equal('', simplify(''))
431 call assert_equal('/', simplify('/'))
432 call assert_equal('/', simplify('/.'))
433 call assert_equal('/', simplify('/..'))
434 call assert_equal('/...', simplify('/...'))
435 call assert_equal('./dir/file', simplify('./dir/file'))
436 call assert_equal('./dir/file', simplify('.///dir//file'))
437 call assert_equal('./dir/file', simplify('./dir/./file'))
438 call assert_equal('./file', simplify('./dir/../file'))
439 call assert_equal('../dir/file', simplify('dir/../../dir/file'))
440 call assert_equal('./file', simplify('dir/.././file'))
441
442 call assert_fails('call simplify({->0})', 'E729:')
443 call assert_fails('call simplify([])', 'E730:')
444 call assert_fails('call simplify({})', 'E731:')
Bram Moolenaar5feabe02020-01-30 18:24:53 +0100445 if has('float')
446 call assert_fails('call simplify(1.2)', 'E806:')
447 endif
Bram Moolenaar08243d22017-01-10 16:12:29 +0100448endfunc
Bram Moolenaarcc5b22b2017-01-26 22:51:56 +0100449
Bram Moolenaarbfde0b42018-08-08 22:27:31 +0200450func Test_pathshorten()
451 call assert_equal('', pathshorten(''))
452 call assert_equal('foo', pathshorten('foo'))
Bram Moolenaar3f4f3d82019-09-04 20:05:59 +0200453 call assert_equal('/foo', '/foo'->pathshorten())
Bram Moolenaarbfde0b42018-08-08 22:27:31 +0200454 call assert_equal('f/', pathshorten('foo/'))
455 call assert_equal('f/bar', pathshorten('foo/bar'))
Bram Moolenaar3f4f3d82019-09-04 20:05:59 +0200456 call assert_equal('f/b/foobar', 'foo/bar/foobar'->pathshorten())
Bram Moolenaarbfde0b42018-08-08 22:27:31 +0200457 call assert_equal('/f/b/foobar', pathshorten('/foo/bar/foobar'))
458 call assert_equal('.f/bar', pathshorten('.foo/bar'))
459 call assert_equal('~f/bar', pathshorten('~foo/bar'))
460 call assert_equal('~.f/bar', pathshorten('~.foo/bar'))
461 call assert_equal('.~f/bar', pathshorten('.~foo/bar'))
462 call assert_equal('~/f/bar', pathshorten('~/foo/bar'))
463endfunc
464
Bram Moolenaarc7d16dc2017-11-18 20:32:03 +0100465func Test_strpart()
466 call assert_equal('de', strpart('abcdefg', 3, 2))
467 call assert_equal('ab', strpart('abcdefg', -2, 4))
Bram Moolenaarf6ed61e2019-09-07 19:05:09 +0200468 call assert_equal('abcdefg', 'abcdefg'->strpart(-2))
Bram Moolenaarc7d16dc2017-11-18 20:32:03 +0100469 call assert_equal('fg', strpart('abcdefg', 5, 4))
470 call assert_equal('defg', strpart('abcdefg', 3))
471
Bram Moolenaar30276f22019-01-24 17:59:39 +0100472 call assert_equal('lép', strpart('éléphant', 2, 4))
473 call assert_equal('léphant', strpart('éléphant', 2))
Bram Moolenaarc7d16dc2017-11-18 20:32:03 +0100474endfunc
475
Bram Moolenaarcc5b22b2017-01-26 22:51:56 +0100476func Test_tolower()
477 call assert_equal("", tolower(""))
478
479 " Test with all printable ASCII characters.
480 call assert_equal(' !"#$%&''()*+,-./0123456789:;<=>?@abcdefghijklmnopqrstuvwxyz[\]^_`abcdefghijklmnopqrstuvwxyz{|}~',
481 \ tolower(' !"#$%&''()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~'))
482
Bram Moolenaarcc5b22b2017-01-26 22:51:56 +0100483 " Test with a few uppercase diacritics.
484 call assert_equal("aàáâãäåāăąǎǟǡả", tolower("AÀÁÂÃÄÅĀĂĄǍǞǠẢ"))
485 call assert_equal("bḃḇ", tolower("BḂḆ"))
486 call assert_equal("cçćĉċč", tolower("CÇĆĈĊČ"))
487 call assert_equal("dďđḋḏḑ", tolower("DĎĐḊḎḐ"))
488 call assert_equal("eèéêëēĕėęěẻẽ", tolower("EÈÉÊËĒĔĖĘĚẺẼ"))
489 call assert_equal("fḟ ", tolower("FḞ "))
490 call assert_equal("gĝğġģǥǧǵḡ", tolower("GĜĞĠĢǤǦǴḠ"))
491 call assert_equal("hĥħḣḧḩ", tolower("HĤĦḢḦḨ"))
492 call assert_equal("iìíîïĩīĭįiǐỉ", tolower("IÌÍÎÏĨĪĬĮİǏỈ"))
493 call assert_equal("jĵ", tolower("JĴ"))
494 call assert_equal("kķǩḱḵ", tolower("KĶǨḰḴ"))
495 call assert_equal("lĺļľŀłḻ", tolower("LĹĻĽĿŁḺ"))
496 call assert_equal("mḿṁ", tolower("MḾṀ"))
497 call assert_equal("nñńņňṅṉ", tolower("NÑŃŅŇṄṈ"))
498 call assert_equal("oòóôõöøōŏőơǒǫǭỏ", tolower("OÒÓÔÕÖØŌŎŐƠǑǪǬỎ"))
499 call assert_equal("pṕṗ", tolower("PṔṖ"))
500 call assert_equal("q", tolower("Q"))
501 call assert_equal("rŕŗřṙṟ", tolower("RŔŖŘṘṞ"))
502 call assert_equal("sśŝşšṡ", tolower("SŚŜŞŠṠ"))
503 call assert_equal("tţťŧṫṯ", tolower("TŢŤŦṪṮ"))
504 call assert_equal("uùúûüũūŭůűųưǔủ", tolower("UÙÚÛÜŨŪŬŮŰŲƯǓỦ"))
505 call assert_equal("vṽ", tolower("VṼ"))
506 call assert_equal("wŵẁẃẅẇ", tolower("WŴẀẂẄẆ"))
507 call assert_equal("xẋẍ", tolower("XẊẌ"))
508 call assert_equal("yýŷÿẏỳỷỹ", tolower("YÝŶŸẎỲỶỸ"))
509 call assert_equal("zźżžƶẑẕ", tolower("ZŹŻŽƵẐẔ"))
510
511 " Test with a few lowercase diacritics, which should remain unchanged.
512 call assert_equal("aàáâãäåāăąǎǟǡả", tolower("aàáâãäåāăąǎǟǡả"))
513 call assert_equal("bḃḇ", tolower("bḃḇ"))
514 call assert_equal("cçćĉċč", tolower("cçćĉċč"))
515 call assert_equal("dďđḋḏḑ", tolower("dďđḋḏḑ"))
516 call assert_equal("eèéêëēĕėęěẻẽ", tolower("eèéêëēĕėęěẻẽ"))
517 call assert_equal("fḟ", tolower("fḟ"))
518 call assert_equal("gĝğġģǥǧǵḡ", tolower("gĝğġģǥǧǵḡ"))
519 call assert_equal("hĥħḣḧḩẖ", tolower("hĥħḣḧḩẖ"))
520 call assert_equal("iìíîïĩīĭįǐỉ", tolower("iìíîïĩīĭįǐỉ"))
521 call assert_equal("jĵǰ", tolower("jĵǰ"))
522 call assert_equal("kķǩḱḵ", tolower("kķǩḱḵ"))
523 call assert_equal("lĺļľŀłḻ", tolower("lĺļľŀłḻ"))
524 call assert_equal("mḿṁ ", tolower("mḿṁ "))
525 call assert_equal("nñńņňʼnṅṉ", tolower("nñńņňʼnṅṉ"))
526 call assert_equal("oòóôõöøōŏőơǒǫǭỏ", tolower("oòóôõöøōŏőơǒǫǭỏ"))
527 call assert_equal("pṕṗ", tolower("pṕṗ"))
528 call assert_equal("q", tolower("q"))
529 call assert_equal("rŕŗřṙṟ", tolower("rŕŗřṙṟ"))
530 call assert_equal("sśŝşšṡ", tolower("sśŝşšṡ"))
531 call assert_equal("tţťŧṫṯẗ", tolower("tţťŧṫṯẗ"))
532 call assert_equal("uùúûüũūŭůűųưǔủ", tolower("uùúûüũūŭůűųưǔủ"))
533 call assert_equal("vṽ", tolower("vṽ"))
534 call assert_equal("wŵẁẃẅẇẘ", tolower("wŵẁẃẅẇẘ"))
535 call assert_equal("ẋẍ", tolower("ẋẍ"))
536 call assert_equal("yýÿŷẏẙỳỷỹ", tolower("yýÿŷẏẙỳỷỹ"))
537 call assert_equal("zźżžƶẑẕ", tolower("zźżžƶẑẕ"))
538
539 " According to https://twitter.com/jifa/status/625776454479970304
540 " Ⱥ (U+023A) and Ⱦ (U+023E) are the *only* code points to increase
541 " in length (2 to 3 bytes) when lowercased. So let's test them.
542 call assert_equal("ⱥ ⱦ", tolower("Ⱥ Ⱦ"))
Bram Moolenaare6640ad2017-12-22 21:06:56 +0100543
544 " This call to tolower with invalid utf8 sequence used to cause access to
545 " invalid memory.
546 call tolower("\xC0\x80\xC0")
547 call tolower("123\xC0\x80\xC0")
Bram Moolenaarcc5b22b2017-01-26 22:51:56 +0100548endfunc
549
550func Test_toupper()
551 call assert_equal("", toupper(""))
552
553 " Test with all printable ASCII characters.
554 call assert_equal(' !"#$%&''()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~',
555 \ toupper(' !"#$%&''()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~'))
556
Bram Moolenaarcc5b22b2017-01-26 22:51:56 +0100557 " Test with a few lowercase diacritics.
Bram Moolenaarf92e58c2019-09-08 21:51:41 +0200558 call assert_equal("AÀÁÂÃÄÅĀĂĄǍǞǠẢ", "aàáâãäåāăąǎǟǡả"->toupper())
Bram Moolenaarcc5b22b2017-01-26 22:51:56 +0100559 call assert_equal("BḂḆ", toupper("bḃḇ"))
560 call assert_equal("CÇĆĈĊČ", toupper("cçćĉċč"))
561 call assert_equal("DĎĐḊḎḐ", toupper("dďđḋḏḑ"))
562 call assert_equal("EÈÉÊËĒĔĖĘĚẺẼ", toupper("eèéêëēĕėęěẻẽ"))
563 call assert_equal("FḞ", toupper("fḟ"))
564 call assert_equal("GĜĞĠĢǤǦǴḠ", toupper("gĝğġģǥǧǵḡ"))
565 call assert_equal("HĤĦḢḦḨẖ", toupper("hĥħḣḧḩẖ"))
566 call assert_equal("IÌÍÎÏĨĪĬĮǏỈ", toupper("iìíîïĩīĭįǐỉ"))
567 call assert_equal("JĴǰ", toupper("jĵǰ"))
568 call assert_equal("KĶǨḰḴ", toupper("kķǩḱḵ"))
569 call assert_equal("LĹĻĽĿŁḺ", toupper("lĺļľŀłḻ"))
570 call assert_equal("MḾṀ ", toupper("mḿṁ "))
571 call assert_equal("NÑŃŅŇʼnṄṈ", toupper("nñńņňʼnṅṉ"))
572 call assert_equal("OÒÓÔÕÖØŌŎŐƠǑǪǬỎ", toupper("oòóôõöøōŏőơǒǫǭỏ"))
573 call assert_equal("PṔṖ", toupper("pṕṗ"))
574 call assert_equal("Q", toupper("q"))
575 call assert_equal("RŔŖŘṘṞ", toupper("rŕŗřṙṟ"))
576 call assert_equal("SŚŜŞŠṠ", toupper("sśŝşšṡ"))
577 call assert_equal("TŢŤŦṪṮẗ", toupper("tţťŧṫṯẗ"))
578 call assert_equal("UÙÚÛÜŨŪŬŮŰŲƯǓỦ", toupper("uùúûüũūŭůűųưǔủ"))
579 call assert_equal("VṼ", toupper("vṽ"))
580 call assert_equal("WŴẀẂẄẆẘ", toupper("wŵẁẃẅẇẘ"))
581 call assert_equal("ẊẌ", toupper("ẋẍ"))
582 call assert_equal("YÝŸŶẎẙỲỶỸ", toupper("yýÿŷẏẙỳỷỹ"))
583 call assert_equal("ZŹŻŽƵẐẔ", toupper("zźżžƶẑẕ"))
584
585 " Test that uppercase diacritics, which should remain unchanged.
586 call assert_equal("AÀÁÂÃÄÅĀĂĄǍǞǠẢ", toupper("AÀÁÂÃÄÅĀĂĄǍǞǠẢ"))
587 call assert_equal("BḂḆ", toupper("BḂḆ"))
588 call assert_equal("CÇĆĈĊČ", toupper("CÇĆĈĊČ"))
589 call assert_equal("DĎĐḊḎḐ", toupper("DĎĐḊḎḐ"))
590 call assert_equal("EÈÉÊËĒĔĖĘĚẺẼ", toupper("EÈÉÊËĒĔĖĘĚẺẼ"))
591 call assert_equal("FḞ ", toupper("FḞ "))
592 call assert_equal("GĜĞĠĢǤǦǴḠ", toupper("GĜĞĠĢǤǦǴḠ"))
593 call assert_equal("HĤĦḢḦḨ", toupper("HĤĦḢḦḨ"))
594 call assert_equal("IÌÍÎÏĨĪĬĮİǏỈ", toupper("IÌÍÎÏĨĪĬĮİǏỈ"))
595 call assert_equal("JĴ", toupper("JĴ"))
596 call assert_equal("KĶǨḰḴ", toupper("KĶǨḰḴ"))
597 call assert_equal("LĹĻĽĿŁḺ", toupper("LĹĻĽĿŁḺ"))
598 call assert_equal("MḾṀ", toupper("MḾṀ"))
599 call assert_equal("NÑŃŅŇṄṈ", toupper("NÑŃŅŇṄṈ"))
600 call assert_equal("OÒÓÔÕÖØŌŎŐƠǑǪǬỎ", toupper("OÒÓÔÕÖØŌŎŐƠǑǪǬỎ"))
601 call assert_equal("PṔṖ", toupper("PṔṖ"))
602 call assert_equal("Q", toupper("Q"))
603 call assert_equal("RŔŖŘṘṞ", toupper("RŔŖŘṘṞ"))
604 call assert_equal("SŚŜŞŠṠ", toupper("SŚŜŞŠṠ"))
605 call assert_equal("TŢŤŦṪṮ", toupper("TŢŤŦṪṮ"))
606 call assert_equal("UÙÚÛÜŨŪŬŮŰŲƯǓỦ", toupper("UÙÚÛÜŨŪŬŮŰŲƯǓỦ"))
607 call assert_equal("VṼ", toupper("VṼ"))
608 call assert_equal("WŴẀẂẄẆ", toupper("WŴẀẂẄẆ"))
609 call assert_equal("XẊẌ", toupper("XẊẌ"))
610 call assert_equal("YÝŶŸẎỲỶỸ", toupper("YÝŶŸẎỲỶỸ"))
611 call assert_equal("ZŹŻŽƵẐẔ", toupper("ZŹŻŽƵẐẔ"))
612
Bram Moolenaar24c2e482017-01-29 15:45:12 +0100613 call assert_equal("Ⱥ Ⱦ", toupper("ⱥ ⱦ"))
Bram Moolenaare6640ad2017-12-22 21:06:56 +0100614
615 " This call to toupper with invalid utf8 sequence used to cause access to
616 " invalid memory.
617 call toupper("\xC0\x80\xC0")
618 call toupper("123\xC0\x80\xC0")
Bram Moolenaarcc5b22b2017-01-26 22:51:56 +0100619endfunc
620
Bram Moolenaarf92e58c2019-09-08 21:51:41 +0200621func Test_tr()
622 call assert_equal('foo', tr('bar', 'bar', 'foo'))
623 call assert_equal('zxy', 'cab'->tr('abc', 'xyz'))
624endfunc
625
Bram Moolenaare90858d2017-02-01 17:24:34 +0100626" Tests for the mode() function
627let current_modes = ''
Bram Moolenaarffea8c92017-03-13 20:37:15 +0100628func Save_mode()
Bram Moolenaare90858d2017-02-01 17:24:34 +0100629 let g:current_modes = mode(0) . '-' . mode(1)
630 return ''
631endfunc
Bram Moolenaarcc5b22b2017-01-26 22:51:56 +0100632
Bram Moolenaarffea8c92017-03-13 20:37:15 +0100633func Test_mode()
Bram Moolenaare90858d2017-02-01 17:24:34 +0100634 new
635 call append(0, ["Blue Ball Black", "Brown Band Bowl", ""])
636
Bram Moolenaarffea8c92017-03-13 20:37:15 +0100637 " Only complete from the current buffer.
638 set complete=.
639
Bram Moolenaare90858d2017-02-01 17:24:34 +0100640 inoremap <F2> <C-R>=Save_mode()<CR>
641
642 normal! 3G
643 exe "normal i\<F2>\<Esc>"
644 call assert_equal('i-i', g:current_modes)
Bram Moolenaare971df32017-02-05 14:15:29 +0100645 " i_CTRL-P: Multiple matches
Bram Moolenaare90858d2017-02-01 17:24:34 +0100646 exe "normal i\<C-G>uBa\<C-P>\<F2>\<Esc>u"
647 call assert_equal('i-ic', g:current_modes)
Bram Moolenaare971df32017-02-05 14:15:29 +0100648 " i_CTRL-P: Single match
Bram Moolenaare90858d2017-02-01 17:24:34 +0100649 exe "normal iBro\<C-P>\<F2>\<Esc>u"
650 call assert_equal('i-ic', g:current_modes)
Bram Moolenaare971df32017-02-05 14:15:29 +0100651 " i_CTRL-X
Bram Moolenaare90858d2017-02-01 17:24:34 +0100652 exe "normal iBa\<C-X>\<F2>\<Esc>u"
653 call assert_equal('i-ix', g:current_modes)
Bram Moolenaare971df32017-02-05 14:15:29 +0100654 " i_CTRL-X CTRL-P: Multiple matches
Bram Moolenaare90858d2017-02-01 17:24:34 +0100655 exe "normal iBa\<C-X>\<C-P>\<F2>\<Esc>u"
656 call assert_equal('i-ic', g:current_modes)
Bram Moolenaare971df32017-02-05 14:15:29 +0100657 " i_CTRL-X CTRL-P: Single match
Bram Moolenaare90858d2017-02-01 17:24:34 +0100658 exe "normal iBro\<C-X>\<C-P>\<F2>\<Esc>u"
659 call assert_equal('i-ic', g:current_modes)
Bram Moolenaare971df32017-02-05 14:15:29 +0100660 " i_CTRL-X CTRL-P + CTRL-P: Single match
Bram Moolenaare90858d2017-02-01 17:24:34 +0100661 exe "normal iBro\<C-X>\<C-P>\<C-P>\<F2>\<Esc>u"
662 call assert_equal('i-ic', g:current_modes)
Bram Moolenaare971df32017-02-05 14:15:29 +0100663 " i_CTRL-X CTRL-L: Multiple matches
664 exe "normal i\<C-X>\<C-L>\<F2>\<Esc>u"
665 call assert_equal('i-ic', g:current_modes)
666 " i_CTRL-X CTRL-L: Single match
667 exe "normal iBlu\<C-X>\<C-L>\<F2>\<Esc>u"
668 call assert_equal('i-ic', g:current_modes)
669 " i_CTRL-P: No match
Bram Moolenaare90858d2017-02-01 17:24:34 +0100670 exe "normal iCom\<C-P>\<F2>\<Esc>u"
671 call assert_equal('i-ic', g:current_modes)
Bram Moolenaare971df32017-02-05 14:15:29 +0100672 " i_CTRL-X CTRL-P: No match
Bram Moolenaare90858d2017-02-01 17:24:34 +0100673 exe "normal iCom\<C-X>\<C-P>\<F2>\<Esc>u"
674 call assert_equal('i-ic', g:current_modes)
Bram Moolenaare971df32017-02-05 14:15:29 +0100675 " i_CTRL-X CTRL-L: No match
676 exe "normal iabc\<C-X>\<C-L>\<F2>\<Esc>u"
677 call assert_equal('i-ic', g:current_modes)
Bram Moolenaare90858d2017-02-01 17:24:34 +0100678
Bram Moolenaare971df32017-02-05 14:15:29 +0100679 " R_CTRL-P: Multiple matches
Bram Moolenaare90858d2017-02-01 17:24:34 +0100680 exe "normal RBa\<C-P>\<F2>\<Esc>u"
681 call assert_equal('R-Rc', g:current_modes)
Bram Moolenaare971df32017-02-05 14:15:29 +0100682 " R_CTRL-P: Single match
Bram Moolenaare90858d2017-02-01 17:24:34 +0100683 exe "normal RBro\<C-P>\<F2>\<Esc>u"
684 call assert_equal('R-Rc', g:current_modes)
Bram Moolenaare971df32017-02-05 14:15:29 +0100685 " R_CTRL-X
Bram Moolenaare90858d2017-02-01 17:24:34 +0100686 exe "normal RBa\<C-X>\<F2>\<Esc>u"
687 call assert_equal('R-Rx', g:current_modes)
Bram Moolenaare971df32017-02-05 14:15:29 +0100688 " R_CTRL-X CTRL-P: Multiple matches
Bram Moolenaare90858d2017-02-01 17:24:34 +0100689 exe "normal RBa\<C-X>\<C-P>\<F2>\<Esc>u"
690 call assert_equal('R-Rc', g:current_modes)
Bram Moolenaare971df32017-02-05 14:15:29 +0100691 " R_CTRL-X CTRL-P: Single match
Bram Moolenaare90858d2017-02-01 17:24:34 +0100692 exe "normal RBro\<C-X>\<C-P>\<F2>\<Esc>u"
693 call assert_equal('R-Rc', g:current_modes)
Bram Moolenaare971df32017-02-05 14:15:29 +0100694 " R_CTRL-X CTRL-P + CTRL-P: Single match
Bram Moolenaare90858d2017-02-01 17:24:34 +0100695 exe "normal RBro\<C-X>\<C-P>\<C-P>\<F2>\<Esc>u"
696 call assert_equal('R-Rc', g:current_modes)
Bram Moolenaare971df32017-02-05 14:15:29 +0100697 " R_CTRL-X CTRL-L: Multiple matches
698 exe "normal R\<C-X>\<C-L>\<F2>\<Esc>u"
699 call assert_equal('R-Rc', g:current_modes)
700 " R_CTRL-X CTRL-L: Single match
701 exe "normal RBlu\<C-X>\<C-L>\<F2>\<Esc>u"
702 call assert_equal('R-Rc', g:current_modes)
703 " R_CTRL-P: No match
Bram Moolenaare90858d2017-02-01 17:24:34 +0100704 exe "normal RCom\<C-P>\<F2>\<Esc>u"
705 call assert_equal('R-Rc', g:current_modes)
Bram Moolenaare971df32017-02-05 14:15:29 +0100706 " R_CTRL-X CTRL-P: No match
Bram Moolenaare90858d2017-02-01 17:24:34 +0100707 exe "normal RCom\<C-X>\<C-P>\<F2>\<Esc>u"
708 call assert_equal('R-Rc', g:current_modes)
Bram Moolenaare971df32017-02-05 14:15:29 +0100709 " R_CTRL-X CTRL-L: No match
710 exe "normal Rabc\<C-X>\<C-L>\<F2>\<Esc>u"
711 call assert_equal('R-Rc', g:current_modes)
Bram Moolenaare90858d2017-02-01 17:24:34 +0100712
Bram Moolenaara1449832019-09-01 20:16:52 +0200713 call assert_equal('n', 0->mode())
714 call assert_equal('n', 1->mode())
Bram Moolenaare90858d2017-02-01 17:24:34 +0100715
Bram Moolenaar612cc382018-07-29 15:34:26 +0200716 " i_CTRL-O
717 exe "normal i\<C-O>:call Save_mode()\<Cr>\<Esc>"
718 call assert_equal("n-niI", g:current_modes)
719
720 " R_CTRL-O
721 exe "normal R\<C-O>:call Save_mode()\<Cr>\<Esc>"
722 call assert_equal("n-niR", g:current_modes)
723
724 " gR_CTRL-O
725 exe "normal gR\<C-O>:call Save_mode()\<Cr>\<Esc>"
726 call assert_equal("n-niV", g:current_modes)
727
Bram Moolenaare90858d2017-02-01 17:24:34 +0100728 " How to test operator-pending mode?
729
730 call feedkeys("v", 'xt')
731 call assert_equal('v', mode())
732 call assert_equal('v', mode(1))
733 call feedkeys("\<Esc>V", 'xt')
734 call assert_equal('V', mode())
735 call assert_equal('V', mode(1))
736 call feedkeys("\<Esc>\<C-V>", 'xt')
737 call assert_equal("\<C-V>", mode())
738 call assert_equal("\<C-V>", mode(1))
739 call feedkeys("\<Esc>", 'xt')
740
741 call feedkeys("gh", 'xt')
742 call assert_equal('s', mode())
743 call assert_equal('s', mode(1))
744 call feedkeys("\<Esc>gH", 'xt')
745 call assert_equal('S', mode())
746 call assert_equal('S', mode(1))
747 call feedkeys("\<Esc>g\<C-H>", 'xt')
748 call assert_equal("\<C-S>", mode())
749 call assert_equal("\<C-S>", mode(1))
750 call feedkeys("\<Esc>", 'xt')
751
752 call feedkeys(":echo \<C-R>=Save_mode()\<C-U>\<CR>", 'xt')
753 call assert_equal('c-c', g:current_modes)
754 call feedkeys("gQecho \<C-R>=Save_mode()\<CR>\<CR>vi\<CR>", 'xt')
755 call assert_equal('c-cv', g:current_modes)
756 " How to test Ex mode?
757
758 bwipe!
759 iunmap <F2>
Bram Moolenaarffea8c92017-03-13 20:37:15 +0100760 set complete&
Bram Moolenaare90858d2017-02-01 17:24:34 +0100761endfunc
Bram Moolenaar79518e22017-02-17 16:31:35 +0100762
Bram Moolenaard2007022019-08-27 21:56:06 +0200763func Test_append()
764 enew!
765 split
766 call append(0, ["foo"])
767 split
768 only
769 undo
770endfunc
771
Bram Moolenaar79518e22017-02-17 16:31:35 +0100772func Test_getbufvar()
773 let bnr = bufnr('%')
774 let b:var_num = '1234'
775 let def_num = '5678'
776 call assert_equal('1234', getbufvar(bnr, 'var_num'))
777 call assert_equal('1234', getbufvar(bnr, 'var_num', def_num))
778
779 let bd = getbufvar(bnr, '')
780 call assert_equal('1234', bd['var_num'])
781 call assert_true(exists("bd['changedtick']"))
782 call assert_equal(2, len(bd))
783
784 let bd2 = getbufvar(bnr, '', def_num)
785 call assert_equal(bd, bd2)
786
787 unlet b:var_num
788 call assert_equal(def_num, getbufvar(bnr, 'var_num', def_num))
789 call assert_equal('', getbufvar(bnr, 'var_num'))
790
791 let bd = getbufvar(bnr, '')
792 call assert_equal(1, len(bd))
793 let bd = getbufvar(bnr, '',def_num)
794 call assert_equal(1, len(bd))
795
Bram Moolenaar4520d442017-03-19 16:09:46 +0100796 call assert_equal('', getbufvar(9999, ''))
797 call assert_equal(def_num, getbufvar(9999, '', def_num))
Bram Moolenaar79518e22017-02-17 16:31:35 +0100798 unlet def_num
799
Bram Moolenaar507647d2017-02-17 16:43:49 +0100800 call assert_equal(0, getbufvar(bnr, '&autoindent'))
801 call assert_equal(0, getbufvar(bnr, '&autoindent', 1))
Bram Moolenaar79518e22017-02-17 16:31:35 +0100802
Bram Moolenaar8dfcce32020-03-18 19:32:26 +0100803 " Set and get a buffer-local variable
804 call setbufvar(bnr, 'bufvar_test', ['one', 'two'])
805 call assert_equal(['one', 'two'], getbufvar(bnr, 'bufvar_test'))
806
Bram Moolenaar79518e22017-02-17 16:31:35 +0100807 " Open new window with forced option values
808 set fileformats=unix,dos
809 new ++ff=dos ++bin ++enc=iso-8859-2
810 call assert_equal('dos', getbufvar(bufnr('%'), '&fileformat'))
811 call assert_equal(1, getbufvar(bufnr('%'), '&bin'))
812 call assert_equal('iso-8859-2', getbufvar(bufnr('%'), '&fenc'))
813 close
814
815 set fileformats&
816endfunc
Bram Moolenaarcaf64342017-03-02 22:11:33 +0100817
Bram Moolenaar41042f32017-03-09 12:09:32 +0100818func Test_last_buffer_nr()
819 call assert_equal(bufnr('$'), last_buffer_nr())
820endfunc
821
822func Test_stridx()
823 call assert_equal(-1, stridx('', 'l'))
824 call assert_equal(0, stridx('', ''))
Bram Moolenaarf6ed61e2019-09-07 19:05:09 +0200825 call assert_equal(0, 'hello'->stridx(''))
Bram Moolenaar41042f32017-03-09 12:09:32 +0100826 call assert_equal(-1, stridx('hello', 'L'))
827 call assert_equal(2, stridx('hello', 'l', -1))
828 call assert_equal(2, stridx('hello', 'l', 0))
Bram Moolenaarf6ed61e2019-09-07 19:05:09 +0200829 call assert_equal(2, 'hello'->stridx('l', 1))
Bram Moolenaar41042f32017-03-09 12:09:32 +0100830 call assert_equal(3, stridx('hello', 'l', 3))
831 call assert_equal(-1, stridx('hello', 'l', 4))
832 call assert_equal(-1, stridx('hello', 'l', 10))
833 call assert_equal(2, stridx('hello', 'll'))
834 call assert_equal(-1, stridx('hello', 'hello world'))
835endfunc
836
837func Test_strridx()
838 call assert_equal(-1, strridx('', 'l'))
839 call assert_equal(0, strridx('', ''))
840 call assert_equal(5, strridx('hello', ''))
841 call assert_equal(-1, strridx('hello', 'L'))
Bram Moolenaarf6ed61e2019-09-07 19:05:09 +0200842 call assert_equal(3, 'hello'->strridx('l'))
Bram Moolenaar41042f32017-03-09 12:09:32 +0100843 call assert_equal(3, strridx('hello', 'l', 10))
844 call assert_equal(3, strridx('hello', 'l', 3))
845 call assert_equal(2, strridx('hello', 'l', 2))
846 call assert_equal(-1, strridx('hello', 'l', 1))
847 call assert_equal(-1, strridx('hello', 'l', 0))
848 call assert_equal(-1, strridx('hello', 'l', -1))
849 call assert_equal(2, strridx('hello', 'll'))
850 call assert_equal(-1, strridx('hello', 'hello world'))
851endfunc
852
Bram Moolenaar1190cf62017-09-14 14:31:18 +0200853func Test_match_func()
854 call assert_equal(4, match('testing', 'ing'))
Bram Moolenaara1449832019-09-01 20:16:52 +0200855 call assert_equal(4, 'testing'->match('ing', 2))
Bram Moolenaar1190cf62017-09-14 14:31:18 +0200856 call assert_equal(-1, match('testing', 'ing', 5))
857 call assert_equal(-1, match('testing', 'ing', 8))
858 call assert_equal(1, match(['vim', 'testing', 'execute'], 'ing'))
859 call assert_equal(-1, match(['vim', 'testing', 'execute'], 'img'))
860endfunc
861
Bram Moolenaar41042f32017-03-09 12:09:32 +0100862func Test_matchend()
863 call assert_equal(7, matchend('testing', 'ing'))
Bram Moolenaara1449832019-09-01 20:16:52 +0200864 call assert_equal(7, 'testing'->matchend('ing', 2))
Bram Moolenaar41042f32017-03-09 12:09:32 +0100865 call assert_equal(-1, matchend('testing', 'ing', 5))
Bram Moolenaar1190cf62017-09-14 14:31:18 +0200866 call assert_equal(-1, matchend('testing', 'ing', 8))
867 call assert_equal(match(['vim', 'testing', 'execute'], 'ing'), matchend(['vim', 'testing', 'execute'], 'ing'))
868 call assert_equal(match(['vim', 'testing', 'execute'], 'img'), matchend(['vim', 'testing', 'execute'], 'img'))
869endfunc
870
871func Test_matchlist()
872 call assert_equal(['acd', 'a', '', 'c', 'd', '', '', '', '', ''], matchlist('acd', '\(a\)\?\(b\)\?\(c\)\?\(.*\)'))
Bram Moolenaara1449832019-09-01 20:16:52 +0200873 call assert_equal(['d', '', '', '', 'd', '', '', '', '', ''], 'acd'->matchlist('\(a\)\?\(b\)\?\(c\)\?\(.*\)', 2))
Bram Moolenaar1190cf62017-09-14 14:31:18 +0200874 call assert_equal([], matchlist('acd', '\(a\)\?\(b\)\?\(c\)\?\(.*\)', 4))
875endfunc
876
877func Test_matchstr()
878 call assert_equal('ing', matchstr('testing', 'ing'))
Bram Moolenaara1449832019-09-01 20:16:52 +0200879 call assert_equal('ing', 'testing'->matchstr('ing', 2))
Bram Moolenaar1190cf62017-09-14 14:31:18 +0200880 call assert_equal('', matchstr('testing', 'ing', 5))
881 call assert_equal('', matchstr('testing', 'ing', 8))
882 call assert_equal('testing', matchstr(['vim', 'testing', 'execute'], 'ing'))
883 call assert_equal('', matchstr(['vim', 'testing', 'execute'], 'img'))
884endfunc
885
886func Test_matchstrpos()
887 call assert_equal(['ing', 4, 7], matchstrpos('testing', 'ing'))
Bram Moolenaara1449832019-09-01 20:16:52 +0200888 call assert_equal(['ing', 4, 7], 'testing'->matchstrpos('ing', 2))
Bram Moolenaar1190cf62017-09-14 14:31:18 +0200889 call assert_equal(['', -1, -1], matchstrpos('testing', 'ing', 5))
890 call assert_equal(['', -1, -1], matchstrpos('testing', 'ing', 8))
891 call assert_equal(['ing', 1, 4, 7], matchstrpos(['vim', 'testing', 'execute'], 'ing'))
892 call assert_equal(['', -1, -1, -1], matchstrpos(['vim', 'testing', 'execute'], 'img'))
Bram Moolenaar41042f32017-03-09 12:09:32 +0100893endfunc
894
895func Test_nextnonblank_prevnonblank()
896 new
897insert
898This
899
900
901is
902
903a
904Test
905.
906 call assert_equal(0, nextnonblank(-1))
907 call assert_equal(0, nextnonblank(0))
908 call assert_equal(1, nextnonblank(1))
Bram Moolenaar3f4f3d82019-09-04 20:05:59 +0200909 call assert_equal(4, 2->nextnonblank())
Bram Moolenaar41042f32017-03-09 12:09:32 +0100910 call assert_equal(4, nextnonblank(3))
911 call assert_equal(4, nextnonblank(4))
912 call assert_equal(6, nextnonblank(5))
913 call assert_equal(6, nextnonblank(6))
914 call assert_equal(7, nextnonblank(7))
Bram Moolenaar3f4f3d82019-09-04 20:05:59 +0200915 call assert_equal(0, 8->nextnonblank())
Bram Moolenaar41042f32017-03-09 12:09:32 +0100916
917 call assert_equal(0, prevnonblank(-1))
918 call assert_equal(0, prevnonblank(0))
Bram Moolenaar3f4f3d82019-09-04 20:05:59 +0200919 call assert_equal(1, 1->prevnonblank())
Bram Moolenaar41042f32017-03-09 12:09:32 +0100920 call assert_equal(1, prevnonblank(2))
921 call assert_equal(1, prevnonblank(3))
922 call assert_equal(4, prevnonblank(4))
Bram Moolenaar3f4f3d82019-09-04 20:05:59 +0200923 call assert_equal(4, 5->prevnonblank())
Bram Moolenaar41042f32017-03-09 12:09:32 +0100924 call assert_equal(6, prevnonblank(6))
925 call assert_equal(7, prevnonblank(7))
926 call assert_equal(0, prevnonblank(8))
927 bw!
928endfunc
929
930func Test_byte2line_line2byte()
931 new
Bram Moolenaarc26f7c62018-08-20 22:53:04 +0200932 set endofline
Bram Moolenaar41042f32017-03-09 12:09:32 +0100933 call setline(1, ['a', 'bc', 'd'])
934
935 set fileformat=unix
936 call assert_equal([-1, -1, 1, 1, 2, 2, 2, 3, 3, -1],
937 \ map(range(-1, 8), 'byte2line(v:val)'))
938 call assert_equal([-1, -1, 1, 3, 6, 8, -1],
939 \ map(range(-1, 5), 'line2byte(v:val)'))
940
941 set fileformat=mac
942 call assert_equal([-1, -1, 1, 1, 2, 2, 2, 3, 3, -1],
Bram Moolenaar64b4d732019-08-22 22:18:17 +0200943 \ map(range(-1, 8), 'v:val->byte2line()'))
Bram Moolenaar41042f32017-03-09 12:09:32 +0100944 call assert_equal([-1, -1, 1, 3, 6, 8, -1],
Bram Moolenaar02b31112019-08-31 22:16:38 +0200945 \ map(range(-1, 5), 'v:val->line2byte()'))
Bram Moolenaar41042f32017-03-09 12:09:32 +0100946
947 set fileformat=dos
948 call assert_equal([-1, -1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, -1],
949 \ map(range(-1, 11), 'byte2line(v:val)'))
950 call assert_equal([-1, -1, 1, 4, 8, 11, -1],
951 \ map(range(-1, 5), 'line2byte(v:val)'))
952
Bram Moolenaarc26f7c62018-08-20 22:53:04 +0200953 bw!
954 set noendofline nofixendofline
955 normal a-
956 for ff in ["unix", "mac", "dos"]
957 let &fileformat = ff
958 call assert_equal(1, line2byte(1))
959 call assert_equal(2, line2byte(2)) " line2byte(line("$") + 1) is the buffer size plus one (as per :help line2byte).
960 endfor
961
962 set endofline& fixendofline& fileformat&
Bram Moolenaar41042f32017-03-09 12:09:32 +0100963 bw!
964endfunc
965
Bram Moolenaar64b4d732019-08-22 22:18:17 +0200966func Test_byteidx()
967 let a = '.é.' " one char of two bytes
968 call assert_equal(0, byteidx(a, 0))
969 call assert_equal(0, byteidxcomp(a, 0))
970 call assert_equal(1, byteidx(a, 1))
971 call assert_equal(1, byteidxcomp(a, 1))
972 call assert_equal(3, byteidx(a, 2))
973 call assert_equal(3, byteidxcomp(a, 2))
974 call assert_equal(4, byteidx(a, 3))
975 call assert_equal(4, byteidxcomp(a, 3))
976 call assert_equal(-1, byteidx(a, 4))
977 call assert_equal(-1, byteidxcomp(a, 4))
978
979 let b = '.é.' " normal e with composing char
980 call assert_equal(0, b->byteidx(0))
981 call assert_equal(1, b->byteidx(1))
982 call assert_equal(4, b->byteidx(2))
983 call assert_equal(5, b->byteidx(3))
984 call assert_equal(-1, b->byteidx(4))
985
986 call assert_equal(0, b->byteidxcomp(0))
987 call assert_equal(1, b->byteidxcomp(1))
988 call assert_equal(2, b->byteidxcomp(2))
989 call assert_equal(4, b->byteidxcomp(3))
990 call assert_equal(5, b->byteidxcomp(4))
991 call assert_equal(-1, b->byteidxcomp(5))
992endfunc
993
Bram Moolenaar41042f32017-03-09 12:09:32 +0100994func Test_count()
995 let l = ['a', 'a', 'A', 'b']
996 call assert_equal(2, count(l, 'a'))
997 call assert_equal(1, count(l, 'A'))
998 call assert_equal(1, count(l, 'b'))
999 call assert_equal(0, count(l, 'B'))
1000
1001 call assert_equal(2, count(l, 'a', 0))
1002 call assert_equal(1, count(l, 'A', 0))
1003 call assert_equal(1, count(l, 'b', 0))
1004 call assert_equal(0, count(l, 'B', 0))
1005
1006 call assert_equal(3, count(l, 'a', 1))
1007 call assert_equal(3, count(l, 'A', 1))
1008 call assert_equal(1, count(l, 'b', 1))
1009 call assert_equal(1, count(l, 'B', 1))
1010 call assert_equal(0, count(l, 'c', 1))
1011
1012 call assert_equal(1, count(l, 'a', 0, 1))
1013 call assert_equal(2, count(l, 'a', 1, 1))
1014 call assert_fails('call count(l, "a", 0, 10)', 'E684:')
Bram Moolenaar17aca702019-05-16 22:24:55 +02001015 call assert_fails('call count(l, "a", [])', 'E745:')
Bram Moolenaar41042f32017-03-09 12:09:32 +01001016
1017 let d = {1: 'a', 2: 'a', 3: 'A', 4: 'b'}
1018 call assert_equal(2, count(d, 'a'))
1019 call assert_equal(1, count(d, 'A'))
1020 call assert_equal(1, count(d, 'b'))
1021 call assert_equal(0, count(d, 'B'))
1022
1023 call assert_equal(2, count(d, 'a', 0))
1024 call assert_equal(1, count(d, 'A', 0))
1025 call assert_equal(1, count(d, 'b', 0))
1026 call assert_equal(0, count(d, 'B', 0))
1027
1028 call assert_equal(3, count(d, 'a', 1))
1029 call assert_equal(3, count(d, 'A', 1))
1030 call assert_equal(1, count(d, 'b', 1))
1031 call assert_equal(1, count(d, 'B', 1))
1032 call assert_equal(0, count(d, 'c', 1))
1033
1034 call assert_fails('call count(d, "a", 0, 1)', 'E474:')
Bram Moolenaar9966b212017-07-28 16:46:57 +02001035
1036 call assert_equal(0, count("foo", "bar"))
1037 call assert_equal(1, count("foo", "oo"))
1038 call assert_equal(2, count("foo", "o"))
1039 call assert_equal(0, count("foo", "O"))
1040 call assert_equal(2, count("foo", "O", 1))
1041 call assert_equal(2, count("fooooo", "oo"))
Bram Moolenaar338e47f2017-12-19 11:55:26 +01001042 call assert_equal(0, count("foo", ""))
Bram Moolenaar17aca702019-05-16 22:24:55 +02001043
1044 call assert_fails('call count(0, 0)', 'E712:')
Bram Moolenaar41042f32017-03-09 12:09:32 +01001045endfunc
1046
1047func Test_changenr()
1048 new Xchangenr
1049 call assert_equal(0, changenr())
1050 norm ifoo
1051 call assert_equal(1, changenr())
1052 set undolevels=10
1053 norm Sbar
1054 call assert_equal(2, changenr())
1055 undo
1056 call assert_equal(1, changenr())
1057 redo
1058 call assert_equal(2, changenr())
1059 bw!
1060 set undolevels&
1061endfunc
1062
1063func Test_filewritable()
1064 new Xfilewritable
1065 write!
1066 call assert_equal(1, filewritable('Xfilewritable'))
1067
1068 call assert_notequal(0, setfperm('Xfilewritable', 'r--r-----'))
1069 call assert_equal(0, filewritable('Xfilewritable'))
1070
1071 call assert_notequal(0, setfperm('Xfilewritable', 'rw-r-----'))
Bram Moolenaara4208962019-08-24 20:50:19 +02001072 call assert_equal(1, 'Xfilewritable'->filewritable())
Bram Moolenaar41042f32017-03-09 12:09:32 +01001073
1074 call assert_equal(0, filewritable('doesnotexist'))
1075
1076 call delete('Xfilewritable')
1077 bw!
1078endfunc
1079
Bram Moolenaar82956662018-10-06 15:18:45 +02001080func Test_Executable()
1081 if has('win32')
1082 call assert_equal(1, executable('notepad'))
Bram Moolenaara4208962019-08-24 20:50:19 +02001083 call assert_equal(1, 'notepad.exe'->executable())
Bram Moolenaar82956662018-10-06 15:18:45 +02001084 call assert_equal(0, executable('notepad.exe.exe'))
1085 call assert_equal(0, executable('shell32.dll'))
1086 call assert_equal(0, executable('win.ini'))
1087 elseif has('unix')
Bram Moolenaara4208962019-08-24 20:50:19 +02001088 call assert_equal(1, 'cat'->executable())
Bram Moolenaara05a0d32018-10-07 18:43:05 +02001089 call assert_equal(0, executable('nodogshere'))
Bram Moolenaard08b8c42019-07-24 14:59:45 +02001090
1091 " get "cat" path and remove the leading /
1092 let catcmd = exepath('cat')[1:]
1093 new
Bram Moolenaara4208962019-08-24 20:50:19 +02001094 " check that the relative path works in /
Bram Moolenaard08b8c42019-07-24 14:59:45 +02001095 lcd /
1096 call assert_equal(1, executable(catcmd))
Bram Moolenaara4208962019-08-24 20:50:19 +02001097 call assert_equal('/' .. catcmd, catcmd->exepath())
Bram Moolenaard08b8c42019-07-24 14:59:45 +02001098 bwipe
Bram Moolenaar82956662018-10-06 15:18:45 +02001099 endif
1100endfunc
1101
Bram Moolenaar86621892019-03-30 21:51:28 +01001102func Test_executable_longname()
1103 if !has('win32')
1104 return
1105 endif
1106
1107 let fname = 'X' . repeat('あ', 200) . '.bat'
1108 call writefile([], fname)
1109 call assert_equal(1, executable(fname))
1110 call delete(fname)
1111endfunc
1112
Bram Moolenaar41042f32017-03-09 12:09:32 +01001113func Test_hostname()
1114 let hostname_vim = hostname()
1115 if has('unix')
1116 let hostname_system = systemlist('uname -n')[0]
1117 call assert_equal(hostname_vim, hostname_system)
1118 endif
1119endfunc
1120
1121func Test_getpid()
1122 " getpid() always returns the same value within a vim instance.
1123 call assert_equal(getpid(), getpid())
1124 if has('unix')
1125 call assert_equal(systemlist('echo $PPID')[0], string(getpid()))
1126 endif
1127endfunc
1128
1129func Test_hlexists()
1130 call assert_equal(0, hlexists('does_not_exist'))
Bram Moolenaarf9f24ce2019-08-31 21:17:39 +02001131 call assert_equal(0, 'Number'->hlexists())
Bram Moolenaar41042f32017-03-09 12:09:32 +01001132 call assert_equal(0, highlight_exists('does_not_exist'))
1133 call assert_equal(0, highlight_exists('Number'))
1134 syntax on
1135 call assert_equal(0, hlexists('does_not_exist'))
1136 call assert_equal(1, hlexists('Number'))
1137 call assert_equal(0, highlight_exists('does_not_exist'))
1138 call assert_equal(1, highlight_exists('Number'))
1139 syntax off
1140endfunc
1141
1142func Test_col()
1143 new
1144 call setline(1, 'abcdef')
1145 norm gg4|mx6|mY2|
1146 call assert_equal(2, col('.'))
1147 call assert_equal(7, col('$'))
1148 call assert_equal(4, col("'x"))
1149 call assert_equal(6, col("'Y"))
Bram Moolenaar1a3a8912019-08-23 22:31:37 +02001150 call assert_equal(2, [1, 2]->col())
Bram Moolenaar41042f32017-03-09 12:09:32 +01001151 call assert_equal(7, col([1, '$']))
1152
1153 call assert_equal(0, col(''))
1154 call assert_equal(0, col('x'))
1155 call assert_equal(0, col([2, '$']))
1156 call assert_equal(0, col([1, 100]))
1157 call assert_equal(0, col([1]))
1158 bw!
1159endfunc
1160
Bram Moolenaar8d588cc2020-02-25 21:47:45 +01001161" Test for input()
1162func Test_input_func()
1163 " Test for prompt with multiple lines
1164 redir => v
1165 call feedkeys(":let c = input(\"A\\nB\\nC\\n? \")\<CR>B\<CR>", 'xt')
1166 redir END
1167 call assert_equal("B", c)
1168 call assert_equal(['A', 'B', 'C'], split(v, "\n"))
1169
1170 " Test for default value
1171 call feedkeys(":let c = input('color? ', 'red')\<CR>\<CR>", 'xt')
1172 call assert_equal('red', c)
1173
1174 " Test for completion at the input prompt
1175 func! Tcomplete(arglead, cmdline, pos)
1176 return "item1\nitem2\nitem3"
1177 endfunc
1178 call feedkeys(":let c = input('Q? ', '' , 'custom,Tcomplete')\<CR>"
1179 \ .. "\<C-A>\<CR>", 'xt')
1180 delfunc Tcomplete
1181 call assert_equal('item1 item2 item3', c)
Bram Moolenaar578fe942020-02-27 21:32:51 +01001182
1183 call assert_fails("call input('F:', '', 'invalid')", 'E180:')
1184 call assert_fails("call input('F:', '', [])", 'E730:')
1185endfunc
1186
1187" Test for the inputdialog() function
1188func Test_inputdialog()
1189 CheckNotGui
1190
1191 call feedkeys(":let v=inputdialog('Q:', 'xx', 'yy')\<CR>\<CR>", 'xt')
1192 call assert_equal('xx', v)
1193 call feedkeys(":let v=inputdialog('Q:', 'xx', 'yy')\<CR>\<Esc>", 'xt')
1194 call assert_equal('yy', v)
Bram Moolenaar8d588cc2020-02-25 21:47:45 +01001195endfunc
1196
1197" Test for inputlist()
Bram Moolenaar947b39e2018-07-22 19:36:37 +02001198func Test_inputlist()
1199 call feedkeys(":let c = inputlist(['Select color:', '1. red', '2. green', '3. blue'])\<cr>1\<cr>", 'tx')
1200 call assert_equal(1, c)
Bram Moolenaarf9f24ce2019-08-31 21:17:39 +02001201 call feedkeys(":let c = ['Select color:', '1. red', '2. green', '3. blue']->inputlist()\<cr>2\<cr>", 'tx')
Bram Moolenaar947b39e2018-07-22 19:36:37 +02001202 call assert_equal(2, c)
1203 call feedkeys(":let c = inputlist(['Select color:', '1. red', '2. green', '3. blue'])\<cr>3\<cr>", 'tx')
1204 call assert_equal(3, c)
1205
1206 call assert_fails('call inputlist("")', 'E686:')
1207endfunc
1208
Bram Moolenaarcaf64342017-03-02 22:11:33 +01001209func Test_balloon_show()
Bram Moolenaara0107bd2017-03-02 22:48:01 +01001210 if has('balloon_eval')
1211 " This won't do anything but must not crash either.
1212 call balloon_show('hi!')
Bram Moolenaar7d8ea0b2020-01-27 23:01:30 +01001213 if !has('gui_running')
1214 call balloon_show(range(3))
1215 endif
Bram Moolenaara0107bd2017-03-02 22:48:01 +01001216 endif
Bram Moolenaarcaf64342017-03-02 22:11:33 +01001217endfunc
Bram Moolenaar2c90d512017-03-18 22:35:30 +01001218
1219func Test_setbufvar_options()
1220 " This tests that aucmd_prepbuf() and aucmd_restbuf() properly restore the
1221 " window layout.
1222 call assert_equal(1, winnr('$'))
1223 split dummy_preview
1224 resize 2
1225 set winfixheight winfixwidth
1226 let prev_id = win_getid()
1227
1228 wincmd j
1229 let wh = winheight('.')
1230 let dummy_buf = bufnr('dummy_buf1', v:true)
1231 call setbufvar(dummy_buf, '&buftype', 'nofile')
1232 execute 'belowright vertical split #' . dummy_buf
1233 call assert_equal(wh, winheight('.'))
1234 let dum1_id = win_getid()
1235
1236 wincmd h
1237 let wh = winheight('.')
1238 let dummy_buf = bufnr('dummy_buf2', v:true)
Bram Moolenaar196b4662019-09-06 21:34:30 +02001239 eval 'nofile'->setbufvar(dummy_buf, '&buftype')
Bram Moolenaar2c90d512017-03-18 22:35:30 +01001240 execute 'belowright vertical split #' . dummy_buf
1241 call assert_equal(wh, winheight('.'))
1242
1243 bwipe!
1244 call win_gotoid(prev_id)
1245 bwipe!
1246 call win_gotoid(dum1_id)
1247 bwipe!
1248endfunc
Bram Moolenaard4863aa2017-04-07 19:50:12 +02001249
1250func Test_redo_in_nested_functions()
1251 nnoremap g. :set opfunc=Operator<CR>g@
1252 function Operator( type, ... )
1253 let @x = 'XXX'
1254 execute 'normal! g`[' . (a:type ==# 'line' ? 'V' : 'v') . 'g`]' . '"xp'
1255 endfunction
1256
1257 function! Apply()
1258 5,6normal! .
1259 endfunction
1260
1261 new
1262 call setline(1, repeat(['some "quoted" text', 'more "quoted" text'], 3))
1263 1normal g.i"
1264 call assert_equal('some "XXX" text', getline(1))
1265 3,4normal .
1266 call assert_equal('some "XXX" text', getline(3))
1267 call assert_equal('more "XXX" text', getline(4))
1268 call Apply()
1269 call assert_equal('some "XXX" text', getline(5))
1270 call assert_equal('more "XXX" text', getline(6))
1271 bwipe!
1272
1273 nunmap g.
1274 delfunc Operator
1275 delfunc Apply
1276endfunc
Bram Moolenaar20615522017-06-05 18:46:26 +02001277
1278func Test_shellescape()
1279 let save_shell = &shell
1280 set shell=bash
1281 call assert_equal("'text'", shellescape('text'))
Bram Moolenaaraad222c2019-09-06 22:46:09 +02001282 call assert_equal("'te\"xt'", 'te"xt'->shellescape())
Bram Moolenaar20615522017-06-05 18:46:26 +02001283 call assert_equal("'te'\\''xt'", shellescape("te'xt"))
1284
1285 call assert_equal("'te%xt'", shellescape("te%xt"))
1286 call assert_equal("'te\\%xt'", shellescape("te%xt", 1))
1287 call assert_equal("'te#xt'", shellescape("te#xt"))
1288 call assert_equal("'te\\#xt'", shellescape("te#xt", 1))
1289 call assert_equal("'te!xt'", shellescape("te!xt"))
1290 call assert_equal("'te\\!xt'", shellescape("te!xt", 1))
1291
1292 call assert_equal("'te\nxt'", shellescape("te\nxt"))
1293 call assert_equal("'te\\\nxt'", shellescape("te\nxt", 1))
1294 set shell=tcsh
1295 call assert_equal("'te\\!xt'", shellescape("te!xt"))
1296 call assert_equal("'te\\\\!xt'", shellescape("te!xt", 1))
1297 call assert_equal("'te\\\nxt'", shellescape("te\nxt"))
1298 call assert_equal("'te\\\\\nxt'", shellescape("te\nxt", 1))
1299
1300 let &shell = save_shell
1301endfunc
Bram Moolenaar295ac5a2018-03-22 23:04:02 +01001302
1303func Test_trim()
1304 call assert_equal("Testing", trim(" \t\r\r\x0BTesting \t\n\r\n\t\x0B\x0B"))
Bram Moolenaarf92e58c2019-09-08 21:51:41 +02001305 call assert_equal("Testing", " \t \r\r\n\n\x0BTesting \t\n\r\n\t\x0B\x0B"->trim())
Bram Moolenaar295ac5a2018-03-22 23:04:02 +01001306 call assert_equal("RESERVE", trim("xyz \twwRESERVEzyww \t\t", " wxyz\t"))
1307 call assert_equal("wRE \tSERVEzyww", trim("wRE \tSERVEzyww"))
1308 call assert_equal("abcd\t xxxx tail", trim(" \tabcd\t xxxx tail"))
1309 call assert_equal("\tabcd\t xxxx tail", trim(" \tabcd\t xxxx tail", " "))
1310 call assert_equal(" \tabcd\t xxxx tail", trim(" \tabcd\t xxxx tail", "abx"))
1311 call assert_equal("RESERVE", trim("你RESERVE好", "你好"))
1312 call assert_equal("您R E SER V E早", trim("你好您R E SER V E早好你你", "你好"))
1313 call assert_equal("你好您R E SER V E早好你你", trim(" \n\r\r 你好您R E SER V E早好你你 \t \x0B", ))
1314 call assert_equal("您R E SER V E早好你你 \t \x0B", trim(" 你好您R E SER V E早好你你 \t \x0B", " 你好"))
1315 call assert_equal("您R E SER V E早好你你 \t \x0B", trim(" tteesstttt你好您R E SER V E早好你你 \t \x0B ttestt", " 你好tes"))
1316 call assert_equal("您R E SER V E早好你你 \t \x0B", trim(" tteesstttt你好您R E SER V E早好你你 \t \x0B ttestt", " 你你你好好好tttsses"))
1317 call assert_equal("留下", trim("这些些不要这些留下这些", "这些不要"))
1318 call assert_equal("", trim("", ""))
1319 call assert_equal("a", trim("a", ""))
1320 call assert_equal("", trim("", "a"))
1321
Bram Moolenaar3f4f3d82019-09-04 20:05:59 +02001322 let chars = join(map(range(1, 0x20) + [0xa0], {n -> n->nr2char()}), '')
Bram Moolenaar295ac5a2018-03-22 23:04:02 +01001323 call assert_equal("x", trim(chars . "x" . chars))
1324endfunc
Bram Moolenaar0b6d9112018-05-22 20:35:17 +02001325
1326" Test for reg_recording() and reg_executing()
1327func Test_reg_executing_and_recording()
1328 let s:reg_stat = ''
1329 func s:save_reg_stat()
1330 let s:reg_stat = reg_recording() . ':' . reg_executing()
1331 return ''
1332 endfunc
1333
1334 new
1335 call s:save_reg_stat()
1336 call assert_equal(':', s:reg_stat)
1337 call feedkeys("qa\"=s:save_reg_stat()\<CR>pq", 'xt')
1338 call assert_equal('a:', s:reg_stat)
1339 call feedkeys("@a", 'xt')
1340 call assert_equal(':a', s:reg_stat)
1341 call feedkeys("qb@aq", 'xt')
1342 call assert_equal('b:a', s:reg_stat)
1343 call feedkeys("q\"\"=s:save_reg_stat()\<CR>pq", 'xt')
1344 call assert_equal('":', s:reg_stat)
1345
Bram Moolenaarcce713d2019-03-04 11:40:12 +01001346 " :normal command saves and restores reg_executing
Bram Moolenaarf0fab302019-03-05 12:24:10 +01001347 let s:reg_stat = ''
Bram Moolenaarcce713d2019-03-04 11:40:12 +01001348 let @q = ":call TestFunc()\<CR>:call s:save_reg_stat()\<CR>"
1349 func TestFunc() abort
1350 normal! ia
1351 endfunc
1352 call feedkeys("@q", 'xt')
1353 call assert_equal(':q', s:reg_stat)
1354 delfunc TestFunc
1355
Bram Moolenaarf0fab302019-03-05 12:24:10 +01001356 " getchar() command saves and restores reg_executing
1357 map W :call TestFunc()<CR>
1358 let @q = "W"
Bram Moolenaar9a2c0912019-03-30 14:26:18 +01001359 let g:typed = ''
1360 let g:regs = []
Bram Moolenaarf0fab302019-03-05 12:24:10 +01001361 func TestFunc() abort
Bram Moolenaar9a2c0912019-03-30 14:26:18 +01001362 let g:regs += [reg_executing()]
Bram Moolenaarf0fab302019-03-05 12:24:10 +01001363 let g:typed = getchar(0)
Bram Moolenaar9a2c0912019-03-30 14:26:18 +01001364 let g:regs += [reg_executing()]
Bram Moolenaarf0fab302019-03-05 12:24:10 +01001365 endfunc
1366 call feedkeys("@qy", 'xt')
1367 call assert_equal(char2nr("y"), g:typed)
Bram Moolenaar9a2c0912019-03-30 14:26:18 +01001368 call assert_equal(['q', 'q'], g:regs)
Bram Moolenaarf0fab302019-03-05 12:24:10 +01001369 delfunc TestFunc
1370 unmap W
1371 unlet g:typed
Bram Moolenaar9a2c0912019-03-30 14:26:18 +01001372 unlet g:regs
1373
1374 " input() command saves and restores reg_executing
1375 map W :call TestFunc()<CR>
1376 let @q = "W"
1377 let g:typed = ''
1378 let g:regs = []
1379 func TestFunc() abort
1380 let g:regs += [reg_executing()]
Bram Moolenaarf9f24ce2019-08-31 21:17:39 +02001381 let g:typed = '?'->input()
Bram Moolenaar9a2c0912019-03-30 14:26:18 +01001382 let g:regs += [reg_executing()]
1383 endfunc
1384 call feedkeys("@qy\<CR>", 'xt')
1385 call assert_equal("y", g:typed)
1386 call assert_equal(['q', 'q'], g:regs)
1387 delfunc TestFunc
1388 unmap W
1389 unlet g:typed
1390 unlet g:regs
Bram Moolenaarf0fab302019-03-05 12:24:10 +01001391
Bram Moolenaar0b6d9112018-05-22 20:35:17 +02001392 bwipe!
1393 delfunc s:save_reg_stat
1394 unlet s:reg_stat
1395endfunc
Bram Moolenaar1ceebb42018-06-19 19:46:06 +02001396
Bram Moolenaarf9f24ce2019-08-31 21:17:39 +02001397func Test_inputsecret()
1398 map W :call TestFunc()<CR>
1399 let @q = "W"
1400 let g:typed1 = ''
1401 let g:typed2 = ''
1402 let g:regs = []
1403 func TestFunc() abort
1404 let g:typed1 = '?'->inputsecret()
1405 let g:typed2 = inputsecret('password: ')
1406 endfunc
1407 call feedkeys("@qsomething\<CR>else\<CR>", 'xt')
1408 call assert_equal("something", g:typed1)
1409 call assert_equal("else", g:typed2)
1410 delfunc TestFunc
1411 unmap W
1412 unlet g:typed1
1413 unlet g:typed2
1414endfunc
1415
Bram Moolenaar5d712e42019-09-03 23:37:01 +02001416func Test_getchar()
1417 call feedkeys('a', '')
1418 call assert_equal(char2nr('a'), getchar())
1419
Bram Moolenaardb3a2052019-11-16 18:22:41 +01001420 call setline(1, 'xxxx')
Bram Moolenaar5d712e42019-09-03 23:37:01 +02001421 call test_setmouse(1, 3)
1422 let v:mouse_win = 9
1423 let v:mouse_winid = 9
1424 let v:mouse_lnum = 9
1425 let v:mouse_col = 9
1426 call feedkeys("\<S-LeftMouse>", '')
1427 call assert_equal("\<S-LeftMouse>", getchar())
1428 call assert_equal(1, v:mouse_win)
1429 call assert_equal(win_getid(1), v:mouse_winid)
1430 call assert_equal(1, v:mouse_lnum)
1431 call assert_equal(3, v:mouse_col)
Bram Moolenaardb3a2052019-11-16 18:22:41 +01001432 enew!
Bram Moolenaar5d712e42019-09-03 23:37:01 +02001433endfunc
1434
Bram Moolenaar1ceebb42018-06-19 19:46:06 +02001435func Test_libcall_libcallnr()
1436 if !has('libcall')
1437 return
1438 endif
1439
1440 if has('win32')
1441 let libc = 'msvcrt.dll'
1442 elseif has('mac')
1443 let libc = 'libSystem.B.dylib'
Bram Moolenaar39536dd2019-01-29 22:58:21 +01001444 elseif executable('ldd')
1445 let libc = matchstr(split(system('ldd ' . GetVimProg())), '/libc\.so\>')
1446 endif
1447 if get(l:, 'libc', '') ==# ''
Bram Moolenaar1ceebb42018-06-19 19:46:06 +02001448 " On Unix, libc.so can be in various places.
Bram Moolenaar39536dd2019-01-29 22:58:21 +01001449 if has('linux')
1450 " There is not documented but regarding the 1st argument of glibc's
1451 " dlopen an empty string and nullptr are equivalent, so using an empty
1452 " string for the 1st argument of libcall allows to call functions.
1453 let libc = ''
1454 elseif has('sun')
1455 " Set the path to libc.so according to the architecture.
1456 let test_bits = system('file ' . GetVimProg())
1457 let test_arch = system('uname -p')
1458 if test_bits =~ '64-bit' && test_arch =~ 'sparc'
1459 let libc = '/usr/lib/sparcv9/libc.so'
1460 elseif test_bits =~ '64-bit' && test_arch =~ 'i386'
1461 let libc = '/usr/lib/amd64/libc.so'
1462 else
1463 let libc = '/usr/lib/libc.so'
1464 endif
1465 else
1466 " Unfortunately skip this test until a good way is found.
1467 return
1468 endif
Bram Moolenaar1ceebb42018-06-19 19:46:06 +02001469 endif
1470
1471 if has('win32')
Bram Moolenaar02b31112019-08-31 22:16:38 +02001472 call assert_equal($USERPROFILE, 'USERPROFILE'->libcall(libc, 'getenv'))
Bram Moolenaar1ceebb42018-06-19 19:46:06 +02001473 else
Bram Moolenaar02b31112019-08-31 22:16:38 +02001474 call assert_equal($HOME, 'HOME'->libcall(libc, 'getenv'))
Bram Moolenaar1ceebb42018-06-19 19:46:06 +02001475 endif
1476
1477 " If function returns NULL, libcall() should return an empty string.
1478 call assert_equal('', libcall(libc, 'getenv', 'X_ENV_DOES_NOT_EXIT'))
1479
1480 " Test libcallnr() with string and integer argument.
Bram Moolenaar02b31112019-08-31 22:16:38 +02001481 call assert_equal(4, 'abcd'->libcallnr(libc, 'strlen'))
1482 call assert_equal(char2nr('A'), char2nr('a')->libcallnr(libc, 'toupper'))
Bram Moolenaar1ceebb42018-06-19 19:46:06 +02001483
1484 call assert_fails("call libcall(libc, 'Xdoesnotexist_', '')", 'E364:')
1485 call assert_fails("call libcallnr(libc, 'Xdoesnotexist_', '')", 'E364:')
1486
1487 call assert_fails("call libcall('Xdoesnotexist_', 'getenv', 'HOME')", 'E364:')
1488 call assert_fails("call libcallnr('Xdoesnotexist_', 'strlen', 'abcd')", 'E364:')
1489endfunc
Bram Moolenaard90a1442018-07-15 20:24:31 +02001490
1491sandbox function Fsandbox()
1492 normal ix
1493endfunc
1494
1495func Test_func_sandbox()
1496 sandbox let F = {-> 'hello'}
1497 call assert_equal('hello', F())
1498
Bram Moolenaara4208962019-08-24 20:50:19 +02001499 sandbox let F = {-> "normal ix\<Esc>"->execute()}
Bram Moolenaard90a1442018-07-15 20:24:31 +02001500 call assert_fails('call F()', 'E48:')
1501 unlet F
1502
1503 call assert_fails('call Fsandbox()', 'E48:')
1504 delfunc Fsandbox
Bram Moolenaar8dfcce32020-03-18 19:32:26 +01001505
1506 " From a sandbox try to set a predefined variable (which cannot be modified
1507 " from a sandbox)
1508 call assert_fails('sandbox let v:lnum = 10', 'E794:')
Bram Moolenaard90a1442018-07-15 20:24:31 +02001509endfunc
Bram Moolenaar9e353b52018-11-04 23:39:38 +01001510
1511func EditAnotherFile()
1512 let word = expand('<cword>')
1513 edit Xfuncrange2
1514endfunc
1515
1516func Test_func_range_with_edit()
1517 " Define a function that edits another buffer, then call it with a range that
1518 " is invalid in that buffer.
1519 call writefile(['just one line'], 'Xfuncrange2')
1520 new
Bram Moolenaar196b4662019-09-06 21:34:30 +02001521 eval 10->range()->setline(1)
Bram Moolenaar9e353b52018-11-04 23:39:38 +01001522 write Xfuncrange1
1523 call assert_fails('5,8call EditAnotherFile()', 'E16:')
1524
1525 call delete('Xfuncrange1')
1526 call delete('Xfuncrange2')
1527 bwipe!
1528endfunc
Bram Moolenaarded5f1b2018-11-10 17:33:29 +01001529
1530func Test_func_exists_on_reload()
1531 call writefile(['func ExistingFunction()', 'echo "yes"', 'endfunc'], 'Xfuncexists')
1532 call assert_equal(0, exists('*ExistingFunction'))
1533 source Xfuncexists
Bram Moolenaara4208962019-08-24 20:50:19 +02001534 call assert_equal(1, '*ExistingFunction'->exists())
Bram Moolenaarded5f1b2018-11-10 17:33:29 +01001535 " Redefining a function when reloading a script is OK.
1536 source Xfuncexists
1537 call assert_equal(1, exists('*ExistingFunction'))
1538
1539 " But redefining in another script is not OK.
1540 call writefile(['func ExistingFunction()', 'echo "yes"', 'endfunc'], 'Xfuncexists2')
1541 call assert_fails('source Xfuncexists2', 'E122:')
1542
1543 delfunc ExistingFunction
1544 call assert_equal(0, exists('*ExistingFunction'))
1545 call writefile([
1546 \ 'func ExistingFunction()', 'echo "yes"', 'endfunc',
1547 \ 'func ExistingFunction()', 'echo "no"', 'endfunc',
1548 \ ], 'Xfuncexists')
1549 call assert_fails('source Xfuncexists', 'E122:')
1550 call assert_equal(1, exists('*ExistingFunction'))
1551
1552 call delete('Xfuncexists2')
1553 call delete('Xfuncexists')
1554 delfunc ExistingFunction
1555endfunc
Bram Moolenaar2e050092019-01-27 15:00:36 +01001556
1557" Test confirm({msg} [, {choices} [, {default} [, {type}]]])
1558func Test_confirm()
Bram Moolenaar8c5a2782019-08-07 23:07:07 +02001559 CheckUnix
1560 CheckNotGui
Bram Moolenaar2e050092019-01-27 15:00:36 +01001561
1562 call feedkeys('o', 'L')
1563 let a = confirm('Press O to proceed')
1564 call assert_equal(1, a)
1565
1566 call feedkeys('y', 'L')
Bram Moolenaar1a3a8912019-08-23 22:31:37 +02001567 let a = 'Are you sure?'->confirm("&Yes\n&No")
Bram Moolenaar2e050092019-01-27 15:00:36 +01001568 call assert_equal(1, a)
1569
1570 call feedkeys('n', 'L')
1571 let a = confirm('Are you sure?', "&Yes\n&No")
1572 call assert_equal(2, a)
1573
1574 " confirm() should return 0 when pressing CTRL-C.
1575 call feedkeys("\<C-c>", 'L')
1576 let a = confirm('Are you sure?', "&Yes\n&No")
1577 call assert_equal(0, a)
1578
1579 " <Esc> requires another character to avoid it being seen as the start of an
1580 " escape sequence. Zero should be harmless.
Bram Moolenaara4208962019-08-24 20:50:19 +02001581 eval "\<Esc>0"->feedkeys('L')
Bram Moolenaar2e050092019-01-27 15:00:36 +01001582 let a = confirm('Are you sure?', "&Yes\n&No")
1583 call assert_equal(0, a)
1584
1585 " Default choice is returned when pressing <CR>.
1586 call feedkeys("\<CR>", 'L')
1587 let a = confirm('Are you sure?', "&Yes\n&No")
1588 call assert_equal(1, a)
1589
1590 call feedkeys("\<CR>", 'L')
1591 let a = confirm('Are you sure?', "&Yes\n&No", 2)
1592 call assert_equal(2, a)
1593
1594 call feedkeys("\<CR>", 'L')
1595 let a = confirm('Are you sure?', "&Yes\n&No", 0)
1596 call assert_equal(0, a)
1597
1598 " Test with the {type} 4th argument
1599 for type in ['Error', 'Question', 'Info', 'Warning', 'Generic']
1600 call feedkeys('y', 'L')
1601 let a = confirm('Are you sure?', "&Yes\n&No\n", 1, type)
1602 call assert_equal(1, a)
1603 endfor
1604
1605 call assert_fails('call confirm([])', 'E730:')
1606 call assert_fails('call confirm("Are you sure?", [])', 'E730:')
1607 call assert_fails('call confirm("Are you sure?", "&Yes\n&No\n", [])', 'E745:')
1608 call assert_fails('call confirm("Are you sure?", "&Yes\n&No\n", 0, [])', 'E730:')
1609endfunc
Bram Moolenaar39536dd2019-01-29 22:58:21 +01001610
1611func Test_platform_name()
1612 " The system matches at most only one name.
1613 let names = ['amiga', 'beos', 'bsd', 'hpux', 'linux', 'mac', 'qnx', 'sun', 'vms', 'win32', 'win32unix']
1614 call assert_inrange(0, 1, len(filter(copy(names), 'has(v:val)')))
1615
1616 " Is Unix?
1617 call assert_equal(has('beos'), has('beos') && has('unix'))
1618 call assert_equal(has('bsd'), has('bsd') && has('unix'))
1619 call assert_equal(has('hpux'), has('hpux') && has('unix'))
1620 call assert_equal(has('linux'), has('linux') && has('unix'))
1621 call assert_equal(has('mac'), has('mac') && has('unix'))
1622 call assert_equal(has('qnx'), has('qnx') && has('unix'))
1623 call assert_equal(has('sun'), has('sun') && has('unix'))
1624 call assert_equal(has('win32'), has('win32') && !has('unix'))
1625 call assert_equal(has('win32unix'), has('win32unix') && has('unix'))
1626
1627 if has('unix') && executable('uname')
1628 let uname = system('uname')
1629 call assert_equal(uname =~? 'BeOS', has('beos'))
Bram Moolenaara02e3f62019-02-07 21:27:14 +01001630 " GNU userland on BSD kernels (e.g., GNU/kFreeBSD) don't have BSD defined
1631 call assert_equal(uname =~? '\%(GNU/k\w\+\)\@<!BSD\|DragonFly', has('bsd'))
Bram Moolenaar39536dd2019-01-29 22:58:21 +01001632 call assert_equal(uname =~? 'HP-UX', has('hpux'))
1633 call assert_equal(uname =~? 'Linux', has('linux'))
1634 call assert_equal(uname =~? 'Darwin', has('mac'))
1635 call assert_equal(uname =~? 'QNX', has('qnx'))
1636 call assert_equal(uname =~? 'SunOS', has('sun'))
1637 call assert_equal(uname =~? 'CYGWIN\|MSYS', has('win32unix'))
1638 endif
1639endfunc
Bram Moolenaar543c9b12019-04-05 22:50:40 +02001640
1641func Test_readdir()
1642 call mkdir('Xdir')
1643 call writefile([], 'Xdir/foo.txt')
1644 call writefile([], 'Xdir/bar.txt')
1645 call mkdir('Xdir/dir')
1646
1647 " All results
1648 let files = readdir('Xdir')
1649 call assert_equal(['bar.txt', 'dir', 'foo.txt'], sort(files))
1650
1651 " Only results containing "f"
Bram Moolenaara0d1fef2019-09-04 22:29:14 +02001652 let files = 'Xdir'->readdir({ x -> stridx(x, 'f') !=- 1 })
Bram Moolenaar543c9b12019-04-05 22:50:40 +02001653 call assert_equal(['foo.txt'], sort(files))
1654
1655 " Only .txt files
1656 let files = readdir('Xdir', { x -> x =~ '.txt$' })
1657 call assert_equal(['bar.txt', 'foo.txt'], sort(files))
1658
1659 " Only .txt files with string
1660 let files = readdir('Xdir', 'v:val =~ ".txt$"')
1661 call assert_equal(['bar.txt', 'foo.txt'], sort(files))
1662
1663 " Limit to 1 result.
1664 let l = []
1665 let files = readdir('Xdir', {x -> len(add(l, x)) == 2 ? -1 : 1})
1666 call assert_equal(1, len(files))
1667
Bram Moolenaar27da7de2019-09-03 17:13:37 +02001668 " Nested readdir() must not crash
1669 let files = readdir('Xdir', 'readdir("Xdir", "1") != []')
1670 call sort(files)->assert_equal(['bar.txt', 'dir', 'foo.txt'])
1671
Bram Moolenaar1a3a8912019-08-23 22:31:37 +02001672 eval 'Xdir'->delete('rf')
Bram Moolenaar543c9b12019-04-05 22:50:40 +02001673endfunc
Bram Moolenaar17aca702019-05-16 22:24:55 +02001674
Bram Moolenaar701ff0a2019-05-24 14:14:14 +02001675func Test_delete_rf()
1676 call mkdir('Xdir')
1677 call writefile([], 'Xdir/foo.txt')
1678 call writefile([], 'Xdir/bar.txt')
1679 call mkdir('Xdir/[a-1]') " issue #696
1680 call writefile([], 'Xdir/[a-1]/foo.txt')
1681 call writefile([], 'Xdir/[a-1]/bar.txt')
1682 call assert_true(filereadable('Xdir/foo.txt'))
Bram Moolenaara4208962019-08-24 20:50:19 +02001683 call assert_true('Xdir/[a-1]/foo.txt'->filereadable())
Bram Moolenaar701ff0a2019-05-24 14:14:14 +02001684
1685 call assert_equal(0, delete('Xdir', 'rf'))
1686 call assert_false(filereadable('Xdir/foo.txt'))
1687 call assert_false(filereadable('Xdir/[a-1]/foo.txt'))
1688endfunc
1689
Bram Moolenaar17aca702019-05-16 22:24:55 +02001690func Test_call()
1691 call assert_equal(3, call('len', [123]))
Bram Moolenaar64b4d732019-08-22 22:18:17 +02001692 call assert_equal(3, 'len'->call([123]))
Bram Moolenaar17aca702019-05-16 22:24:55 +02001693 call assert_fails("call call('len', 123)", 'E714:')
1694 call assert_equal(0, call('', []))
1695
1696 function Mylen() dict
1697 return len(self.data)
1698 endfunction
1699 let mydict = {'data': [0, 1, 2, 3], 'len': function("Mylen")}
Bram Moolenaar64b4d732019-08-22 22:18:17 +02001700 eval mydict.len->call([], mydict)->assert_equal(4)
Bram Moolenaar17aca702019-05-16 22:24:55 +02001701 call assert_fails("call call('Mylen', [], 0)", 'E715:')
1702endfunc
1703
1704func Test_char2nr()
1705 call assert_equal(12354, char2nr('あ', 1))
Bram Moolenaar1a3a8912019-08-23 22:31:37 +02001706 call assert_equal(120, 'x'->char2nr())
Bram Moolenaar17aca702019-05-16 22:24:55 +02001707endfunc
1708
1709func Test_eventhandler()
1710 call assert_equal(0, eventhandler())
1711endfunc
Bram Moolenaar15e248e2019-06-30 20:21:37 +02001712
1713func Test_bufadd_bufload()
1714 call assert_equal(0, bufexists('someName'))
1715 let buf = bufadd('someName')
1716 call assert_notequal(0, buf)
1717 call assert_equal(1, bufexists('someName'))
1718 call assert_equal(0, getbufvar(buf, '&buflisted'))
1719 call assert_equal(0, bufloaded(buf))
1720 call bufload(buf)
1721 call assert_equal(1, bufloaded(buf))
1722 call assert_equal([''], getbufline(buf, 1, '$'))
1723
1724 let curbuf = bufnr('')
Bram Moolenaarf92e58c2019-09-08 21:51:41 +02001725 eval ['some', 'text']->writefile('XotherName')
Bram Moolenaar073e4b92019-08-18 23:01:56 +02001726 let buf = 'XotherName'->bufadd()
Bram Moolenaar15e248e2019-06-30 20:21:37 +02001727 call assert_notequal(0, buf)
Bram Moolenaar073e4b92019-08-18 23:01:56 +02001728 eval 'XotherName'->bufexists()->assert_equal(1)
Bram Moolenaar15e248e2019-06-30 20:21:37 +02001729 call assert_equal(0, getbufvar(buf, '&buflisted'))
1730 call assert_equal(0, bufloaded(buf))
Bram Moolenaar073e4b92019-08-18 23:01:56 +02001731 eval buf->bufload()
Bram Moolenaar15e248e2019-06-30 20:21:37 +02001732 call assert_equal(1, bufloaded(buf))
1733 call assert_equal(['some', 'text'], getbufline(buf, 1, '$'))
1734 call assert_equal(curbuf, bufnr(''))
1735
Bram Moolenaar892ae722019-06-30 20:33:01 +02001736 let buf1 = bufadd('')
1737 let buf2 = bufadd('')
1738 call assert_notequal(0, buf1)
1739 call assert_notequal(0, buf2)
1740 call assert_notequal(buf1, buf2)
1741 call assert_equal(1, bufexists(buf1))
1742 call assert_equal(1, bufexists(buf2))
1743 call assert_equal(0, bufloaded(buf1))
1744 exe 'bwipe ' .. buf1
1745 call assert_equal(0, bufexists(buf1))
1746 call assert_equal(1, bufexists(buf2))
1747 exe 'bwipe ' .. buf2
1748 call assert_equal(0, bufexists(buf2))
1749
Bram Moolenaar15e248e2019-06-30 20:21:37 +02001750 bwipe someName
Bram Moolenaar3940ec62019-07-05 21:53:24 +02001751 bwipe XotherName
Bram Moolenaar15e248e2019-06-30 20:21:37 +02001752 call assert_equal(0, bufexists('someName'))
Bram Moolenaar3940ec62019-07-05 21:53:24 +02001753 call delete('XotherName')
Bram Moolenaar15e248e2019-06-30 20:21:37 +02001754endfunc
Bram Moolenaarc2585492019-09-22 21:29:53 +02001755
1756func Test_state()
1757 CheckRunVimInTerminal
1758
1759 let lines =<< trim END
1760 call setline(1, ['one', 'two', 'three'])
1761 map ;; gg
Bram Moolenaarb7a97ef2019-09-28 22:11:56 +02001762 set complete=.
Bram Moolenaarc2585492019-09-22 21:29:53 +02001763 func RunTimer()
1764 call timer_start(10, {id -> execute('let g:state = state()') .. execute('let g:mode = mode()')})
1765 endfunc
1766 au Filetype foobar let g:state = state()|let g:mode = mode()
1767 END
1768 call writefile(lines, 'XState')
1769 let buf = RunVimInTerminal('-S XState', #{rows: 6})
1770
1771 " Using a ":" command Vim is busy, thus "S" is returned
1772 call term_sendkeys(buf, ":echo 'state: ' .. state() .. '; mode: ' .. mode()\<CR>")
1773 call WaitForAssert({-> assert_match('state: S; mode: n', term_getline(buf, 6))}, 1000)
1774 call term_sendkeys(buf, ":\<CR>")
1775
1776 " Using a timer callback
1777 call term_sendkeys(buf, ":call RunTimer()\<CR>")
1778 call term_wait(buf, 50)
1779 let getstate = ":echo 'state: ' .. g:state .. '; mode: ' .. g:mode\<CR>"
1780 call term_sendkeys(buf, getstate)
1781 call WaitForAssert({-> assert_match('state: c; mode: n', term_getline(buf, 6))}, 1000)
1782
1783 " Halfway a mapping
1784 call term_sendkeys(buf, ":call RunTimer()\<CR>;")
1785 call term_wait(buf, 50)
1786 call term_sendkeys(buf, ";")
1787 call term_sendkeys(buf, getstate)
1788 call WaitForAssert({-> assert_match('state: mSc; mode: n', term_getline(buf, 6))}, 1000)
1789
Bram Moolenaarb7a97ef2019-09-28 22:11:56 +02001790 " Insert mode completion (bit slower on Mac)
Bram Moolenaarc2585492019-09-22 21:29:53 +02001791 call term_sendkeys(buf, ":call RunTimer()\<CR>Got\<C-N>")
Bram Moolenaarb7a97ef2019-09-28 22:11:56 +02001792 call term_wait(buf, 200)
Bram Moolenaarc2585492019-09-22 21:29:53 +02001793 call term_sendkeys(buf, "\<Esc>")
1794 call term_sendkeys(buf, getstate)
1795 call WaitForAssert({-> assert_match('state: aSc; mode: i', term_getline(buf, 6))}, 1000)
1796
1797 " Autocommand executing
1798 call term_sendkeys(buf, ":set filetype=foobar\<CR>")
1799 call term_wait(buf, 50)
1800 call term_sendkeys(buf, getstate)
1801 call WaitForAssert({-> assert_match('state: xS; mode: n', term_getline(buf, 6))}, 1000)
1802
1803 " Todo: "w" - waiting for ch_evalexpr()
1804
1805 " messages scrolled
1806 call term_sendkeys(buf, ":call RunTimer()\<CR>:echo \"one\\ntwo\\nthree\"\<CR>")
1807 call term_wait(buf, 50)
1808 call term_sendkeys(buf, "\<CR>")
1809 call term_sendkeys(buf, getstate)
1810 call WaitForAssert({-> assert_match('state: Scs; mode: r', term_getline(buf, 6))}, 1000)
1811
1812 call StopVimInTerminal(buf)
1813 call delete('XState')
1814endfunc
Bram Moolenaar50985eb2020-01-27 22:09:39 +01001815
1816func Test_range()
1817 " destructuring
1818 let [x, y] = range(2)
1819 call assert_equal([0, 1], [x, y])
1820
1821 " index
1822 call assert_equal(4, range(1, 10)[3])
1823
1824 " add()
1825 call assert_equal([0, 1, 2, 3], add(range(3), 3))
1826 call assert_equal([0, 1, 2, [0, 1, 2]], add([0, 1, 2], range(3)))
1827 call assert_equal([0, 1, 2, [0, 1, 2]], add(range(3), range(3)))
1828
1829 " append()
1830 new
1831 call append('.', range(5))
1832 call assert_equal(['', '0', '1', '2', '3', '4'], getline(1, '$'))
1833 bwipe!
1834
1835 " appendbufline()
1836 new
1837 call appendbufline(bufnr(''), '.', range(5))
1838 call assert_equal(['0', '1', '2', '3', '4', ''], getline(1, '$'))
1839 bwipe!
1840
1841 " call()
1842 func TwoArgs(a, b)
1843 return [a:a, a:b]
1844 endfunc
1845 call assert_equal([0, 1], call('TwoArgs', range(2)))
1846
1847 " col()
1848 new
1849 call setline(1, ['foo', 'bar'])
1850 call assert_equal(2, col(range(1, 2)))
1851 bwipe!
1852
1853 " complete()
1854 execute "normal! a\<C-r>=[complete(col('.'), range(10)), ''][1]\<CR>"
1855 " complete_info()
1856 execute "normal! a\<C-r>=[complete(col('.'), range(10)), ''][1]\<CR>\<C-r>=[complete_info(range(5)), ''][1]\<CR>"
1857
1858 " copy()
1859 call assert_equal([1, 2, 3], copy(range(1, 3)))
1860
1861 " count()
1862 call assert_equal(0, count(range(0), 3))
1863 call assert_equal(0, count(range(2), 3))
1864 call assert_equal(1, count(range(5), 3))
1865
1866 " cursor()
1867 new
1868 call setline(1, ['aaa', 'bbb', 'ccc'])
1869 call cursor(range(1, 2))
1870 call assert_equal([2, 1], [col('.'), line('.')])
1871 bwipe!
1872
1873 " deepcopy()
1874 call assert_equal([1, 2, 3], deepcopy(range(1, 3)))
1875
1876 " empty()
1877 call assert_true(empty(range(0)))
1878 call assert_false(empty(range(2)))
1879
1880 " execute()
1881 new
1882 call setline(1, ['aaa', 'bbb', 'ccc'])
1883 call execute(range(3))
1884 call assert_equal(2, line('.'))
1885 bwipe!
1886
1887 " extend()
1888 call assert_equal([1, 2, 3, 4], extend([1], range(2, 4)))
1889 call assert_equal([1, 2, 3, 4], extend(range(1, 1), range(2, 4)))
1890 call assert_equal([1, 2, 3, 4], extend(range(1, 1), [2, 3, 4]))
1891
1892 " filter()
1893 call assert_equal([1, 3], filter(range(5), 'v:val % 2'))
1894
1895 " funcref()
1896 call assert_equal([0, 1], funcref('TwoArgs', range(2))())
1897
1898 " function()
1899 call assert_equal([0, 1], function('TwoArgs', range(2))())
1900
1901 " garbagecollect()
1902 let thelist = [1, range(2), 3]
1903 let otherlist = range(3)
1904 call test_garbagecollect_now()
1905
1906 " get()
1907 call assert_equal(4, get(range(1, 10), 3))
1908 call assert_equal(-1, get(range(1, 10), 42, -1))
1909
1910 " index()
1911 call assert_equal(1, index(range(1, 5), 2))
1912
1913 " inputlist()
Bram Moolenaar272ca952020-01-28 20:49:11 +01001914 call feedkeys(":let result = inputlist(range(10))\<CR>1\<CR>", 'x')
1915 call assert_equal(1, result)
1916 call feedkeys(":let result = inputlist(range(3, 10))\<CR>1\<CR>", 'x')
1917 call assert_equal(1, result)
Bram Moolenaar50985eb2020-01-27 22:09:39 +01001918
1919 " insert()
1920 call assert_equal([42, 1, 2, 3, 4, 5], insert(range(1, 5), 42))
1921 call assert_equal([42, 1, 2, 3, 4, 5], insert(range(1, 5), 42, 0))
1922 call assert_equal([1, 42, 2, 3, 4, 5], insert(range(1, 5), 42, 1))
1923 call assert_equal([1, 2, 3, 4, 42, 5], insert(range(1, 5), 42, 4))
1924 call assert_equal([1, 2, 3, 4, 42, 5], insert(range(1, 5), 42, -1))
1925 call assert_equal([1, 2, 3, 4, 5, 42], insert(range(1, 5), 42, 5))
1926
1927 " join()
1928 call assert_equal('0 1 2 3 4', join(range(5)))
1929
Bram Moolenaar272ca952020-01-28 20:49:11 +01001930 " json_encode()
1931 call assert_equal('[0,1,2,3]', json_encode(range(4)))
1932
Bram Moolenaar50985eb2020-01-27 22:09:39 +01001933 " len()
1934 call assert_equal(0, len(range(0)))
1935 call assert_equal(2, len(range(2)))
1936 call assert_equal(5, len(range(0, 12, 3)))
1937 call assert_equal(4, len(range(3, 0, -1)))
1938
1939 " list2str()
1940 call assert_equal('ABC', list2str(range(65, 67)))
1941
1942 " lock()
1943 let thelist = range(5)
1944 lockvar thelist
1945
1946 " map()
1947 call assert_equal([0, 2, 4, 6, 8], map(range(5), 'v:val * 2'))
1948
1949 " match()
1950 call assert_equal(3, match(range(5), 3))
1951
1952 " matchaddpos()
1953 highlight MyGreenGroup ctermbg=green guibg=green
1954 call matchaddpos('MyGreenGroup', range(line('.'), line('.')))
1955
1956 " matchend()
1957 call assert_equal(4, matchend(range(5), '4'))
1958 call assert_equal(3, matchend(range(1, 5), '4'))
1959 call assert_equal(-1, matchend(range(1, 5), '42'))
1960
1961 " matchstrpos()
1962 call assert_equal(['4', 4, 0, 1], matchstrpos(range(5), '4'))
1963 call assert_equal(['4', 3, 0, 1], matchstrpos(range(1, 5), '4'))
1964 call assert_equal(['', -1, -1, -1], matchstrpos(range(1, 5), '42'))
1965
1966 " max() reverse()
1967 call assert_equal(0, max(range(0)))
1968 call assert_equal(0, max(range(10, 9)))
1969 call assert_equal(9, max(range(10)))
1970 call assert_equal(18, max(range(0, 20, 3)))
1971 call assert_equal(20, max(range(20, 0, -3)))
1972 call assert_equal(99999, max(range(100000)))
1973 call assert_equal(99999, max(range(99999, 0, -1)))
1974 call assert_equal(99999, max(reverse(range(100000))))
1975 call assert_equal(99999, max(reverse(range(99999, 0, -1))))
1976
1977 " min() reverse()
1978 call assert_equal(0, min(range(0)))
1979 call assert_equal(0, min(range(10, 9)))
1980 call assert_equal(5, min(range(5, 10)))
1981 call assert_equal(5, min(range(5, 10, 3)))
1982 call assert_equal(2, min(range(20, 0, -3)))
1983 call assert_equal(0, min(range(100000)))
1984 call assert_equal(0, min(range(99999, 0, -1)))
1985 call assert_equal(0, min(reverse(range(100000))))
1986 call assert_equal(0, min(reverse(range(99999, 0, -1))))
1987
1988 " remove()
1989 call assert_equal(1, remove(range(1, 10), 0))
1990 call assert_equal(2, remove(range(1, 10), 1))
1991 call assert_equal(9, remove(range(1, 10), 8))
1992 call assert_equal(10, remove(range(1, 10), 9))
1993 call assert_equal(10, remove(range(1, 10), -1))
1994 call assert_equal([3, 4, 5], remove(range(1, 10), 2, 4))
1995
1996 " repeat()
1997 call assert_equal([0, 1, 2, 0, 1, 2], repeat(range(3), 2))
1998 call assert_equal([0, 1, 2], repeat(range(3), 1))
1999 call assert_equal([], repeat(range(3), 0))
2000 call assert_equal([], repeat(range(5, 4), 2))
2001 call assert_equal([], repeat(range(5, 4), 0))
2002
2003 " reverse()
2004 call assert_equal([2, 1, 0], reverse(range(3)))
2005 call assert_equal([0, 1, 2, 3], reverse(range(3, 0, -1)))
2006 call assert_equal([9, 8, 7, 6, 5, 4, 3, 2, 1, 0], reverse(range(10)))
2007 call assert_equal([20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10], reverse(range(10, 20)))
2008 call assert_equal([16, 13, 10], reverse(range(10, 18, 3)))
2009 call assert_equal([19, 16, 13, 10], reverse(range(10, 19, 3)))
2010 call assert_equal([19, 16, 13, 10], reverse(range(10, 20, 3)))
2011 call assert_equal([11, 14, 17, 20], reverse(range(20, 10, -3)))
2012 call assert_equal([], reverse(range(0)))
2013
2014 " TODO: setpos()
2015 " new
2016 " call setline(1, repeat([''], bufnr('')))
2017 " call setline(bufnr('') + 1, repeat('x', bufnr('') * 2 + 6))
2018 " call setpos('x', range(bufnr(''), bufnr('') + 3))
2019 " bwipe!
2020
2021 " setreg()
2022 call setreg('a', range(3))
2023 call assert_equal("0\n1\n2\n", getreg('a'))
2024
Bram Moolenaarb0992022020-01-30 14:55:42 +01002025 " settagstack()
2026 call settagstack(1, #{items : range(4)})
Bram Moolenaar94255df2020-02-05 20:10:33 +01002027
Bram Moolenaarb0992022020-01-30 14:55:42 +01002028 " sign_define()
2029 call assert_fails("call sign_define(range(5))", "E715:")
2030 call assert_fails("call sign_placelist(range(5))", "E715:")
2031
2032 " sign_undefine()
2033 call assert_fails("call sign_undefine(range(5))", "E908:")
2034
2035 " sign_unplacelist()
2036 call assert_fails("call sign_unplacelist(range(5))", "E715:")
2037
Bram Moolenaar50985eb2020-01-27 22:09:39 +01002038 " sort()
2039 call assert_equal([0, 1, 2, 3, 4, 5], sort(range(5, 0, -1)))
2040
2041 " string()
2042 call assert_equal('[0, 1, 2, 3, 4]', string(range(5)))
2043
Bram Moolenaarb0992022020-01-30 14:55:42 +01002044 " taglist() with 'tagfunc'
2045 func TagFunc(pattern, flags, info)
2046 return range(10)
2047 endfunc
2048 set tagfunc=TagFunc
2049 call assert_fails("call taglist('asdf')", 'E987:')
2050 set tagfunc=
Bram Moolenaar94255df2020-02-05 20:10:33 +01002051
Bram Moolenaarb0992022020-01-30 14:55:42 +01002052 " term_start()
Bram Moolenaar705724e2020-01-31 21:13:42 +01002053 if has('terminal') && has('termguicolors')
Bram Moolenaarb0992022020-01-30 14:55:42 +01002054 call assert_fails('call term_start(range(3, 4))', 'E474:')
2055 let g:terminal_ansi_colors = range(16)
Bram Moolenaar94255df2020-02-05 20:10:33 +01002056 if has('win32')
2057 let cmd = "cmd /c dir"
2058 else
2059 let cmd = "ls"
2060 endif
2061 call assert_fails('call term_start("' .. cmd .. '", #{term_finish: "close"})', 'E475:')
Bram Moolenaarb0992022020-01-30 14:55:42 +01002062 unlet g:terminal_ansi_colors
2063 endif
2064
Bram Moolenaar50985eb2020-01-27 22:09:39 +01002065 " type()
2066 call assert_equal(v:t_list, type(range(5)))
2067
2068 " uniq()
2069 call assert_equal([0, 1, 2, 3, 4], uniq(range(5)))
2070endfunc
Bram Moolenaar4132eb52020-02-14 16:53:00 +01002071
2072func Test_echoraw()
2073 CheckScreendump
2074
2075 " Normally used for escape codes, but let's test with a CR.
2076 let lines =<< trim END
2077 call echoraw("hello\<CR>x")
2078 END
2079 call writefile(lines, 'XTest_echoraw')
2080 let buf = RunVimInTerminal('-S XTest_echoraw', {'rows': 5, 'cols': 40})
2081 call VerifyScreenDump(buf, 'Test_functions_echoraw', {})
2082
2083 " clean up
2084 call StopVimInTerminal(buf)
2085 call delete('XTest_echoraw')
2086endfunc
Bram Moolenaar8d588cc2020-02-25 21:47:45 +01002087
2088" vim: shiftwidth=2 sts=2 expandtab