vim: src/testdir/test_functions.vim annotate

annotate src/testdir/test_functions.vim @ 25566:e1c7aa26ddf5

Added tag v8.2.3319 for changeset 62fa7eb8462520e84520ed2e7b269a7f1615ac24

author	Bram Moolenaar <Bram@vim.org>
date	Mon, 09 Aug 2021 13:30:05 +0200
parents	01feec4a221d
children	7dbd3a65a04b

rev	line source
10555 fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: diff changeset	1 " Tests for various functions.
21765 08940efa6b4e patch 8.2.1432: various inconsistencies in test files Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	2
14669 63d5ae57a663 patch 8.1.0347: some tests fail on Solaris Christian Brabandt <cb@256bit.org> parents: 14579 diff changeset	3 source shared.vim
17657 0da9bc55c31a patch 8.1.1826: tests use hand coded feature and option checks Bram Moolenaar <Bram@vim.org> parents: 17484 diff changeset	4 source check.vim
18143 2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	5 source term_util.vim
19400 bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled Bram Moolenaar <Bram@vim.org> parents: 19306 diff changeset	6 source screendump.vim
24766 29ed95687f74 patch 8.2.2921: E704 for script local variable is not backwards compatible Bram Moolenaar <Bram@vim.org> parents: 24764 diff changeset	7 source vim9.vim
10555 fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: diff changeset	8
12869 a89350ba2a9d patch 8.0.1311: no test for strpart() Christian Brabandt <cb@256bit.org> parents: 12451 diff changeset	9 " Must be done first, since the alternate buffer must be unset.
a89350ba2a9d patch 8.0.1311: no test for strpart() Christian Brabandt <cb@256bit.org> parents: 12451 diff changeset	10 func Test_00_bufexists()
a89350ba2a9d patch 8.0.1311: no test for strpart() Christian Brabandt <cb@256bit.org> parents: 12451 diff changeset	11 call assert_equal(0, bufexists('does_not_exist'))
a89350ba2a9d patch 8.0.1311: no test for strpart() Christian Brabandt <cb@256bit.org> parents: 12451 diff changeset	12 call assert_equal(1, bufexists(bufnr('%')))
a89350ba2a9d patch 8.0.1311: no test for strpart() Christian Brabandt <cb@256bit.org> parents: 12451 diff changeset	13 call assert_equal(0, bufexists(0))
a89350ba2a9d patch 8.0.1311: no test for strpart() Christian Brabandt <cb@256bit.org> parents: 12451 diff changeset	14 new Xfoo
a89350ba2a9d patch 8.0.1311: no test for strpart() Christian Brabandt <cb@256bit.org> parents: 12451 diff changeset	15 let bn = bufnr('%')
a89350ba2a9d patch 8.0.1311: no test for strpart() Christian Brabandt <cb@256bit.org> parents: 12451 diff changeset	16 call assert_equal(1, bufexists(bn))
a89350ba2a9d patch 8.0.1311: no test for strpart() Christian Brabandt <cb@256bit.org> parents: 12451 diff changeset	17 call assert_equal(1, bufexists('Xfoo'))
a89350ba2a9d patch 8.0.1311: no test for strpart() Christian Brabandt <cb@256bit.org> parents: 12451 diff changeset	18 call assert_equal(1, bufexists(getcwd() . '/Xfoo'))
a89350ba2a9d patch 8.0.1311: no test for strpart() Christian Brabandt <cb@256bit.org> parents: 12451 diff changeset	19 call assert_equal(1, bufexists(0))
a89350ba2a9d patch 8.0.1311: no test for strpart() Christian Brabandt <cb@256bit.org> parents: 12451 diff changeset	20 bw
a89350ba2a9d patch 8.0.1311: no test for strpart() Christian Brabandt <cb@256bit.org> parents: 12451 diff changeset	21 call assert_equal(0, bufexists(bn))
a89350ba2a9d patch 8.0.1311: no test for strpart() Christian Brabandt <cb@256bit.org> parents: 12451 diff changeset	22 call assert_equal(0, bufexists('Xfoo'))
a89350ba2a9d patch 8.0.1311: no test for strpart() Christian Brabandt <cb@256bit.org> parents: 12451 diff changeset	23 endfunc
a89350ba2a9d patch 8.0.1311: no test for strpart() Christian Brabandt <cb@256bit.org> parents: 12451 diff changeset	24
19742 810eee1b42e3 patch 8.2.0427: it is not possible to check for a typo in a feature name Bram Moolenaar <Bram@vim.org> parents: 19724 diff changeset	25 func Test_has()
810eee1b42e3 patch 8.2.0427: it is not possible to check for a typo in a feature name Bram Moolenaar <Bram@vim.org> parents: 19724 diff changeset	26 call assert_equal(1, has('eval'))
810eee1b42e3 patch 8.2.0427: it is not possible to check for a typo in a feature name Bram Moolenaar <Bram@vim.org> parents: 19724 diff changeset	27 call assert_equal(1, has('eval', 1))
810eee1b42e3 patch 8.2.0427: it is not possible to check for a typo in a feature name Bram Moolenaar <Bram@vim.org> parents: 19724 diff changeset	28
19783 546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	29 if has('unix')
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	30 call assert_equal(1, or(has('ttyin'), 1))
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	31 call assert_equal(0, and(has('ttyout'), 0))
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	32 call assert_equal(1, has('multi_byte_encoding'))
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	33 endif
20178 2fb397573541 patch 8.2.0644: insufficient testing for invalid function arguments Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	34 call assert_equal(1, has('vcon', 1))
2fb397573541 patch 8.2.0644: insufficient testing for invalid function arguments Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	35 call assert_equal(1, has('mouse_gpm_enabled', 1))
19783 546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	36
19742 810eee1b42e3 patch 8.2.0427: it is not possible to check for a typo in a feature name Bram Moolenaar <Bram@vim.org> parents: 19724 diff changeset	37 call assert_equal(0, has('nonexistent'))
810eee1b42e3 patch 8.2.0427: it is not possible to check for a typo in a feature name Bram Moolenaar <Bram@vim.org> parents: 19724 diff changeset	38 call assert_equal(0, has('nonexistent', 1))
19783 546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	39
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	40 " Will we ever have patch 9999?
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	41 let ver = 'patch-' .. v:version / 100 .. '.' .. v:version % 100 .. '.9999'
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	42 call assert_equal(0, has(ver))
19742 810eee1b42e3 patch 8.2.0427: it is not possible to check for a typo in a feature name Bram Moolenaar <Bram@vim.org> parents: 19724 diff changeset	43 endfunc
810eee1b42e3 patch 8.2.0427: it is not possible to check for a typo in a feature name Bram Moolenaar <Bram@vim.org> parents: 19724 diff changeset	44
10743 8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	45 func Test_empty()
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	46 call assert_equal(1, empty(''))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	47 call assert_equal(0, empty('a'))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	48
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	49 call assert_equal(1, empty(0))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	50 call assert_equal(1, empty(-0))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	51 call assert_equal(0, empty(1))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	52 call assert_equal(0, empty(-1))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	53
19249 2a017e9dc6da patch 8.2.0183: tests fail when the float feature is disabled Bram Moolenaar <Bram@vim.org> parents: 19241 diff changeset	54 if has('float')
2a017e9dc6da patch 8.2.0183: tests fail when the float feature is disabled Bram Moolenaar <Bram@vim.org> parents: 19241 diff changeset	55 call assert_equal(1, empty(0.0))
2a017e9dc6da patch 8.2.0183: tests fail when the float feature is disabled Bram Moolenaar <Bram@vim.org> parents: 19241 diff changeset	56 call assert_equal(1, empty(-0.0))
2a017e9dc6da patch 8.2.0183: tests fail when the float feature is disabled Bram Moolenaar <Bram@vim.org> parents: 19241 diff changeset	57 call assert_equal(0, empty(1.0))
2a017e9dc6da patch 8.2.0183: tests fail when the float feature is disabled Bram Moolenaar <Bram@vim.org> parents: 19241 diff changeset	58 call assert_equal(0, empty(-1.0))
2a017e9dc6da patch 8.2.0183: tests fail when the float feature is disabled Bram Moolenaar <Bram@vim.org> parents: 19241 diff changeset	59 call assert_equal(0, empty(1.0/0.0))
2a017e9dc6da patch 8.2.0183: tests fail when the float feature is disabled Bram Moolenaar <Bram@vim.org> parents: 19241 diff changeset	60 call assert_equal(0, empty(0.0/0.0))
2a017e9dc6da patch 8.2.0183: tests fail when the float feature is disabled Bram Moolenaar <Bram@vim.org> parents: 19241 diff changeset	61 endif
10743 8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	62
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	63 call assert_equal(1, empty([]))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	64 call assert_equal(0, empty(['a']))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	65
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	66 call assert_equal(1, empty({}))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	67 call assert_equal(0, empty({'a':1}))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	68
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	69 call assert_equal(1, empty(v:null))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	70 call assert_equal(1, empty(v:none))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	71 call assert_equal(1, empty(v:false))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	72 call assert_equal(0, empty(v:true))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	73
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	74 if has('channel')
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	75 call assert_equal(1, empty(test_null_channel()))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	76 endif
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	77 if has('job')
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	78 call assert_equal(1, empty(test_null_job()))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	79 endif
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	80
10743 8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	81 call assert_equal(0, empty(function('Test_empty')))
16668 81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	82 call assert_equal(0, empty(function('Test_empty', [0])))
19548 9a9ca0e622c8 patch 8.2.0331: internal error when using test_void() and test_unknown() Bram Moolenaar <Bram@vim.org> parents: 19536 diff changeset	83
9a9ca0e622c8 patch 8.2.0331: internal error when using test_void() and test_unknown() Bram Moolenaar <Bram@vim.org> parents: 19536 diff changeset	84 call assert_fails("call empty(test_void())", 'E685:')
9a9ca0e622c8 patch 8.2.0331: internal error when using test_void() and test_unknown() Bram Moolenaar <Bram@vim.org> parents: 19536 diff changeset	85 call assert_fails("call empty(test_unknown())", 'E685:')
10743 8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	86 endfunc
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	87
19554 b38d73f36467 patch 8.2.0334: abort called when using test_void() Bram Moolenaar <Bram@vim.org> parents: 19548 diff changeset	88 func Test_test_void()
24940 0c415a0f54f9 patch 8.2.3007: Vim9: test for void value fails Bram Moolenaar <Bram@vim.org> parents: 24878 diff changeset	89 call assert_fails('echo 1 == test_void()', 'E1031:')
19554 b38d73f36467 patch 8.2.0334: abort called when using test_void() Bram Moolenaar <Bram@vim.org> parents: 19548 diff changeset	90 if has('float')
24940 0c415a0f54f9 patch 8.2.3007: Vim9: test for void value fails Bram Moolenaar <Bram@vim.org> parents: 24878 diff changeset	91 call assert_fails('echo 1.0 == test_void()', 'E1031:')
19554 b38d73f36467 patch 8.2.0334: abort called when using test_void() Bram Moolenaar <Bram@vim.org> parents: 19548 diff changeset	92 endif
b38d73f36467 patch 8.2.0334: abort called when using test_void() Bram Moolenaar <Bram@vim.org> parents: 19548 diff changeset	93 call assert_fails('let x = json_encode(test_void())', 'E685:')
b38d73f36467 patch 8.2.0334: abort called when using test_void() Bram Moolenaar <Bram@vim.org> parents: 19548 diff changeset	94 call assert_fails('let x = copy(test_void())', 'E685:')
24940 0c415a0f54f9 patch 8.2.3007: Vim9: test for void value fails Bram Moolenaar <Bram@vim.org> parents: 24878 diff changeset	95 call assert_fails('let x = copy([test_void()])', 'E1031:')
19554 b38d73f36467 patch 8.2.0334: abort called when using test_void() Bram Moolenaar <Bram@vim.org> parents: 19548 diff changeset	96 endfunc
b38d73f36467 patch 8.2.0334: abort called when using test_void() Bram Moolenaar <Bram@vim.org> parents: 19548 diff changeset	97
25244 11ed1f0adb01 patch 8.2.3158: strange error message when using islocked() with a number Bram Moolenaar <Bram@vim.org> parents: 25094 diff changeset	98 func Test_islocked()
11ed1f0adb01 patch 8.2.3158: strange error message when using islocked() with a number Bram Moolenaar <Bram@vim.org> parents: 25094 diff changeset	99 call assert_fails('call islocked(99)', 'E475:')
11ed1f0adb01 patch 8.2.3158: strange error message when using islocked() with a number Bram Moolenaar <Bram@vim.org> parents: 25094 diff changeset	100 call assert_fails('call islocked("s: x")', 'E488:')
11ed1f0adb01 patch 8.2.3158: strange error message when using islocked() with a number Bram Moolenaar <Bram@vim.org> parents: 25094 diff changeset	101 endfunc
11ed1f0adb01 patch 8.2.3158: strange error message when using islocked() with a number Bram Moolenaar <Bram@vim.org> parents: 25094 diff changeset	102
10743 8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	103 func Test_len()
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	104 call assert_equal(1, len(0))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	105 call assert_equal(2, len(12))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	106
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	107 call assert_equal(0, len(''))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	108 call assert_equal(2, len('ab'))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	109
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	110 call assert_equal(0, len([]))
20109 e82996ad131f patch 8.2.0610: some tests are still old style Bram Moolenaar <Bram@vim.org> parents: 19954 diff changeset	111 call assert_equal(0, len(test_null_list()))
10743 8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	112 call assert_equal(2, len([2, 1]))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	113
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	114 call assert_equal(0, len({}))
20109 e82996ad131f patch 8.2.0610: some tests are still old style Bram Moolenaar <Bram@vim.org> parents: 19954 diff changeset	115 call assert_equal(0, len(test_null_dict()))
10743 8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	116 call assert_equal(2, len({'a': 1, 'b': 2}))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	117
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	118 call assert_fails('call len(v:none)', 'E701:')
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	119 call assert_fails('call len({-> 0})', 'E701:')
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	120 endfunc
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	121
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	122 func Test_max()
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	123 call assert_equal(0, max([]))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	124 call assert_equal(2, max([2]))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	125 call assert_equal(2, max([1, 2]))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	126 call assert_equal(2, max([1, 2, v:null]))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	127
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	128 call assert_equal(0, max({}))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	129 call assert_equal(2, max({'a':1, 'b':2}))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	130
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	131 call assert_fails('call max(1)', 'E712:')
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	132 call assert_fails('call max(v:none)', 'E712:')
23849 a45a922832d4 patch 8.2.2466: max() and min() can give many error messages Bram Moolenaar <Bram@vim.org> parents: 23432 diff changeset	133
a45a922832d4 patch 8.2.2466: max() and min() can give many error messages Bram Moolenaar <Bram@vim.org> parents: 23432 diff changeset	134 " check we only get one error
a45a922832d4 patch 8.2.2466: max() and min() can give many error messages Bram Moolenaar <Bram@vim.org> parents: 23432 diff changeset	135 call assert_fails('call max([#{}, [1]])', ['E728:', 'E728:'])
a45a922832d4 patch 8.2.2466: max() and min() can give many error messages Bram Moolenaar <Bram@vim.org> parents: 23432 diff changeset	136 call assert_fails('call max(#{a: {}, b: [1]})', ['E728:', 'E728:'])
10743 8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	137 endfunc
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	138
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	139 func Test_min()
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	140 call assert_equal(0, min([]))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	141 call assert_equal(2, min([2]))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	142 call assert_equal(1, min([1, 2]))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	143 call assert_equal(0, min([1, 2, v:null]))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	144
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	145 call assert_equal(0, min({}))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	146 call assert_equal(1, min({'a':1, 'b':2}))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	147
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	148 call assert_fails('call min(1)', 'E712:')
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	149 call assert_fails('call min(v:none)', 'E712:')
24695 13efbfc53054 patch 8.2.2886: various pieces of code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 24685 diff changeset	150 call assert_fails('call min([1, {}])', 'E728:')
23849 a45a922832d4 patch 8.2.2466: max() and min() can give many error messages Bram Moolenaar <Bram@vim.org> parents: 23432 diff changeset	151
a45a922832d4 patch 8.2.2466: max() and min() can give many error messages Bram Moolenaar <Bram@vim.org> parents: 23432 diff changeset	152 " check we only get one error
a45a922832d4 patch 8.2.2466: max() and min() can give many error messages Bram Moolenaar <Bram@vim.org> parents: 23432 diff changeset	153 call assert_fails('call min([[1], #{}])', ['E745:', 'E745:'])
a45a922832d4 patch 8.2.2466: max() and min() can give many error messages Bram Moolenaar <Bram@vim.org> parents: 23432 diff changeset	154 call assert_fails('call min(#{a: [1], b: #{}})', ['E745:', 'E745:'])
10743 8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	155 endfunc
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	156
13980 a9e31b01366b patch 8.1.0008: no test for strwidth() Christian Brabandt <cb@256bit.org> parents: 13513 diff changeset	157 func Test_strwidth()
a9e31b01366b patch 8.1.0008: no test for strwidth() Christian Brabandt <cb@256bit.org> parents: 13513 diff changeset	158 for aw in ['single', 'double']
a9e31b01366b patch 8.1.0008: no test for strwidth() Christian Brabandt <cb@256bit.org> parents: 13513 diff changeset	159 exe 'set ambiwidth=' . aw
a9e31b01366b patch 8.1.0008: no test for strwidth() Christian Brabandt <cb@256bit.org> parents: 13513 diff changeset	160 call assert_equal(0, strwidth(''))
a9e31b01366b patch 8.1.0008: no test for strwidth() Christian Brabandt <cb@256bit.org> parents: 13513 diff changeset	161 call assert_equal(1, strwidth("\t"))
a9e31b01366b patch 8.1.0008: no test for strwidth() Christian Brabandt <cb@256bit.org> parents: 13513 diff changeset	162 call assert_equal(3, strwidth('Vim'))
a9e31b01366b patch 8.1.0008: no test for strwidth() Christian Brabandt <cb@256bit.org> parents: 13513 diff changeset	163 call assert_equal(4, strwidth(1234))
a9e31b01366b patch 8.1.0008: no test for strwidth() Christian Brabandt <cb@256bit.org> parents: 13513 diff changeset	164 call assert_equal(5, strwidth(-1234))
a9e31b01366b patch 8.1.0008: no test for strwidth() Christian Brabandt <cb@256bit.org> parents: 13513 diff changeset	165
15607 2dcaa860e3fc patch 8.1.0811: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15008 diff changeset	166 call assert_equal(2, strwidth('😉'))
2dcaa860e3fc patch 8.1.0811: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15008 diff changeset	167 call assert_equal(17, strwidth('Eĥoŝanĝo ĉiuĵaŭde'))
2dcaa860e3fc patch 8.1.0811: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15008 diff changeset	168 call assert_equal((aw == 'single') ? 6 : 7, strwidth('Straße'))
13980 a9e31b01366b patch 8.1.0008: no test for strwidth() Christian Brabandt <cb@256bit.org> parents: 13513 diff changeset	169
a9e31b01366b patch 8.1.0008: no test for strwidth() Christian Brabandt <cb@256bit.org> parents: 13513 diff changeset	170 call assert_fails('call strwidth({->0})', 'E729:')
a9e31b01366b patch 8.1.0008: no test for strwidth() Christian Brabandt <cb@256bit.org> parents: 13513 diff changeset	171 call assert_fails('call strwidth([])', 'E730:')
a9e31b01366b patch 8.1.0008: no test for strwidth() Christian Brabandt <cb@256bit.org> parents: 13513 diff changeset	172 call assert_fails('call strwidth({})', 'E731:')
a9e31b01366b patch 8.1.0008: no test for strwidth() Christian Brabandt <cb@256bit.org> parents: 13513 diff changeset	173 endfor
a9e31b01366b patch 8.1.0008: no test for strwidth() Christian Brabandt <cb@256bit.org> parents: 13513 diff changeset	174
24822 5f8dd7b3ae41 patch 8.2.2949: tests failing because no error for float to string conversion Bram Moolenaar <Bram@vim.org> parents: 24766 diff changeset	175 if has('float')
5f8dd7b3ae41 patch 8.2.2949: tests failing because no error for float to string conversion Bram Moolenaar <Bram@vim.org> parents: 24766 diff changeset	176 call assert_equal(3, strwidth(1.2))
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25244 diff changeset	177 call CheckDefAndScriptFailure2(['echo strwidth(1.2)'], 'E1013: Argument 1: type mismatch, expected string but got float', 'E1174: String required for argument 1')
24822 5f8dd7b3ae41 patch 8.2.2949: tests failing because no error for float to string conversion Bram Moolenaar <Bram@vim.org> parents: 24766 diff changeset	178 endif
5f8dd7b3ae41 patch 8.2.2949: tests failing because no error for float to string conversion Bram Moolenaar <Bram@vim.org> parents: 24766 diff changeset	179
13980 a9e31b01366b patch 8.1.0008: no test for strwidth() Christian Brabandt <cb@256bit.org> parents: 13513 diff changeset	180 set ambiwidth&
a9e31b01366b patch 8.1.0008: no test for strwidth() Christian Brabandt <cb@256bit.org> parents: 13513 diff changeset	181 endfunc
a9e31b01366b patch 8.1.0008: no test for strwidth() Christian Brabandt <cb@256bit.org> parents: 13513 diff changeset	182
10555 fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: diff changeset	183 func Test_str2nr()
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: diff changeset	184 call assert_equal(0, str2nr(''))
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: diff changeset	185 call assert_equal(1, str2nr('1'))
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: diff changeset	186 call assert_equal(1, str2nr(' 1 '))
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: diff changeset	187
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: diff changeset	188 call assert_equal(1, str2nr('+1'))
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: diff changeset	189 call assert_equal(1, str2nr('+ 1'))
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: diff changeset	190 call assert_equal(1, str2nr(' + 1 '))
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: diff changeset	191
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: diff changeset	192 call assert_equal(-1, str2nr('-1'))
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: diff changeset	193 call assert_equal(-1, str2nr('- 1'))
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: diff changeset	194 call assert_equal(-1, str2nr(' - 1 '))
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: diff changeset	195
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: diff changeset	196 call assert_equal(123456789, str2nr('123456789'))
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: diff changeset	197 call assert_equal(-123456789, str2nr('-123456789'))
10743 8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	198
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	199 call assert_equal(5, str2nr('101', 2))
18017 988e5a868b60 patch 8.1.2004: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 18000 diff changeset	200 call assert_equal(5, '0b101'->str2nr(2))
10743 8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	201 call assert_equal(5, str2nr('0B101', 2))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	202 call assert_equal(-5, str2nr('-101', 2))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	203 call assert_equal(-5, str2nr('-0b101', 2))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	204 call assert_equal(-5, str2nr('-0B101', 2))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	205
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	206 call assert_equal(65, str2nr('101', 8))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	207 call assert_equal(65, str2nr('0101', 8))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	208 call assert_equal(-65, str2nr('-101', 8))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	209 call assert_equal(-65, str2nr('-0101', 8))
20665 6ff992bf4c82 patch 8.2.0886: cannot use octal numbers in scriptversion 4 Bram Moolenaar <Bram@vim.org> parents: 20643 diff changeset	210 call assert_equal(65, str2nr('0o101', 8))
6ff992bf4c82 patch 8.2.0886: cannot use octal numbers in scriptversion 4 Bram Moolenaar <Bram@vim.org> parents: 20643 diff changeset	211 call assert_equal(65, str2nr('0O0101', 8))
6ff992bf4c82 patch 8.2.0886: cannot use octal numbers in scriptversion 4 Bram Moolenaar <Bram@vim.org> parents: 20643 diff changeset	212 call assert_equal(-65, str2nr('-0O101', 8))
6ff992bf4c82 patch 8.2.0886: cannot use octal numbers in scriptversion 4 Bram Moolenaar <Bram@vim.org> parents: 20643 diff changeset	213 call assert_equal(-65, str2nr('-0o0101', 8))
10743 8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	214
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	215 call assert_equal(11259375, str2nr('abcdef', 16))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	216 call assert_equal(11259375, str2nr('ABCDEF', 16))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	217 call assert_equal(-11259375, str2nr('-ABCDEF', 16))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	218 call assert_equal(11259375, str2nr('0xabcdef', 16))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	219 call assert_equal(11259375, str2nr('0Xabcdef', 16))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	220 call assert_equal(11259375, str2nr('0XABCDEF', 16))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	221 call assert_equal(-11259375, str2nr('-0xABCDEF', 16))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	222
18080 a6d218f99ff7 patch 8.1.2035: recognizing octal numbers is confusing Bram Moolenaar <Bram@vim.org> parents: 18035 diff changeset	223 call assert_equal(1, str2nr("1'000'000", 10, 0))
a6d218f99ff7 patch 8.1.2035: recognizing octal numbers is confusing Bram Moolenaar <Bram@vim.org> parents: 18035 diff changeset	224 call assert_equal(256, str2nr("1'0000'0000", 2, 1))
a6d218f99ff7 patch 8.1.2035: recognizing octal numbers is confusing Bram Moolenaar <Bram@vim.org> parents: 18035 diff changeset	225 call assert_equal(262144, str2nr("1'000'000", 8, 1))
a6d218f99ff7 patch 8.1.2035: recognizing octal numbers is confusing Bram Moolenaar <Bram@vim.org> parents: 18035 diff changeset	226 call assert_equal(1000000, str2nr("1'000'000", 10, 1))
18096 609b351cb58f patch 8.1.2043: not sufficient testing for quoted numbers Bram Moolenaar <Bram@vim.org> parents: 18080 diff changeset	227 call assert_equal(1000, str2nr("1'000''000", 10, 1))
18080 a6d218f99ff7 patch 8.1.2035: recognizing octal numbers is confusing Bram Moolenaar <Bram@vim.org> parents: 18035 diff changeset	228 call assert_equal(65536, str2nr("1'00'00", 16, 1))
a6d218f99ff7 patch 8.1.2035: recognizing octal numbers is confusing Bram Moolenaar <Bram@vim.org> parents: 18035 diff changeset	229
10743 8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	230 call assert_equal(0, str2nr('0x10'))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	231 call assert_equal(0, str2nr('0b10'))
20665 6ff992bf4c82 patch 8.2.0886: cannot use octal numbers in scriptversion 4 Bram Moolenaar <Bram@vim.org> parents: 20643 diff changeset	232 call assert_equal(0, str2nr('0o10'))
10743 8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	233 call assert_equal(1, str2nr('12', 2))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	234 call assert_equal(1, str2nr('18', 8))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	235 call assert_equal(1, str2nr('1g', 16))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	236
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	237 call assert_equal(0, str2nr(v:null))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	238 call assert_equal(0, str2nr(v:none))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	239
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	240 call assert_fails('call str2nr([])', 'E730:')
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	241 call assert_fails('call str2nr({->2})', 'E729:')
19249 2a017e9dc6da patch 8.2.0183: tests fail when the float feature is disabled Bram Moolenaar <Bram@vim.org> parents: 19241 diff changeset	242 if has('float')
24822 5f8dd7b3ae41 patch 8.2.2949: tests failing because no error for float to string conversion Bram Moolenaar <Bram@vim.org> parents: 24766 diff changeset	243 call assert_equal(1, str2nr(1.2))
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25244 diff changeset	244 call CheckDefAndScriptFailure2(['echo str2nr(1.2)'], 'E1013: Argument 1: type mismatch, expected string but got float', 'E1174: String required for argument 1')
19249 2a017e9dc6da patch 8.2.0183: tests fail when the float feature is disabled Bram Moolenaar <Bram@vim.org> parents: 19241 diff changeset	245 endif
21265 6a4806e326dd patch 8.2.1183: assert_fails() checks the last error message Bram Moolenaar <Bram@vim.org> parents: 20978 diff changeset	246 call assert_fails('call str2nr(10, [])', 'E745:')
10743 8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	247 endfunc
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	248
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	249 func Test_strftime()
18669 9007e9896303 patch 8.1.2326: cannot parse a date/time string Bram Moolenaar <Bram@vim.org> parents: 18623 diff changeset	250 CheckFunction strftime
9007e9896303 patch 8.1.2326: cannot parse a date/time string Bram Moolenaar <Bram@vim.org> parents: 18623 diff changeset	251
10743 8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	252 " Format of strftime() depends on system. We assume
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	253 " that basic formats tested here are available and
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	254 " identical on all systems which support strftime().
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	255 "
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	256 " The 2nd parameter of strftime() is a local time, so the output day
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	257 " of strftime() can be 17 or 18, depending on timezone.
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	258 call assert_match('^2017-01-1[78]$', strftime('%Y-%m-%d', 1484695512))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	259 "
18017 988e5a868b60 patch 8.1.2004: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 18000 diff changeset	260 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())
10743 8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	261
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	262 call assert_fails('call strftime([])', 'E730:')
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	263 call assert_fails('call strftime("%Y", [])', 'E745:')
17135 d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes Bram Moolenaar <Bram@vim.org> parents: 16945 diff changeset	264
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes Bram Moolenaar <Bram@vim.org> parents: 16945 diff changeset	265 " Check that the time changes after we change the timezone
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes Bram Moolenaar <Bram@vim.org> parents: 16945 diff changeset	266 " Save previous timezone value, if any
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes Bram Moolenaar <Bram@vim.org> parents: 16945 diff changeset	267 if exists('$TZ')
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes Bram Moolenaar <Bram@vim.org> parents: 16945 diff changeset	268 let tz = $TZ
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes Bram Moolenaar <Bram@vim.org> parents: 16945 diff changeset	269 endif
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes Bram Moolenaar <Bram@vim.org> parents: 16945 diff changeset	270
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes Bram Moolenaar <Bram@vim.org> parents: 16945 diff changeset	271 " Force EST and then UTC, save the current hour (24-hour clock) for each
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes Bram Moolenaar <Bram@vim.org> parents: 16945 diff changeset	272 let $TZ = 'EST' \| let est = strftime('%H')
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes Bram Moolenaar <Bram@vim.org> parents: 16945 diff changeset	273 let $TZ = 'UTC' \| let utc = strftime('%H')
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes Bram Moolenaar <Bram@vim.org> parents: 16945 diff changeset	274
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes Bram Moolenaar <Bram@vim.org> parents: 16945 diff changeset	275 " Those hours should be two bytes long, and should not be the same; if they
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes Bram Moolenaar <Bram@vim.org> parents: 16945 diff changeset	276 " are, a tzset(3) call may have failed somewhere
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes Bram Moolenaar <Bram@vim.org> parents: 16945 diff changeset	277 call assert_equal(strlen(est), 2)
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes Bram Moolenaar <Bram@vim.org> parents: 16945 diff changeset	278 call assert_equal(strlen(utc), 2)
17137 ca4e6685e2f4 patch 8.1.1568: strftime() test fails on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 17135 diff changeset	279 " TODO: this fails on MS-Windows
ca4e6685e2f4 patch 8.1.1568: strftime() test fails on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 17135 diff changeset	280 if has('unix')
ca4e6685e2f4 patch 8.1.1568: strftime() test fails on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 17135 diff changeset	281 call assert_notequal(est, utc)
ca4e6685e2f4 patch 8.1.1568: strftime() test fails on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 17135 diff changeset	282 endif
17135 d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes Bram Moolenaar <Bram@vim.org> parents: 16945 diff changeset	283
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes Bram Moolenaar <Bram@vim.org> parents: 16945 diff changeset	284 " If we cached a timezone value, put it back, otherwise clear it
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes Bram Moolenaar <Bram@vim.org> parents: 16945 diff changeset	285 if exists('tz')
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes Bram Moolenaar <Bram@vim.org> parents: 16945 diff changeset	286 let $TZ = tz
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes Bram Moolenaar <Bram@vim.org> parents: 16945 diff changeset	287 else
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes Bram Moolenaar <Bram@vim.org> parents: 16945 diff changeset	288 unlet $TZ
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes Bram Moolenaar <Bram@vim.org> parents: 16945 diff changeset	289 endif
18669 9007e9896303 patch 8.1.2326: cannot parse a date/time string Bram Moolenaar <Bram@vim.org> parents: 18623 diff changeset	290 endfunc
17135 d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes Bram Moolenaar <Bram@vim.org> parents: 16945 diff changeset	291
18669 9007e9896303 patch 8.1.2326: cannot parse a date/time string Bram Moolenaar <Bram@vim.org> parents: 18623 diff changeset	292 func Test_strptime()
9007e9896303 patch 8.1.2326: cannot parse a date/time string Bram Moolenaar <Bram@vim.org> parents: 18623 diff changeset	293 CheckFunction strptime
9007e9896303 patch 8.1.2326: cannot parse a date/time string Bram Moolenaar <Bram@vim.org> parents: 18623 diff changeset	294
9007e9896303 patch 8.1.2326: cannot parse a date/time string Bram Moolenaar <Bram@vim.org> parents: 18623 diff changeset	295 if exists('$TZ')
9007e9896303 patch 8.1.2326: cannot parse a date/time string Bram Moolenaar <Bram@vim.org> parents: 18623 diff changeset	296 let tz = $TZ
9007e9896303 patch 8.1.2326: cannot parse a date/time string Bram Moolenaar <Bram@vim.org> parents: 18623 diff changeset	297 endif
9007e9896303 patch 8.1.2326: cannot parse a date/time string Bram Moolenaar <Bram@vim.org> parents: 18623 diff changeset	298 let $TZ = 'UTC'
9007e9896303 patch 8.1.2326: cannot parse a date/time string Bram Moolenaar <Bram@vim.org> parents: 18623 diff changeset	299
18821 a9cfb0db187d patch 8.1.2398: strptime() test fails on Japanese Mac Bram Moolenaar <Bram@vim.org> parents: 18669 diff changeset	300 call assert_equal(1484653763, strptime('%Y-%m-%d %T', '2017-01-17 11:49:23'))
18669 9007e9896303 patch 8.1.2326: cannot parse a date/time string Bram Moolenaar <Bram@vim.org> parents: 18623 diff changeset	301
20794 2e7acc208a1f patch 8.2.0949: strptime() does not use DST Bram Moolenaar <Bram@vim.org> parents: 20790 diff changeset	302 " Force DST and check that it's considered
2e7acc208a1f patch 8.2.0949: strptime() does not use DST Bram Moolenaar <Bram@vim.org> parents: 20790 diff changeset	303 let $TZ = 'WINTER0SUMMER,J1,J365'
2e7acc208a1f patch 8.2.0949: strptime() does not use DST Bram Moolenaar <Bram@vim.org> parents: 20790 diff changeset	304 call assert_equal(1484653763 - 3600, strptime('%Y-%m-%d %T', '2017-01-17 11:49:23'))
2e7acc208a1f patch 8.2.0949: strptime() does not use DST Bram Moolenaar <Bram@vim.org> parents: 20790 diff changeset	305
18669 9007e9896303 patch 8.1.2326: cannot parse a date/time string Bram Moolenaar <Bram@vim.org> parents: 18623 diff changeset	306 call assert_fails('call strptime()', 'E119:')
9007e9896303 patch 8.1.2326: cannot parse a date/time string Bram Moolenaar <Bram@vim.org> parents: 18623 diff changeset	307 call assert_fails('call strptime("xxx")', 'E119:')
9007e9896303 patch 8.1.2326: cannot parse a date/time string Bram Moolenaar <Bram@vim.org> parents: 18623 diff changeset	308 call assert_equal(0, strptime("%Y", ''))
9007e9896303 patch 8.1.2326: cannot parse a date/time string Bram Moolenaar <Bram@vim.org> parents: 18623 diff changeset	309 call assert_equal(0, strptime("%Y", "xxx"))
9007e9896303 patch 8.1.2326: cannot parse a date/time string Bram Moolenaar <Bram@vim.org> parents: 18623 diff changeset	310
9007e9896303 patch 8.1.2326: cannot parse a date/time string Bram Moolenaar <Bram@vim.org> parents: 18623 diff changeset	311 if exists('tz')
9007e9896303 patch 8.1.2326: cannot parse a date/time string Bram Moolenaar <Bram@vim.org> parents: 18623 diff changeset	312 let $TZ = tz
9007e9896303 patch 8.1.2326: cannot parse a date/time string Bram Moolenaar <Bram@vim.org> parents: 18623 diff changeset	313 else
9007e9896303 patch 8.1.2326: cannot parse a date/time string Bram Moolenaar <Bram@vim.org> parents: 18623 diff changeset	314 unlet $TZ
9007e9896303 patch 8.1.2326: cannot parse a date/time string Bram Moolenaar <Bram@vim.org> parents: 18623 diff changeset	315 endif
10743 8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	316 endfunc
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	317
15774 c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	318 func Test_resolve_unix()
21765 08940efa6b4e patch 8.2.1432: various inconsistencies in test files Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	319 CheckUnix
14885 5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	320
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	321 " Xlink1 -> Xlink2
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	322 " Xlink2 -> Xlink3
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	323 silent !ln -s -f Xlink2 Xlink1
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	324 silent !ln -s -f Xlink3 Xlink2
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	325 call assert_equal('Xlink3', resolve('Xlink1'))
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	326 call assert_equal('./Xlink3', resolve('./Xlink1'))
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	327 call assert_equal('Xlink3/', resolve('Xlink2/'))
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	328 " FIXME: these tests result in things like "Xlink2/" instead of "Xlink3/"?!
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	329 "call assert_equal('Xlink3/', resolve('Xlink1/'))
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	330 "call assert_equal('./Xlink3/', resolve('./Xlink1/'))
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	331 "call assert_equal(getcwd() . '/Xlink3/', resolve(getcwd() . '/Xlink1/'))
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	332 call assert_equal(getcwd() . '/Xlink3', resolve(getcwd() . '/Xlink1'))
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	333
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	334 " Test resolve() with a symlink cycle.
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	335 " Xlink1 -> Xlink2
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	336 " Xlink2 -> Xlink3
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	337 " Xlink3 -> Xlink1
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	338 silent !ln -s -f Xlink1 Xlink3
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	339 call assert_fails('call resolve("Xlink1")', 'E655:')
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	340 call assert_fails('call resolve("./Xlink1")', 'E655:')
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	341 call assert_fails('call resolve("Xlink2")', 'E655:')
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	342 call assert_fails('call resolve("Xlink3")', 'E655:')
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	343 call delete('Xlink1')
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	344 call delete('Xlink2')
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	345 call delete('Xlink3')
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	346
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	347 silent !ln -s -f Xdir//Xfile Xlink
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	348 call assert_equal('Xdir/Xfile', resolve('Xlink'))
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	349 call delete('Xlink')
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	350
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	351 silent !ln -s -f Xlink2/ Xlink1
17982 2029737e6a22 patch 8.1.1987: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17976 diff changeset	352 call assert_equal('Xlink2', 'Xlink1'->resolve())
14885 5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	353 call assert_equal('Xlink2/', resolve('Xlink1/'))
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	354 call delete('Xlink1')
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	355
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	356 silent !ln -s -f ./Xlink2 Xlink1
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	357 call assert_equal('Xlink2', resolve('Xlink1'))
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	358 call assert_equal('./Xlink2', resolve('./Xlink1'))
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	359 call delete('Xlink1')
22512 aeeee593fe0f patch 8.2.1804: resolve('/') returns an empty string Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	360
aeeee593fe0f patch 8.2.1804: resolve('/') returns an empty string Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	361 call assert_equal('/', resolve('/'))
14885 5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	362 endfunc
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle Bram Moolenaar <Bram@vim.org> parents: 14883 diff changeset	363
15774 c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	364 func s:normalize_fname(fname)
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	365 let ret = substitute(a:fname, '\', '/', 'g')
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	366 let ret = substitute(ret, '//', '/', 'g')
18035 11dca9732a48 patch 8.1.2013: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 18017 diff changeset	367 return ret->tolower()
15774 c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	368 endfunc
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	369
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	370 func Test_resolve_win32()
21765 08940efa6b4e patch 8.2.1432: various inconsistencies in test files Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	371 CheckMSWindows
15774 c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	372
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	373 " test for shortcut file
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	374 if executable('cscript')
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	375 new Xfile
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	376 wq
17172 6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough Bram Moolenaar <Bram@vim.org> parents: 17137 diff changeset	377 let lines =<< trim END
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough Bram Moolenaar <Bram@vim.org> parents: 17137 diff changeset	378 Set fs = CreateObject("Scripting.FileSystemObject")
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough Bram Moolenaar <Bram@vim.org> parents: 17137 diff changeset	379 Set ws = WScript.CreateObject("WScript.Shell")
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough Bram Moolenaar <Bram@vim.org> parents: 17137 diff changeset	380 Set shortcut = ws.CreateShortcut("Xlink.lnk")
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough Bram Moolenaar <Bram@vim.org> parents: 17137 diff changeset	381 shortcut.TargetPath = fs.BuildPath(ws.CurrentDirectory, "Xfile")
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough Bram Moolenaar <Bram@vim.org> parents: 17137 diff changeset	382 shortcut.Save
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough Bram Moolenaar <Bram@vim.org> parents: 17137 diff changeset	383 END
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough Bram Moolenaar <Bram@vim.org> parents: 17137 diff changeset	384 call writefile(lines, 'link.vbs')
15774 c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	385 silent !cscript link.vbs
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	386 call delete('link.vbs')
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	387 call assert_equal(s:normalize_fname(getcwd() . '\Xfile'), s:normalize_fname(resolve('./Xlink.lnk')))
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	388 call delete('Xfile')
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	389
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	390 call assert_equal(s:normalize_fname(getcwd() . '\Xfile'), s:normalize_fname(resolve('./Xlink.lnk')))
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	391 call delete('Xlink.lnk')
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	392 else
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	393 echomsg 'skipped test for shortcut file'
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	394 endif
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	395
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	396 " remove files
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	397 call delete('Xlink')
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	398 call delete('Xdir', 'd')
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	399 call delete('Xfile')
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	400
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	401 " test for symbolic link to a file
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	402 new Xfile
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	403 wq
16945 efd36a9052cc patch 8.1.1473: new resolve() implementation causes problem for plugins Bram Moolenaar <Bram@vim.org> parents: 16831 diff changeset	404 call assert_equal('Xfile', resolve('Xfile'))
15774 c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	405 silent !mklink Xlink Xfile
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	406 if !v:shell_error
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	407 call assert_equal(s:normalize_fname(getcwd() . '\Xfile'), s:normalize_fname(resolve('./Xlink')))
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	408 call delete('Xlink')
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	409 else
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	410 echomsg 'skipped test for symbolic link to a file'
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	411 endif
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	412 call delete('Xfile')
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	413
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	414 " test for junction to a directory
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	415 call mkdir('Xdir')
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	416 silent !mklink /J Xlink Xdir
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	417 if !v:shell_error
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	418 call assert_equal(s:normalize_fname(getcwd() . '\Xdir'), s:normalize_fname(resolve(getcwd() . '/Xlink')))
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	419
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	420 call delete('Xdir', 'd')
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	421
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	422 " test for junction already removed
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	423 call assert_equal(s:normalize_fname(getcwd() . '\Xlink'), s:normalize_fname(resolve(getcwd() . '/Xlink')))
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	424 call delete('Xlink')
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	425 else
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	426 echomsg 'skipped test for junction to a directory'
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	427 call delete('Xdir', 'd')
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	428 endif
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	429
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	430 " test for symbolic link to a directory
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	431 call mkdir('Xdir')
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	432 silent !mklink /D Xlink Xdir
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	433 if !v:shell_error
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	434 call assert_equal(s:normalize_fname(getcwd() . '\Xdir'), s:normalize_fname(resolve(getcwd() . '/Xlink')))
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	435
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	436 call delete('Xdir', 'd')
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	437
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	438 " test for symbolic link already removed
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	439 call assert_equal(s:normalize_fname(getcwd() . '\Xlink'), s:normalize_fname(resolve(getcwd() . '/Xlink')))
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	440 call delete('Xlink')
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	441 else
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	442 echomsg 'skipped test for symbolic link to a directory'
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	443 call delete('Xdir', 'd')
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	444 endif
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	445
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	446 " test for buffer name
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	447 new Xfile
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	448 wq
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	449 silent !mklink Xlink Xfile
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	450 if !v:shell_error
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	451 edit Xlink
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	452 call assert_equal('Xlink', bufname('%'))
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	453 call delete('Xlink')
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	454 bw!
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	455 else
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	456 echomsg 'skipped test for buffer name'
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	457 endif
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	458 call delete('Xfile')
16831 f42aa3d90b12 patch 8.1.1417: MS-Windows: resolve() does not resolve all components of path Bram Moolenaar <Bram@vim.org> parents: 16752 diff changeset	459
f42aa3d90b12 patch 8.1.1417: MS-Windows: resolve() does not resolve all components of path Bram Moolenaar <Bram@vim.org> parents: 16752 diff changeset	460 " test for reparse point
f42aa3d90b12 patch 8.1.1417: MS-Windows: resolve() does not resolve all components of path Bram Moolenaar <Bram@vim.org> parents: 16752 diff changeset	461 call mkdir('Xdir')
16945 efd36a9052cc patch 8.1.1473: new resolve() implementation causes problem for plugins Bram Moolenaar <Bram@vim.org> parents: 16831 diff changeset	462 call assert_equal('Xdir', resolve('Xdir'))
16831 f42aa3d90b12 patch 8.1.1417: MS-Windows: resolve() does not resolve all components of path Bram Moolenaar <Bram@vim.org> parents: 16752 diff changeset	463 silent !mklink /D Xdirlink Xdir
f42aa3d90b12 patch 8.1.1417: MS-Windows: resolve() does not resolve all components of path Bram Moolenaar <Bram@vim.org> parents: 16752 diff changeset	464 if !v:shell_error
f42aa3d90b12 patch 8.1.1417: MS-Windows: resolve() does not resolve all components of path Bram Moolenaar <Bram@vim.org> parents: 16752 diff changeset	465 w Xdir/text.txt
16945 efd36a9052cc patch 8.1.1473: new resolve() implementation causes problem for plugins Bram Moolenaar <Bram@vim.org> parents: 16831 diff changeset	466 call assert_equal('Xdir/text.txt', resolve('Xdir/text.txt'))
16831 f42aa3d90b12 patch 8.1.1417: MS-Windows: resolve() does not resolve all components of path Bram Moolenaar <Bram@vim.org> parents: 16752 diff changeset	467 call assert_equal(s:normalize_fname(getcwd() . '\Xdir\text.txt'), s:normalize_fname(resolve('Xdirlink\text.txt')))
f42aa3d90b12 patch 8.1.1417: MS-Windows: resolve() does not resolve all components of path Bram Moolenaar <Bram@vim.org> parents: 16752 diff changeset	468 call assert_equal(s:normalize_fname(getcwd() . '\Xdir'), s:normalize_fname(resolve('Xdirlink')))
16945 efd36a9052cc patch 8.1.1473: new resolve() implementation causes problem for plugins Bram Moolenaar <Bram@vim.org> parents: 16831 diff changeset	469 call delete('Xdirlink')
16831 f42aa3d90b12 patch 8.1.1417: MS-Windows: resolve() does not resolve all components of path Bram Moolenaar <Bram@vim.org> parents: 16752 diff changeset	470 else
f42aa3d90b12 patch 8.1.1417: MS-Windows: resolve() does not resolve all components of path Bram Moolenaar <Bram@vim.org> parents: 16752 diff changeset	471 echomsg 'skipped test for reparse point'
f42aa3d90b12 patch 8.1.1417: MS-Windows: resolve() does not resolve all components of path Bram Moolenaar <Bram@vim.org> parents: 16752 diff changeset	472 endif
f42aa3d90b12 patch 8.1.1417: MS-Windows: resolve() does not resolve all components of path Bram Moolenaar <Bram@vim.org> parents: 16752 diff changeset	473
f42aa3d90b12 patch 8.1.1417: MS-Windows: resolve() does not resolve all components of path Bram Moolenaar <Bram@vim.org> parents: 16752 diff changeset	474 call delete('Xdir', 'rf')
15774 c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	475 endfunc
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15754 diff changeset	476
10743 8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	477 func Test_simplify()
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	478 call assert_equal('', simplify(''))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	479 call assert_equal('/', simplify('/'))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	480 call assert_equal('/', simplify('/.'))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	481 call assert_equal('/', simplify('/..'))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	482 call assert_equal('/...', simplify('/...'))
20867 9c24319b4cb2 patch 8.2.0985: simplify() does not remove slashes from "///path" Bram Moolenaar <Bram@vim.org> parents: 20794 diff changeset	483 call assert_equal('//path', simplify('//path'))
20869 738e182aaf29 patch 8.2.0986: MS-Windows: functions test fails Bram Moolenaar <Bram@vim.org> parents: 20867 diff changeset	484 if has('unix')
738e182aaf29 patch 8.2.0986: MS-Windows: functions test fails Bram Moolenaar <Bram@vim.org> parents: 20867 diff changeset	485 call assert_equal('/path', simplify('///path'))
738e182aaf29 patch 8.2.0986: MS-Windows: functions test fails Bram Moolenaar <Bram@vim.org> parents: 20867 diff changeset	486 call assert_equal('/path', simplify('////path'))
738e182aaf29 patch 8.2.0986: MS-Windows: functions test fails Bram Moolenaar <Bram@vim.org> parents: 20867 diff changeset	487 endif
20867 9c24319b4cb2 patch 8.2.0985: simplify() does not remove slashes from "///path" Bram Moolenaar <Bram@vim.org> parents: 20794 diff changeset	488
19952 82ea10d554fb patch 8.2.0532: cannot use simplify() as a method Bram Moolenaar <Bram@vim.org> parents: 19932 diff changeset	489 call assert_equal('./dir/file', './dir/file'->simplify())
10743 8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	490 call assert_equal('./dir/file', simplify('.///dir//file'))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	491 call assert_equal('./dir/file', simplify('./dir/./file'))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	492 call assert_equal('./file', simplify('./dir/../file'))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	493 call assert_equal('../dir/file', simplify('dir/../../dir/file'))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	494 call assert_equal('./file', simplify('dir/.././file'))
20978 2c3e7a6bd6c6 patch 8.2.1040: not enough testing for movement commands Bram Moolenaar <Bram@vim.org> parents: 20887 diff changeset	495 call assert_equal('../dir', simplify('./../dir'))
2c3e7a6bd6c6 patch 8.2.1040: not enough testing for movement commands Bram Moolenaar <Bram@vim.org> parents: 20887 diff changeset	496 call assert_equal('..', simplify('../testdir/..'))
2c3e7a6bd6c6 patch 8.2.1040: not enough testing for movement commands Bram Moolenaar <Bram@vim.org> parents: 20887 diff changeset	497 call mkdir('Xdir')
2c3e7a6bd6c6 patch 8.2.1040: not enough testing for movement commands Bram Moolenaar <Bram@vim.org> parents: 20887 diff changeset	498 call assert_equal('.', simplify('Xdir/../.'))
2c3e7a6bd6c6 patch 8.2.1040: not enough testing for movement commands Bram Moolenaar <Bram@vim.org> parents: 20887 diff changeset	499 call delete('Xdir', 'd')
10743 8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	500
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	501 call assert_fails('call simplify({->0})', 'E729:')
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	502 call assert_fails('call simplify([])', 'E730:')
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	503 call assert_fails('call simplify({})', 'E731:')
19249 2a017e9dc6da patch 8.2.0183: tests fail when the float feature is disabled Bram Moolenaar <Bram@vim.org> parents: 19241 diff changeset	504 if has('float')
24822 5f8dd7b3ae41 patch 8.2.2949: tests failing because no error for float to string conversion Bram Moolenaar <Bram@vim.org> parents: 24766 diff changeset	505 call assert_equal('1.2', simplify(1.2))
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25244 diff changeset	506 call CheckDefAndScriptFailure2(['echo simplify(1.2)'], 'E1013: Argument 1: type mismatch, expected string but got float', 'E1174: String required for argument 1')
19249 2a017e9dc6da patch 8.2.0183: tests fail when the float feature is disabled Bram Moolenaar <Bram@vim.org> parents: 19241 diff changeset	507 endif
10555 fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: diff changeset	508 endfunc
10706 056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	509
14487 336213a840d9 patch 8.1.0257: no test for pathshorten() Christian Brabandt <cb@256bit.org> parents: 14422 diff changeset	510 func Test_pathshorten()
336213a840d9 patch 8.1.0257: no test for pathshorten() Christian Brabandt <cb@256bit.org> parents: 14422 diff changeset	511 call assert_equal('', pathshorten(''))
336213a840d9 patch 8.1.0257: no test for pathshorten() Christian Brabandt <cb@256bit.org> parents: 14422 diff changeset	512 call assert_equal('foo', pathshorten('foo'))
17976 6d11a0d5751d patch 8.1.1984: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17952 diff changeset	513 call assert_equal('/foo', '/foo'->pathshorten())
14487 336213a840d9 patch 8.1.0257: no test for pathshorten() Christian Brabandt <cb@256bit.org> parents: 14422 diff changeset	514 call assert_equal('f/', pathshorten('foo/'))
336213a840d9 patch 8.1.0257: no test for pathshorten() Christian Brabandt <cb@256bit.org> parents: 14422 diff changeset	515 call assert_equal('f/bar', pathshorten('foo/bar'))
17976 6d11a0d5751d patch 8.1.1984: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17952 diff changeset	516 call assert_equal('f/b/foobar', 'foo/bar/foobar'->pathshorten())
14487 336213a840d9 patch 8.1.0257: no test for pathshorten() Christian Brabandt <cb@256bit.org> parents: 14422 diff changeset	517 call assert_equal('/f/b/foobar', pathshorten('/foo/bar/foobar'))
336213a840d9 patch 8.1.0257: no test for pathshorten() Christian Brabandt <cb@256bit.org> parents: 14422 diff changeset	518 call assert_equal('.f/bar', pathshorten('.foo/bar'))
336213a840d9 patch 8.1.0257: no test for pathshorten() Christian Brabandt <cb@256bit.org> parents: 14422 diff changeset	519 call assert_equal('~f/bar', pathshorten('~foo/bar'))
336213a840d9 patch 8.1.0257: no test for pathshorten() Christian Brabandt <cb@256bit.org> parents: 14422 diff changeset	520 call assert_equal('~.f/bar', pathshorten('~.foo/bar'))
336213a840d9 patch 8.1.0257: no test for pathshorten() Christian Brabandt <cb@256bit.org> parents: 14422 diff changeset	521 call assert_equal('.~f/bar', pathshorten('.~foo/bar'))
336213a840d9 patch 8.1.0257: no test for pathshorten() Christian Brabandt <cb@256bit.org> parents: 14422 diff changeset	522 call assert_equal('~/f/bar', pathshorten('~/foo/bar'))
20158 94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	523 call assert_fails('call pathshorten([])', 'E730:')
22385 770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22375 diff changeset	524
770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22375 diff changeset	525 " test pathshorten with optional variable to set preferred size of shortening
770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22375 diff changeset	526 call assert_equal('', pathshorten('', 2))
770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22375 diff changeset	527 call assert_equal('foo', pathshorten('foo', 2))
770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22375 diff changeset	528 call assert_equal('/foo', pathshorten('/foo', 2))
770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22375 diff changeset	529 call assert_equal('fo/', pathshorten('foo/', 2))
770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22375 diff changeset	530 call assert_equal('fo/bar', pathshorten('foo/bar', 2))
770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22375 diff changeset	531 call assert_equal('fo/ba/foobar', pathshorten('foo/bar/foobar', 2))
770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22375 diff changeset	532 call assert_equal('/fo/ba/foobar', pathshorten('/foo/bar/foobar', 2))
770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22375 diff changeset	533 call assert_equal('.fo/bar', pathshorten('.foo/bar', 2))
770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22375 diff changeset	534 call assert_equal('~fo/bar', pathshorten('~foo/bar', 2))
770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22375 diff changeset	535 call assert_equal('~.fo/bar', pathshorten('~.foo/bar', 2))
770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22375 diff changeset	536 call assert_equal('.~fo/bar', pathshorten('.~foo/bar', 2))
770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22375 diff changeset	537 call assert_equal('~/fo/bar', pathshorten('~/foo/bar', 2))
770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22375 diff changeset	538 call assert_fails('call pathshorten([],2)', 'E730:')
770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22375 diff changeset	539 call assert_notequal('~/fo/bar', pathshorten('~/foo/bar', 3))
770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22375 diff changeset	540 call assert_equal('~/foo/bar', pathshorten('~/foo/bar', 3))
770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22375 diff changeset	541 call assert_equal('~/f/bar', pathshorten('~/foo/bar', 0))
14487 336213a840d9 patch 8.1.0257: no test for pathshorten() Christian Brabandt <cb@256bit.org> parents: 14422 diff changeset	542 endfunc
336213a840d9 patch 8.1.0257: no test for pathshorten() Christian Brabandt <cb@256bit.org> parents: 14422 diff changeset	543
12869 a89350ba2a9d patch 8.0.1311: no test for strpart() Christian Brabandt <cb@256bit.org> parents: 12451 diff changeset	544 func Test_strpart()
a89350ba2a9d patch 8.0.1311: no test for strpart() Christian Brabandt <cb@256bit.org> parents: 12451 diff changeset	545 call assert_equal('de', strpart('abcdefg', 3, 2))
a89350ba2a9d patch 8.0.1311: no test for strpart() Christian Brabandt <cb@256bit.org> parents: 12451 diff changeset	546 call assert_equal('ab', strpart('abcdefg', -2, 4))
18017 988e5a868b60 patch 8.1.2004: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 18000 diff changeset	547 call assert_equal('abcdefg', 'abcdefg'->strpart(-2))
12869 a89350ba2a9d patch 8.0.1311: no test for strpart() Christian Brabandt <cb@256bit.org> parents: 12451 diff changeset	548 call assert_equal('fg', strpart('abcdefg', 5, 4))
a89350ba2a9d patch 8.0.1311: no test for strpart() Christian Brabandt <cb@256bit.org> parents: 12451 diff changeset	549 call assert_equal('defg', strpart('abcdefg', 3))
19783 546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	550 call assert_equal('', strpart('abcdefg', 10))
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	551 call assert_fails("let s=strpart('abcdef', [])", 'E745:')
12869 a89350ba2a9d patch 8.0.1311: no test for strpart() Christian Brabandt <cb@256bit.org> parents: 12451 diff changeset	552
15607 2dcaa860e3fc patch 8.1.0811: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15008 diff changeset	553 call assert_equal('lép', strpart('éléphant', 2, 4))
2dcaa860e3fc patch 8.1.0811: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15008 diff changeset	554 call assert_equal('léphant', strpart('éléphant', 2))
21935 62f933f64447 patch 8.2.1517: cannot easily get the character under the cursor Bram Moolenaar <Bram@vim.org> parents: 21911 diff changeset	555
62f933f64447 patch 8.2.1517: cannot easily get the character under the cursor Bram Moolenaar <Bram@vim.org> parents: 21911 diff changeset	556 call assert_equal('é', strpart('éléphant', 0, 1, 1))
62f933f64447 patch 8.2.1517: cannot easily get the character under the cursor Bram Moolenaar <Bram@vim.org> parents: 21911 diff changeset	557 call assert_equal('ép', strpart('éléphant', 3, 2, v:true))
62f933f64447 patch 8.2.1517: cannot easily get the character under the cursor Bram Moolenaar <Bram@vim.org> parents: 21911 diff changeset	558 call assert_equal('ó', strpart('cómposed', 1, 1, 1))
12869 a89350ba2a9d patch 8.0.1311: no test for strpart() Christian Brabandt <cb@256bit.org> parents: 12451 diff changeset	559 endfunc
a89350ba2a9d patch 8.0.1311: no test for strpart() Christian Brabandt <cb@256bit.org> parents: 12451 diff changeset	560
10706 056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	561 func Test_tolower()
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	562 call assert_equal("", tolower(""))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	563
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	564 " Test with all printable ASCII characters.
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	565 call assert_equal(' !"#$%&''()*+,-./0123456789:;<=>?@abcdefghijklmnopqrstuvwxyz[\]^_`abcdefghijklmnopqrstuvwxyz{\|}~',
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	566 \ tolower(' !"#$%&''()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{\|}~'))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	567
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	568 " Test with a few uppercase diacritics.
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	569 call assert_equal("aàáâãäåāăąǎǟǡả", tolower("AÀÁÂÃÄÅĀĂĄǍǞǠẢ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	570 call assert_equal("bḃḇ", tolower("BḂḆ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	571 call assert_equal("cçćĉċč", tolower("CÇĆĈĊČ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	572 call assert_equal("dďđḋḏḑ", tolower("DĎĐḊḎḐ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	573 call assert_equal("eèéêëēĕėęěẻẽ", tolower("EÈÉÊËĒĔĖĘĚẺẼ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	574 call assert_equal("fḟ ", tolower("FḞ "))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	575 call assert_equal("gĝğġģǥǧǵḡ", tolower("GĜĞĠĢǤǦǴḠ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	576 call assert_equal("hĥħḣḧḩ", tolower("HĤĦḢḦḨ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	577 call assert_equal("iìíîïĩīĭįiǐỉ", tolower("IÌÍÎÏĨĪĬĮİǏỈ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	578 call assert_equal("jĵ", tolower("JĴ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	579 call assert_equal("kķǩḱḵ", tolower("KĶǨḰḴ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	580 call assert_equal("lĺļľŀłḻ", tolower("LĹĻĽĿŁḺ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	581 call assert_equal("mḿṁ", tolower("MḾṀ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	582 call assert_equal("nñńņňṅṉ", tolower("NÑŃŅŇṄṈ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	583 call assert_equal("oòóôõöøōŏőơǒǫǭỏ", tolower("OÒÓÔÕÖØŌŎŐƠǑǪǬỎ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	584 call assert_equal("pṕṗ", tolower("PṔṖ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	585 call assert_equal("q", tolower("Q"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	586 call assert_equal("rŕŗřṙṟ", tolower("RŔŖŘṘṞ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	587 call assert_equal("sśŝşšṡ", tolower("SŚŜŞŠṠ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	588 call assert_equal("tţťŧṫṯ", tolower("TŢŤŦṪṮ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	589 call assert_equal("uùúûüũūŭůűųưǔủ", tolower("UÙÚÛÜŨŪŬŮŰŲƯǓỦ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	590 call assert_equal("vṽ", tolower("VṼ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	591 call assert_equal("wŵẁẃẅẇ", tolower("WŴẀẂẄẆ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	592 call assert_equal("xẋẍ", tolower("XẊẌ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	593 call assert_equal("yýŷÿẏỳỷỹ", tolower("YÝŶŸẎỲỶỸ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	594 call assert_equal("zźżžƶẑẕ", tolower("ZŹŻŽƵẐẔ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	595
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	596 " Test with a few lowercase diacritics, which should remain unchanged.
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	597 call assert_equal("aàáâãäåāăąǎǟǡả", tolower("aàáâãäåāăąǎǟǡả"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	598 call assert_equal("bḃḇ", tolower("bḃḇ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	599 call assert_equal("cçćĉċč", tolower("cçćĉċč"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	600 call assert_equal("dďđḋḏḑ", tolower("dďđḋḏḑ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	601 call assert_equal("eèéêëēĕėęěẻẽ", tolower("eèéêëēĕėęěẻẽ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	602 call assert_equal("fḟ", tolower("fḟ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	603 call assert_equal("gĝğġģǥǧǵḡ", tolower("gĝğġģǥǧǵḡ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	604 call assert_equal("hĥħḣḧḩẖ", tolower("hĥħḣḧḩẖ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	605 call assert_equal("iìíîïĩīĭįǐỉ", tolower("iìíîïĩīĭįǐỉ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	606 call assert_equal("jĵǰ", tolower("jĵǰ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	607 call assert_equal("kķǩḱḵ", tolower("kķǩḱḵ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	608 call assert_equal("lĺļľŀłḻ", tolower("lĺļľŀłḻ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	609 call assert_equal("mḿṁ ", tolower("mḿṁ "))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	610 call assert_equal("nñńņňŉṅṉ", tolower("nñńņňŉṅṉ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	611 call assert_equal("oòóôõöøōŏőơǒǫǭỏ", tolower("oòóôõöøōŏőơǒǫǭỏ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	612 call assert_equal("pṕṗ", tolower("pṕṗ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	613 call assert_equal("q", tolower("q"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	614 call assert_equal("rŕŗřṙṟ", tolower("rŕŗřṙṟ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	615 call assert_equal("sśŝşšṡ", tolower("sśŝşšṡ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	616 call assert_equal("tţťŧṫṯẗ", tolower("tţťŧṫṯẗ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	617 call assert_equal("uùúûüũūŭůűųưǔủ", tolower("uùúûüũūŭůűųưǔủ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	618 call assert_equal("vṽ", tolower("vṽ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	619 call assert_equal("wŵẁẃẅẇẘ", tolower("wŵẁẃẅẇẘ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	620 call assert_equal("ẋẍ", tolower("ẋẍ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	621 call assert_equal("yýÿŷẏẙỳỷỹ", tolower("yýÿŷẏẙỳỷỹ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	622 call assert_equal("zźżžƶẑẕ", tolower("zźżžƶẑẕ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	623
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	624 " According to https://twitter.com/jifa/status/625776454479970304
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	625 " Ⱥ (U+023A) and Ⱦ (U+023E) are the only code points to increase
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	626 " in length (2 to 3 bytes) when lowercased. So let's test them.
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	627 call assert_equal("ⱥ ⱦ", tolower("Ⱥ Ⱦ"))
13092 d5647746c267 patch 8.0.1421: accessing invalid memory with overlong byte sequence Christian Brabandt <cb@256bit.org> parents: 13070 diff changeset	628
d5647746c267 patch 8.0.1421: accessing invalid memory with overlong byte sequence Christian Brabandt <cb@256bit.org> parents: 13070 diff changeset	629 " This call to tolower with invalid utf8 sequence used to cause access to
d5647746c267 patch 8.0.1421: accessing invalid memory with overlong byte sequence Christian Brabandt <cb@256bit.org> parents: 13070 diff changeset	630 " invalid memory.
d5647746c267 patch 8.0.1421: accessing invalid memory with overlong byte sequence Christian Brabandt <cb@256bit.org> parents: 13070 diff changeset	631 call tolower("\xC0\x80\xC0")
d5647746c267 patch 8.0.1421: accessing invalid memory with overlong byte sequence Christian Brabandt <cb@256bit.org> parents: 13070 diff changeset	632 call tolower("123\xC0\x80\xC0")
20313 244eb8d8d100 patch 8.2.0712: various code not fully tested Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	633
244eb8d8d100 patch 8.2.0712: various code not fully tested Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	634 " Test in latin1 encoding
244eb8d8d100 patch 8.2.0712: various code not fully tested Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	635 let save_enc = &encoding
244eb8d8d100 patch 8.2.0712: various code not fully tested Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	636 set encoding=latin1
244eb8d8d100 patch 8.2.0712: various code not fully tested Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	637 call assert_equal("abc", tolower("ABC"))
244eb8d8d100 patch 8.2.0712: various code not fully tested Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	638 let &encoding = save_enc
10706 056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	639 endfunc
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	640
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	641 func Test_toupper()
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	642 call assert_equal("", toupper(""))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	643
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	644 " Test with all printable ASCII characters.
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	645 call assert_equal(' !"#$%&''()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{\|}~',
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	646 \ toupper(' !"#$%&''()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{\|}~'))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	647
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	648 " Test with a few lowercase diacritics.
18035 11dca9732a48 patch 8.1.2013: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 18017 diff changeset	649 call assert_equal("AÀÁÂÃÄÅĀĂĄǍǞǠẢ", "aàáâãäåāăąǎǟǡả"->toupper())
10706 056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	650 call assert_equal("BḂḆ", toupper("bḃḇ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	651 call assert_equal("CÇĆĈĊČ", toupper("cçćĉċč"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	652 call assert_equal("DĎĐḊḎḐ", toupper("dďđḋḏḑ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	653 call assert_equal("EÈÉÊËĒĔĖĘĚẺẼ", toupper("eèéêëēĕėęěẻẽ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	654 call assert_equal("FḞ", toupper("fḟ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	655 call assert_equal("GĜĞĠĢǤǦǴḠ", toupper("gĝğġģǥǧǵḡ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	656 call assert_equal("HĤĦḢḦḨẖ", toupper("hĥħḣḧḩẖ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	657 call assert_equal("IÌÍÎÏĨĪĬĮǏỈ", toupper("iìíîïĩīĭįǐỉ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	658 call assert_equal("JĴǰ", toupper("jĵǰ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	659 call assert_equal("KĶǨḰḴ", toupper("kķǩḱḵ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	660 call assert_equal("LĹĻĽĿŁḺ", toupper("lĺļľŀłḻ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	661 call assert_equal("MḾṀ ", toupper("mḿṁ "))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	662 call assert_equal("NÑŃŅŇŉṄṈ", toupper("nñńņňŉṅṉ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	663 call assert_equal("OÒÓÔÕÖØŌŎŐƠǑǪǬỎ", toupper("oòóôõöøōŏőơǒǫǭỏ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	664 call assert_equal("PṔṖ", toupper("pṕṗ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	665 call assert_equal("Q", toupper("q"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	666 call assert_equal("RŔŖŘṘṞ", toupper("rŕŗřṙṟ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	667 call assert_equal("SŚŜŞŠṠ", toupper("sśŝşšṡ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	668 call assert_equal("TŢŤŦṪṮẗ", toupper("tţťŧṫṯẗ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	669 call assert_equal("UÙÚÛÜŨŪŬŮŰŲƯǓỦ", toupper("uùúûüũūŭůűųưǔủ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	670 call assert_equal("VṼ", toupper("vṽ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	671 call assert_equal("WŴẀẂẄẆẘ", toupper("wŵẁẃẅẇẘ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	672 call assert_equal("ẊẌ", toupper("ẋẍ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	673 call assert_equal("YÝŸŶẎẙỲỶỸ", toupper("yýÿŷẏẙỳỷỹ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	674 call assert_equal("ZŹŻŽƵẐẔ", toupper("zźżžƶẑẕ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	675
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	676 " Test that uppercase diacritics, which should remain unchanged.
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	677 call assert_equal("AÀÁÂÃÄÅĀĂĄǍǞǠẢ", toupper("AÀÁÂÃÄÅĀĂĄǍǞǠẢ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	678 call assert_equal("BḂḆ", toupper("BḂḆ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	679 call assert_equal("CÇĆĈĊČ", toupper("CÇĆĈĊČ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	680 call assert_equal("DĎĐḊḎḐ", toupper("DĎĐḊḎḐ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	681 call assert_equal("EÈÉÊËĒĔĖĘĚẺẼ", toupper("EÈÉÊËĒĔĖĘĚẺẼ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	682 call assert_equal("FḞ ", toupper("FḞ "))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	683 call assert_equal("GĜĞĠĢǤǦǴḠ", toupper("GĜĞĠĢǤǦǴḠ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	684 call assert_equal("HĤĦḢḦḨ", toupper("HĤĦḢḦḨ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	685 call assert_equal("IÌÍÎÏĨĪĬĮİǏỈ", toupper("IÌÍÎÏĨĪĬĮİǏỈ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	686 call assert_equal("JĴ", toupper("JĴ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	687 call assert_equal("KĶǨḰḴ", toupper("KĶǨḰḴ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	688 call assert_equal("LĹĻĽĿŁḺ", toupper("LĹĻĽĿŁḺ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	689 call assert_equal("MḾṀ", toupper("MḾṀ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	690 call assert_equal("NÑŃŅŇṄṈ", toupper("NÑŃŅŇṄṈ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	691 call assert_equal("OÒÓÔÕÖØŌŎŐƠǑǪǬỎ", toupper("OÒÓÔÕÖØŌŎŐƠǑǪǬỎ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	692 call assert_equal("PṔṖ", toupper("PṔṖ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	693 call assert_equal("Q", toupper("Q"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	694 call assert_equal("RŔŖŘṘṞ", toupper("RŔŖŘṘṞ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	695 call assert_equal("SŚŜŞŠṠ", toupper("SŚŜŞŠṠ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	696 call assert_equal("TŢŤŦṪṮ", toupper("TŢŤŦṪṮ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	697 call assert_equal("UÙÚÛÜŨŪŬŮŰŲƯǓỦ", toupper("UÙÚÛÜŨŪŬŮŰŲƯǓỦ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	698 call assert_equal("VṼ", toupper("VṼ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	699 call assert_equal("WŴẀẂẄẆ", toupper("WŴẀẂẄẆ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	700 call assert_equal("XẊẌ", toupper("XẊẌ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	701 call assert_equal("YÝŶŸẎỲỶỸ", toupper("YÝŶŸẎỲỶỸ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	702 call assert_equal("ZŹŻŽƵẐẔ", toupper("ZŹŻŽƵẐẔ"))
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	703
10743 8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	704 call assert_equal("Ⱥ Ⱦ", toupper("ⱥ ⱦ"))
13092 d5647746c267 patch 8.0.1421: accessing invalid memory with overlong byte sequence Christian Brabandt <cb@256bit.org> parents: 13070 diff changeset	705
d5647746c267 patch 8.0.1421: accessing invalid memory with overlong byte sequence Christian Brabandt <cb@256bit.org> parents: 13070 diff changeset	706 " This call to toupper with invalid utf8 sequence used to cause access to
d5647746c267 patch 8.0.1421: accessing invalid memory with overlong byte sequence Christian Brabandt <cb@256bit.org> parents: 13070 diff changeset	707 " invalid memory.
d5647746c267 patch 8.0.1421: accessing invalid memory with overlong byte sequence Christian Brabandt <cb@256bit.org> parents: 13070 diff changeset	708 call toupper("\xC0\x80\xC0")
d5647746c267 patch 8.0.1421: accessing invalid memory with overlong byte sequence Christian Brabandt <cb@256bit.org> parents: 13070 diff changeset	709 call toupper("123\xC0\x80\xC0")
20313 244eb8d8d100 patch 8.2.0712: various code not fully tested Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	710
244eb8d8d100 patch 8.2.0712: various code not fully tested Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	711 " Test in latin1 encoding
244eb8d8d100 patch 8.2.0712: various code not fully tested Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	712 let save_enc = &encoding
244eb8d8d100 patch 8.2.0712: various code not fully tested Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	713 set encoding=latin1
244eb8d8d100 patch 8.2.0712: various code not fully tested Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	714 call assert_equal("ABC", toupper("abc"))
244eb8d8d100 patch 8.2.0712: various code not fully tested Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	715 let &encoding = save_enc
10706 056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	716 endfunc
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	717
18035 11dca9732a48 patch 8.1.2013: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 18017 diff changeset	718 func Test_tr()
11dca9732a48 patch 8.1.2013: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 18017 diff changeset	719 call assert_equal('foo', tr('bar', 'bar', 'foo'))
11dca9732a48 patch 8.1.2013: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 18017 diff changeset	720 call assert_equal('zxy', 'cab'->tr('abc', 'xyz'))
19783 546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	721 call assert_fails("let s=tr([], 'abc', 'def')", 'E730:')
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	722 call assert_fails("let s=tr('abc', [], 'def')", 'E730:')
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	723 call assert_fails("let s=tr('abc', 'abc', [])", 'E730:')
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	724 call assert_fails("let s=tr('abcd', 'abcd', 'def')", 'E475:')
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	725 set encoding=latin1
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	726 call assert_fails("let s=tr('abcd', 'abcd', 'def')", 'E475:')
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	727 call assert_equal('hEllO', tr('hello', 'eo', 'EO'))
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	728 call assert_equal('hello', tr('hello', 'xy', 'ab'))
24695 13efbfc53054 patch 8.2.2886: various pieces of code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 24685 diff changeset	729 call assert_fails('call tr("abc", "123", "₁₂")', 'E475:')
19783 546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	730 set encoding=utf8
18035 11dca9732a48 patch 8.1.2013: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 18017 diff changeset	731 endfunc
11dca9732a48 patch 8.1.2013: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 18017 diff changeset	732
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	733 " Tests for the mode() function
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	734 let current_modes = ''
11135 c4e4387bbd50 patch 8.0.0455: the mode test may hang Christian Brabandt <cb@256bit.org> parents: 11095 diff changeset	735 func Save_mode()
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	736 let g:current_modes = mode(0) . '-' . mode(1)
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	737 return ''
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	738 endfunc
10706 056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes Christian Brabandt <cb@256bit.org> parents: 10555 diff changeset	739
19906 031184ace7c5 patch 8.2.0509: various code is not properly tested. Bram Moolenaar <Bram@vim.org> parents: 19902 diff changeset	740 " Test for the mode() function
11135 c4e4387bbd50 patch 8.0.0455: the mode test may hang Christian Brabandt <cb@256bit.org> parents: 11095 diff changeset	741 func Test_mode()
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	742 new
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	743 call append(0, ["Blue Ball Black", "Brown Band Bowl", ""])
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	744
11135 c4e4387bbd50 patch 8.0.0455: the mode test may hang Christian Brabandt <cb@256bit.org> parents: 11095 diff changeset	745 " Only complete from the current buffer.
c4e4387bbd50 patch 8.0.0455: the mode test may hang Christian Brabandt <cb@256bit.org> parents: 11095 diff changeset	746 set complete=.
c4e4387bbd50 patch 8.0.0455: the mode test may hang Christian Brabandt <cb@256bit.org> parents: 11095 diff changeset	747
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	748 inoremap <F2> <C-R>=Save_mode()<CR>
25398 4101d78f78e2 patch 8.2.3236: mode() does not indicate using CTRL-O in Select mode Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	749 xnoremap <F2> <Cmd>call Save_mode()<CR>
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	750
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	751 normal! 3G
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	752 exe "normal i\<F2>\<Esc>"
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	753 call assert_equal('i-i', g:current_modes)
10833 d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	754 " i_CTRL-P: Multiple matches
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	755 exe "normal i\<C-G>uBa\<C-P>\<F2>\<Esc>u"
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	756 call assert_equal('i-ic', g:current_modes)
10833 d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	757 " i_CTRL-P: Single match
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	758 exe "normal iBro\<C-P>\<F2>\<Esc>u"
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	759 call assert_equal('i-ic', g:current_modes)
10833 d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	760 " i_CTRL-X
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	761 exe "normal iBa\<C-X>\<F2>\<Esc>u"
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	762 call assert_equal('i-ix', g:current_modes)
10833 d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	763 " i_CTRL-X CTRL-P: Multiple matches
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	764 exe "normal iBa\<C-X>\<C-P>\<F2>\<Esc>u"
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	765 call assert_equal('i-ic', g:current_modes)
10833 d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	766 " i_CTRL-X CTRL-P: Single match
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	767 exe "normal iBro\<C-X>\<C-P>\<F2>\<Esc>u"
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	768 call assert_equal('i-ic', g:current_modes)
10833 d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	769 " i_CTRL-X CTRL-P + CTRL-P: Single match
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	770 exe "normal iBro\<C-X>\<C-P>\<C-P>\<F2>\<Esc>u"
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	771 call assert_equal('i-ic', g:current_modes)
10833 d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	772 " i_CTRL-X CTRL-L: Multiple matches
d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	773 exe "normal i\<C-X>\<C-L>\<F2>\<Esc>u"
d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	774 call assert_equal('i-ic', g:current_modes)
d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	775 " i_CTRL-X CTRL-L: Single match
d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	776 exe "normal iBlu\<C-X>\<C-L>\<F2>\<Esc>u"
d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	777 call assert_equal('i-ic', g:current_modes)
d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	778 " i_CTRL-P: No match
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	779 exe "normal iCom\<C-P>\<F2>\<Esc>u"
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	780 call assert_equal('i-ic', g:current_modes)
10833 d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	781 " i_CTRL-X CTRL-P: No match
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	782 exe "normal iCom\<C-X>\<C-P>\<F2>\<Esc>u"
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	783 call assert_equal('i-ic', g:current_modes)
10833 d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	784 " i_CTRL-X CTRL-L: No match
d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	785 exe "normal iabc\<C-X>\<C-L>\<F2>\<Esc>u"
d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	786 call assert_equal('i-ic', g:current_modes)
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	787
10833 d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	788 " R_CTRL-P: Multiple matches
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	789 exe "normal RBa\<C-P>\<F2>\<Esc>u"
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	790 call assert_equal('R-Rc', g:current_modes)
10833 d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	791 " R_CTRL-P: Single match
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	792 exe "normal RBro\<C-P>\<F2>\<Esc>u"
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	793 call assert_equal('R-Rc', g:current_modes)
10833 d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	794 " R_CTRL-X
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	795 exe "normal RBa\<C-X>\<F2>\<Esc>u"
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	796 call assert_equal('R-Rx', g:current_modes)
10833 d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	797 " R_CTRL-X CTRL-P: Multiple matches
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	798 exe "normal RBa\<C-X>\<C-P>\<F2>\<Esc>u"
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	799 call assert_equal('R-Rc', g:current_modes)
10833 d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	800 " R_CTRL-X CTRL-P: Single match
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	801 exe "normal RBro\<C-X>\<C-P>\<F2>\<Esc>u"
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	802 call assert_equal('R-Rc', g:current_modes)
10833 d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	803 " R_CTRL-X CTRL-P + CTRL-P: Single match
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	804 exe "normal RBro\<C-X>\<C-P>\<C-P>\<F2>\<Esc>u"
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	805 call assert_equal('R-Rc', g:current_modes)
10833 d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	806 " R_CTRL-X CTRL-L: Multiple matches
d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	807 exe "normal R\<C-X>\<C-L>\<F2>\<Esc>u"
d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	808 call assert_equal('R-Rc', g:current_modes)
d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	809 " R_CTRL-X CTRL-L: Single match
d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	810 exe "normal RBlu\<C-X>\<C-L>\<F2>\<Esc>u"
d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	811 call assert_equal('R-Rc', g:current_modes)
d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	812 " R_CTRL-P: No match
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	813 exe "normal RCom\<C-P>\<F2>\<Esc>u"
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	814 call assert_equal('R-Rc', g:current_modes)
10833 d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	815 " R_CTRL-X CTRL-P: No match
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	816 exe "normal RCom\<C-X>\<C-P>\<F2>\<Esc>u"
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	817 call assert_equal('R-Rc', g:current_modes)
10833 d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	818 " R_CTRL-X CTRL-L: No match
d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	819 exe "normal Rabc\<C-X>\<C-L>\<F2>\<Esc>u"
d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	820 call assert_equal('R-Rc', g:current_modes)
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	821
17930 0cdb6ac20748 patch 8.1.1961: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17916 diff changeset	822 call assert_equal('n', 0->mode())
0cdb6ac20748 patch 8.1.1961: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17916 diff changeset	823 call assert_equal('n', 1->mode())
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	824
14422 06316dbd66bc patch 8.1.0225: mode() does not indicate using CTRL-O from Insert mode Christian Brabandt <cb@256bit.org> parents: 14379 diff changeset	825 " i_CTRL-O
06316dbd66bc patch 8.1.0225: mode() does not indicate using CTRL-O from Insert mode Christian Brabandt <cb@256bit.org> parents: 14379 diff changeset	826 exe "normal i\<C-O>:call Save_mode()\<Cr>\<Esc>"
06316dbd66bc patch 8.1.0225: mode() does not indicate using CTRL-O from Insert mode Christian Brabandt <cb@256bit.org> parents: 14379 diff changeset	827 call assert_equal("n-niI", g:current_modes)
06316dbd66bc patch 8.1.0225: mode() does not indicate using CTRL-O from Insert mode Christian Brabandt <cb@256bit.org> parents: 14379 diff changeset	828
06316dbd66bc patch 8.1.0225: mode() does not indicate using CTRL-O from Insert mode Christian Brabandt <cb@256bit.org> parents: 14379 diff changeset	829 " R_CTRL-O
06316dbd66bc patch 8.1.0225: mode() does not indicate using CTRL-O from Insert mode Christian Brabandt <cb@256bit.org> parents: 14379 diff changeset	830 exe "normal R\<C-O>:call Save_mode()\<Cr>\<Esc>"
06316dbd66bc patch 8.1.0225: mode() does not indicate using CTRL-O from Insert mode Christian Brabandt <cb@256bit.org> parents: 14379 diff changeset	831 call assert_equal("n-niR", g:current_modes)
06316dbd66bc patch 8.1.0225: mode() does not indicate using CTRL-O from Insert mode Christian Brabandt <cb@256bit.org> parents: 14379 diff changeset	832
06316dbd66bc patch 8.1.0225: mode() does not indicate using CTRL-O from Insert mode Christian Brabandt <cb@256bit.org> parents: 14379 diff changeset	833 " gR_CTRL-O
06316dbd66bc patch 8.1.0225: mode() does not indicate using CTRL-O from Insert mode Christian Brabandt <cb@256bit.org> parents: 14379 diff changeset	834 exe "normal gR\<C-O>:call Save_mode()\<Cr>\<Esc>"
06316dbd66bc patch 8.1.0225: mode() does not indicate using CTRL-O from Insert mode Christian Brabandt <cb@256bit.org> parents: 14379 diff changeset	835 call assert_equal("n-niV", g:current_modes)
06316dbd66bc patch 8.1.0225: mode() does not indicate using CTRL-O from Insert mode Christian Brabandt <cb@256bit.org> parents: 14379 diff changeset	836
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	837 " How to test operator-pending mode?
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	838
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	839 call feedkeys("v", 'xt')
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	840 call assert_equal('v', mode())
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	841 call assert_equal('v', mode(1))
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	842 call feedkeys("\<Esc>V", 'xt')
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	843 call assert_equal('V', mode())
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	844 call assert_equal('V', mode(1))
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	845 call feedkeys("\<Esc>\<C-V>", 'xt')
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	846 call assert_equal("\<C-V>", mode())
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	847 call assert_equal("\<C-V>", mode(1))
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	848 call feedkeys("\<Esc>", 'xt')
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	849
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	850 call feedkeys("gh", 'xt')
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	851 call assert_equal('s', mode())
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	852 call assert_equal('s', mode(1))
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	853 call feedkeys("\<Esc>gH", 'xt')
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	854 call assert_equal('S', mode())
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	855 call assert_equal('S', mode(1))
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	856 call feedkeys("\<Esc>g\<C-H>", 'xt')
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	857 call assert_equal("\<C-S>", mode())
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	858 call assert_equal("\<C-S>", mode(1))
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	859 call feedkeys("\<Esc>", 'xt')
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	860
25398 4101d78f78e2 patch 8.2.3236: mode() does not indicate using CTRL-O in Select mode Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	861 " v_CTRL-O
4101d78f78e2 patch 8.2.3236: mode() does not indicate using CTRL-O in Select mode Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	862 exe "normal gh\<C-O>\<F2>\<Esc>"
4101d78f78e2 patch 8.2.3236: mode() does not indicate using CTRL-O in Select mode Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	863 call assert_equal("v-vs", g:current_modes)
4101d78f78e2 patch 8.2.3236: mode() does not indicate using CTRL-O in Select mode Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	864 exe "normal gH\<C-O>\<F2>\<Esc>"
4101d78f78e2 patch 8.2.3236: mode() does not indicate using CTRL-O in Select mode Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	865 call assert_equal("V-Vs", g:current_modes)
4101d78f78e2 patch 8.2.3236: mode() does not indicate using CTRL-O in Select mode Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	866 exe "normal g\<C-H>\<C-O>\<F2>\<Esc>"
4101d78f78e2 patch 8.2.3236: mode() does not indicate using CTRL-O in Select mode Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	867 call assert_equal("\<C-V>-\<C-V>s", g:current_modes)
4101d78f78e2 patch 8.2.3236: mode() does not indicate using CTRL-O in Select mode Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	868
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	869 call feedkeys(":echo \<C-R>=Save_mode()\<C-U>\<CR>", 'xt')
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	870 call assert_equal('c-c', g:current_modes)
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	871 call feedkeys("gQecho \<C-R>=Save_mode()\<CR>\<CR>vi\<CR>", 'xt')
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	872 call assert_equal('c-cv', g:current_modes)
19906 031184ace7c5 patch 8.2.0509: various code is not properly tested. Bram Moolenaar <Bram@vim.org> parents: 19902 diff changeset	873 call feedkeys("Qcall Save_mode()\<CR>vi\<CR>", 'xt')
031184ace7c5 patch 8.2.0509: various code is not properly tested. Bram Moolenaar <Bram@vim.org> parents: 19902 diff changeset	874 call assert_equal('c-ce', g:current_modes)
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	875 " How to test Ex mode?
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	876
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	877 bwipe!
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	878 iunmap <F2>
25398 4101d78f78e2 patch 8.2.3236: mode() does not indicate using CTRL-O in Select mode Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	879 xunmap <F2>
11135 c4e4387bbd50 patch 8.0.0455: the mode test may hang Christian Brabandt <cb@256bit.org> parents: 11095 diff changeset	880 set complete&
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10743 diff changeset	881 endfunc
10889 5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	882
20120 16460964c304 patch 8.2.0615: regexp benchmark stest is old style Bram Moolenaar <Bram@vim.org> parents: 20109 diff changeset	883 " Test for append()
17871 521ce0d887e5 patch 8.1.1932: ml_get errors after using append() Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	884 func Test_append()
521ce0d887e5 patch 8.1.1932: ml_get errors after using append() Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	885 enew!
521ce0d887e5 patch 8.1.1932: ml_get errors after using append() Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	886 split
521ce0d887e5 patch 8.1.1932: ml_get errors after using append() Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	887 call append(0, ["foo"])
20120 16460964c304 patch 8.2.0615: regexp benchmark stest is old style Bram Moolenaar <Bram@vim.org> parents: 20109 diff changeset	888 call append(1, [])
16460964c304 patch 8.2.0615: regexp benchmark stest is old style Bram Moolenaar <Bram@vim.org> parents: 20109 diff changeset	889 call append(1, test_null_list())
16460964c304 patch 8.2.0615: regexp benchmark stest is old style Bram Moolenaar <Bram@vim.org> parents: 20109 diff changeset	890 call assert_equal(['foo', ''], getline(1, '$'))
17871 521ce0d887e5 patch 8.1.1932: ml_get errors after using append() Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	891 split
521ce0d887e5 patch 8.1.1932: ml_get errors after using append() Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	892 only
521ce0d887e5 patch 8.1.1932: ml_get errors after using append() Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	893 undo
20120 16460964c304 patch 8.2.0615: regexp benchmark stest is old style Bram Moolenaar <Bram@vim.org> parents: 20109 diff changeset	894 undo
20109 e82996ad131f patch 8.2.0610: some tests are still old style Bram Moolenaar <Bram@vim.org> parents: 19954 diff changeset	895
e82996ad131f patch 8.2.0610: some tests are still old style Bram Moolenaar <Bram@vim.org> parents: 19954 diff changeset	896 " Using $ instead of '$' must give an error
e82996ad131f patch 8.2.0610: some tests are still old style Bram Moolenaar <Bram@vim.org> parents: 19954 diff changeset	897 call assert_fails("call append($, 'foobar')", 'E116:')
17871 521ce0d887e5 patch 8.1.1932: ml_get errors after using append() Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	898 endfunc
521ce0d887e5 patch 8.1.1932: ml_get errors after using append() Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	899
20120 16460964c304 patch 8.2.0615: regexp benchmark stest is old style Bram Moolenaar <Bram@vim.org> parents: 20109 diff changeset	900 " Test for setline()
16460964c304 patch 8.2.0615: regexp benchmark stest is old style Bram Moolenaar <Bram@vim.org> parents: 20109 diff changeset	901 func Test_setline()
16460964c304 patch 8.2.0615: regexp benchmark stest is old style Bram Moolenaar <Bram@vim.org> parents: 20109 diff changeset	902 new
16460964c304 patch 8.2.0615: regexp benchmark stest is old style Bram Moolenaar <Bram@vim.org> parents: 20109 diff changeset	903 call setline(0, ["foo"])
16460964c304 patch 8.2.0615: regexp benchmark stest is old style Bram Moolenaar <Bram@vim.org> parents: 20109 diff changeset	904 call setline(0, [])
16460964c304 patch 8.2.0615: regexp benchmark stest is old style Bram Moolenaar <Bram@vim.org> parents: 20109 diff changeset	905 call setline(0, test_null_list())
16460964c304 patch 8.2.0615: regexp benchmark stest is old style Bram Moolenaar <Bram@vim.org> parents: 20109 diff changeset	906 call setline(1, ["bar"])
16460964c304 patch 8.2.0615: regexp benchmark stest is old style Bram Moolenaar <Bram@vim.org> parents: 20109 diff changeset	907 call setline(1, [])
16460964c304 patch 8.2.0615: regexp benchmark stest is old style Bram Moolenaar <Bram@vim.org> parents: 20109 diff changeset	908 call setline(1, test_null_list())
16460964c304 patch 8.2.0615: regexp benchmark stest is old style Bram Moolenaar <Bram@vim.org> parents: 20109 diff changeset	909 call setline(2, [])
16460964c304 patch 8.2.0615: regexp benchmark stest is old style Bram Moolenaar <Bram@vim.org> parents: 20109 diff changeset	910 call setline(2, test_null_list())
16460964c304 patch 8.2.0615: regexp benchmark stest is old style Bram Moolenaar <Bram@vim.org> parents: 20109 diff changeset	911 call setline(3, [])
16460964c304 patch 8.2.0615: regexp benchmark stest is old style Bram Moolenaar <Bram@vim.org> parents: 20109 diff changeset	912 call setline(3, test_null_list())
16460964c304 patch 8.2.0615: regexp benchmark stest is old style Bram Moolenaar <Bram@vim.org> parents: 20109 diff changeset	913 call setline(2, ["baz"])
16460964c304 patch 8.2.0615: regexp benchmark stest is old style Bram Moolenaar <Bram@vim.org> parents: 20109 diff changeset	914 call assert_equal(['bar', 'baz'], getline(1, '$'))
16460964c304 patch 8.2.0615: regexp benchmark stest is old style Bram Moolenaar <Bram@vim.org> parents: 20109 diff changeset	915 close!
16460964c304 patch 8.2.0615: regexp benchmark stest is old style Bram Moolenaar <Bram@vim.org> parents: 20109 diff changeset	916 endfunc
16460964c304 patch 8.2.0615: regexp benchmark stest is old style Bram Moolenaar <Bram@vim.org> parents: 20109 diff changeset	917
10889 5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	918 func Test_getbufvar()
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	919 let bnr = bufnr('%')
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	920 let b:var_num = '1234'
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	921 let def_num = '5678'
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	922 call assert_equal('1234', getbufvar(bnr, 'var_num'))
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	923 call assert_equal('1234', getbufvar(bnr, 'var_num', def_num))
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	924
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	925 let bd = getbufvar(bnr, '')
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	926 call assert_equal('1234', bd['var_num'])
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	927 call assert_true(exists("bd['changedtick']"))
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	928 call assert_equal(2, len(bd))
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	929
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	930 let bd2 = getbufvar(bnr, '', def_num)
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	931 call assert_equal(bd, bd2)
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	932
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	933 unlet b:var_num
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	934 call assert_equal(def_num, getbufvar(bnr, 'var_num', def_num))
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	935 call assert_equal('', getbufvar(bnr, 'var_num'))
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	936
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	937 let bd = getbufvar(bnr, '')
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	938 call assert_equal(1, len(bd))
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	939 let bd = getbufvar(bnr, '',def_num)
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	940 call assert_equal(1, len(bd))
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	941
11197 7f355d8cd634 patch 8.0.0485: not all windows commands are tested Christian Brabandt <cb@256bit.org> parents: 11191 diff changeset	942 call assert_equal('', getbufvar(9999, ''))
7f355d8cd634 patch 8.0.0485: not all windows commands are tested Christian Brabandt <cb@256bit.org> parents: 11191 diff changeset	943 call assert_equal(def_num, getbufvar(9999, '', def_num))
10889 5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	944 unlet def_num
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	945
10891 c9d057b7a0ab patch 8.0.0335: functions test fails Christian Brabandt <cb@256bit.org> parents: 10889 diff changeset	946 call assert_equal(0, getbufvar(bnr, '&autoindent'))
c9d057b7a0ab patch 8.0.0335: functions test fails Christian Brabandt <cb@256bit.org> parents: 10889 diff changeset	947 call assert_equal(0, getbufvar(bnr, '&autoindent', 1))
10889 5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	948
19689 da98d2ed8dc5 patch 8.2.0401: not enough test coverage for evalvars.c Bram Moolenaar <Bram@vim.org> parents: 19554 diff changeset	949 " Set and get a buffer-local variable
da98d2ed8dc5 patch 8.2.0401: not enough test coverage for evalvars.c Bram Moolenaar <Bram@vim.org> parents: 19554 diff changeset	950 call setbufvar(bnr, 'bufvar_test', ['one', 'two'])
da98d2ed8dc5 patch 8.2.0401: not enough test coverage for evalvars.c Bram Moolenaar <Bram@vim.org> parents: 19554 diff changeset	951 call assert_equal(['one', 'two'], getbufvar(bnr, 'bufvar_test'))
da98d2ed8dc5 patch 8.2.0401: not enough test coverage for evalvars.c Bram Moolenaar <Bram@vim.org> parents: 19554 diff changeset	952
10889 5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	953 " Open new window with forced option values
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	954 set fileformats=unix,dos
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	955 new ++ff=dos ++bin ++enc=iso-8859-2
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	956 call assert_equal('dos', getbufvar(bufnr('%'), '&fileformat'))
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	957 call assert_equal(1, getbufvar(bufnr('%'), '&bin'))
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	958 call assert_equal('iso-8859-2', getbufvar(bufnr('%'), '&fenc'))
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	959 close
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	960
19902 481e8fa158b4 patch 8.2.0507: getbufvar() may get the wrong dictionary Bram Moolenaar <Bram@vim.org> parents: 19795 diff changeset	961 " Get the b: dict.
481e8fa158b4 patch 8.2.0507: getbufvar() may get the wrong dictionary Bram Moolenaar <Bram@vim.org> parents: 19795 diff changeset	962 let b:testvar = 'one'
481e8fa158b4 patch 8.2.0507: getbufvar() may get the wrong dictionary Bram Moolenaar <Bram@vim.org> parents: 19795 diff changeset	963 new
481e8fa158b4 patch 8.2.0507: getbufvar() may get the wrong dictionary Bram Moolenaar <Bram@vim.org> parents: 19795 diff changeset	964 let b:testvar = 'two'
481e8fa158b4 patch 8.2.0507: getbufvar() may get the wrong dictionary Bram Moolenaar <Bram@vim.org> parents: 19795 diff changeset	965 let thebuf = bufnr()
481e8fa158b4 patch 8.2.0507: getbufvar() may get the wrong dictionary Bram Moolenaar <Bram@vim.org> parents: 19795 diff changeset	966 wincmd w
481e8fa158b4 patch 8.2.0507: getbufvar() may get the wrong dictionary Bram Moolenaar <Bram@vim.org> parents: 19795 diff changeset	967 call assert_equal('two', getbufvar(thebuf, 'testvar'))
481e8fa158b4 patch 8.2.0507: getbufvar() may get the wrong dictionary Bram Moolenaar <Bram@vim.org> parents: 19795 diff changeset	968 call assert_equal('two', getbufvar(thebuf, '').testvar)
481e8fa158b4 patch 8.2.0507: getbufvar() may get the wrong dictionary Bram Moolenaar <Bram@vim.org> parents: 19795 diff changeset	969 bwipe!
481e8fa158b4 patch 8.2.0507: getbufvar() may get the wrong dictionary Bram Moolenaar <Bram@vim.org> parents: 19795 diff changeset	970
10889 5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	971 set fileformats&
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10833 diff changeset	972 endfunc
11020 50f3e37bc210 patch 8.0.0399: crash when using balloon_show() when not supported Christian Brabandt <cb@256bit.org> parents: 10891 diff changeset	973
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	974 func Test_last_buffer_nr()
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	975 call assert_equal(bufnr('$'), last_buffer_nr())
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	976 endfunc
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	977
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	978 func Test_stridx()
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	979 call assert_equal(-1, stridx('', 'l'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	980 call assert_equal(0, stridx('', ''))
18017 988e5a868b60 patch 8.1.2004: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 18000 diff changeset	981 call assert_equal(0, 'hello'->stridx(''))
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	982 call assert_equal(-1, stridx('hello', 'L'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	983 call assert_equal(2, stridx('hello', 'l', -1))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	984 call assert_equal(2, stridx('hello', 'l', 0))
18017 988e5a868b60 patch 8.1.2004: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 18000 diff changeset	985 call assert_equal(2, 'hello'->stridx('l', 1))
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	986 call assert_equal(3, stridx('hello', 'l', 3))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	987 call assert_equal(-1, stridx('hello', 'l', 4))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	988 call assert_equal(-1, stridx('hello', 'l', 10))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	989 call assert_equal(2, stridx('hello', 'll'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	990 call assert_equal(-1, stridx('hello', 'hello world'))
19783 546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	991 call assert_fails("let n=stridx('hello', [])", 'E730:')
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	992 call assert_fails("let n=stridx([], 'l')", 'E730:')
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	993 endfunc
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	994
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	995 func Test_strridx()
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	996 call assert_equal(-1, strridx('', 'l'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	997 call assert_equal(0, strridx('', ''))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	998 call assert_equal(5, strridx('hello', ''))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	999 call assert_equal(-1, strridx('hello', 'L'))
18017 988e5a868b60 patch 8.1.2004: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 18000 diff changeset	1000 call assert_equal(3, 'hello'->strridx('l'))
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1001 call assert_equal(3, strridx('hello', 'l', 10))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1002 call assert_equal(3, strridx('hello', 'l', 3))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1003 call assert_equal(2, strridx('hello', 'l', 2))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1004 call assert_equal(-1, strridx('hello', 'l', 1))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1005 call assert_equal(-1, strridx('hello', 'l', 0))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1006 call assert_equal(-1, strridx('hello', 'l', -1))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1007 call assert_equal(2, strridx('hello', 'll'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1008 call assert_equal(-1, strridx('hello', 'hello world'))
19783 546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1009 call assert_fails("let n=strridx('hello', [])", 'E730:')
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1010 call assert_fails("let n=strridx([], 'l')", 'E730:')
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1011 endfunc
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1012
12451 61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1013 func Test_match_func()
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1014 call assert_equal(4, match('testing', 'ing'))
17930 0cdb6ac20748 patch 8.1.1961: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17916 diff changeset	1015 call assert_equal(4, 'testing'->match('ing', 2))
12451 61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1016 call assert_equal(-1, match('testing', 'ing', 5))
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1017 call assert_equal(-1, match('testing', 'ing', 8))
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1018 call assert_equal(1, match(['vim', 'testing', 'execute'], 'ing'))
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1019 call assert_equal(-1, match(['vim', 'testing', 'execute'], 'img'))
19783 546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1020 call assert_fails("let x=match('vim', [])", 'E730:')
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1021 call assert_equal(3, match(['a', 'b', 'c', 'a'], 'a', 1))
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1022 call assert_equal(-1, match(['a', 'b', 'c', 'a'], 'a', 5))
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1023 call assert_equal(4, match('testing', 'ing', -1))
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1024 call assert_fails("let x=match('testing', 'ing', 0, [])", 'E745:')
20120 16460964c304 patch 8.2.0615: regexp benchmark stest is old style Bram Moolenaar <Bram@vim.org> parents: 20109 diff changeset	1025 call assert_equal(-1, match(test_null_list(), 2))
22375 595ea7f099cd patch 8.2.1736: failure to compile a pattern not tested much Bram Moolenaar <Bram@vim.org> parents: 22357 diff changeset	1026 call assert_equal(-1, match('abc', '\\%('))
12451 61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1027 endfunc
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1028
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1029 func Test_matchend()
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1030 call assert_equal(7, matchend('testing', 'ing'))
17930 0cdb6ac20748 patch 8.1.1961: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17916 diff changeset	1031 call assert_equal(7, 'testing'->matchend('ing', 2))
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1032 call assert_equal(-1, matchend('testing', 'ing', 5))
12451 61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1033 call assert_equal(-1, matchend('testing', 'ing', 8))
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1034 call assert_equal(match(['vim', 'testing', 'execute'], 'ing'), matchend(['vim', 'testing', 'execute'], 'ing'))
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1035 call assert_equal(match(['vim', 'testing', 'execute'], 'img'), matchend(['vim', 'testing', 'execute'], 'img'))
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1036 endfunc
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1037
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1038 func Test_matchlist()
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1039 call assert_equal(['acd', 'a', '', 'c', 'd', '', '', '', '', ''], matchlist('acd', '$a$\?$b$\?$c$\?$.*$'))
17930 0cdb6ac20748 patch 8.1.1961: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17916 diff changeset	1040 call assert_equal(['d', '', '', '', 'd', '', '', '', '', ''], 'acd'->matchlist('$a$\?$b$\?$c$\?$.*$', 2))
12451 61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1041 call assert_equal([], matchlist('acd', '$a$\?$b$\?$c$\?$.*$', 4))
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1042 endfunc
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1043
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1044 func Test_matchstr()
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1045 call assert_equal('ing', matchstr('testing', 'ing'))
17930 0cdb6ac20748 patch 8.1.1961: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17916 diff changeset	1046 call assert_equal('ing', 'testing'->matchstr('ing', 2))
12451 61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1047 call assert_equal('', matchstr('testing', 'ing', 5))
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1048 call assert_equal('', matchstr('testing', 'ing', 8))
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1049 call assert_equal('testing', matchstr(['vim', 'testing', 'execute'], 'ing'))
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1050 call assert_equal('', matchstr(['vim', 'testing', 'execute'], 'img'))
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1051 endfunc
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1052
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1053 func Test_matchstrpos()
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1054 call assert_equal(['ing', 4, 7], matchstrpos('testing', 'ing'))
17930 0cdb6ac20748 patch 8.1.1961: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17916 diff changeset	1055 call assert_equal(['ing', 4, 7], 'testing'->matchstrpos('ing', 2))
12451 61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1056 call assert_equal(['', -1, -1], matchstrpos('testing', 'ing', 5))
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1057 call assert_equal(['', -1, -1], matchstrpos('testing', 'ing', 8))
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1058 call assert_equal(['ing', 1, 4, 7], matchstrpos(['vim', 'testing', 'execute'], 'ing'))
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1059 call assert_equal(['', -1, -1, -1], matchstrpos(['vim', 'testing', 'execute'], 'img'))
20158 94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	1060 call assert_equal(['', -1, -1], matchstrpos(test_null_list(), '\a'))
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1061 endfunc
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1062
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1063 func Test_nextnonblank_prevnonblank()
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1064 new
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1065 insert
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1066 This
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1067
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1068
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1069 is
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1070
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1071 a
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1072 Test
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1073 .
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1074 call assert_equal(0, nextnonblank(-1))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1075 call assert_equal(0, nextnonblank(0))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1076 call assert_equal(1, nextnonblank(1))
17976 6d11a0d5751d patch 8.1.1984: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17952 diff changeset	1077 call assert_equal(4, 2->nextnonblank())
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1078 call assert_equal(4, nextnonblank(3))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1079 call assert_equal(4, nextnonblank(4))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1080 call assert_equal(6, nextnonblank(5))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1081 call assert_equal(6, nextnonblank(6))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1082 call assert_equal(7, nextnonblank(7))
17976 6d11a0d5751d patch 8.1.1984: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17952 diff changeset	1083 call assert_equal(0, 8->nextnonblank())
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1084
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1085 call assert_equal(0, prevnonblank(-1))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1086 call assert_equal(0, prevnonblank(0))
17976 6d11a0d5751d patch 8.1.1984: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17952 diff changeset	1087 call assert_equal(1, 1->prevnonblank())
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1088 call assert_equal(1, prevnonblank(2))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1089 call assert_equal(1, prevnonblank(3))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1090 call assert_equal(4, prevnonblank(4))
17976 6d11a0d5751d patch 8.1.1984: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17952 diff changeset	1091 call assert_equal(4, 5->prevnonblank())
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1092 call assert_equal(6, prevnonblank(6))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1093 call assert_equal(7, prevnonblank(7))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1094 call assert_equal(0, prevnonblank(8))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1095 bw!
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1096 endfunc
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1097
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1098 func Test_byte2line_line2byte()
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1099 new
14579 23d6d9e9ae3e patch 8.1.0303: line2byte() is wrong for last line with 'noeol' Christian Brabandt <cb@256bit.org> parents: 14487 diff changeset	1100 set endofline
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1101 call setline(1, ['a', 'bc', 'd'])
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1102
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1103 set fileformat=unix
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1104 call assert_equal([-1, -1, 1, 1, 2, 2, 2, 3, 3, -1],
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1105 \ map(range(-1, 8), 'byte2line(v:val)'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1106 call assert_equal([-1, -1, 1, 3, 6, 8, -1],
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1107 \ map(range(-1, 5), 'line2byte(v:val)'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1108
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1109 set fileformat=mac
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1110 call assert_equal([-1, -1, 1, 1, 2, 2, 2, 3, 3, -1],
17829 1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1111 \ map(range(-1, 8), 'v:val->byte2line()'))
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1112 call assert_equal([-1, -1, 1, 3, 6, 8, -1],
17916 2e53305f2239 patch 8.1.1954: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17914 diff changeset	1113 \ map(range(-1, 5), 'v:val->line2byte()'))
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1114
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1115 set fileformat=dos
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1116 call assert_equal([-1, -1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, -1],
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1117 \ map(range(-1, 11), 'byte2line(v:val)'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1118 call assert_equal([-1, -1, 1, 4, 8, 11, -1],
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1119 \ map(range(-1, 5), 'line2byte(v:val)'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1120
14579 23d6d9e9ae3e patch 8.1.0303: line2byte() is wrong for last line with 'noeol' Christian Brabandt <cb@256bit.org> parents: 14487 diff changeset	1121 bw!
23d6d9e9ae3e patch 8.1.0303: line2byte() is wrong for last line with 'noeol' Christian Brabandt <cb@256bit.org> parents: 14487 diff changeset	1122 set noendofline nofixendofline
23d6d9e9ae3e patch 8.1.0303: line2byte() is wrong for last line with 'noeol' Christian Brabandt <cb@256bit.org> parents: 14487 diff changeset	1123 normal a-
23d6d9e9ae3e patch 8.1.0303: line2byte() is wrong for last line with 'noeol' Christian Brabandt <cb@256bit.org> parents: 14487 diff changeset	1124 for ff in ["unix", "mac", "dos"]
23d6d9e9ae3e patch 8.1.0303: line2byte() is wrong for last line with 'noeol' Christian Brabandt <cb@256bit.org> parents: 14487 diff changeset	1125 let &fileformat = ff
23d6d9e9ae3e patch 8.1.0303: line2byte() is wrong for last line with 'noeol' Christian Brabandt <cb@256bit.org> parents: 14487 diff changeset	1126 call assert_equal(1, line2byte(1))
23d6d9e9ae3e patch 8.1.0303: line2byte() is wrong for last line with 'noeol' Christian Brabandt <cb@256bit.org> parents: 14487 diff changeset	1127 call assert_equal(2, line2byte(2)) " line2byte(line("$") + 1) is the buffer size plus one (as per :help line2byte).
23d6d9e9ae3e patch 8.1.0303: line2byte() is wrong for last line with 'noeol' Christian Brabandt <cb@256bit.org> parents: 14487 diff changeset	1128 endfor
23d6d9e9ae3e patch 8.1.0303: line2byte() is wrong for last line with 'noeol' Christian Brabandt <cb@256bit.org> parents: 14487 diff changeset	1129
23d6d9e9ae3e patch 8.1.0303: line2byte() is wrong for last line with 'noeol' Christian Brabandt <cb@256bit.org> parents: 14487 diff changeset	1130 set endofline& fixendofline& fileformat&
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1131 bw!
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1132 endfunc
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1133
19783 546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1134 " Test for byteidx() and byteidxcomp() functions
17829 1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1135 func Test_byteidx()
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1136 let a = '.é.' " one char of two bytes
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1137 call assert_equal(0, byteidx(a, 0))
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1138 call assert_equal(0, byteidxcomp(a, 0))
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1139 call assert_equal(1, byteidx(a, 1))
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1140 call assert_equal(1, byteidxcomp(a, 1))
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1141 call assert_equal(3, byteidx(a, 2))
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1142 call assert_equal(3, byteidxcomp(a, 2))
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1143 call assert_equal(4, byteidx(a, 3))
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1144 call assert_equal(4, byteidxcomp(a, 3))
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1145 call assert_equal(-1, byteidx(a, 4))
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1146 call assert_equal(-1, byteidxcomp(a, 4))
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1147
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1148 let b = '.é.' " normal e with composing char
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1149 call assert_equal(0, b->byteidx(0))
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1150 call assert_equal(1, b->byteidx(1))
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1151 call assert_equal(4, b->byteidx(2))
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1152 call assert_equal(5, b->byteidx(3))
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1153 call assert_equal(-1, b->byteidx(4))
19783 546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1154 call assert_fails("call byteidx([], 0)", 'E730:')
17829 1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1155
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1156 call assert_equal(0, b->byteidxcomp(0))
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1157 call assert_equal(1, b->byteidxcomp(1))
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1158 call assert_equal(2, b->byteidxcomp(2))
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1159 call assert_equal(4, b->byteidxcomp(3))
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1160 call assert_equal(5, b->byteidxcomp(4))
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1161 call assert_equal(-1, b->byteidxcomp(5))
19783 546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1162 call assert_fails("call byteidxcomp([], 0)", 'E730:')
17829 1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1163 endfunc
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	1164
23380 2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index Bram Moolenaar <Bram@vim.org> parents: 23108 diff changeset	1165 " Test for charidx()
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index Bram Moolenaar <Bram@vim.org> parents: 23108 diff changeset	1166 func Test_charidx()
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index Bram Moolenaar <Bram@vim.org> parents: 23108 diff changeset	1167 let a = 'xáb́y'
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index Bram Moolenaar <Bram@vim.org> parents: 23108 diff changeset	1168 call assert_equal(0, charidx(a, 0))
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index Bram Moolenaar <Bram@vim.org> parents: 23108 diff changeset	1169 call assert_equal(1, charidx(a, 3))
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index Bram Moolenaar <Bram@vim.org> parents: 23108 diff changeset	1170 call assert_equal(2, charidx(a, 4))
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index Bram Moolenaar <Bram@vim.org> parents: 23108 diff changeset	1171 call assert_equal(3, charidx(a, 7))
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index Bram Moolenaar <Bram@vim.org> parents: 23108 diff changeset	1172 call assert_equal(-1, charidx(a, 8))
24596 acd9220bdd0b patch 8.2.2837: various code lines not covered by tests Bram Moolenaar <Bram@vim.org> parents: 24448 diff changeset	1173 call assert_equal(-1, charidx(a, -1))
23380 2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index Bram Moolenaar <Bram@vim.org> parents: 23108 diff changeset	1174 call assert_equal(-1, charidx('', 0))
24596 acd9220bdd0b patch 8.2.2837: various code lines not covered by tests Bram Moolenaar <Bram@vim.org> parents: 24448 diff changeset	1175 call assert_equal(-1, charidx(test_null_string(), 0))
23380 2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index Bram Moolenaar <Bram@vim.org> parents: 23108 diff changeset	1176
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index Bram Moolenaar <Bram@vim.org> parents: 23108 diff changeset	1177 " count composing characters
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index Bram Moolenaar <Bram@vim.org> parents: 23108 diff changeset	1178 call assert_equal(0, charidx(a, 0, 1))
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index Bram Moolenaar <Bram@vim.org> parents: 23108 diff changeset	1179 call assert_equal(2, charidx(a, 2, 1))
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index Bram Moolenaar <Bram@vim.org> parents: 23108 diff changeset	1180 call assert_equal(3, charidx(a, 4, 1))
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index Bram Moolenaar <Bram@vim.org> parents: 23108 diff changeset	1181 call assert_equal(5, charidx(a, 7, 1))
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index Bram Moolenaar <Bram@vim.org> parents: 23108 diff changeset	1182 call assert_equal(-1, charidx(a, 8, 1))
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index Bram Moolenaar <Bram@vim.org> parents: 23108 diff changeset	1183 call assert_equal(-1, charidx('', 0, 1))
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index Bram Moolenaar <Bram@vim.org> parents: 23108 diff changeset	1184
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index Bram Moolenaar <Bram@vim.org> parents: 23108 diff changeset	1185 call assert_fails('let x = charidx([], 1)', 'E474:')
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index Bram Moolenaar <Bram@vim.org> parents: 23108 diff changeset	1186 call assert_fails('let x = charidx("abc", [])', 'E474:')
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index Bram Moolenaar <Bram@vim.org> parents: 23108 diff changeset	1187 call assert_fails('let x = charidx("abc", 1, [])', 'E474:')
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index Bram Moolenaar <Bram@vim.org> parents: 23108 diff changeset	1188 call assert_fails('let x = charidx("abc", 1, -1)', 'E1023:')
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index Bram Moolenaar <Bram@vim.org> parents: 23108 diff changeset	1189 call assert_fails('let x = charidx("abc", 1, 2)', 'E1023:')
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index Bram Moolenaar <Bram@vim.org> parents: 23108 diff changeset	1190 endfunc
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index Bram Moolenaar <Bram@vim.org> parents: 23108 diff changeset	1191
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1192 func Test_count()
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1193 let l = ['a', 'a', 'A', 'b']
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1194 call assert_equal(2, count(l, 'a'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1195 call assert_equal(1, count(l, 'A'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1196 call assert_equal(1, count(l, 'b'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1197 call assert_equal(0, count(l, 'B'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1198
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1199 call assert_equal(2, count(l, 'a', 0))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1200 call assert_equal(1, count(l, 'A', 0))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1201 call assert_equal(1, count(l, 'b', 0))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1202 call assert_equal(0, count(l, 'B', 0))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1203
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1204 call assert_equal(3, count(l, 'a', 1))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1205 call assert_equal(3, count(l, 'A', 1))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1206 call assert_equal(1, count(l, 'b', 1))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1207 call assert_equal(1, count(l, 'B', 1))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1208 call assert_equal(0, count(l, 'c', 1))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1209
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1210 call assert_equal(1, count(l, 'a', 0, 1))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1211 call assert_equal(2, count(l, 'a', 1, 1))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1212 call assert_fails('call count(l, "a", 0, 10)', 'E684:')
16668 81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	1213 call assert_fails('call count(l, "a", [])', 'E745:')
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1214
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1215 let d = {1: 'a', 2: 'a', 3: 'A', 4: 'b'}
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1216 call assert_equal(2, count(d, 'a'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1217 call assert_equal(1, count(d, 'A'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1218 call assert_equal(1, count(d, 'b'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1219 call assert_equal(0, count(d, 'B'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1220
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1221 call assert_equal(2, count(d, 'a', 0))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1222 call assert_equal(1, count(d, 'A', 0))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1223 call assert_equal(1, count(d, 'b', 0))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1224 call assert_equal(0, count(d, 'B', 0))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1225
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1226 call assert_equal(3, count(d, 'a', 1))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1227 call assert_equal(3, count(d, 'A', 1))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1228 call assert_equal(1, count(d, 'b', 1))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1229 call assert_equal(1, count(d, 'B', 1))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1230 call assert_equal(0, count(d, 'c', 1))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1231
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1232 call assert_fails('call count(d, "a", 0, 1)', 'E474:')
11828 5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11484 diff changeset	1233
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11484 diff changeset	1234 call assert_equal(0, count("foo", "bar"))
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11484 diff changeset	1235 call assert_equal(1, count("foo", "oo"))
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11484 diff changeset	1236 call assert_equal(2, count("foo", "o"))
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11484 diff changeset	1237 call assert_equal(0, count("foo", "O"))
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11484 diff changeset	1238 call assert_equal(2, count("foo", "O", 1))
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11484 diff changeset	1239 call assert_equal(2, count("fooooo", "oo"))
13070 17720967656c patch 8.0.1410: hang when using count() with an empty string Christian Brabandt <cb@256bit.org> parents: 12869 diff changeset	1240 call assert_equal(0, count("foo", ""))
16668 81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	1241
81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	1242 call assert_fails('call count(0, 0)', 'E712:')
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1243 endfunc
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1244
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1245 func Test_changenr()
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1246 new Xchangenr
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1247 call assert_equal(0, changenr())
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1248 norm ifoo
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1249 call assert_equal(1, changenr())
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1250 set undolevels=10
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1251 norm Sbar
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1252 call assert_equal(2, changenr())
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1253 undo
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1254 call assert_equal(1, changenr())
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1255 redo
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1256 call assert_equal(2, changenr())
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1257 bw!
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1258 set undolevels&
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1259 endfunc
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1260
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1261 func Test_filewritable()
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1262 new Xfilewritable
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1263 write!
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1264 call assert_equal(1, filewritable('Xfilewritable'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1265
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1266 call assert_notequal(0, setfperm('Xfilewritable', 'r--r-----'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1267 call assert_equal(0, filewritable('Xfilewritable'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1268
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1269 call assert_notequal(0, setfperm('Xfilewritable', 'rw-r-----'))
17849 73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	1270 call assert_equal(1, 'Xfilewritable'->filewritable())
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1271
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1272 call assert_equal(0, filewritable('doesnotexist'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1273
20313 244eb8d8d100 patch 8.2.0712: various code not fully tested Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	1274 call mkdir('Xdir')
244eb8d8d100 patch 8.2.0712: various code not fully tested Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	1275 call assert_equal(2, filewritable('Xdir'))
244eb8d8d100 patch 8.2.0712: various code not fully tested Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	1276 call delete('Xdir', 'd')
244eb8d8d100 patch 8.2.0712: various code not fully tested Bram Moolenaar <Bram@vim.org> parents: 20178 diff changeset	1277
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1278 call delete('Xfilewritable')
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1279 bw!
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1280 endfunc
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1281
14883 1c2ba2b0227e patch 8.1.0453: MS-Windows: executable() is not reliable Bram Moolenaar <Bram@vim.org> parents: 14669 diff changeset	1282 func Test_Executable()
1c2ba2b0227e patch 8.1.0453: MS-Windows: executable() is not reliable Bram Moolenaar <Bram@vim.org> parents: 14669 diff changeset	1283 if has('win32')
1c2ba2b0227e patch 8.1.0453: MS-Windows: executable() is not reliable Bram Moolenaar <Bram@vim.org> parents: 14669 diff changeset	1284 call assert_equal(1, executable('notepad'))
17849 73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	1285 call assert_equal(1, 'notepad.exe'->executable())
14883 1c2ba2b0227e patch 8.1.0453: MS-Windows: executable() is not reliable Bram Moolenaar <Bram@vim.org> parents: 14669 diff changeset	1286 call assert_equal(0, executable('notepad.exe.exe'))
1c2ba2b0227e patch 8.1.0453: MS-Windows: executable() is not reliable Bram Moolenaar <Bram@vim.org> parents: 14669 diff changeset	1287 call assert_equal(0, executable('shell32.dll'))
1c2ba2b0227e patch 8.1.0453: MS-Windows: executable() is not reliable Bram Moolenaar <Bram@vim.org> parents: 14669 diff changeset	1288 call assert_equal(0, executable('win.ini'))
20593 89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe Bram Moolenaar <Bram@vim.org> parents: 20591 diff changeset	1289
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe Bram Moolenaar <Bram@vim.org> parents: 20591 diff changeset	1290 " get "notepad" path and remove the leading drive and sep. (ex. 'C:\')
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe Bram Moolenaar <Bram@vim.org> parents: 20591 diff changeset	1291 let notepadcmd = exepath('notepad.exe')
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe Bram Moolenaar <Bram@vim.org> parents: 20591 diff changeset	1292 let driveroot = notepadcmd[:2]
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe Bram Moolenaar <Bram@vim.org> parents: 20591 diff changeset	1293 let notepadcmd = notepadcmd[3:]
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe Bram Moolenaar <Bram@vim.org> parents: 20591 diff changeset	1294 new
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe Bram Moolenaar <Bram@vim.org> parents: 20591 diff changeset	1295 " check that the relative path works in /
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe Bram Moolenaar <Bram@vim.org> parents: 20591 diff changeset	1296 execute 'lcd' driveroot
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe Bram Moolenaar <Bram@vim.org> parents: 20591 diff changeset	1297 call assert_equal(1, executable(notepadcmd))
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe Bram Moolenaar <Bram@vim.org> parents: 20591 diff changeset	1298 call assert_equal(driveroot .. notepadcmd, notepadcmd->exepath())
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe Bram Moolenaar <Bram@vim.org> parents: 20591 diff changeset	1299 bwipe
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe Bram Moolenaar <Bram@vim.org> parents: 20591 diff changeset	1300
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe Bram Moolenaar <Bram@vim.org> parents: 20591 diff changeset	1301 " create "notepad.bat"
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe Bram Moolenaar <Bram@vim.org> parents: 20591 diff changeset	1302 call mkdir('Xdir')
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe Bram Moolenaar <Bram@vim.org> parents: 20591 diff changeset	1303 let notepadbat = fnamemodify('Xdir/notepad.bat', ':p')
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe Bram Moolenaar <Bram@vim.org> parents: 20591 diff changeset	1304 call writefile([], notepadbat)
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe Bram Moolenaar <Bram@vim.org> parents: 20591 diff changeset	1305 new
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe Bram Moolenaar <Bram@vim.org> parents: 20591 diff changeset	1306 " check that the path and the pathext order is valid
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe Bram Moolenaar <Bram@vim.org> parents: 20591 diff changeset	1307 lcd Xdir
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe Bram Moolenaar <Bram@vim.org> parents: 20591 diff changeset	1308 let [pathext, $PATHEXT] = [$PATHEXT, '.com;.exe;.bat;.cmd']
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe Bram Moolenaar <Bram@vim.org> parents: 20591 diff changeset	1309 call assert_equal(notepadbat, exepath('notepad'))
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe Bram Moolenaar <Bram@vim.org> parents: 20591 diff changeset	1310 let $PATHEXT = pathext
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe Bram Moolenaar <Bram@vim.org> parents: 20591 diff changeset	1311 bwipe
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe Bram Moolenaar <Bram@vim.org> parents: 20591 diff changeset	1312 eval 'Xdir'->delete('rf')
14883 1c2ba2b0227e patch 8.1.0453: MS-Windows: executable() is not reliable Bram Moolenaar <Bram@vim.org> parents: 14669 diff changeset	1313 elseif has('unix')
17849 73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	1314 call assert_equal(1, 'cat'->executable())
14895 bde025b0d7de patch 8.1.0459: Test_executable fails when there is a dog in the system Bram Moolenaar <Bram@vim.org> parents: 14885 diff changeset	1315 call assert_equal(0, executable('nodogshere'))
17484 f1fd0b0b335c patch 8.1.1740: exepath() doesn't work for "bin/cat" Bram Moolenaar <Bram@vim.org> parents: 17278 diff changeset	1316
f1fd0b0b335c patch 8.1.1740: exepath() doesn't work for "bin/cat" Bram Moolenaar <Bram@vim.org> parents: 17278 diff changeset	1317 " get "cat" path and remove the leading /
f1fd0b0b335c patch 8.1.1740: exepath() doesn't work for "bin/cat" Bram Moolenaar <Bram@vim.org> parents: 17278 diff changeset	1318 let catcmd = exepath('cat')[1:]
f1fd0b0b335c patch 8.1.1740: exepath() doesn't work for "bin/cat" Bram Moolenaar <Bram@vim.org> parents: 17278 diff changeset	1319 new
17849 73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	1320 " check that the relative path works in /
17484 f1fd0b0b335c patch 8.1.1740: exepath() doesn't work for "bin/cat" Bram Moolenaar <Bram@vim.org> parents: 17278 diff changeset	1321 lcd /
f1fd0b0b335c patch 8.1.1740: exepath() doesn't work for "bin/cat" Bram Moolenaar <Bram@vim.org> parents: 17278 diff changeset	1322 call assert_equal(1, executable(catcmd))
23432 a8602bad9e9a patch 8.2.2259: Test_Executable() fails when using chroot Bram Moolenaar <Bram@vim.org> parents: 23380 diff changeset	1323 let result = catcmd->exepath()
a8602bad9e9a patch 8.2.2259: Test_Executable() fails when using chroot Bram Moolenaar <Bram@vim.org> parents: 23380 diff changeset	1324 " when using chroot looking for sbin/cat can return bin/cat, that is OK
a8602bad9e9a patch 8.2.2259: Test_Executable() fails when using chroot Bram Moolenaar <Bram@vim.org> parents: 23380 diff changeset	1325 if catcmd =~ '\<sbin\>' && result =~ '\<bin\>'
a8602bad9e9a patch 8.2.2259: Test_Executable() fails when using chroot Bram Moolenaar <Bram@vim.org> parents: 23380 diff changeset	1326 call assert_equal('/' .. substitute(catcmd, '\<sbin\>', 'bin', ''), result)
a8602bad9e9a patch 8.2.2259: Test_Executable() fails when using chroot Bram Moolenaar <Bram@vim.org> parents: 23380 diff changeset	1327 else
25439 01feec4a221d patch 8.2.3256: executable test may fail on new Ubuntu system Bram Moolenaar <Bram@vim.org> parents: 25398 diff changeset	1328 " /bin/cat and /usr/bin/cat may be hard linked, we could get either
01feec4a221d patch 8.2.3256: executable test may fail on new Ubuntu system Bram Moolenaar <Bram@vim.org> parents: 25398 diff changeset	1329 let result = substitute(result, '/usr/bin/cat', '/bin/cat', '')
01feec4a221d patch 8.2.3256: executable test may fail on new Ubuntu system Bram Moolenaar <Bram@vim.org> parents: 25398 diff changeset	1330 let catcmd = substitute(catcmd, 'usr/bin/cat', 'bin/cat', '')
23432 a8602bad9e9a patch 8.2.2259: Test_Executable() fails when using chroot Bram Moolenaar <Bram@vim.org> parents: 23380 diff changeset	1331 call assert_equal('/' .. catcmd, result)
a8602bad9e9a patch 8.2.2259: Test_Executable() fails when using chroot Bram Moolenaar <Bram@vim.org> parents: 23380 diff changeset	1332 endif
17484 f1fd0b0b335c patch 8.1.1740: exepath() doesn't work for "bin/cat" Bram Moolenaar <Bram@vim.org> parents: 17278 diff changeset	1333 bwipe
21765 08940efa6b4e patch 8.2.1432: various inconsistencies in test files Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1334 else
08940efa6b4e patch 8.2.1432: various inconsistencies in test files Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1335 throw 'Skipped: does not work on this platform'
14883 1c2ba2b0227e patch 8.1.0453: MS-Windows: executable() is not reliable Bram Moolenaar <Bram@vim.org> parents: 14669 diff changeset	1336 endif
1c2ba2b0227e patch 8.1.0453: MS-Windows: executable() is not reliable Bram Moolenaar <Bram@vim.org> parents: 14669 diff changeset	1337 endfunc
1c2ba2b0227e patch 8.1.0453: MS-Windows: executable() is not reliable Bram Moolenaar <Bram@vim.org> parents: 14669 diff changeset	1338
16180 1eaaa82ececf patch 8.1.1095: MS-Windows: executable() fails on very long filename Bram Moolenaar <Bram@vim.org> parents: 16144 diff changeset	1339 func Test_executable_longname()
21765 08940efa6b4e patch 8.2.1432: various inconsistencies in test files Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1340 CheckMSWindows
16180 1eaaa82ececf patch 8.1.1095: MS-Windows: executable() fails on very long filename Bram Moolenaar <Bram@vim.org> parents: 16144 diff changeset	1341
22977 515d1651c6c6 patch 8.2.2035: MS-Windows: some tests may fail Bram Moolenaar <Bram@vim.org> parents: 22568 diff changeset	1342 " Create a temporary .bat file with 205 characters in the name.
515d1651c6c6 patch 8.2.2035: MS-Windows: some tests may fail Bram Moolenaar <Bram@vim.org> parents: 22568 diff changeset	1343 " Maximum length of a filename (including the path) on MS-Windows is 259
515d1651c6c6 patch 8.2.2035: MS-Windows: some tests may fail Bram Moolenaar <Bram@vim.org> parents: 22568 diff changeset	1344 " characters.
515d1651c6c6 patch 8.2.2035: MS-Windows: some tests may fail Bram Moolenaar <Bram@vim.org> parents: 22568 diff changeset	1345 " See https://docs.microsoft.com/en-us/windows/win32/fileio/maximum-file-path-limitation
515d1651c6c6 patch 8.2.2035: MS-Windows: some tests may fail Bram Moolenaar <Bram@vim.org> parents: 22568 diff changeset	1346 let len = 259 - getcwd()->len() - 6
515d1651c6c6 patch 8.2.2035: MS-Windows: some tests may fail Bram Moolenaar <Bram@vim.org> parents: 22568 diff changeset	1347 if len > 200
515d1651c6c6 patch 8.2.2035: MS-Windows: some tests may fail Bram Moolenaar <Bram@vim.org> parents: 22568 diff changeset	1348 let len = 200
515d1651c6c6 patch 8.2.2035: MS-Windows: some tests may fail Bram Moolenaar <Bram@vim.org> parents: 22568 diff changeset	1349 endif
515d1651c6c6 patch 8.2.2035: MS-Windows: some tests may fail Bram Moolenaar <Bram@vim.org> parents: 22568 diff changeset	1350
515d1651c6c6 patch 8.2.2035: MS-Windows: some tests may fail Bram Moolenaar <Bram@vim.org> parents: 22568 diff changeset	1351 let fname = 'X' . repeat('あ', len) . '.bat'
16180 1eaaa82ececf patch 8.1.1095: MS-Windows: executable() fails on very long filename Bram Moolenaar <Bram@vim.org> parents: 16144 diff changeset	1352 call writefile([], fname)
1eaaa82ececf patch 8.1.1095: MS-Windows: executable() fails on very long filename Bram Moolenaar <Bram@vim.org> parents: 16144 diff changeset	1353 call assert_equal(1, executable(fname))
1eaaa82ececf patch 8.1.1095: MS-Windows: executable() fails on very long filename Bram Moolenaar <Bram@vim.org> parents: 16144 diff changeset	1354 call delete(fname)
1eaaa82ececf patch 8.1.1095: MS-Windows: executable() fails on very long filename Bram Moolenaar <Bram@vim.org> parents: 16144 diff changeset	1355 endfunc
1eaaa82ececf patch 8.1.1095: MS-Windows: executable() fails on very long filename Bram Moolenaar <Bram@vim.org> parents: 16144 diff changeset	1356
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1357 func Test_hostname()
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1358 let hostname_vim = hostname()
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1359 if has('unix')
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1360 let hostname_system = systemlist('uname -n')[0]
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1361 call assert_equal(hostname_vim, hostname_system)
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1362 endif
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1363 endfunc
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1364
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1365 func Test_getpid()
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1366 " getpid() always returns the same value within a vim instance.
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1367 call assert_equal(getpid(), getpid())
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1368 if has('unix')
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1369 call assert_equal(systemlist('echo $PPID')[0], string(getpid()))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1370 endif
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1371 endfunc
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1372
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1373 func Test_hlexists()
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1374 call assert_equal(0, hlexists('does_not_exist'))
17914 af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17871 diff changeset	1375 call assert_equal(0, 'Number'->hlexists())
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1376 call assert_equal(0, highlight_exists('does_not_exist'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1377 call assert_equal(0, highlight_exists('Number'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1378 syntax on
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1379 call assert_equal(0, hlexists('does_not_exist'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1380 call assert_equal(1, hlexists('Number'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1381 call assert_equal(0, highlight_exists('does_not_exist'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1382 call assert_equal(1, highlight_exists('Number'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1383 syntax off
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1384 endfunc
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1385
20158 94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	1386 " Test for the col() function
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1387 func Test_col()
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1388 new
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1389 call setline(1, 'abcdef')
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1390 norm gg4\|mx6\|mY2\|
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1391 call assert_equal(2, col('.'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1392 call assert_equal(7, col('$'))
19724 b3e93a05c3ca patch 8.2.0418: code in eval.c not sufficiently covered by tests Bram Moolenaar <Bram@vim.org> parents: 19689 diff changeset	1393 call assert_equal(2, col('v'))
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1394 call assert_equal(4, col("'x"))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1395 call assert_equal(6, col("'Y"))
17837 f71ee7b04f0b patch 8.1.1915: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	1396 call assert_equal(2, [1, 2]->col())
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1397 call assert_equal(7, col([1, '$']))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1398
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1399 call assert_equal(0, col(''))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1400 call assert_equal(0, col('x'))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1401 call assert_equal(0, col([2, '$']))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1402 call assert_equal(0, col([1, 100]))
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1403 call assert_equal(0, col([1]))
20156 49694eceaa55 patch 8.2.0633: crash when using null partial in filter() Bram Moolenaar <Bram@vim.org> parents: 20120 diff changeset	1404 call assert_equal(0, col(test_null_list()))
49694eceaa55 patch 8.2.0633: crash when using null partial in filter() Bram Moolenaar <Bram@vim.org> parents: 20120 diff changeset	1405 call assert_fails('let c = col({})', 'E731:')
19724 b3e93a05c3ca patch 8.2.0418: code in eval.c not sufficiently covered by tests Bram Moolenaar <Bram@vim.org> parents: 19689 diff changeset	1406
b3e93a05c3ca patch 8.2.0418: code in eval.c not sufficiently covered by tests Bram Moolenaar <Bram@vim.org> parents: 19689 diff changeset	1407 " test for getting the visual start column
b3e93a05c3ca patch 8.2.0418: code in eval.c not sufficiently covered by tests Bram Moolenaar <Bram@vim.org> parents: 19689 diff changeset	1408 func T()
b3e93a05c3ca patch 8.2.0418: code in eval.c not sufficiently covered by tests Bram Moolenaar <Bram@vim.org> parents: 19689 diff changeset	1409 let g:Vcol = col('v')
b3e93a05c3ca patch 8.2.0418: code in eval.c not sufficiently covered by tests Bram Moolenaar <Bram@vim.org> parents: 19689 diff changeset	1410 return ''
b3e93a05c3ca patch 8.2.0418: code in eval.c not sufficiently covered by tests Bram Moolenaar <Bram@vim.org> parents: 19689 diff changeset	1411 endfunc
b3e93a05c3ca patch 8.2.0418: code in eval.c not sufficiently covered by tests Bram Moolenaar <Bram@vim.org> parents: 19689 diff changeset	1412 let g:Vcol = 0
b3e93a05c3ca patch 8.2.0418: code in eval.c not sufficiently covered by tests Bram Moolenaar <Bram@vim.org> parents: 19689 diff changeset	1413 xmap <expr> <F2> T()
b3e93a05c3ca patch 8.2.0418: code in eval.c not sufficiently covered by tests Bram Moolenaar <Bram@vim.org> parents: 19689 diff changeset	1414 exe "normal gg3\|ve\<F2>"
b3e93a05c3ca patch 8.2.0418: code in eval.c not sufficiently covered by tests Bram Moolenaar <Bram@vim.org> parents: 19689 diff changeset	1415 call assert_equal(3, g:Vcol)
b3e93a05c3ca patch 8.2.0418: code in eval.c not sufficiently covered by tests Bram Moolenaar <Bram@vim.org> parents: 19689 diff changeset	1416 xunmap <F2>
b3e93a05c3ca patch 8.2.0418: code in eval.c not sufficiently covered by tests Bram Moolenaar <Bram@vim.org> parents: 19689 diff changeset	1417 delfunc T
b3e93a05c3ca patch 8.2.0418: code in eval.c not sufficiently covered by tests Bram Moolenaar <Bram@vim.org> parents: 19689 diff changeset	1418
19783 546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1419 " Test for the visual line start and end marks '< and '>
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1420 call setline(1, ['one', 'one two', 'one two three'])
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1421 "normal! ggVG
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1422 call feedkeys("ggVG\<Esc>", 'xt')
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1423 call assert_equal(1, col("'<"))
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1424 call assert_equal(14, col("'>"))
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1425 " Delete the last line of the visually selected region
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1426 $d
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1427 call assert_notequal(14, col("'>"))
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1428
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1429 " Test with 'virtualedit'
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1430 set virtualedit=all
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1431 call cursor(1, 10)
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1432 call assert_equal(4, col('.'))
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1433 set virtualedit&
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1434
11095 5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1435 bw!
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1436 endfunc
5763281d212a patch 8.0.0435: some functions are not tested Christian Brabandt <cb@256bit.org> parents: 11024 diff changeset	1437
19517 738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage Bram Moolenaar <Bram@vim.org> parents: 19400 diff changeset	1438 " Test for input()
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage Bram Moolenaar <Bram@vim.org> parents: 19400 diff changeset	1439 func Test_input_func()
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage Bram Moolenaar <Bram@vim.org> parents: 19400 diff changeset	1440 " Test for prompt with multiple lines
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage Bram Moolenaar <Bram@vim.org> parents: 19400 diff changeset	1441 redir => v
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage Bram Moolenaar <Bram@vim.org> parents: 19400 diff changeset	1442 call feedkeys(":let c = input(\"A\\nB\\nC\\n? \")\<CR>B\<CR>", 'xt')
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage Bram Moolenaar <Bram@vim.org> parents: 19400 diff changeset	1443 redir END
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage Bram Moolenaar <Bram@vim.org> parents: 19400 diff changeset	1444 call assert_equal("B", c)
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage Bram Moolenaar <Bram@vim.org> parents: 19400 diff changeset	1445 call assert_equal(['A', 'B', 'C'], split(v, "\n"))
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage Bram Moolenaar <Bram@vim.org> parents: 19400 diff changeset	1446
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage Bram Moolenaar <Bram@vim.org> parents: 19400 diff changeset	1447 " Test for default value
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage Bram Moolenaar <Bram@vim.org> parents: 19400 diff changeset	1448 call feedkeys(":let c = input('color? ', 'red')\<CR>\<CR>", 'xt')
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage Bram Moolenaar <Bram@vim.org> parents: 19400 diff changeset	1449 call assert_equal('red', c)
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage Bram Moolenaar <Bram@vim.org> parents: 19400 diff changeset	1450
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage Bram Moolenaar <Bram@vim.org> parents: 19400 diff changeset	1451 " Test for completion at the input prompt
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage Bram Moolenaar <Bram@vim.org> parents: 19400 diff changeset	1452 func! Tcomplete(arglead, cmdline, pos)
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage Bram Moolenaar <Bram@vim.org> parents: 19400 diff changeset	1453 return "item1\nitem2\nitem3"
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage Bram Moolenaar <Bram@vim.org> parents: 19400 diff changeset	1454 endfunc
21552 cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list Bram Moolenaar <Bram@vim.org> parents: 21265 diff changeset	1455 call feedkeys(":let c = input('Q? ', '', 'custom,Tcomplete')\<CR>"
19517 738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage Bram Moolenaar <Bram@vim.org> parents: 19400 diff changeset	1456 \ .. "\<C-A>\<CR>", 'xt')
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage Bram Moolenaar <Bram@vim.org> parents: 19400 diff changeset	1457 delfunc Tcomplete
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage Bram Moolenaar <Bram@vim.org> parents: 19400 diff changeset	1458 call assert_equal('item1 item2 item3', c)
19536 bab20768e1fd patch 8.2.0325: ex_getln.c code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 19517 diff changeset	1459
24134 72e9b861bc92 patch 8.2.2608: character input not fully tested Bram Moolenaar <Bram@vim.org> parents: 23849 diff changeset	1460 " Test for using special characters as default input
24204 ec71c859e94c patch 8.2.2643: various code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 24134 diff changeset	1461 call feedkeys(":let c = input('name? ', \"x\\<BS>y\")\<CR>\<CR>", 'xt')
24134 72e9b861bc92 patch 8.2.2608: character input not fully tested Bram Moolenaar <Bram@vim.org> parents: 23849 diff changeset	1462 call assert_equal('y', c)
72e9b861bc92 patch 8.2.2608: character input not fully tested Bram Moolenaar <Bram@vim.org> parents: 23849 diff changeset	1463
72e9b861bc92 patch 8.2.2608: character input not fully tested Bram Moolenaar <Bram@vim.org> parents: 23849 diff changeset	1464 " Test for using <CR> as default input
72e9b861bc92 patch 8.2.2608: character input not fully tested Bram Moolenaar <Bram@vim.org> parents: 23849 diff changeset	1465 call feedkeys(":let c = input('name? ', \"\\<CR>\")\<CR>x\<CR>", 'xt')
72e9b861bc92 patch 8.2.2608: character input not fully tested Bram Moolenaar <Bram@vim.org> parents: 23849 diff changeset	1466 call assert_equal(' x', c)
72e9b861bc92 patch 8.2.2608: character input not fully tested Bram Moolenaar <Bram@vim.org> parents: 23849 diff changeset	1467
19536 bab20768e1fd patch 8.2.0325: ex_getln.c code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 19517 diff changeset	1468 call assert_fails("call input('F:', '', 'invalid')", 'E180:')
bab20768e1fd patch 8.2.0325: ex_getln.c code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 19517 diff changeset	1469 call assert_fails("call input('F:', '', [])", 'E730:')
bab20768e1fd patch 8.2.0325: ex_getln.c code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 19517 diff changeset	1470 endfunc
bab20768e1fd patch 8.2.0325: ex_getln.c code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 19517 diff changeset	1471
bab20768e1fd patch 8.2.0325: ex_getln.c code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 19517 diff changeset	1472 " Test for the inputdialog() function
bab20768e1fd patch 8.2.0325: ex_getln.c code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 19517 diff changeset	1473 func Test_inputdialog()
20867 9c24319b4cb2 patch 8.2.0985: simplify() does not remove slashes from "///path" Bram Moolenaar <Bram@vim.org> parents: 20794 diff changeset	1474 set timeout timeoutlen=10
20178 2fb397573541 patch 8.2.0644: insufficient testing for invalid function arguments Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1475 if has('gui_running')
2fb397573541 patch 8.2.0644: insufficient testing for invalid function arguments Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1476 call assert_fails('let v=inputdialog([], "xx")', 'E730:')
2fb397573541 patch 8.2.0644: insufficient testing for invalid function arguments Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1477 call assert_fails('let v=inputdialog("Q", [])', 'E730:')
2fb397573541 patch 8.2.0644: insufficient testing for invalid function arguments Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1478 else
2fb397573541 patch 8.2.0644: insufficient testing for invalid function arguments Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1479 call feedkeys(":let v=inputdialog('Q:', 'xx', 'yy')\<CR>\<CR>", 'xt')
2fb397573541 patch 8.2.0644: insufficient testing for invalid function arguments Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1480 call assert_equal('xx', v)
2fb397573541 patch 8.2.0644: insufficient testing for invalid function arguments Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1481 call feedkeys(":let v=inputdialog('Q:', 'xx', 'yy')\<CR>\<Esc>", 'xt')
2fb397573541 patch 8.2.0644: insufficient testing for invalid function arguments Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1482 call assert_equal('yy', v)
2fb397573541 patch 8.2.0644: insufficient testing for invalid function arguments Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1483 endif
20867 9c24319b4cb2 patch 8.2.0985: simplify() does not remove slashes from "///path" Bram Moolenaar <Bram@vim.org> parents: 20794 diff changeset	1484 set timeout& timeoutlen&
19517 738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage Bram Moolenaar <Bram@vim.org> parents: 19400 diff changeset	1485 endfunc
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage Bram Moolenaar <Bram@vim.org> parents: 19400 diff changeset	1486
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage Bram Moolenaar <Bram@vim.org> parents: 19400 diff changeset	1487 " Test for inputlist()
14379 0f1446193ded patch 8.1.0204: inputlist() is not tested Christian Brabandt <cb@256bit.org> parents: 14348 diff changeset	1488 func Test_inputlist()
0f1446193ded patch 8.1.0204: inputlist() is not tested Christian Brabandt <cb@256bit.org> parents: 14348 diff changeset	1489 call feedkeys(":let c = inputlist(['Select color:', '1. red', '2. green', '3. blue'])\<cr>1\<cr>", 'tx')
0f1446193ded patch 8.1.0204: inputlist() is not tested Christian Brabandt <cb@256bit.org> parents: 14348 diff changeset	1490 call assert_equal(1, c)
17914 af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17871 diff changeset	1491 call feedkeys(":let c = ['Select color:', '1. red', '2. green', '3. blue']->inputlist()\<cr>2\<cr>", 'tx')
14379 0f1446193ded patch 8.1.0204: inputlist() is not tested Christian Brabandt <cb@256bit.org> parents: 14348 diff changeset	1492 call assert_equal(2, c)
0f1446193ded patch 8.1.0204: inputlist() is not tested Christian Brabandt <cb@256bit.org> parents: 14348 diff changeset	1493 call feedkeys(":let c = inputlist(['Select color:', '1. red', '2. green', '3. blue'])\<cr>3\<cr>", 'tx')
0f1446193ded patch 8.1.0204: inputlist() is not tested Christian Brabandt <cb@256bit.org> parents: 14348 diff changeset	1494 call assert_equal(3, c)
0f1446193ded patch 8.1.0204: inputlist() is not tested Christian Brabandt <cb@256bit.org> parents: 14348 diff changeset	1495
20788 072ad890c227 patch 8.2.0946: cannot use "q" to cancel a number prompt Bram Moolenaar <Bram@vim.org> parents: 20669 diff changeset	1496 " CR to cancel
072ad890c227 patch 8.2.0946: cannot use "q" to cancel a number prompt Bram Moolenaar <Bram@vim.org> parents: 20669 diff changeset	1497 call feedkeys(":let c = inputlist(['Select color:', '1. red', '2. green', '3. blue'])\<cr>\<cr>", 'tx')
072ad890c227 patch 8.2.0946: cannot use "q" to cancel a number prompt Bram Moolenaar <Bram@vim.org> parents: 20669 diff changeset	1498 call assert_equal(0, c)
072ad890c227 patch 8.2.0946: cannot use "q" to cancel a number prompt Bram Moolenaar <Bram@vim.org> parents: 20669 diff changeset	1499
072ad890c227 patch 8.2.0946: cannot use "q" to cancel a number prompt Bram Moolenaar <Bram@vim.org> parents: 20669 diff changeset	1500 " Esc to cancel
072ad890c227 patch 8.2.0946: cannot use "q" to cancel a number prompt Bram Moolenaar <Bram@vim.org> parents: 20669 diff changeset	1501 call feedkeys(":let c = inputlist(['Select color:', '1. red', '2. green', '3. blue'])\<cr>\<Esc>", 'tx')
072ad890c227 patch 8.2.0946: cannot use "q" to cancel a number prompt Bram Moolenaar <Bram@vim.org> parents: 20669 diff changeset	1502 call assert_equal(0, c)
072ad890c227 patch 8.2.0946: cannot use "q" to cancel a number prompt Bram Moolenaar <Bram@vim.org> parents: 20669 diff changeset	1503
072ad890c227 patch 8.2.0946: cannot use "q" to cancel a number prompt Bram Moolenaar <Bram@vim.org> parents: 20669 diff changeset	1504 " q to cancel
072ad890c227 patch 8.2.0946: cannot use "q" to cancel a number prompt Bram Moolenaar <Bram@vim.org> parents: 20669 diff changeset	1505 call feedkeys(":let c = inputlist(['Select color:', '1. red', '2. green', '3. blue'])\<cr>q", 'tx')
072ad890c227 patch 8.2.0946: cannot use "q" to cancel a number prompt Bram Moolenaar <Bram@vim.org> parents: 20669 diff changeset	1506 call assert_equal(0, c)
072ad890c227 patch 8.2.0946: cannot use "q" to cancel a number prompt Bram Moolenaar <Bram@vim.org> parents: 20669 diff changeset	1507
24673 53fd6370e4fd patch 8.2.2875: cancelling inputlist() after a digit does not return zero Bram Moolenaar <Bram@vim.org> parents: 24669 diff changeset	1508 " Cancel after inputting a number
53fd6370e4fd patch 8.2.2875: cancelling inputlist() after a digit does not return zero Bram Moolenaar <Bram@vim.org> parents: 24669 diff changeset	1509 call feedkeys(":let c = inputlist(['Select color:', '1. red', '2. green', '3. blue'])\<cr>5q", 'tx')
53fd6370e4fd patch 8.2.2875: cancelling inputlist() after a digit does not return zero Bram Moolenaar <Bram@vim.org> parents: 24669 diff changeset	1510 call assert_equal(0, c)
53fd6370e4fd patch 8.2.2875: cancelling inputlist() after a digit does not return zero Bram Moolenaar <Bram@vim.org> parents: 24669 diff changeset	1511
19906 031184ace7c5 patch 8.2.0509: various code is not properly tested. Bram Moolenaar <Bram@vim.org> parents: 19902 diff changeset	1512 " Use backspace to delete characters in the prompt
031184ace7c5 patch 8.2.0509: various code is not properly tested. Bram Moolenaar <Bram@vim.org> parents: 19902 diff changeset	1513 call feedkeys(":let c = inputlist(['Select color:', '1. red', '2. green', '3. blue'])\<cr>1\<BS>3\<BS>2\<cr>", 'tx')
031184ace7c5 patch 8.2.0509: various code is not properly tested. Bram Moolenaar <Bram@vim.org> parents: 19902 diff changeset	1514 call assert_equal(2, c)
031184ace7c5 patch 8.2.0509: various code is not properly tested. Bram Moolenaar <Bram@vim.org> parents: 19902 diff changeset	1515
031184ace7c5 patch 8.2.0509: various code is not properly tested. Bram Moolenaar <Bram@vim.org> parents: 19902 diff changeset	1516 " Use mouse to make a selection
031184ace7c5 patch 8.2.0509: various code is not properly tested. Bram Moolenaar <Bram@vim.org> parents: 19902 diff changeset	1517 call test_setmouse(&lines - 3, 2)
031184ace7c5 patch 8.2.0509: various code is not properly tested. Bram Moolenaar <Bram@vim.org> parents: 19902 diff changeset	1518 call feedkeys(":let c = inputlist(['Select color:', '1. red', '2. green', '3. blue'])\<cr>\<LeftMouse>", 'tx')
031184ace7c5 patch 8.2.0509: various code is not properly tested. Bram Moolenaar <Bram@vim.org> parents: 19902 diff changeset	1519 call assert_equal(1, c)
031184ace7c5 patch 8.2.0509: various code is not properly tested. Bram Moolenaar <Bram@vim.org> parents: 19902 diff changeset	1520 " Mouse click outside of the list
031184ace7c5 patch 8.2.0509: various code is not properly tested. Bram Moolenaar <Bram@vim.org> parents: 19902 diff changeset	1521 call test_setmouse(&lines - 6, 2)
031184ace7c5 patch 8.2.0509: various code is not properly tested. Bram Moolenaar <Bram@vim.org> parents: 19902 diff changeset	1522 call feedkeys(":let c = inputlist(['Select color:', '1. red', '2. green', '3. blue'])\<cr>\<LeftMouse>", 'tx')
031184ace7c5 patch 8.2.0509: various code is not properly tested. Bram Moolenaar <Bram@vim.org> parents: 19902 diff changeset	1523 call assert_equal(-2, c)
031184ace7c5 patch 8.2.0509: various code is not properly tested. Bram Moolenaar <Bram@vim.org> parents: 19902 diff changeset	1524
14379 0f1446193ded patch 8.1.0204: inputlist() is not tested Christian Brabandt <cb@256bit.org> parents: 14348 diff changeset	1525 call assert_fails('call inputlist("")', 'E686:')
20158 94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	1526 call assert_fails('call inputlist(test_null_list())', 'E686:')
14379 0f1446193ded patch 8.1.0204: inputlist() is not tested Christian Brabandt <cb@256bit.org> parents: 14348 diff changeset	1527 endfunc
0f1446193ded patch 8.1.0204: inputlist() is not tested Christian Brabandt <cb@256bit.org> parents: 14348 diff changeset	1528
11020 50f3e37bc210 patch 8.0.0399: crash when using balloon_show() when not supported Christian Brabandt <cb@256bit.org> parents: 10891 diff changeset	1529 func Test_balloon_show()
21765 08940efa6b4e patch 8.2.1432: various inconsistencies in test files Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1530 CheckFeature balloon_eval
24448 faac16c365b6 patch 8.2.2764: memory leak when default function argument is allocated Bram Moolenaar <Bram@vim.org> parents: 24204 diff changeset	1531
21765 08940efa6b4e patch 8.2.1432: various inconsistencies in test files Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1532 " This won't do anything but must not crash either.
08940efa6b4e patch 8.2.1432: various inconsistencies in test files Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1533 call balloon_show('hi!')
08940efa6b4e patch 8.2.1432: various inconsistencies in test files Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1534 if !has('gui_running')
08940efa6b4e patch 8.2.1432: various inconsistencies in test files Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1535 call balloon_show(range(3))
08940efa6b4e patch 8.2.1432: various inconsistencies in test files Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1536 call balloon_show([])
11024 973fa964cb91 patch 8.0.0401: test fails with missing balloon feature Christian Brabandt <cb@256bit.org> parents: 11020 diff changeset	1537 endif
11020 50f3e37bc210 patch 8.0.0399: crash when using balloon_show() when not supported Christian Brabandt <cb@256bit.org> parents: 10891 diff changeset	1538 endfunc
11191 445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1539
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1540 func Test_setbufvar_options()
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1541 " This tests that aucmd_prepbuf() and aucmd_restbuf() properly restore the
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1542 " window layout.
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1543 call assert_equal(1, winnr('$'))
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1544 split dummy_preview
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1545 resize 2
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1546 set winfixheight winfixwidth
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1547 let prev_id = win_getid()
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1548
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1549 wincmd j
22083 c67a9d3b3683 patch 8.2.1591: using winheight('.') in tests works but is wrong Bram Moolenaar <Bram@vim.org> parents: 21973 diff changeset	1550 let wh = winheight(0)
11191 445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1551 let dummy_buf = bufnr('dummy_buf1', v:true)
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1552 call setbufvar(dummy_buf, '&buftype', 'nofile')
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1553 execute 'belowright vertical split #' . dummy_buf
22083 c67a9d3b3683 patch 8.2.1591: using winheight('.') in tests works but is wrong Bram Moolenaar <Bram@vim.org> parents: 21973 diff changeset	1554 call assert_equal(wh, winheight(0))
11191 445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1555 let dum1_id = win_getid()
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1556
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1557 wincmd h
22083 c67a9d3b3683 patch 8.2.1591: using winheight('.') in tests works but is wrong Bram Moolenaar <Bram@vim.org> parents: 21973 diff changeset	1558 let wh = winheight(0)
11191 445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1559 let dummy_buf = bufnr('dummy_buf2', v:true)
17994 0dcc2ee838dd patch 8.1.1993: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17982 diff changeset	1560 eval 'nofile'->setbufvar(dummy_buf, '&buftype')
11191 445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1561 execute 'belowright vertical split #' . dummy_buf
22083 c67a9d3b3683 patch 8.2.1591: using winheight('.') in tests works but is wrong Bram Moolenaar <Bram@vim.org> parents: 21973 diff changeset	1562 call assert_equal(wh, winheight(0))
11191 445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1563
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1564 bwipe!
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1565 call win_gotoid(prev_id)
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1566 bwipe!
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1567 call win_gotoid(dum1_id)
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1568 bwipe!
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout Christian Brabandt <cb@256bit.org> parents: 11135 diff changeset	1569 endfunc
11325 77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1570
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1571 func Test_redo_in_nested_functions()
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1572 nnoremap g. :set opfunc=Operator<CR>g@
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1573 function Operator( type, ... )
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1574 let @x = 'XXX'
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1575 execute 'normal! g`[' . (a:type ==# 'line' ? 'V' : 'v') . 'g`]' . '"xp'
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1576 endfunction
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1577
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1578 function! Apply()
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1579 5,6normal! .
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1580 endfunction
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1581
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1582 new
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1583 call setline(1, repeat(['some "quoted" text', 'more "quoted" text'], 3))
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1584 1normal g.i"
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1585 call assert_equal('some "XXX" text', getline(1))
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1586 3,4normal .
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1587 call assert_equal('some "XXX" text', getline(3))
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1588 call assert_equal('more "XXX" text', getline(4))
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1589 call Apply()
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1590 call assert_equal('some "XXX" text', getline(5))
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1591 call assert_equal('more "XXX" text', getline(6))
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1592 bwipe!
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1593
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1594 nunmap g.
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1595 delfunc Operator
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1596 delfunc Apply
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time Christian Brabandt <cb@256bit.org> parents: 11197 diff changeset	1597 endfunc
11484 3933a3bf9385 patch 8.0.0625: shellescape() always escapes a newline Christian Brabandt <cb@256bit.org> parents: 11325 diff changeset	1598
13513 4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13092 diff changeset	1599 func Test_trim()
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13092 diff changeset	1600 call assert_equal("Testing", trim(" \t\r\r\x0BTesting \t\n\r\n\t\x0B\x0B"))
18035 11dca9732a48 patch 8.1.2013: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 18017 diff changeset	1601 call assert_equal("Testing", " \t \r\r\n\n\x0BTesting \t\n\r\n\t\x0B\x0B"->trim())
13513 4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13092 diff changeset	1602 call assert_equal("RESERVE", trim("xyz \twwRESERVEzyww \t\t", " wxyz\t"))
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13092 diff changeset	1603 call assert_equal("wRE \tSERVEzyww", trim("wRE \tSERVEzyww"))
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13092 diff changeset	1604 call assert_equal("abcd\t xxxx tail", trim(" \tabcd\t xxxx tail"))
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13092 diff changeset	1605 call assert_equal("\tabcd\t xxxx tail", trim(" \tabcd\t xxxx tail", " "))
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13092 diff changeset	1606 call assert_equal(" \tabcd\t xxxx tail", trim(" \tabcd\t xxxx tail", "abx"))
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13092 diff changeset	1607 call assert_equal("RESERVE", trim("你RESERVE好", "你好"))
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13092 diff changeset	1608 call assert_equal("您R E SER V E早", trim("你好您R E SER V E早好你你", "你好"))
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13092 diff changeset	1609 call assert_equal("你好您R E SER V E早好你你", trim(" \n\r\r 你好您R E SER V E早好你你 \t \x0B", ))
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13092 diff changeset	1610 call assert_equal("您R E SER V E早好你你 \t \x0B", trim(" 你好您R E SER V E早好你你 \t \x0B", " 你好"))
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13092 diff changeset	1611 call assert_equal("您R E SER V E早好你你 \t \x0B", trim(" tteesstttt你好您R E SER V E早好你你 \t \x0B ttestt", " 你好tes"))
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13092 diff changeset	1612 call assert_equal("您R E SER V E早好你你 \t \x0B", trim(" tteesstttt你好您R E SER V E早好你你 \t \x0B ttestt", " 你你你好好好tttsses"))
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13092 diff changeset	1613 call assert_equal("留下", trim("这些些不要这些留下这些", "这些不要"))
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13092 diff changeset	1614 call assert_equal("", trim("", ""))
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13092 diff changeset	1615 call assert_equal("a", trim("a", ""))
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13092 diff changeset	1616 call assert_equal("", trim("", "a"))
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13092 diff changeset	1617
20629 7b8ac5e49451 patch 8.2.0868: trim() always trims both ends Bram Moolenaar <Bram@vim.org> parents: 20593 diff changeset	1618 call assert_equal("vim", trim(" vim ", " ", 0))
7b8ac5e49451 patch 8.2.0868: trim() always trims both ends Bram Moolenaar <Bram@vim.org> parents: 20593 diff changeset	1619 call assert_equal("vim ", trim(" vim ", " ", 1))
7b8ac5e49451 patch 8.2.0868: trim() always trims both ends Bram Moolenaar <Bram@vim.org> parents: 20593 diff changeset	1620 call assert_equal(" vim", trim(" vim ", " ", 2))
7b8ac5e49451 patch 8.2.0868: trim() always trims both ends Bram Moolenaar <Bram@vim.org> parents: 20593 diff changeset	1621 call assert_fails('eval trim(" vim ", " ", [])', 'E745:')
7b8ac5e49451 patch 8.2.0868: trim() always trims both ends Bram Moolenaar <Bram@vim.org> parents: 20593 diff changeset	1622 call assert_fails('eval trim(" vim ", " ", -1)', 'E475:')
7b8ac5e49451 patch 8.2.0868: trim() always trims both ends Bram Moolenaar <Bram@vim.org> parents: 20593 diff changeset	1623 call assert_fails('eval trim(" vim ", " ", 3)', 'E475:')
7b8ac5e49451 patch 8.2.0868: trim() always trims both ends Bram Moolenaar <Bram@vim.org> parents: 20593 diff changeset	1624
17976 6d11a0d5751d patch 8.1.1984: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17952 diff changeset	1625 let chars = join(map(range(1, 0x20) + [0xa0], {n -> n->nr2char()}), '')
13513 4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13092 diff changeset	1626 call assert_equal("x", trim(chars . "x" . chars))
19783 546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1627
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	1628 call assert_fails('let c=trim([])', 'E730:')
13513 4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13092 diff changeset	1629 endfunc
14004 e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13980 diff changeset	1630
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13980 diff changeset	1631 " Test for reg_recording() and reg_executing()
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13980 diff changeset	1632 func Test_reg_executing_and_recording()
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13980 diff changeset	1633 let s:reg_stat = ''
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13980 diff changeset	1634 func s:save_reg_stat()
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13980 diff changeset	1635 let s:reg_stat = reg_recording() . ':' . reg_executing()
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13980 diff changeset	1636 return ''
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13980 diff changeset	1637 endfunc
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13980 diff changeset	1638
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13980 diff changeset	1639 new
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13980 diff changeset	1640 call s:save_reg_stat()
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13980 diff changeset	1641 call assert_equal(':', s:reg_stat)
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13980 diff changeset	1642 call feedkeys("qa\"=s:save_reg_stat()\<CR>pq", 'xt')
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13980 diff changeset	1643 call assert_equal('a:', s:reg_stat)
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13980 diff changeset	1644 call feedkeys("@a", 'xt')
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13980 diff changeset	1645 call assert_equal(':a', s:reg_stat)
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13980 diff changeset	1646 call feedkeys("qb@aq", 'xt')
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13980 diff changeset	1647 call assert_equal('b:a', s:reg_stat)
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13980 diff changeset	1648 call feedkeys("q\"\"=s:save_reg_stat()\<CR>pq", 'xt')
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13980 diff changeset	1649 call assert_equal('":', s:reg_stat)
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13980 diff changeset	1650
15973 393a9a3a2da2 patch 8.1.0992: a :normal command resets the reg_executing() result Bram Moolenaar <Bram@vim.org> parents: 15774 diff changeset	1651 " :normal command saves and restores reg_executing
15979 72987a858c96 patch 8.1.0995: a getchar() call resets the reg_executing() result Bram Moolenaar <Bram@vim.org> parents: 15973 diff changeset	1652 let s:reg_stat = ''
15973 393a9a3a2da2 patch 8.1.0992: a :normal command resets the reg_executing() result Bram Moolenaar <Bram@vim.org> parents: 15774 diff changeset	1653 let @q = ":call TestFunc()\<CR>:call s:save_reg_stat()\<CR>"
393a9a3a2da2 patch 8.1.0992: a :normal command resets the reg_executing() result Bram Moolenaar <Bram@vim.org> parents: 15774 diff changeset	1654 func TestFunc() abort
393a9a3a2da2 patch 8.1.0992: a :normal command resets the reg_executing() result Bram Moolenaar <Bram@vim.org> parents: 15774 diff changeset	1655 normal! ia
393a9a3a2da2 patch 8.1.0992: a :normal command resets the reg_executing() result Bram Moolenaar <Bram@vim.org> parents: 15774 diff changeset	1656 endfunc
393a9a3a2da2 patch 8.1.0992: a :normal command resets the reg_executing() result Bram Moolenaar <Bram@vim.org> parents: 15774 diff changeset	1657 call feedkeys("@q", 'xt')
393a9a3a2da2 patch 8.1.0992: a :normal command resets the reg_executing() result Bram Moolenaar <Bram@vim.org> parents: 15774 diff changeset	1658 call assert_equal(':q', s:reg_stat)
393a9a3a2da2 patch 8.1.0992: a :normal command resets the reg_executing() result Bram Moolenaar <Bram@vim.org> parents: 15774 diff changeset	1659 delfunc TestFunc
393a9a3a2da2 patch 8.1.0992: a :normal command resets the reg_executing() result Bram Moolenaar <Bram@vim.org> parents: 15774 diff changeset	1660
15979 72987a858c96 patch 8.1.0995: a getchar() call resets the reg_executing() result Bram Moolenaar <Bram@vim.org> parents: 15973 diff changeset	1661 " getchar() command saves and restores reg_executing
72987a858c96 patch 8.1.0995: a getchar() call resets the reg_executing() result Bram Moolenaar <Bram@vim.org> parents: 15973 diff changeset	1662 map W :call TestFunc()<CR>
72987a858c96 patch 8.1.0995: a getchar() call resets the reg_executing() result Bram Moolenaar <Bram@vim.org> parents: 15973 diff changeset	1663 let @q = "W"
16144 4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input() Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	1664 let g:typed = ''
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input() Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	1665 let g:regs = []
15979 72987a858c96 patch 8.1.0995: a getchar() call resets the reg_executing() result Bram Moolenaar <Bram@vim.org> parents: 15973 diff changeset	1666 func TestFunc() abort
16144 4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input() Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	1667 let g:regs += [reg_executing()]
15979 72987a858c96 patch 8.1.0995: a getchar() call resets the reg_executing() result Bram Moolenaar <Bram@vim.org> parents: 15973 diff changeset	1668 let g:typed = getchar(0)
16144 4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input() Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	1669 let g:regs += [reg_executing()]
15979 72987a858c96 patch 8.1.0995: a getchar() call resets the reg_executing() result Bram Moolenaar <Bram@vim.org> parents: 15973 diff changeset	1670 endfunc
72987a858c96 patch 8.1.0995: a getchar() call resets the reg_executing() result Bram Moolenaar <Bram@vim.org> parents: 15973 diff changeset	1671 call feedkeys("@qy", 'xt')
72987a858c96 patch 8.1.0995: a getchar() call resets the reg_executing() result Bram Moolenaar <Bram@vim.org> parents: 15973 diff changeset	1672 call assert_equal(char2nr("y"), g:typed)
16144 4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input() Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	1673 call assert_equal(['q', 'q'], g:regs)
15979 72987a858c96 patch 8.1.0995: a getchar() call resets the reg_executing() result Bram Moolenaar <Bram@vim.org> parents: 15973 diff changeset	1674 delfunc TestFunc
72987a858c96 patch 8.1.0995: a getchar() call resets the reg_executing() result Bram Moolenaar <Bram@vim.org> parents: 15973 diff changeset	1675 unmap W
72987a858c96 patch 8.1.0995: a getchar() call resets the reg_executing() result Bram Moolenaar <Bram@vim.org> parents: 15973 diff changeset	1676 unlet g:typed
16144 4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input() Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	1677 unlet g:regs
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input() Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	1678
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input() Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	1679 " input() command saves and restores reg_executing
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input() Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	1680 map W :call TestFunc()<CR>
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input() Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	1681 let @q = "W"
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input() Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	1682 let g:typed = ''
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input() Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	1683 let g:regs = []
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input() Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	1684 func TestFunc() abort
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input() Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	1685 let g:regs += [reg_executing()]
17914 af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17871 diff changeset	1686 let g:typed = '?'->input()
16144 4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input() Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	1687 let g:regs += [reg_executing()]
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input() Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	1688 endfunc
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input() Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	1689 call feedkeys("@qy\<CR>", 'xt')
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input() Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	1690 call assert_equal("y", g:typed)
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input() Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	1691 call assert_equal(['q', 'q'], g:regs)
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input() Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	1692 delfunc TestFunc
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input() Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	1693 unmap W
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input() Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	1694 unlet g:typed
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input() Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	1695 unlet g:regs
15979 72987a858c96 patch 8.1.0995: a getchar() call resets the reg_executing() result Bram Moolenaar <Bram@vim.org> parents: 15973 diff changeset	1696
14004 e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13980 diff changeset	1697 bwipe!
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13980 diff changeset	1698 delfunc s:save_reg_stat
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13980 diff changeset	1699 unlet s:reg_stat
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13980 diff changeset	1700 endfunc
14137 0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr() Christian Brabandt <cb@256bit.org> parents: 14004 diff changeset	1701
17914 af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17871 diff changeset	1702 func Test_inputsecret()
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17871 diff changeset	1703 map W :call TestFunc()<CR>
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17871 diff changeset	1704 let @q = "W"
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17871 diff changeset	1705 let g:typed1 = ''
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17871 diff changeset	1706 let g:typed2 = ''
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17871 diff changeset	1707 let g:regs = []
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17871 diff changeset	1708 func TestFunc() abort
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17871 diff changeset	1709 let g:typed1 = '?'->inputsecret()
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17871 diff changeset	1710 let g:typed2 = inputsecret('password: ')
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17871 diff changeset	1711 endfunc
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17871 diff changeset	1712 call feedkeys("@qsomething\<CR>else\<CR>", 'xt')
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17871 diff changeset	1713 call assert_equal("something", g:typed1)
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17871 diff changeset	1714 call assert_equal("else", g:typed2)
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17871 diff changeset	1715 delfunc TestFunc
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17871 diff changeset	1716 unmap W
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17871 diff changeset	1717 unlet g:typed1
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17871 diff changeset	1718 unlet g:typed2
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17871 diff changeset	1719 endfunc
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17871 diff changeset	1720
17952 4754339d9aee patch 8.1.1972: no proper test for getchar() Bram Moolenaar <Bram@vim.org> parents: 17944 diff changeset	1721 func Test_getchar()
4754339d9aee patch 8.1.1972: no proper test for getchar() Bram Moolenaar <Bram@vim.org> parents: 17944 diff changeset	1722 call feedkeys('a', '')
4754339d9aee patch 8.1.1972: no proper test for getchar() Bram Moolenaar <Bram@vim.org> parents: 17944 diff changeset	1723 call assert_equal(char2nr('a'), getchar())
24838 3f9053c21765 patch 8.2.2957: using getchar() in Vim9 script is problematic Bram Moolenaar <Bram@vim.org> parents: 24822 diff changeset	1724 call assert_equal(0, getchar(0))
3f9053c21765 patch 8.2.2957: using getchar() in Vim9 script is problematic Bram Moolenaar <Bram@vim.org> parents: 24822 diff changeset	1725 call assert_equal(0, getchar(1))
3f9053c21765 patch 8.2.2957: using getchar() in Vim9 script is problematic Bram Moolenaar <Bram@vim.org> parents: 24822 diff changeset	1726
3f9053c21765 patch 8.2.2957: using getchar() in Vim9 script is problematic Bram Moolenaar <Bram@vim.org> parents: 24822 diff changeset	1727 call feedkeys('a', '')
3f9053c21765 patch 8.2.2957: using getchar() in Vim9 script is problematic Bram Moolenaar <Bram@vim.org> parents: 24822 diff changeset	1728 call assert_equal('a', getcharstr())
3f9053c21765 patch 8.2.2957: using getchar() in Vim9 script is problematic Bram Moolenaar <Bram@vim.org> parents: 24822 diff changeset	1729 call assert_equal('', getcharstr(0))
3f9053c21765 patch 8.2.2957: using getchar() in Vim9 script is problematic Bram Moolenaar <Bram@vim.org> parents: 24822 diff changeset	1730 call assert_equal('', getcharstr(1))
17952 4754339d9aee patch 8.1.1972: no proper test for getchar() Bram Moolenaar <Bram@vim.org> parents: 17944 diff changeset	1731
18623 3089b422b9dc patch 8.1.2304: cannot get the mouse position when getting a mouse click Bram Moolenaar <Bram@vim.org> parents: 18209 diff changeset	1732 call setline(1, 'xxxx')
17952 4754339d9aee patch 8.1.1972: no proper test for getchar() Bram Moolenaar <Bram@vim.org> parents: 17944 diff changeset	1733 call test_setmouse(1, 3)
4754339d9aee patch 8.1.1972: no proper test for getchar() Bram Moolenaar <Bram@vim.org> parents: 17944 diff changeset	1734 let v:mouse_win = 9
4754339d9aee patch 8.1.1972: no proper test for getchar() Bram Moolenaar <Bram@vim.org> parents: 17944 diff changeset	1735 let v:mouse_winid = 9
4754339d9aee patch 8.1.1972: no proper test for getchar() Bram Moolenaar <Bram@vim.org> parents: 17944 diff changeset	1736 let v:mouse_lnum = 9
4754339d9aee patch 8.1.1972: no proper test for getchar() Bram Moolenaar <Bram@vim.org> parents: 17944 diff changeset	1737 let v:mouse_col = 9
4754339d9aee patch 8.1.1972: no proper test for getchar() Bram Moolenaar <Bram@vim.org> parents: 17944 diff changeset	1738 call feedkeys("\<S-LeftMouse>", '')
4754339d9aee patch 8.1.1972: no proper test for getchar() Bram Moolenaar <Bram@vim.org> parents: 17944 diff changeset	1739 call assert_equal("\<S-LeftMouse>", getchar())
4754339d9aee patch 8.1.1972: no proper test for getchar() Bram Moolenaar <Bram@vim.org> parents: 17944 diff changeset	1740 call assert_equal(1, v:mouse_win)
4754339d9aee patch 8.1.1972: no proper test for getchar() Bram Moolenaar <Bram@vim.org> parents: 17944 diff changeset	1741 call assert_equal(win_getid(1), v:mouse_winid)
4754339d9aee patch 8.1.1972: no proper test for getchar() Bram Moolenaar <Bram@vim.org> parents: 17944 diff changeset	1742 call assert_equal(1, v:mouse_lnum)
4754339d9aee patch 8.1.1972: no proper test for getchar() Bram Moolenaar <Bram@vim.org> parents: 17944 diff changeset	1743 call assert_equal(3, v:mouse_col)
18623 3089b422b9dc patch 8.1.2304: cannot get the mouse position when getting a mouse click Bram Moolenaar <Bram@vim.org> parents: 18209 diff changeset	1744 enew!
17952 4754339d9aee patch 8.1.1972: no proper test for getchar() Bram Moolenaar <Bram@vim.org> parents: 17944 diff changeset	1745 endfunc
4754339d9aee patch 8.1.1972: no proper test for getchar() Bram Moolenaar <Bram@vim.org> parents: 17944 diff changeset	1746
14137 0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr() Christian Brabandt <cb@256bit.org> parents: 14004 diff changeset	1747 func Test_libcall_libcallnr()
21765 08940efa6b4e patch 8.2.1432: various inconsistencies in test files Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1748 CheckFeature libcall
14137 0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr() Christian Brabandt <cb@256bit.org> parents: 14004 diff changeset	1749
0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr() Christian Brabandt <cb@256bit.org> parents: 14004 diff changeset	1750 if has('win32')
0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr() Christian Brabandt <cb@256bit.org> parents: 14004 diff changeset	1751 let libc = 'msvcrt.dll'
0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr() Christian Brabandt <cb@256bit.org> parents: 14004 diff changeset	1752 elseif has('mac')
0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr() Christian Brabandt <cb@256bit.org> parents: 14004 diff changeset	1753 let libc = 'libSystem.B.dylib'
15677 772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1754 elseif executable('ldd')
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1755 let libc = matchstr(split(system('ldd ' . GetVimProg())), '/libc\.so\>')
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1756 endif
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1757 if get(l:, 'libc', '') ==# ''
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1758 " On Unix, libc.so can be in various places.
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1759 if has('linux')
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1760 " There is not documented but regarding the 1st argument of glibc's
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1761 " dlopen an empty string and nullptr are equivalent, so using an empty
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1762 " string for the 1st argument of libcall allows to call functions.
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1763 let libc = ''
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1764 elseif has('sun')
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1765 " Set the path to libc.so according to the architecture.
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1766 let test_bits = system('file ' . GetVimProg())
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1767 let test_arch = system('uname -p')
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1768 if test_bits =~ '64-bit' && test_arch =~ 'sparc'
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1769 let libc = '/usr/lib/sparcv9/libc.so'
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1770 elseif test_bits =~ '64-bit' && test_arch =~ 'i386'
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1771 let libc = '/usr/lib/amd64/libc.so'
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1772 else
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1773 let libc = '/usr/lib/libc.so'
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1774 endif
14669 63d5ae57a663 patch 8.1.0347: some tests fail on Solaris Christian Brabandt <cb@256bit.org> parents: 14579 diff changeset	1775 else
15677 772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1776 " Unfortunately skip this test until a good way is found.
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1777 return
14669 63d5ae57a663 patch 8.1.0347: some tests fail on Solaris Christian Brabandt <cb@256bit.org> parents: 14579 diff changeset	1778 endif
14137 0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr() Christian Brabandt <cb@256bit.org> parents: 14004 diff changeset	1779 endif
0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr() Christian Brabandt <cb@256bit.org> parents: 14004 diff changeset	1780
0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr() Christian Brabandt <cb@256bit.org> parents: 14004 diff changeset	1781 if has('win32')
17916 2e53305f2239 patch 8.1.1954: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17914 diff changeset	1782 call assert_equal($USERPROFILE, 'USERPROFILE'->libcall(libc, 'getenv'))
14137 0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr() Christian Brabandt <cb@256bit.org> parents: 14004 diff changeset	1783 else
17916 2e53305f2239 patch 8.1.1954: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17914 diff changeset	1784 call assert_equal($HOME, 'HOME'->libcall(libc, 'getenv'))
14137 0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr() Christian Brabandt <cb@256bit.org> parents: 14004 diff changeset	1785 endif
0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr() Christian Brabandt <cb@256bit.org> parents: 14004 diff changeset	1786
0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr() Christian Brabandt <cb@256bit.org> parents: 14004 diff changeset	1787 " If function returns NULL, libcall() should return an empty string.
0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr() Christian Brabandt <cb@256bit.org> parents: 14004 diff changeset	1788 call assert_equal('', libcall(libc, 'getenv', 'X_ENV_DOES_NOT_EXIT'))
0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr() Christian Brabandt <cb@256bit.org> parents: 14004 diff changeset	1789
0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr() Christian Brabandt <cb@256bit.org> parents: 14004 diff changeset	1790 " Test libcallnr() with string and integer argument.
17916 2e53305f2239 patch 8.1.1954: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17914 diff changeset	1791 call assert_equal(4, 'abcd'->libcallnr(libc, 'strlen'))
2e53305f2239 patch 8.1.1954: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17914 diff changeset	1792 call assert_equal(char2nr('A'), char2nr('a')->libcallnr(libc, 'toupper'))
14137 0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr() Christian Brabandt <cb@256bit.org> parents: 14004 diff changeset	1793
21265 6a4806e326dd patch 8.2.1183: assert_fails() checks the last error message Bram Moolenaar <Bram@vim.org> parents: 20978 diff changeset	1794 call assert_fails("call libcall(libc, 'Xdoesnotexist_', '')", ['', 'E364:'])
6a4806e326dd patch 8.2.1183: assert_fails() checks the last error message Bram Moolenaar <Bram@vim.org> parents: 20978 diff changeset	1795 call assert_fails("call libcallnr(libc, 'Xdoesnotexist_', '')", ['', 'E364:'])
14137 0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr() Christian Brabandt <cb@256bit.org> parents: 14004 diff changeset	1796
21265 6a4806e326dd patch 8.2.1183: assert_fails() checks the last error message Bram Moolenaar <Bram@vim.org> parents: 20978 diff changeset	1797 call assert_fails("call libcall('Xdoesnotexist_', 'getenv', 'HOME')", ['', 'E364:'])
6a4806e326dd patch 8.2.1183: assert_fails() checks the last error message Bram Moolenaar <Bram@vim.org> parents: 20978 diff changeset	1798 call assert_fails("call libcallnr('Xdoesnotexist_', 'strlen', 'abcd')", ['', 'E364:'])
14137 0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr() Christian Brabandt <cb@256bit.org> parents: 14004 diff changeset	1799 endfunc
14348 e73c0a0e7e87 patch 8.1.0189: function defined in sandbox not tested Christian Brabandt <cb@256bit.org> parents: 14137 diff changeset	1800
e73c0a0e7e87 patch 8.1.0189: function defined in sandbox not tested Christian Brabandt <cb@256bit.org> parents: 14137 diff changeset	1801 sandbox function Fsandbox()
e73c0a0e7e87 patch 8.1.0189: function defined in sandbox not tested Christian Brabandt <cb@256bit.org> parents: 14137 diff changeset	1802 normal ix
e73c0a0e7e87 patch 8.1.0189: function defined in sandbox not tested Christian Brabandt <cb@256bit.org> parents: 14137 diff changeset	1803 endfunc
e73c0a0e7e87 patch 8.1.0189: function defined in sandbox not tested Christian Brabandt <cb@256bit.org> parents: 14137 diff changeset	1804
e73c0a0e7e87 patch 8.1.0189: function defined in sandbox not tested Christian Brabandt <cb@256bit.org> parents: 14137 diff changeset	1805 func Test_func_sandbox()
e73c0a0e7e87 patch 8.1.0189: function defined in sandbox not tested Christian Brabandt <cb@256bit.org> parents: 14137 diff changeset	1806 sandbox let F = {-> 'hello'}
e73c0a0e7e87 patch 8.1.0189: function defined in sandbox not tested Christian Brabandt <cb@256bit.org> parents: 14137 diff changeset	1807 call assert_equal('hello', F())
e73c0a0e7e87 patch 8.1.0189: function defined in sandbox not tested Christian Brabandt <cb@256bit.org> parents: 14137 diff changeset	1808
17849 73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	1809 sandbox let F = {-> "normal ix\<Esc>"->execute()}
14348 e73c0a0e7e87 patch 8.1.0189: function defined in sandbox not tested Christian Brabandt <cb@256bit.org> parents: 14137 diff changeset	1810 call assert_fails('call F()', 'E48:')
e73c0a0e7e87 patch 8.1.0189: function defined in sandbox not tested Christian Brabandt <cb@256bit.org> parents: 14137 diff changeset	1811 unlet F
e73c0a0e7e87 patch 8.1.0189: function defined in sandbox not tested Christian Brabandt <cb@256bit.org> parents: 14137 diff changeset	1812
e73c0a0e7e87 patch 8.1.0189: function defined in sandbox not tested Christian Brabandt <cb@256bit.org> parents: 14137 diff changeset	1813 call assert_fails('call Fsandbox()', 'E48:')
e73c0a0e7e87 patch 8.1.0189: function defined in sandbox not tested Christian Brabandt <cb@256bit.org> parents: 14137 diff changeset	1814 delfunc Fsandbox
19689 da98d2ed8dc5 patch 8.2.0401: not enough test coverage for evalvars.c Bram Moolenaar <Bram@vim.org> parents: 19554 diff changeset	1815
da98d2ed8dc5 patch 8.2.0401: not enough test coverage for evalvars.c Bram Moolenaar <Bram@vim.org> parents: 19554 diff changeset	1816 " From a sandbox try to set a predefined variable (which cannot be modified
da98d2ed8dc5 patch 8.2.0401: not enough test coverage for evalvars.c Bram Moolenaar <Bram@vim.org> parents: 19554 diff changeset	1817 " from a sandbox)
da98d2ed8dc5 patch 8.2.0401: not enough test coverage for evalvars.c Bram Moolenaar <Bram@vim.org> parents: 19554 diff changeset	1818 call assert_fails('sandbox let v:lnum = 10', 'E794:')
14348 e73c0a0e7e87 patch 8.1.0189: function defined in sandbox not tested Christian Brabandt <cb@256bit.org> parents: 14137 diff changeset	1819 endfunc
15000 32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14895 diff changeset	1820
32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14895 diff changeset	1821 func EditAnotherFile()
32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14895 diff changeset	1822 let word = expand('<cword>')
32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14895 diff changeset	1823 edit Xfuncrange2
32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14895 diff changeset	1824 endfunc
32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14895 diff changeset	1825
32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14895 diff changeset	1826 func Test_func_range_with_edit()
32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14895 diff changeset	1827 " Define a function that edits another buffer, then call it with a range that
32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14895 diff changeset	1828 " is invalid in that buffer.
32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14895 diff changeset	1829 call writefile(['just one line'], 'Xfuncrange2')
32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14895 diff changeset	1830 new
17994 0dcc2ee838dd patch 8.1.1993: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17982 diff changeset	1831 eval 10->range()->setline(1)
15000 32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14895 diff changeset	1832 write Xfuncrange1
32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14895 diff changeset	1833 call assert_fails('5,8call EditAnotherFile()', 'E16:')
32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14895 diff changeset	1834
32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14895 diff changeset	1835 call delete('Xfuncrange1')
32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14895 diff changeset	1836 call delete('Xfuncrange2')
32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14895 diff changeset	1837 bwipe!
32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14895 diff changeset	1838 endfunc
15008 67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1839
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1840 func Test_func_exists_on_reload()
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1841 call writefile(['func ExistingFunction()', 'echo "yes"', 'endfunc'], 'Xfuncexists')
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1842 call assert_equal(0, exists('*ExistingFunction'))
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1843 source Xfuncexists
17849 73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	1844 call assert_equal(1, '*ExistingFunction'->exists())
15008 67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1845 " Redefining a function when reloading a script is OK.
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1846 source Xfuncexists
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1847 call assert_equal(1, exists('*ExistingFunction'))
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1848
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1849 " But redefining in another script is not OK.
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1850 call writefile(['func ExistingFunction()', 'echo "yes"', 'endfunc'], 'Xfuncexists2')
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1851 call assert_fails('source Xfuncexists2', 'E122:')
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1852
24685 04205b7d67d5 patch 8.2.2881: various pieces of code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 24673 diff changeset	1853 " Defining a new function from the cmdline should fail if the function is
04205b7d67d5 patch 8.2.2881: various pieces of code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 24673 diff changeset	1854 " already defined
04205b7d67d5 patch 8.2.2881: various pieces of code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 24673 diff changeset	1855 call assert_fails('call feedkeys(":func ExistingFunction()\<CR>", "xt")', 'E122:')
04205b7d67d5 patch 8.2.2881: various pieces of code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 24673 diff changeset	1856
15008 67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1857 delfunc ExistingFunction
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1858 call assert_equal(0, exists('*ExistingFunction'))
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1859 call writefile([
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1860 \ 'func ExistingFunction()', 'echo "yes"', 'endfunc',
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1861 \ 'func ExistingFunction()', 'echo "no"', 'endfunc',
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1862 \ ], 'Xfuncexists')
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1863 call assert_fails('source Xfuncexists', 'E122:')
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1864 call assert_equal(1, exists('*ExistingFunction'))
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1865
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1866 call delete('Xfuncexists2')
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1867 call delete('Xfuncexists')
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1868 delfunc ExistingFunction
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	1869 endfunc
15649 e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1870
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1871 " Test confirm({msg} [, {choices} [, {default} [, {type}]]])
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1872 func Test_confirm()
17657 0da9bc55c31a patch 8.1.1826: tests use hand coded feature and option checks Bram Moolenaar <Bram@vim.org> parents: 17484 diff changeset	1873 CheckUnix
0da9bc55c31a patch 8.1.1826: tests use hand coded feature and option checks Bram Moolenaar <Bram@vim.org> parents: 17484 diff changeset	1874 CheckNotGui
15649 e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1875
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1876 call feedkeys('o', 'L')
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1877 let a = confirm('Press O to proceed')
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1878 call assert_equal(1, a)
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1879
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1880 call feedkeys('y', 'L')
17837 f71ee7b04f0b patch 8.1.1915: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	1881 let a = 'Are you sure?'->confirm("&Yes\n&No")
15649 e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1882 call assert_equal(1, a)
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1883
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1884 call feedkeys('n', 'L')
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1885 let a = confirm('Are you sure?', "&Yes\n&No")
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1886 call assert_equal(2, a)
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1887
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1888 " confirm() should return 0 when pressing CTRL-C.
19742 810eee1b42e3 patch 8.2.0427: it is not possible to check for a typo in a feature name Bram Moolenaar <Bram@vim.org> parents: 19724 diff changeset	1889 call feedkeys("\<C-C>", 'L')
15649 e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1890 let a = confirm('Are you sure?', "&Yes\n&No")
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1891 call assert_equal(0, a)
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1892
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1893 " <Esc> requires another character to avoid it being seen as the start of an
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1894 " escape sequence. Zero should be harmless.
17849 73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	1895 eval "\<Esc>0"->feedkeys('L')
15649 e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1896 let a = confirm('Are you sure?', "&Yes\n&No")
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1897 call assert_equal(0, a)
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1898
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1899 " Default choice is returned when pressing <CR>.
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1900 call feedkeys("\<CR>", 'L')
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1901 let a = confirm('Are you sure?', "&Yes\n&No")
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1902 call assert_equal(1, a)
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1903
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1904 call feedkeys("\<CR>", 'L')
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1905 let a = confirm('Are you sure?', "&Yes\n&No", 2)
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1906 call assert_equal(2, a)
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1907
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1908 call feedkeys("\<CR>", 'L')
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1909 let a = confirm('Are you sure?', "&Yes\n&No", 0)
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1910 call assert_equal(0, a)
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1911
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1912 " Test with the {type} 4th argument
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1913 for type in ['Error', 'Question', 'Info', 'Warning', 'Generic']
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1914 call feedkeys('y', 'L')
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1915 let a = confirm('Are you sure?', "&Yes\n&No\n", 1, type)
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1916 call assert_equal(1, a)
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1917 endfor
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1918
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1919 call assert_fails('call confirm([])', 'E730:')
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1920 call assert_fails('call confirm("Are you sure?", [])', 'E730:')
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1921 call assert_fails('call confirm("Are you sure?", "&Yes\n&No\n", [])', 'E745:')
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1922 call assert_fails('call confirm("Are you sure?", "&Yes\n&No\n", 0, [])', 'E730:')
e649df212461 patch 8.1.0832: confirm() is not tested Bram Moolenaar <Bram@vim.org> parents: 15607 diff changeset	1923 endfunc
15677 772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1924
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1925 func Test_platform_name()
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1926 " The system matches at most only one name.
20591 4411c2b96af9 patch 8.2.0849: BeOS code is not maintained and probably unused Bram Moolenaar <Bram@vim.org> parents: 20540 diff changeset	1927 let names = ['amiga', 'bsd', 'hpux', 'linux', 'mac', 'qnx', 'sun', 'vms', 'win32', 'win32unix']
15677 772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1928 call assert_inrange(0, 1, len(filter(copy(names), 'has(v:val)')))
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1929
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1930 " Is Unix?
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1931 call assert_equal(has('bsd'), has('bsd') && has('unix'))
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1932 call assert_equal(has('hpux'), has('hpux') && has('unix'))
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1933 call assert_equal(has('linux'), has('linux') && has('unix'))
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1934 call assert_equal(has('mac'), has('mac') && has('unix'))
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1935 call assert_equal(has('qnx'), has('qnx') && has('unix'))
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1936 call assert_equal(has('sun'), has('sun') && has('unix'))
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1937 call assert_equal(has('win32'), has('win32') && !has('unix'))
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1938 call assert_equal(has('win32unix'), has('win32unix') && has('unix'))
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1939
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1940 if has('unix') && executable('uname')
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1941 let uname = system('uname')
15742 916c13256877 patch 8.1.0878: test for has('bsd') fails on some BSD systems Bram Moolenaar <Bram@vim.org> parents: 15677 diff changeset	1942 " GNU userland on BSD kernels (e.g., GNU/kFreeBSD) don't have BSD defined
916c13256877 patch 8.1.0878: test for has('bsd') fails on some BSD systems Bram Moolenaar <Bram@vim.org> parents: 15677 diff changeset	1943 call assert_equal(uname =~? '\%(GNU/k\w\+\)\@<!BSD\\|DragonFly', has('bsd'))
15677 772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1944 call assert_equal(uname =~? 'HP-UX', has('hpux'))
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1945 call assert_equal(uname =~? 'Linux', has('linux'))
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1946 call assert_equal(uname =~? 'Darwin', has('mac'))
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1947 call assert_equal(uname =~? 'QNX', has('qnx'))
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1948 call assert_equal(uname =~? 'SunOS', has('sun'))
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1949 call assert_equal(uname =~? 'CYGWIN\\|MSYS', has('win32unix'))
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1950 endif
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15649 diff changeset	1951 endfunc
16231 0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1952
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1953 func Test_readdir()
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1954 call mkdir('Xdir')
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1955 call writefile([], 'Xdir/foo.txt')
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1956 call writefile([], 'Xdir/bar.txt')
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1957 call mkdir('Xdir/dir')
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1958
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1959 " All results
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1960 let files = readdir('Xdir')
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1961 call assert_equal(['bar.txt', 'dir', 'foo.txt'], sort(files))
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1962
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1963 " Only results containing "f"
20643 c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	1964 let files = 'Xdir'->readdir({ x -> stridx(x, 'f') != -1 })
16231 0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1965 call assert_equal(['foo.txt'], sort(files))
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1966
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1967 " Only .txt files
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1968 let files = readdir('Xdir', { x -> x =~ '.txt$' })
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1969 call assert_equal(['bar.txt', 'foo.txt'], sort(files))
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1970
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1971 " Only .txt files with string
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1972 let files = readdir('Xdir', 'v:val =~ ".txt$"')
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1973 call assert_equal(['bar.txt', 'foo.txt'], sort(files))
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1974
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1975 " Limit to 1 result.
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1976 let l = []
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1977 let files = readdir('Xdir', {x -> len(add(l, x)) == 2 ? -1 : 1})
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1978 call assert_equal(1, len(files))
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1979
17944 745c02392844 patch 8.1.1968: crash when using nested map() Bram Moolenaar <Bram@vim.org> parents: 17930 diff changeset	1980 " Nested readdir() must not crash
745c02392844 patch 8.1.1968: crash when using nested map() Bram Moolenaar <Bram@vim.org> parents: 17930 diff changeset	1981 let files = readdir('Xdir', 'readdir("Xdir", "1") != []')
745c02392844 patch 8.1.1968: crash when using nested map() Bram Moolenaar <Bram@vim.org> parents: 17930 diff changeset	1982 call sort(files)->assert_equal(['bar.txt', 'dir', 'foo.txt'])
745c02392844 patch 8.1.1968: crash when using nested map() Bram Moolenaar <Bram@vim.org> parents: 17930 diff changeset	1983
17837 f71ee7b04f0b patch 8.1.1915: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	1984 eval 'Xdir'->delete('rf')
16231 0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16180 diff changeset	1985 endfunc
16668 81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	1986
20643 c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	1987 func Test_readdirex()
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	1988 call mkdir('Xdir')
20669 2407ffaefc02 patch 8.2.0888: readdirex() returns size -2 for a directory Bram Moolenaar <Bram@vim.org> parents: 20665 diff changeset	1989 call writefile(['foo'], 'Xdir/foo.txt')
2407ffaefc02 patch 8.2.0888: readdirex() returns size -2 for a directory Bram Moolenaar <Bram@vim.org> parents: 20665 diff changeset	1990 call writefile(['barbar'], 'Xdir/bar.txt')
20643 c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	1991 call mkdir('Xdir/dir')
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	1992
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	1993 " All results
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	1994 let files = readdirex('Xdir')->map({-> v:val.name})
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	1995 call assert_equal(['bar.txt', 'dir', 'foo.txt'], sort(files))
20669 2407ffaefc02 patch 8.2.0888: readdirex() returns size -2 for a directory Bram Moolenaar <Bram@vim.org> parents: 20665 diff changeset	1996 let sizes = readdirex('Xdir')->map({-> v:val.size})
2407ffaefc02 patch 8.2.0888: readdirex() returns size -2 for a directory Bram Moolenaar <Bram@vim.org> parents: 20665 diff changeset	1997 call assert_equal([0, 4, 7], sort(sizes))
20643 c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	1998
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	1999 " Only results containing "f"
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2000 let files = 'Xdir'->readdirex({ e -> stridx(e.name, 'f') != -1 })
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2001 \ ->map({-> v:val.name})
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2002 call assert_equal(['foo.txt'], sort(files))
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2003
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2004 " Only .txt files
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2005 let files = readdirex('Xdir', { e -> e.name =~ '.txt$' })
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2006 \ ->map({-> v:val.name})
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2007 call assert_equal(['bar.txt', 'foo.txt'], sort(files))
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2008
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2009 " Only .txt files with string
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2010 let files = readdirex('Xdir', 'v:val.name =~ ".txt$"')
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2011 \ ->map({-> v:val.name})
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2012 call assert_equal(['bar.txt', 'foo.txt'], sort(files))
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2013
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2014 " Limit to 1 result.
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2015 let l = []
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2016 let files = readdirex('Xdir', {e -> len(add(l, e.name)) == 2 ? -1 : 1})
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2017 \ ->map({-> v:val.name})
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2018 call assert_equal(1, len(files))
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2019
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2020 " Nested readdirex() must not crash
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2021 let files = readdirex('Xdir', 'readdirex("Xdir", "1") != []')
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2022 \ ->map({-> v:val.name})
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2023 call sort(files)->assert_equal(['bar.txt', 'dir', 'foo.txt'])
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2024
20867 9c24319b4cb2 patch 8.2.0985: simplify() does not remove slashes from "///path" Bram Moolenaar <Bram@vim.org> parents: 20794 diff changeset	2025 " report broken link correctly
20790 5a9c42c6a69e patch 8.2.0947: readdirex() doesn't handle broken link properly Bram Moolenaar <Bram@vim.org> parents: 20788 diff changeset	2026 if has("unix")
5a9c42c6a69e patch 8.2.0947: readdirex() doesn't handle broken link properly Bram Moolenaar <Bram@vim.org> parents: 20788 diff changeset	2027 call writefile([], 'Xdir/abc.txt')
5a9c42c6a69e patch 8.2.0947: readdirex() doesn't handle broken link properly Bram Moolenaar <Bram@vim.org> parents: 20788 diff changeset	2028 call system("ln -s Xdir/abc.txt Xdir/link")
5a9c42c6a69e patch 8.2.0947: readdirex() doesn't handle broken link properly Bram Moolenaar <Bram@vim.org> parents: 20788 diff changeset	2029 call delete('Xdir/abc.txt')
5a9c42c6a69e patch 8.2.0947: readdirex() doesn't handle broken link properly Bram Moolenaar <Bram@vim.org> parents: 20788 diff changeset	2030 let files = readdirex('Xdir', 'readdirex("Xdir", "1") != []')
5a9c42c6a69e patch 8.2.0947: readdirex() doesn't handle broken link properly Bram Moolenaar <Bram@vim.org> parents: 20788 diff changeset	2031 \ ->map({-> v:val.name .. '_' .. v:val.type})
5a9c42c6a69e patch 8.2.0947: readdirex() doesn't handle broken link properly Bram Moolenaar <Bram@vim.org> parents: 20788 diff changeset	2032 call sort(files)->assert_equal(
5a9c42c6a69e patch 8.2.0947: readdirex() doesn't handle broken link properly Bram Moolenaar <Bram@vim.org> parents: 20788 diff changeset	2033 \ ['bar.txt_file', 'dir_dir', 'foo.txt_file', 'link_link'])
5a9c42c6a69e patch 8.2.0947: readdirex() doesn't handle broken link properly Bram Moolenaar <Bram@vim.org> parents: 20788 diff changeset	2034 endif
20643 c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2035 eval 'Xdir'->delete('rf')
22568 fdc72bf4de35 patch 8.2.1832: readdirex() error is displayed as a message Bram Moolenaar <Bram@vim.org> parents: 22512 diff changeset	2036
fdc72bf4de35 patch 8.2.1832: readdirex() error is displayed as a message Bram Moolenaar <Bram@vim.org> parents: 22512 diff changeset	2037 call assert_fails('call readdirex("doesnotexist")', 'E484:')
20643 c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2038 endfunc
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20629 diff changeset	2039
20873 69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2040 func Test_readdirex_sort()
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2041 CheckUnix
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2042 " Skip tests on Mac OS X and Cygwin (does not allow several files with different casing)
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2043 if has("osxdarwin") \|\| has("osx") \|\| has("macunix") \|\| has("win32unix")
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2044 throw 'Skipped: Test_readdirex_sort on systems that do not allow this using the default filesystem'
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2045 endif
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2046 let _collate = v:collate
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2047 call mkdir('Xdir2')
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2048 call writefile(['1'], 'Xdir2/README.txt')
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2049 call writefile(['2'], 'Xdir2/Readme.txt')
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2050 call writefile(['3'], 'Xdir2/readme.txt')
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2051
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2052 " 1) default
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2053 let files = readdirex('Xdir2')->map({-> v:val.name})
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2054 let default = copy(files)
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2055 call assert_equal(['README.txt', 'Readme.txt', 'readme.txt'], files, 'sort using default')
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2056
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2057 " 2) no sorting
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2058 let files = readdirex('Xdir2', 1, #{sort: 'none'})->map({-> v:val.name})
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2059 let unsorted = copy(files)
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2060 call assert_equal(['README.txt', 'Readme.txt', 'readme.txt'], sort(files), 'unsorted')
20877 63c92d1c10bc patch 8.2.0990: Using duplicate error number Bram Moolenaar <Bram@vim.org> parents: 20873 diff changeset	2061 call assert_fails("call readdirex('Xdir2', 1, #{slort: 'none'})", 'E857: Dictionary key "sort" required')
20873 69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2062
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2063 " 3) sort by case (same as default)
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2064 let files = readdirex('Xdir2', 1, #{sort: 'case'})->map({-> v:val.name})
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2065 call assert_equal(default, files, 'sort by case')
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2066
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2067 " 4) sort by ignoring case
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2068 let files = readdirex('Xdir2', 1, #{sort: 'icase'})->map({-> v:val.name})
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2069 call assert_equal(unsorted->sort('i'), files, 'sort by icase')
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2070
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2071 " 5) Default Collation
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2072 let collate = v:collate
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2073 lang collate C
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2074 let files = readdirex('Xdir2', 1, #{sort: 'collate'})->map({-> v:val.name})
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2075 call assert_equal(['README.txt', 'Readme.txt', 'readme.txt'], files, 'sort by C collation')
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2076
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2077 " 6) Collation de_DE
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2078 " Switch locale, this may not work on the CI system, if the locale isn't
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2079 " available
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2080 try
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2081 lang collate de_DE
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2082 let files = readdirex('Xdir2', 1, #{sort: 'collate'})->map({-> v:val.name})
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2083 call assert_equal(['readme.txt', 'Readme.txt', 'README.txt'], files, 'sort by de_DE collation')
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2084 catch
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2085 throw 'Skipped: de_DE collation is not available'
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2086
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2087 finally
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2088 exe 'lang collate' collate
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2089 eval 'Xdir2'->delete('rf')
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2090 endtry
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2091 endfunc
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2092
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2093 func Test_readdir_sort()
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2094 " some more cases for testing sorting for readdirex
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2095 let dir = 'Xdir3'
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2096 call mkdir(dir)
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2097 call writefile(['1'], dir .. '/README.txt')
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2098 call writefile(['2'], dir .. '/Readm.txt')
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2099 call writefile(['3'], dir .. '/read.txt')
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2100 call writefile(['4'], dir .. '/Z.txt')
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2101 call writefile(['5'], dir .. '/a.txt')
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2102 call writefile(['6'], dir .. '/b.txt')
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2103
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2104 " 1) default
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2105 let files = readdir(dir)
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2106 let default = copy(files)
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2107 call assert_equal(default->sort(), files, 'sort using default')
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2108
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2109 " 2) sort by case (same as default)
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2110 let files = readdir(dir, '1', #{sort: 'case'})
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2111 call assert_equal(default, files, 'sort using default')
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2112
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2113 " 3) sort by ignoring case
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2114 let files = readdir(dir, '1', #{sort: 'icase'})
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2115 call assert_equal(default->sort('i'), files, 'sort by ignoring case')
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2116
20887 5dd8e741060b patch 8.2.0995: insufficient testing for the readdir() sort option Bram Moolenaar <Bram@vim.org> parents: 20877 diff changeset	2117 " 4) collation
5dd8e741060b patch 8.2.0995: insufficient testing for the readdir() sort option Bram Moolenaar <Bram@vim.org> parents: 20877 diff changeset	2118 let collate = v:collate
5dd8e741060b patch 8.2.0995: insufficient testing for the readdir() sort option Bram Moolenaar <Bram@vim.org> parents: 20877 diff changeset	2119 lang collate C
5dd8e741060b patch 8.2.0995: insufficient testing for the readdir() sort option Bram Moolenaar <Bram@vim.org> parents: 20877 diff changeset	2120 let files = readdir(dir, 1, #{sort: 'collate'})
5dd8e741060b patch 8.2.0995: insufficient testing for the readdir() sort option Bram Moolenaar <Bram@vim.org> parents: 20877 diff changeset	2121 call assert_equal(default->sort(), files, 'sort by C collation')
5dd8e741060b patch 8.2.0995: insufficient testing for the readdir() sort option Bram Moolenaar <Bram@vim.org> parents: 20877 diff changeset	2122 exe "lang collate" collate
5dd8e741060b patch 8.2.0995: insufficient testing for the readdir() sort option Bram Moolenaar <Bram@vim.org> parents: 20877 diff changeset	2123
5dd8e741060b patch 8.2.0995: insufficient testing for the readdir() sort option Bram Moolenaar <Bram@vim.org> parents: 20877 diff changeset	2124 " 5) Errors
22087 ff21e2962490 patch 8.2.1593: tests do not check the error number properly Bram Moolenaar <Bram@vim.org> parents: 22083 diff changeset	2125 call assert_fails('call readdir(dir, 1, 1)', 'E715:')
20887 5dd8e741060b patch 8.2.0995: insufficient testing for the readdir() sort option Bram Moolenaar <Bram@vim.org> parents: 20877 diff changeset	2126 call assert_fails('call readdir(dir, 1, #{sorta: 1})')
5dd8e741060b patch 8.2.0995: insufficient testing for the readdir() sort option Bram Moolenaar <Bram@vim.org> parents: 20877 diff changeset	2127 call assert_fails('call readdirex(dir, 1, #{sorta: 1})')
5dd8e741060b patch 8.2.0995: insufficient testing for the readdir() sort option Bram Moolenaar <Bram@vim.org> parents: 20877 diff changeset	2128
5dd8e741060b patch 8.2.0995: insufficient testing for the readdir() sort option Bram Moolenaar <Bram@vim.org> parents: 20877 diff changeset	2129 " 6) ignore other values in dict
5dd8e741060b patch 8.2.0995: insufficient testing for the readdir() sort option Bram Moolenaar <Bram@vim.org> parents: 20877 diff changeset	2130 let files = readdir(dir, '1', #{sort: 'c'})
5dd8e741060b patch 8.2.0995: insufficient testing for the readdir() sort option Bram Moolenaar <Bram@vim.org> parents: 20877 diff changeset	2131 call assert_equal(default, files, 'sort using default2')
5dd8e741060b patch 8.2.0995: insufficient testing for the readdir() sort option Bram Moolenaar <Bram@vim.org> parents: 20877 diff changeset	2132
5dd8e741060b patch 8.2.0995: insufficient testing for the readdir() sort option Bram Moolenaar <Bram@vim.org> parents: 20877 diff changeset	2133 " Cleanup
5dd8e741060b patch 8.2.0995: insufficient testing for the readdir() sort option Bram Moolenaar <Bram@vim.org> parents: 20877 diff changeset	2134 exe "lang collate" collate
5dd8e741060b patch 8.2.0995: insufficient testing for the readdir() sort option Bram Moolenaar <Bram@vim.org> parents: 20877 diff changeset	2135
20873 69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2136 eval dir->delete('rf')
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2137 endfunc
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20869 diff changeset	2138
16752 e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16668 diff changeset	2139 func Test_delete_rf()
e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16668 diff changeset	2140 call mkdir('Xdir')
e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16668 diff changeset	2141 call writefile([], 'Xdir/foo.txt')
e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16668 diff changeset	2142 call writefile([], 'Xdir/bar.txt')
e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16668 diff changeset	2143 call mkdir('Xdir/[a-1]') " issue #696
e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16668 diff changeset	2144 call writefile([], 'Xdir/[a-1]/foo.txt')
e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16668 diff changeset	2145 call writefile([], 'Xdir/[a-1]/bar.txt')
e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16668 diff changeset	2146 call assert_true(filereadable('Xdir/foo.txt'))
17849 73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	2147 call assert_true('Xdir/[a-1]/foo.txt'->filereadable())
16752 e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16668 diff changeset	2148
e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16668 diff changeset	2149 call assert_equal(0, delete('Xdir', 'rf'))
e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16668 diff changeset	2150 call assert_false(filereadable('Xdir/foo.txt'))
e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16668 diff changeset	2151 call assert_false(filereadable('Xdir/[a-1]/foo.txt'))
e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16668 diff changeset	2152 endfunc
e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16668 diff changeset	2153
16668 81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	2154 func Test_call()
81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	2155 call assert_equal(3, call('len', [123]))
17829 1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	2156 call assert_equal(3, 'len'->call([123]))
16668 81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	2157 call assert_fails("call call('len', 123)", 'E714:')
81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	2158 call assert_equal(0, call('', []))
20120 16460964c304 patch 8.2.0615: regexp benchmark stest is old style Bram Moolenaar <Bram@vim.org> parents: 20109 diff changeset	2159 call assert_equal(0, call('len', test_null_list()))
16668 81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	2160
81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	2161 function Mylen() dict
81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	2162 return len(self.data)
81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	2163 endfunction
81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	2164 let mydict = {'data': [0, 1, 2, 3], 'len': function("Mylen")}
17829 1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17783 diff changeset	2165 eval mydict.len->call([], mydict)->assert_equal(4)
16668 81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	2166 call assert_fails("call call('Mylen', [], 0)", 'E715:')
23108 34a74f5f0fb4 patch 8.2.2100: insufficient testing for function range and dict Bram Moolenaar <Bram@vim.org> parents: 23037 diff changeset	2167 call assert_fails('call foo', 'E107:')
24618 4aebea72c397 patch 8.2.2848: crash whn calling partial Bram Moolenaar <Bram@vim.org> parents: 24596 diff changeset	2168
24878 f67773e26cfa patch 8.2.2977: crash when using a null function reference Bram Moolenaar <Bram@vim.org> parents: 24838 diff changeset	2169 " These once caused a crash.
24618 4aebea72c397 patch 8.2.2848: crash whn calling partial Bram Moolenaar <Bram@vim.org> parents: 24596 diff changeset	2170 call call(test_null_function(), [])
4aebea72c397 patch 8.2.2848: crash whn calling partial Bram Moolenaar <Bram@vim.org> parents: 24596 diff changeset	2171 call call(test_null_partial(), [])
24878 f67773e26cfa patch 8.2.2977: crash when using a null function reference Bram Moolenaar <Bram@vim.org> parents: 24838 diff changeset	2172 call assert_fails('call test_null_function()()', 'E1192:')
f67773e26cfa patch 8.2.2977: crash when using a null function reference Bram Moolenaar <Bram@vim.org> parents: 24838 diff changeset	2173 call assert_fails('call test_null_partial()()', 'E117:')
16668 81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	2174 endfunc
81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	2175
81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	2176 func Test_char2nr()
81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	2177 call assert_equal(12354, char2nr('あ', 1))
17837 f71ee7b04f0b patch 8.1.1915: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	2178 call assert_equal(120, 'x'->char2nr())
19783 546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2179 set encoding=latin1
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2180 call assert_equal(120, 'x'->char2nr())
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2181 set encoding=utf-8
16668 81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	2182 endfunc
81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	2183
21973 85add08e6a2d patch 8.2.1536: cannot get the class of a character; emoji widths are wrong Bram Moolenaar <Bram@vim.org> parents: 21935 diff changeset	2184 func Test_charclass()
85add08e6a2d patch 8.2.1536: cannot get the class of a character; emoji widths are wrong Bram Moolenaar <Bram@vim.org> parents: 21935 diff changeset	2185 call assert_equal(0, charclass(' '))
85add08e6a2d patch 8.2.1536: cannot get the class of a character; emoji widths are wrong Bram Moolenaar <Bram@vim.org> parents: 21935 diff changeset	2186 call assert_equal(1, charclass('.'))
85add08e6a2d patch 8.2.1536: cannot get the class of a character; emoji widths are wrong Bram Moolenaar <Bram@vim.org> parents: 21935 diff changeset	2187 call assert_equal(2, charclass('x'))
85add08e6a2d patch 8.2.1536: cannot get the class of a character; emoji widths are wrong Bram Moolenaar <Bram@vim.org> parents: 21935 diff changeset	2188 call assert_equal(3, charclass("\u203c"))
25092 cd5e8df05a64 patch 8.2.3083: crash when passing null string to charclass() Bram Moolenaar <Bram@vim.org> parents: 25048 diff changeset	2189 " this used to crash vim
cd5e8df05a64 patch 8.2.3083: crash when passing null string to charclass() Bram Moolenaar <Bram@vim.org> parents: 25048 diff changeset	2190 call assert_equal(0, "xxx"[-1]->charclass())
21973 85add08e6a2d patch 8.2.1536: cannot get the class of a character; emoji widths are wrong Bram Moolenaar <Bram@vim.org> parents: 21935 diff changeset	2191 endfunc
85add08e6a2d patch 8.2.1536: cannot get the class of a character; emoji widths are wrong Bram Moolenaar <Bram@vim.org> parents: 21935 diff changeset	2192
16668 81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	2193 func Test_eventhandler()
81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	2194 call assert_equal(0, eventhandler())
81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	2195 endfunc
17221 a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17172 diff changeset	2196
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17172 diff changeset	2197 func Test_bufadd_bufload()
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17172 diff changeset	2198 call assert_equal(0, bufexists('someName'))
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17172 diff changeset	2199 let buf = bufadd('someName')
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17172 diff changeset	2200 call assert_notequal(0, buf)
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17172 diff changeset	2201 call assert_equal(1, bufexists('someName'))
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17172 diff changeset	2202 call assert_equal(0, getbufvar(buf, '&buflisted'))
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17172 diff changeset	2203 call assert_equal(0, bufloaded(buf))
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17172 diff changeset	2204 call bufload(buf)
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17172 diff changeset	2205 call assert_equal(1, bufloaded(buf))
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17172 diff changeset	2206 call assert_equal([''], getbufline(buf, 1, '$'))
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17172 diff changeset	2207
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17172 diff changeset	2208 let curbuf = bufnr('')
18035 11dca9732a48 patch 8.1.2013: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 18017 diff changeset	2209 eval ['some', 'text']->writefile('XotherName')
17783 45eca7143d7c patch 8.1.1888: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17657 diff changeset	2210 let buf = 'XotherName'->bufadd()
17221 a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17172 diff changeset	2211 call assert_notequal(0, buf)
17783 45eca7143d7c patch 8.1.1888: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17657 diff changeset	2212 eval 'XotherName'->bufexists()->assert_equal(1)
17221 a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17172 diff changeset	2213 call assert_equal(0, getbufvar(buf, '&buflisted'))
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17172 diff changeset	2214 call assert_equal(0, bufloaded(buf))
17783 45eca7143d7c patch 8.1.1888: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17657 diff changeset	2215 eval buf->bufload()
17221 a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17172 diff changeset	2216 call assert_equal(1, bufloaded(buf))
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17172 diff changeset	2217 call assert_equal(['some', 'text'], getbufline(buf, 1, '$'))
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17172 diff changeset	2218 call assert_equal(curbuf, bufnr(''))
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17172 diff changeset	2219
17223 07bbe73b8e74 patch 8.1.1611: bufadd() reuses existing buffer without a name Bram Moolenaar <Bram@vim.org> parents: 17221 diff changeset	2220 let buf1 = bufadd('')
07bbe73b8e74 patch 8.1.1611: bufadd() reuses existing buffer without a name Bram Moolenaar <Bram@vim.org> parents: 17221 diff changeset	2221 let buf2 = bufadd('')
07bbe73b8e74 patch 8.1.1611: bufadd() reuses existing buffer without a name Bram Moolenaar <Bram@vim.org> parents: 17221 diff changeset	2222 call assert_notequal(0, buf1)
07bbe73b8e74 patch 8.1.1611: bufadd() reuses existing buffer without a name Bram Moolenaar <Bram@vim.org> parents: 17221 diff changeset	2223 call assert_notequal(0, buf2)
07bbe73b8e74 patch 8.1.1611: bufadd() reuses existing buffer without a name Bram Moolenaar <Bram@vim.org> parents: 17221 diff changeset	2224 call assert_notequal(buf1, buf2)
07bbe73b8e74 patch 8.1.1611: bufadd() reuses existing buffer without a name Bram Moolenaar <Bram@vim.org> parents: 17221 diff changeset	2225 call assert_equal(1, bufexists(buf1))
07bbe73b8e74 patch 8.1.1611: bufadd() reuses existing buffer without a name Bram Moolenaar <Bram@vim.org> parents: 17221 diff changeset	2226 call assert_equal(1, bufexists(buf2))
07bbe73b8e74 patch 8.1.1611: bufadd() reuses existing buffer without a name Bram Moolenaar <Bram@vim.org> parents: 17221 diff changeset	2227 call assert_equal(0, bufloaded(buf1))
07bbe73b8e74 patch 8.1.1611: bufadd() reuses existing buffer without a name Bram Moolenaar <Bram@vim.org> parents: 17221 diff changeset	2228 exe 'bwipe ' .. buf1
07bbe73b8e74 patch 8.1.1611: bufadd() reuses existing buffer without a name Bram Moolenaar <Bram@vim.org> parents: 17221 diff changeset	2229 call assert_equal(0, bufexists(buf1))
07bbe73b8e74 patch 8.1.1611: bufadd() reuses existing buffer without a name Bram Moolenaar <Bram@vim.org> parents: 17221 diff changeset	2230 call assert_equal(1, bufexists(buf2))
07bbe73b8e74 patch 8.1.1611: bufadd() reuses existing buffer without a name Bram Moolenaar <Bram@vim.org> parents: 17221 diff changeset	2231 exe 'bwipe ' .. buf2
07bbe73b8e74 patch 8.1.1611: bufadd() reuses existing buffer without a name Bram Moolenaar <Bram@vim.org> parents: 17221 diff changeset	2232 call assert_equal(0, bufexists(buf2))
07bbe73b8e74 patch 8.1.1611: bufadd() reuses existing buffer without a name Bram Moolenaar <Bram@vim.org> parents: 17221 diff changeset	2233
17221 a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17172 diff changeset	2234 bwipe someName
17278 b6de6181e5ab patch 8.1.1638: running tests leaves some files behind Bram Moolenaar <Bram@vim.org> parents: 17223 diff changeset	2235 bwipe XotherName
17221 a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17172 diff changeset	2236 call assert_equal(0, bufexists('someName'))
17278 b6de6181e5ab patch 8.1.1638: running tests leaves some files behind Bram Moolenaar <Bram@vim.org> parents: 17223 diff changeset	2237 call delete('XotherName')
17221 a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17172 diff changeset	2238 endfunc
18143 2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2239
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2240 func Test_state()
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2241 CheckRunVimInTerminal
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2242
19795 1c7f92a1100e patch 8.2.0454: some tests fail when the system is slow Bram Moolenaar <Bram@vim.org> parents: 19783 diff changeset	2243 let getstate = ":echo 'state: ' .. g:state .. '; mode: ' .. g:mode\<CR>"
1c7f92a1100e patch 8.2.0454: some tests fail when the system is slow Bram Moolenaar <Bram@vim.org> parents: 19783 diff changeset	2244
18143 2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2245 let lines =<< trim END
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2246 call setline(1, ['one', 'two', 'three'])
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2247 map ;; gg
18209 9a7bbad64376 patch 8.1.2099: state() test fails on some Mac systems Bram Moolenaar <Bram@vim.org> parents: 18143 diff changeset	2248 set complete=.
18143 2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2249 func RunTimer()
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2250 call timer_start(10, {id -> execute('let g:state = state()') .. execute('let g:mode = mode()')})
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2251 endfunc
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2252 au Filetype foobar let g:state = state()\|let g:mode = mode()
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2253 END
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2254 call writefile(lines, 'XState')
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2255 let buf = RunVimInTerminal('-S XState', #{rows: 6})
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2256
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2257 " Using a ":" command Vim is busy, thus "S" is returned
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2258 call term_sendkeys(buf, ":echo 'state: ' .. state() .. '; mode: ' .. mode()\<CR>")
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2259 call WaitForAssert({-> assert_match('state: S; mode: n', term_getline(buf, 6))}, 1000)
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2260 call term_sendkeys(buf, ":\<CR>")
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2261
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2262 " Using a timer callback
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2263 call term_sendkeys(buf, ":call RunTimer()\<CR>")
19954 c087099e9163 patch 8.2.0533: tests using term_wait() can still be flaky Bram Moolenaar <Bram@vim.org> parents: 19952 diff changeset	2264 call TermWait(buf, 25)
18143 2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2265 call term_sendkeys(buf, getstate)
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2266 call WaitForAssert({-> assert_match('state: c; mode: n', term_getline(buf, 6))}, 1000)
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2267
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2268 " Halfway a mapping
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2269 call term_sendkeys(buf, ":call RunTimer()\<CR>;")
19954 c087099e9163 patch 8.2.0533: tests using term_wait() can still be flaky Bram Moolenaar <Bram@vim.org> parents: 19952 diff changeset	2270 call TermWait(buf, 25)
18143 2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2271 call term_sendkeys(buf, ";")
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2272 call term_sendkeys(buf, getstate)
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2273 call WaitForAssert({-> assert_match('state: mSc; mode: n', term_getline(buf, 6))}, 1000)
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2274
18209 9a7bbad64376 patch 8.1.2099: state() test fails on some Mac systems Bram Moolenaar <Bram@vim.org> parents: 18143 diff changeset	2275 " Insert mode completion (bit slower on Mac)
18143 2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2276 call term_sendkeys(buf, ":call RunTimer()\<CR>Got\<C-N>")
19954 c087099e9163 patch 8.2.0533: tests using term_wait() can still be flaky Bram Moolenaar <Bram@vim.org> parents: 19952 diff changeset	2277 call TermWait(buf, 25)
18143 2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2278 call term_sendkeys(buf, "\<Esc>")
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2279 call term_sendkeys(buf, getstate)
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2280 call WaitForAssert({-> assert_match('state: aSc; mode: i', term_getline(buf, 6))}, 1000)
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2281
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2282 " Autocommand executing
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2283 call term_sendkeys(buf, ":set filetype=foobar\<CR>")
19954 c087099e9163 patch 8.2.0533: tests using term_wait() can still be flaky Bram Moolenaar <Bram@vim.org> parents: 19952 diff changeset	2284 call TermWait(buf, 25)
18143 2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2285 call term_sendkeys(buf, getstate)
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2286 call WaitForAssert({-> assert_match('state: xS; mode: n', term_getline(buf, 6))}, 1000)
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2287
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2288 " Todo: "w" - waiting for ch_evalexpr()
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2289
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2290 " messages scrolled
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2291 call term_sendkeys(buf, ":call RunTimer()\<CR>:echo \"one\\ntwo\\nthree\"\<CR>")
19954 c087099e9163 patch 8.2.0533: tests using term_wait() can still be flaky Bram Moolenaar <Bram@vim.org> parents: 19952 diff changeset	2292 call TermWait(buf, 25)
18143 2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2293 call term_sendkeys(buf, "\<CR>")
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2294 call term_sendkeys(buf, getstate)
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2295 call WaitForAssert({-> assert_match('state: Scs; mode: r', term_getline(buf, 6))}, 1000)
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2296
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2297 call StopVimInTerminal(buf)
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2298 call delete('XState')
2416e1a887ca patch 8.1.2066: no tests for state() Bram Moolenaar <Bram@vim.org> parents: 18096 diff changeset	2299 endfunc
19201 e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2300
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2301 func Test_range()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2302 " destructuring
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2303 let [x, y] = range(2)
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2304 call assert_equal([0, 1], [x, y])
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2305
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2306 " index
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2307 call assert_equal(4, range(1, 10)[3])
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2308
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2309 " add()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2310 call assert_equal([0, 1, 2, 3], add(range(3), 3))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2311 call assert_equal([0, 1, 2, [0, 1, 2]], add([0, 1, 2], range(3)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2312 call assert_equal([0, 1, 2, [0, 1, 2]], add(range(3), range(3)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2313
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2314 " append()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2315 new
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2316 call append('.', range(5))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2317 call assert_equal(['', '0', '1', '2', '3', '4'], getline(1, '$'))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2318 bwipe!
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2319
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2320 " appendbufline()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2321 new
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2322 call appendbufline(bufnr(''), '.', range(5))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2323 call assert_equal(['0', '1', '2', '3', '4', ''], getline(1, '$'))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2324 bwipe!
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2325
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2326 " call()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2327 func TwoArgs(a, b)
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2328 return [a:a, a:b]
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2329 endfunc
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2330 call assert_equal([0, 1], call('TwoArgs', range(2)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2331
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2332 " col()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2333 new
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2334 call setline(1, ['foo', 'bar'])
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2335 call assert_equal(2, col(range(1, 2)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2336 bwipe!
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2337
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2338 " complete()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2339 execute "normal! a\<C-r>=[complete(col('.'), range(10)), ''][1]\<CR>"
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2340 " complete_info()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2341 execute "normal! a\<C-r>=[complete(col('.'), range(10)), ''][1]\<CR>\<C-r>=[complete_info(range(5)), ''][1]\<CR>"
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2342
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2343 " copy()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2344 call assert_equal([1, 2, 3], copy(range(1, 3)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2345
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2346 " count()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2347 call assert_equal(0, count(range(0), 3))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2348 call assert_equal(0, count(range(2), 3))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2349 call assert_equal(1, count(range(5), 3))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2350
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2351 " cursor()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2352 new
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2353 call setline(1, ['aaa', 'bbb', 'ccc'])
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2354 call cursor(range(1, 2))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2355 call assert_equal([2, 1], [col('.'), line('.')])
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2356 bwipe!
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2357
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2358 " deepcopy()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2359 call assert_equal([1, 2, 3], deepcopy(range(1, 3)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2360
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2361 " empty()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2362 call assert_true(empty(range(0)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2363 call assert_false(empty(range(2)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2364
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2365 " execute()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2366 new
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2367 call setline(1, ['aaa', 'bbb', 'ccc'])
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2368 call execute(range(3))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2369 call assert_equal(2, line('.'))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2370 bwipe!
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2371
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2372 " extend()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2373 call assert_equal([1, 2, 3, 4], extend([1], range(2, 4)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2374 call assert_equal([1, 2, 3, 4], extend(range(1, 1), range(2, 4)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2375 call assert_equal([1, 2, 3, 4], extend(range(1, 1), [2, 3, 4]))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2376
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2377 " filter()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2378 call assert_equal([1, 3], filter(range(5), 'v:val % 2'))
23037 4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22977 diff changeset	2379 call assert_equal([1, 5, 7, 11, 13], filter(filter(range(15), 'v:val % 2'), 'v:val % 3'))
19201 e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2380
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2381 " funcref()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2382 call assert_equal([0, 1], funcref('TwoArgs', range(2))())
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2383
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2384 " function()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2385 call assert_equal([0, 1], function('TwoArgs', range(2))())
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2386
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2387 " garbagecollect()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2388 let thelist = [1, range(2), 3]
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2389 let otherlist = range(3)
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2390 call test_garbagecollect_now()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2391
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2392 " get()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2393 call assert_equal(4, get(range(1, 10), 3))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2394 call assert_equal(-1, get(range(1, 10), 42, -1))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2395
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2396 " index()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2397 call assert_equal(1, index(range(1, 5), 2))
19783 546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2398 call assert_fails("echo index([1, 2], 1, [])", 'E745:')
19201 e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2399
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2400 " inputlist()
19209 b780229f5792 patch 8.2.0163: test hangs on MS-Windows console Bram Moolenaar <Bram@vim.org> parents: 19207 diff changeset	2401 call feedkeys(":let result = inputlist(range(10))\<CR>1\<CR>", 'x')
b780229f5792 patch 8.2.0163: test hangs on MS-Windows console Bram Moolenaar <Bram@vim.org> parents: 19207 diff changeset	2402 call assert_equal(1, result)
b780229f5792 patch 8.2.0163: test hangs on MS-Windows console Bram Moolenaar <Bram@vim.org> parents: 19207 diff changeset	2403 call feedkeys(":let result = inputlist(range(3, 10))\<CR>1\<CR>", 'x')
b780229f5792 patch 8.2.0163: test hangs on MS-Windows console Bram Moolenaar <Bram@vim.org> parents: 19207 diff changeset	2404 call assert_equal(1, result)
19201 e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2405
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2406 " insert()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2407 call assert_equal([42, 1, 2, 3, 4, 5], insert(range(1, 5), 42))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2408 call assert_equal([42, 1, 2, 3, 4, 5], insert(range(1, 5), 42, 0))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2409 call assert_equal([1, 42, 2, 3, 4, 5], insert(range(1, 5), 42, 1))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2410 call assert_equal([1, 2, 3, 4, 42, 5], insert(range(1, 5), 42, 4))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2411 call assert_equal([1, 2, 3, 4, 42, 5], insert(range(1, 5), 42, -1))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2412 call assert_equal([1, 2, 3, 4, 5, 42], insert(range(1, 5), 42, 5))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2413
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2414 " join()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2415 call assert_equal('0 1 2 3 4', join(range(5)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2416
19209 b780229f5792 patch 8.2.0163: test hangs on MS-Windows console Bram Moolenaar <Bram@vim.org> parents: 19207 diff changeset	2417 " json_encode()
b780229f5792 patch 8.2.0163: test hangs on MS-Windows console Bram Moolenaar <Bram@vim.org> parents: 19207 diff changeset	2418 call assert_equal('[0,1,2,3]', json_encode(range(4)))
b780229f5792 patch 8.2.0163: test hangs on MS-Windows console Bram Moolenaar <Bram@vim.org> parents: 19207 diff changeset	2419
19201 e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2420 " len()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2421 call assert_equal(0, len(range(0)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2422 call assert_equal(2, len(range(2)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2423 call assert_equal(5, len(range(0, 12, 3)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2424 call assert_equal(4, len(range(3, 0, -1)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2425
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2426 " list2str()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2427 call assert_equal('ABC', list2str(range(65, 67)))
20109 e82996ad131f patch 8.2.0610: some tests are still old style Bram Moolenaar <Bram@vim.org> parents: 19954 diff changeset	2428 call assert_fails('let s = list2str(5)', 'E474:')
19201 e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2429
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2430 " lock()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2431 let thelist = range(5)
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2432 lockvar thelist
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2433
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2434 " map()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2435 call assert_equal([0, 2, 4, 6, 8], map(range(5), 'v:val * 2'))
23037 4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22977 diff changeset	2436 call assert_equal([3, 5, 7, 9, 11], map(map(range(5), 'v:val * 2'), 'v:val + 3'))
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22977 diff changeset	2437 call assert_equal([2, 6], map(filter(range(5), 'v:val % 2'), 'v:val * 2'))
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22977 diff changeset	2438 call assert_equal([2, 4, 8], filter(map(range(5), 'v:val * 2'), 'v:val % 3'))
19201 e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2439
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2440 " match()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2441 call assert_equal(3, match(range(5), 3))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2442
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2443 " matchaddpos()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2444 highlight MyGreenGroup ctermbg=green guibg=green
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2445 call matchaddpos('MyGreenGroup', range(line('.'), line('.')))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2446
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2447 " matchend()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2448 call assert_equal(4, matchend(range(5), '4'))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2449 call assert_equal(3, matchend(range(1, 5), '4'))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2450 call assert_equal(-1, matchend(range(1, 5), '42'))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2451
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2452 " matchstrpos()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2453 call assert_equal(['4', 4, 0, 1], matchstrpos(range(5), '4'))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2454 call assert_equal(['4', 3, 0, 1], matchstrpos(range(1, 5), '4'))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2455 call assert_equal(['', -1, -1, -1], matchstrpos(range(1, 5), '42'))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2456
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2457 " max() reverse()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2458 call assert_equal(0, max(range(0)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2459 call assert_equal(0, max(range(10, 9)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2460 call assert_equal(9, max(range(10)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2461 call assert_equal(18, max(range(0, 20, 3)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2462 call assert_equal(20, max(range(20, 0, -3)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2463 call assert_equal(99999, max(range(100000)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2464 call assert_equal(99999, max(range(99999, 0, -1)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2465 call assert_equal(99999, max(reverse(range(100000))))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2466 call assert_equal(99999, max(reverse(range(99999, 0, -1))))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2467
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2468 " min() reverse()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2469 call assert_equal(0, min(range(0)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2470 call assert_equal(0, min(range(10, 9)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2471 call assert_equal(5, min(range(5, 10)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2472 call assert_equal(5, min(range(5, 10, 3)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2473 call assert_equal(2, min(range(20, 0, -3)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2474 call assert_equal(0, min(range(100000)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2475 call assert_equal(0, min(range(99999, 0, -1)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2476 call assert_equal(0, min(reverse(range(100000))))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2477 call assert_equal(0, min(reverse(range(99999, 0, -1))))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2478
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2479 " remove()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2480 call assert_equal(1, remove(range(1, 10), 0))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2481 call assert_equal(2, remove(range(1, 10), 1))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2482 call assert_equal(9, remove(range(1, 10), 8))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2483 call assert_equal(10, remove(range(1, 10), 9))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2484 call assert_equal(10, remove(range(1, 10), -1))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2485 call assert_equal([3, 4, 5], remove(range(1, 10), 2, 4))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2486
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2487 " repeat()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2488 call assert_equal([0, 1, 2, 0, 1, 2], repeat(range(3), 2))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2489 call assert_equal([0, 1, 2], repeat(range(3), 1))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2490 call assert_equal([], repeat(range(3), 0))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2491 call assert_equal([], repeat(range(5, 4), 2))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2492 call assert_equal([], repeat(range(5, 4), 0))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2493
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2494 " reverse()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2495 call assert_equal([2, 1, 0], reverse(range(3)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2496 call assert_equal([0, 1, 2, 3], reverse(range(3, 0, -1)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2497 call assert_equal([9, 8, 7, 6, 5, 4, 3, 2, 1, 0], reverse(range(10)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2498 call assert_equal([20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10], reverse(range(10, 20)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2499 call assert_equal([16, 13, 10], reverse(range(10, 18, 3)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2500 call assert_equal([19, 16, 13, 10], reverse(range(10, 19, 3)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2501 call assert_equal([19, 16, 13, 10], reverse(range(10, 20, 3)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2502 call assert_equal([11, 14, 17, 20], reverse(range(20, 10, -3)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2503 call assert_equal([], reverse(range(0)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2504
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2505 " TODO: setpos()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2506 " new
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2507 " call setline(1, repeat([''], bufnr('')))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2508 " call setline(bufnr('') + 1, repeat('x', bufnr('') * 2 + 6))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2509 " call setpos('x', range(bufnr(''), bufnr('') + 3))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2510 " bwipe!
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2511
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2512 " setreg()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2513 call setreg('a', range(3))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2514 call assert_equal("0\n1\n2\n", getreg('a'))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2515
19241 c53dbbf3229b patch 8.2.0179: still a few places where range() does not work Bram Moolenaar <Bram@vim.org> parents: 19209 diff changeset	2516 " settagstack()
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work Bram Moolenaar <Bram@vim.org> parents: 19209 diff changeset	2517 call settagstack(1, #{items : range(4)})
19306 e4a155edc9cb patch 8.2.0211: test for ANSI colors fails without an "ls" command Bram Moolenaar <Bram@vim.org> parents: 19255 diff changeset	2518
19241 c53dbbf3229b patch 8.2.0179: still a few places where range() does not work Bram Moolenaar <Bram@vim.org> parents: 19209 diff changeset	2519 " sign_define()
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work Bram Moolenaar <Bram@vim.org> parents: 19209 diff changeset	2520 call assert_fails("call sign_define(range(5))", "E715:")
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work Bram Moolenaar <Bram@vim.org> parents: 19209 diff changeset	2521 call assert_fails("call sign_placelist(range(5))", "E715:")
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work Bram Moolenaar <Bram@vim.org> parents: 19209 diff changeset	2522
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work Bram Moolenaar <Bram@vim.org> parents: 19209 diff changeset	2523 " sign_undefine()
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work Bram Moolenaar <Bram@vim.org> parents: 19209 diff changeset	2524 call assert_fails("call sign_undefine(range(5))", "E908:")
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work Bram Moolenaar <Bram@vim.org> parents: 19209 diff changeset	2525
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work Bram Moolenaar <Bram@vim.org> parents: 19209 diff changeset	2526 " sign_unplacelist()
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work Bram Moolenaar <Bram@vim.org> parents: 19209 diff changeset	2527 call assert_fails("call sign_unplacelist(range(5))", "E715:")
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work Bram Moolenaar <Bram@vim.org> parents: 19209 diff changeset	2528
19201 e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2529 " sort()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2530 call assert_equal([0, 1, 2, 3, 4, 5], sort(range(5, 0, -1)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2531
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2532 " string()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2533 call assert_equal('[0, 1, 2, 3, 4]', string(range(5)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2534
19241 c53dbbf3229b patch 8.2.0179: still a few places where range() does not work Bram Moolenaar <Bram@vim.org> parents: 19209 diff changeset	2535 " taglist() with 'tagfunc'
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work Bram Moolenaar <Bram@vim.org> parents: 19209 diff changeset	2536 func TagFunc(pattern, flags, info)
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work Bram Moolenaar <Bram@vim.org> parents: 19209 diff changeset	2537 return range(10)
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work Bram Moolenaar <Bram@vim.org> parents: 19209 diff changeset	2538 endfunc
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work Bram Moolenaar <Bram@vim.org> parents: 19209 diff changeset	2539 set tagfunc=TagFunc
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work Bram Moolenaar <Bram@vim.org> parents: 19209 diff changeset	2540 call assert_fails("call taglist('asdf')", 'E987:')
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work Bram Moolenaar <Bram@vim.org> parents: 19209 diff changeset	2541 set tagfunc=
19306 e4a155edc9cb patch 8.2.0211: test for ANSI colors fails without an "ls" command Bram Moolenaar <Bram@vim.org> parents: 19255 diff changeset	2542
19241 c53dbbf3229b patch 8.2.0179: still a few places where range() does not work Bram Moolenaar <Bram@vim.org> parents: 19209 diff changeset	2543 " term_start()
19255 04e1a025ef00 patch 8.2.0186: a couple of tests may fail when features are missing Bram Moolenaar <Bram@vim.org> parents: 19249 diff changeset	2544 if has('terminal') && has('termguicolors')
19241 c53dbbf3229b patch 8.2.0179: still a few places where range() does not work Bram Moolenaar <Bram@vim.org> parents: 19209 diff changeset	2545 call assert_fails('call term_start(range(3, 4))', 'E474:')
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work Bram Moolenaar <Bram@vim.org> parents: 19209 diff changeset	2546 let g:terminal_ansi_colors = range(16)
19306 e4a155edc9cb patch 8.2.0211: test for ANSI colors fails without an "ls" command Bram Moolenaar <Bram@vim.org> parents: 19255 diff changeset	2547 if has('win32')
e4a155edc9cb patch 8.2.0211: test for ANSI colors fails without an "ls" command Bram Moolenaar <Bram@vim.org> parents: 19255 diff changeset	2548 let cmd = "cmd /c dir"
e4a155edc9cb patch 8.2.0211: test for ANSI colors fails without an "ls" command Bram Moolenaar <Bram@vim.org> parents: 19255 diff changeset	2549 else
e4a155edc9cb patch 8.2.0211: test for ANSI colors fails without an "ls" command Bram Moolenaar <Bram@vim.org> parents: 19255 diff changeset	2550 let cmd = "ls"
e4a155edc9cb patch 8.2.0211: test for ANSI colors fails without an "ls" command Bram Moolenaar <Bram@vim.org> parents: 19255 diff changeset	2551 endif
e4a155edc9cb patch 8.2.0211: test for ANSI colors fails without an "ls" command Bram Moolenaar <Bram@vim.org> parents: 19255 diff changeset	2552 call assert_fails('call term_start("' .. cmd .. '", #{term_finish: "close"})', 'E475:')
19241 c53dbbf3229b patch 8.2.0179: still a few places where range() does not work Bram Moolenaar <Bram@vim.org> parents: 19209 diff changeset	2553 unlet g:terminal_ansi_colors
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work Bram Moolenaar <Bram@vim.org> parents: 19209 diff changeset	2554 endif
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work Bram Moolenaar <Bram@vim.org> parents: 19209 diff changeset	2555
19201 e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2556 " type()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2557 call assert_equal(v:t_list, type(range(5)))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2558
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2559 " uniq()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2560 call assert_equal([0, 1, 2, 3, 4], uniq(range(5)))
19783 546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2561
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2562 " errors
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2563 call assert_fails('let x=range(2, 8, 0)', 'E726:')
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2564 call assert_fails('let x=range(3, 1)', 'E727:')
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2565 call assert_fails('let x=range(1, 3, -2)', 'E727:')
20178 2fb397573541 patch 8.2.0644: insufficient testing for invalid function arguments Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	2566 call assert_fails('let x=range([])', 'E745:')
2fb397573541 patch 8.2.0644: insufficient testing for invalid function arguments Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	2567 call assert_fails('let x=range(1, [])', 'E745:')
2fb397573541 patch 8.2.0644: insufficient testing for invalid function arguments Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	2568 call assert_fails('let x=range(1, 4, [])', 'E745:')
19201 e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 18821 diff changeset	2569 endfunc
19400 bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled Bram Moolenaar <Bram@vim.org> parents: 19306 diff changeset	2570
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled Bram Moolenaar <Bram@vim.org> parents: 19306 diff changeset	2571 func Test_echoraw()
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled Bram Moolenaar <Bram@vim.org> parents: 19306 diff changeset	2572 CheckScreendump
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled Bram Moolenaar <Bram@vim.org> parents: 19306 diff changeset	2573
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled Bram Moolenaar <Bram@vim.org> parents: 19306 diff changeset	2574 " Normally used for escape codes, but let's test with a CR.
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled Bram Moolenaar <Bram@vim.org> parents: 19306 diff changeset	2575 let lines =<< trim END
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled Bram Moolenaar <Bram@vim.org> parents: 19306 diff changeset	2576 call echoraw("hello\<CR>x")
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled Bram Moolenaar <Bram@vim.org> parents: 19306 diff changeset	2577 END
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled Bram Moolenaar <Bram@vim.org> parents: 19306 diff changeset	2578 call writefile(lines, 'XTest_echoraw')
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled Bram Moolenaar <Bram@vim.org> parents: 19306 diff changeset	2579 let buf = RunVimInTerminal('-S XTest_echoraw', {'rows': 5, 'cols': 40})
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled Bram Moolenaar <Bram@vim.org> parents: 19306 diff changeset	2580 call VerifyScreenDump(buf, 'Test_functions_echoraw', {})
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled Bram Moolenaar <Bram@vim.org> parents: 19306 diff changeset	2581
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled Bram Moolenaar <Bram@vim.org> parents: 19306 diff changeset	2582 " clean up
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled Bram Moolenaar <Bram@vim.org> parents: 19306 diff changeset	2583 call StopVimInTerminal(buf)
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled Bram Moolenaar <Bram@vim.org> parents: 19306 diff changeset	2584 call delete('XTest_echoraw')
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled Bram Moolenaar <Bram@vim.org> parents: 19306 diff changeset	2585 endfunc
19517 738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage Bram Moolenaar <Bram@vim.org> parents: 19400 diff changeset	2586
20158 94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2587 " Test for echo highlighting
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2588 func Test_echohl()
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2589 echohl Search
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2590 echo 'Vim'
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2591 call assert_equal('Vim', Screenline(&lines))
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2592 " TODO: How to check the highlight group used by echohl?
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2593 " ScreenAttrs() returns all zeros.
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2594 echohl None
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2595 endfunc
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2596
19783 546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2597 " Test for the eval() function
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2598 func Test_eval()
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2599 call assert_fails("call eval('5 a')", 'E488:')
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2600 endfunc
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2601
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2602 " Test for the nr2char() function
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2603 func Test_nr2char()
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2604 set encoding=latin1
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2605 call assert_equal('@', nr2char(64))
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2606 set encoding=utf8
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2607 call assert_equal('a', nr2char(97, 1))
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2608 call assert_equal('a', nr2char(97, 0))
20526 9fd5414e294c patch 8.2.0817: not enough memory allocated when converting string Bram Moolenaar <Bram@vim.org> parents: 20313 diff changeset	2609
9fd5414e294c patch 8.2.0817: not enough memory allocated when converting string Bram Moolenaar <Bram@vim.org> parents: 20313 diff changeset	2610 call assert_equal("\x80\xfc\b\xf4\x80\xfeX\x80\xfeX\x80\xfeX", eval('"\<M-' .. nr2char(0x100000) .. '>"'))
20540 193c0446cf28 patch 8.2.0824: still not enough memory allocated when converting string Bram Moolenaar <Bram@vim.org> parents: 20526 diff changeset	2611 call assert_equal("\x80\xfc\b\xfd\x80\xfeX\x80\xfeX\x80\xfeX\x80\xfeX\x80\xfeX", eval('"\<M-' .. nr2char(0x40000000) .. '>"'))
19783 546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2612 endfunc
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2613
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2614 " Test for screenattr(), screenchar() and screenchars() functions
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2615 func Test_screen_functions()
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2616 call assert_equal(-1, screenattr(-1, -1))
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2617 call assert_equal(-1, screenchar(-1, -1))
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2618 call assert_equal([], screenchars(-1, -1))
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2619 endfunc
546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 19742 diff changeset	2620
20109 e82996ad131f patch 8.2.0610: some tests are still old style Bram Moolenaar <Bram@vim.org> parents: 19954 diff changeset	2621 " Test for getcurpos() and setpos()
e82996ad131f patch 8.2.0610: some tests are still old style Bram Moolenaar <Bram@vim.org> parents: 19954 diff changeset	2622 func Test_getcurpos_setpos()
e82996ad131f patch 8.2.0610: some tests are still old style Bram Moolenaar <Bram@vim.org> parents: 19954 diff changeset	2623 new
e82996ad131f patch 8.2.0610: some tests are still old style Bram Moolenaar <Bram@vim.org> parents: 19954 diff changeset	2624 call setline(1, ['012345678', '012345678'])
e82996ad131f patch 8.2.0610: some tests are still old style Bram Moolenaar <Bram@vim.org> parents: 19954 diff changeset	2625 normal gg6l
e82996ad131f patch 8.2.0610: some tests are still old style Bram Moolenaar <Bram@vim.org> parents: 19954 diff changeset	2626 let sp = getcurpos()
e82996ad131f patch 8.2.0610: some tests are still old style Bram Moolenaar <Bram@vim.org> parents: 19954 diff changeset	2627 normal 0
e82996ad131f patch 8.2.0610: some tests are still old style Bram Moolenaar <Bram@vim.org> parents: 19954 diff changeset	2628 call setpos('.', sp)
e82996ad131f patch 8.2.0610: some tests are still old style Bram Moolenaar <Bram@vim.org> parents: 19954 diff changeset	2629 normal jyl
e82996ad131f patch 8.2.0610: some tests are still old style Bram Moolenaar <Bram@vim.org> parents: 19954 diff changeset	2630 call assert_equal('6', @")
20158 94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2631 call assert_equal(-1, setpos('.', test_null_list()))
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2632 call assert_equal(-1, setpos('.', {}))
22357 0e231e8e70f8 patch 8.2.1727: a popup created with "cursorline" will ignore "firstline" Bram Moolenaar <Bram@vim.org> parents: 22355 diff changeset	2633
0e231e8e70f8 patch 8.2.1727: a popup created with "cursorline" will ignore "firstline" Bram Moolenaar <Bram@vim.org> parents: 22355 diff changeset	2634 let winid = win_getid()
0e231e8e70f8 patch 8.2.1727: a popup created with "cursorline" will ignore "firstline" Bram Moolenaar <Bram@vim.org> parents: 22355 diff changeset	2635 normal G$
0e231e8e70f8 patch 8.2.1727: a popup created with "cursorline" will ignore "firstline" Bram Moolenaar <Bram@vim.org> parents: 22355 diff changeset	2636 let pos = getcurpos()
0e231e8e70f8 patch 8.2.1727: a popup created with "cursorline" will ignore "firstline" Bram Moolenaar <Bram@vim.org> parents: 22355 diff changeset	2637 wincmd w
0e231e8e70f8 patch 8.2.1727: a popup created with "cursorline" will ignore "firstline" Bram Moolenaar <Bram@vim.org> parents: 22355 diff changeset	2638 call assert_equal(pos, getcurpos(winid))
0e231e8e70f8 patch 8.2.1727: a popup created with "cursorline" will ignore "firstline" Bram Moolenaar <Bram@vim.org> parents: 22355 diff changeset	2639
0e231e8e70f8 patch 8.2.1727: a popup created with "cursorline" will ignore "firstline" Bram Moolenaar <Bram@vim.org> parents: 22355 diff changeset	2640 wincmd w
20109 e82996ad131f patch 8.2.0610: some tests are still old style Bram Moolenaar <Bram@vim.org> parents: 19954 diff changeset	2641 close!
22357 0e231e8e70f8 patch 8.2.1727: a popup created with "cursorline" will ignore "firstline" Bram Moolenaar <Bram@vim.org> parents: 22355 diff changeset	2642
0e231e8e70f8 patch 8.2.1727: a popup created with "cursorline" will ignore "firstline" Bram Moolenaar <Bram@vim.org> parents: 22355 diff changeset	2643 call assert_equal(getcurpos(), getcurpos(0))
0e231e8e70f8 patch 8.2.1727: a popup created with "cursorline" will ignore "firstline" Bram Moolenaar <Bram@vim.org> parents: 22355 diff changeset	2644 call assert_equal([0, 0, 0, 0, 0], getcurpos(-1))
0e231e8e70f8 patch 8.2.1727: a popup created with "cursorline" will ignore "firstline" Bram Moolenaar <Bram@vim.org> parents: 22355 diff changeset	2645 call assert_equal([0, 0, 0, 0, 0], getcurpos(1999))
20109 e82996ad131f patch 8.2.0610: some tests are still old style Bram Moolenaar <Bram@vim.org> parents: 19954 diff changeset	2646 endfunc
e82996ad131f patch 8.2.0610: some tests are still old style Bram Moolenaar <Bram@vim.org> parents: 19954 diff changeset	2647
20158 94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2648 " Test for glob()
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2649 func Test_glob()
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2650 call assert_equal('', glob(test_null_string()))
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2651 call assert_equal('', globpath(test_null_string(), test_null_string()))
24669 d7644bffe128 patch 8.2.2873: not enough tests for writing buffers Bram Moolenaar <Bram@vim.org> parents: 24618 diff changeset	2652 call assert_fails("let x = globpath(&rtp, 'syntax/c.vim', [])", 'E745:')
21911 0c0e8cd8c177 patch 8.2.1505: not all file read and writecode is tested Bram Moolenaar <Bram@vim.org> parents: 21765 diff changeset	2653
0c0e8cd8c177 patch 8.2.1505: not all file read and writecode is tested Bram Moolenaar <Bram@vim.org> parents: 21765 diff changeset	2654 call writefile([], 'Xglob1')
0c0e8cd8c177 patch 8.2.1505: not all file read and writecode is tested Bram Moolenaar <Bram@vim.org> parents: 21765 diff changeset	2655 call writefile([], 'XGLOB2')
0c0e8cd8c177 patch 8.2.1505: not all file read and writecode is tested Bram Moolenaar <Bram@vim.org> parents: 21765 diff changeset	2656 set wildignorecase
0c0e8cd8c177 patch 8.2.1505: not all file read and writecode is tested Bram Moolenaar <Bram@vim.org> parents: 21765 diff changeset	2657 " Sort output of glob() otherwise we end up with different
0c0e8cd8c177 patch 8.2.1505: not all file read and writecode is tested Bram Moolenaar <Bram@vim.org> parents: 21765 diff changeset	2658 " ordering depending on whether file system is case-sensitive.
0c0e8cd8c177 patch 8.2.1505: not all file read and writecode is tested Bram Moolenaar <Bram@vim.org> parents: 21765 diff changeset	2659 call assert_equal(['XGLOB2', 'Xglob1'], sort(glob('Xglob[12]', 0, 1)))
0c0e8cd8c177 patch 8.2.1505: not all file read and writecode is tested Bram Moolenaar <Bram@vim.org> parents: 21765 diff changeset	2660 set wildignorecase&
0c0e8cd8c177 patch 8.2.1505: not all file read and writecode is tested Bram Moolenaar <Bram@vim.org> parents: 21765 diff changeset	2661
0c0e8cd8c177 patch 8.2.1505: not all file read and writecode is tested Bram Moolenaar <Bram@vim.org> parents: 21765 diff changeset	2662 call delete('Xglob1')
0c0e8cd8c177 patch 8.2.1505: not all file read and writecode is tested Bram Moolenaar <Bram@vim.org> parents: 21765 diff changeset	2663 call delete('XGLOB2')
0c0e8cd8c177 patch 8.2.1505: not all file read and writecode is tested Bram Moolenaar <Bram@vim.org> parents: 21765 diff changeset	2664
0c0e8cd8c177 patch 8.2.1505: not all file read and writecode is tested Bram Moolenaar <Bram@vim.org> parents: 21765 diff changeset	2665 call assert_fails("call glob('*', 0, {})", 'E728:')
20158 94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2666 endfunc
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2667
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2668 " Test for browse()
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2669 func Test_browse()
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2670 CheckFeature browse
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2671 call assert_fails('call browse([], "open", "x", "a.c")', 'E745:')
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2672 endfunc
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2673
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2674 " Test for browsedir()
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2675 func Test_browsedir()
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2676 CheckFeature browse
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2677 call assert_fails('call browsedir("open", [])', 'E730:')
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2678 endfunc
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20156 diff changeset	2679
24448 faac16c365b6 patch 8.2.2764: memory leak when default function argument is allocated Bram Moolenaar <Bram@vim.org> parents: 24204 diff changeset	2680 func HasDefault(msg = 'msg')
faac16c365b6 patch 8.2.2764: memory leak when default function argument is allocated Bram Moolenaar <Bram@vim.org> parents: 24204 diff changeset	2681 return a:msg
faac16c365b6 patch 8.2.2764: memory leak when default function argument is allocated Bram Moolenaar <Bram@vim.org> parents: 24204 diff changeset	2682 endfunc
faac16c365b6 patch 8.2.2764: memory leak when default function argument is allocated Bram Moolenaar <Bram@vim.org> parents: 24204 diff changeset	2683
faac16c365b6 patch 8.2.2764: memory leak when default function argument is allocated Bram Moolenaar <Bram@vim.org> parents: 24204 diff changeset	2684 func Test_default_arg_value()
faac16c365b6 patch 8.2.2764: memory leak when default function argument is allocated Bram Moolenaar <Bram@vim.org> parents: 24204 diff changeset	2685 call assert_equal('msg', HasDefault())
faac16c365b6 patch 8.2.2764: memory leak when default function argument is allocated Bram Moolenaar <Bram@vim.org> parents: 24204 diff changeset	2686 endfunc
faac16c365b6 patch 8.2.2764: memory leak when default function argument is allocated Bram Moolenaar <Bram@vim.org> parents: 24204 diff changeset	2687
24695 13efbfc53054 patch 8.2.2886: various pieces of code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 24685 diff changeset	2688 " Test for gettext()
13efbfc53054 patch 8.2.2886: various pieces of code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 24685 diff changeset	2689 func Test_gettext()
13efbfc53054 patch 8.2.2886: various pieces of code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 24685 diff changeset	2690 call assert_fails('call gettext(1)', 'E475:')
13efbfc53054 patch 8.2.2886: various pieces of code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 24685 diff changeset	2691 endfunc
13efbfc53054 patch 8.2.2886: various pieces of code not covered by tests Bram Moolenaar <Bram@vim.org> parents: 24685 diff changeset	2692
24760 ca0f983f08cf patch 8.2.2918: builtin function can be shadowed by global variable Bram Moolenaar <Bram@vim.org> parents: 24695 diff changeset	2693 func Test_builtin_check()
ca0f983f08cf patch 8.2.2918: builtin function can be shadowed by global variable Bram Moolenaar <Bram@vim.org> parents: 24695 diff changeset	2694 call assert_fails('let g:["trim"] = {x -> " " .. x}', 'E704:')
ca0f983f08cf patch 8.2.2918: builtin function can be shadowed by global variable Bram Moolenaar <Bram@vim.org> parents: 24695 diff changeset	2695 call assert_fails('let g:.trim = {x -> " " .. x}', 'E704:')
24766 29ed95687f74 patch 8.2.2921: E704 for script local variable is not backwards compatible Bram Moolenaar <Bram@vim.org> parents: 24764 diff changeset	2696 call assert_fails('let l:["trim"] = {x -> " " .. x}', 'E704:')
29ed95687f74 patch 8.2.2921: E704 for script local variable is not backwards compatible Bram Moolenaar <Bram@vim.org> parents: 24764 diff changeset	2697 call assert_fails('let l:.trim = {x -> " " .. x}', 'E704:')
29ed95687f74 patch 8.2.2921: E704 for script local variable is not backwards compatible Bram Moolenaar <Bram@vim.org> parents: 24764 diff changeset	2698 let lines =<< trim END
29ed95687f74 patch 8.2.2921: E704 for script local variable is not backwards compatible Bram Moolenaar <Bram@vim.org> parents: 24764 diff changeset	2699 vim9script
29ed95687f74 patch 8.2.2921: E704 for script local variable is not backwards compatible Bram Moolenaar <Bram@vim.org> parents: 24764 diff changeset	2700 var s:trim = (x) => " " .. x
29ed95687f74 patch 8.2.2921: E704 for script local variable is not backwards compatible Bram Moolenaar <Bram@vim.org> parents: 24764 diff changeset	2701 END
29ed95687f74 patch 8.2.2921: E704 for script local variable is not backwards compatible Bram Moolenaar <Bram@vim.org> parents: 24764 diff changeset	2702 call CheckScriptFailure(lines, 'E704:')
24764 3907cf9be745 patch 8.2.2920: still a way to shadow a builtin function Bram Moolenaar <Bram@vim.org> parents: 24760 diff changeset	2703
3907cf9be745 patch 8.2.2920: still a way to shadow a builtin function Bram Moolenaar <Bram@vim.org> parents: 24760 diff changeset	2704 call assert_fails('call extend(g:, #{foo: { -> "foo" }})', 'E704:')
3907cf9be745 patch 8.2.2920: still a way to shadow a builtin function Bram Moolenaar <Bram@vim.org> parents: 24760 diff changeset	2705 let g:bar = 123
3907cf9be745 patch 8.2.2920: still a way to shadow a builtin function Bram Moolenaar <Bram@vim.org> parents: 24760 diff changeset	2706 call extend(g:, #{bar: { -> "foo" }}, "keep")
3907cf9be745 patch 8.2.2920: still a way to shadow a builtin function Bram Moolenaar <Bram@vim.org> parents: 24760 diff changeset	2707 call assert_fails('call extend(g:, #{bar: { -> "foo" }}, "force")', 'E704:')
24760 ca0f983f08cf patch 8.2.2918: builtin function can be shadowed by global variable Bram Moolenaar <Bram@vim.org> parents: 24695 diff changeset	2708 endfunc
ca0f983f08cf patch 8.2.2918: builtin function can be shadowed by global variable Bram Moolenaar <Bram@vim.org> parents: 24695 diff changeset	2709
ca0f983f08cf patch 8.2.2918: builtin function can be shadowed by global variable Bram Moolenaar <Bram@vim.org> parents: 24695 diff changeset	2710
19517 738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage Bram Moolenaar <Bram@vim.org> parents: 19400 diff changeset	2711 " vim: shiftwidth=2 sts=2 expandtab

Mercurial > vim

annotate src/testdir/test_functions.vim @ 25566:e1c7aa26ddf5