annotate src/testdir/test_functions.vim @ 29531:9f93092fb3cc v9.0.0107

patch 9.0.0107: condition always has the same value Commit: https://github.com/vim/vim/commit/72981ac94ff7aeaa596d535448ee0bef46050acf Author: Bram Moolenaar <Bram@vim.org> Date: Fri Jul 29 19:50:41 2022 +0100 patch 9.0.0107: condition always has the same value Problem: Condition always has the same value. Solution: Remove the condition.
author Bram Moolenaar <Bram@vim.org>
date Fri, 29 Jul 2022 21:00:04 +0200
parents 72d1b2ea70dc
children 349517ab7398
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
27457
4c16acb2525f patch 8.2.4257: Vim9: finding global function without g: prefix inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 27412
diff changeset
7 import './vim9.vim' as v9
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))
29334
72d1b2ea70dc patch 9.0.0010: returning 0 for has('patch-9.0.0') is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 29073
diff changeset
43
72d1b2ea70dc patch 9.0.0010: returning 0 for has('patch-9.0.0') is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 29073
diff changeset
44 " There actually isn't a patch 9.0.0, but this is more consistent.
72d1b2ea70dc patch 9.0.0010: returning 0 for has('patch-9.0.0') is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 29073
diff changeset
45 call assert_equal(1, has('patch-9.0.0'))
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
46 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
47
10743
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
48 func Test_empty()
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(''))
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(0, empty('a'))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
51
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(1, empty(0))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
53 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
54 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
55 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
56
19249
2a017e9dc6da patch 8.2.0183: tests fail when the float feature is disabled
Bram Moolenaar <Bram@vim.org>
parents: 19241
diff changeset
57 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
58 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
59 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
60 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
61 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
62 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
63 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
64 endif
10743
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']))
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({}))
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(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
71
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(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
73 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
74 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
75 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
76
11095
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
77 if has('channel')
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_channel()))
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 if has('job')
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
81 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
82 endif
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
83
10743
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
84 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
85 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
86
9a9ca0e622c8 patch 8.2.0331: internal error when using test_void() and test_unknown()
Bram Moolenaar <Bram@vim.org>
parents: 19536
diff changeset
87 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
88 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
89 endfunc
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
90
19554
b38d73f36467 patch 8.2.0334: abort called when using test_void()
Bram Moolenaar <Bram@vim.org>
parents: 19548
diff changeset
91 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
92 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
93 if has('float')
24940
0c415a0f54f9 patch 8.2.3007: Vim9: test for void value fails
Bram Moolenaar <Bram@vim.org>
parents: 24878
diff changeset
94 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
95 endif
b38d73f36467 patch 8.2.0334: abort called when using test_void()
Bram Moolenaar <Bram@vim.org>
parents: 19548
diff changeset
96 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
97 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
98 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
99 endfunc
b38d73f36467 patch 8.2.0334: abort called when using test_void()
Bram Moolenaar <Bram@vim.org>
parents: 19548
diff changeset
100
25244
11ed1f0adb01 patch 8.2.3158: strange error message when using islocked() with a number
Bram Moolenaar <Bram@vim.org>
parents: 25094
diff changeset
101 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
102 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
103 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
104 endfunc
11ed1f0adb01 patch 8.2.3158: strange error message when using islocked() with a number
Bram Moolenaar <Bram@vim.org>
parents: 25094
diff changeset
105
10743
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
106 func Test_len()
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(1, len(0))
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(12))
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(''))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
111 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
112
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
113 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
114 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
115 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
116
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
117 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
118 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
119 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
120
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
121 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
122 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
123 endfunc
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
124
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
125 func Test_max()
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(0, max([]))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
127 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
128 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
129 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
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_equal(0, max({}))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
132 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
133
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
134 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
135 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
136
a45a922832d4 patch 8.2.2466: max() and min() can give many error messages
Bram Moolenaar <Bram@vim.org>
parents: 23432
diff changeset
137 " 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
138 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
139 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
140 endfunc
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
141
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
142 func Test_min()
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([]))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
144 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
145 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
146 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
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_equal(0, min({}))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
149 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
150
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
151 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
152 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
153 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
154
a45a922832d4 patch 8.2.2466: max() and min() can give many error messages
Bram Moolenaar <Bram@vim.org>
parents: 23432
diff changeset
155 " 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
156 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
157 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
158 endfunc
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
159
13980
a9e31b01366b patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents: 13513
diff changeset
160 func Test_strwidth()
a9e31b01366b patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents: 13513
diff changeset
161 for aw in ['single', 'double']
a9e31b01366b patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents: 13513
diff changeset
162 exe 'set ambiwidth=' . aw
a9e31b01366b patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents: 13513
diff changeset
163 call assert_equal(0, strwidth(''))
a9e31b01366b patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents: 13513
diff changeset
164 call assert_equal(1, strwidth("\t"))
a9e31b01366b patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents: 13513
diff changeset
165 call assert_equal(3, strwidth('Vim'))
a9e31b01366b patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents: 13513
diff changeset
166 call assert_equal(4, strwidth(1234))
a9e31b01366b patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents: 13513
diff changeset
167 call assert_equal(5, strwidth(-1234))
a9e31b01366b patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents: 13513
diff changeset
168
15607
2dcaa860e3fc patch 8.1.0811: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 15008
diff changeset
169 call assert_equal(2, strwidth('😉'))
2dcaa860e3fc patch 8.1.0811: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 15008
diff changeset
170 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
171 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
172
a9e31b01366b patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents: 13513
diff changeset
173 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
174 call assert_fails('call strwidth([])', 'E730:')
a9e31b01366b patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents: 13513
diff changeset
175 call assert_fails('call strwidth({})', 'E731:')
a9e31b01366b patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents: 13513
diff changeset
176 endfor
a9e31b01366b patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents: 13513
diff changeset
177
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 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
179 call assert_equal(3, strwidth(1.2))
27457
4c16acb2525f patch 8.2.4257: Vim9: finding global function without g: prefix inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 27412
diff changeset
180 call v9.CheckDefAndScriptFailure(['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
181 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
182
13980
a9e31b01366b patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents: 13513
diff changeset
183 set ambiwidth&
a9e31b01366b patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents: 13513
diff changeset
184 endfunc
a9e31b01366b patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents: 13513
diff changeset
185
10555
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
186 func Test_str2nr()
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
187 call assert_equal(0, str2nr(''))
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
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
191 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
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
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
195 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
196 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
197 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
198
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
199 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
200 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
201
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))
18017
988e5a868b60 patch 8.1.2004: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 18000
diff changeset
203 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
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 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
206 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
207 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
208
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('101', 8))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
210 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
211 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
212 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
213 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
214 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
215 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
216 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
217
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('abcdef', 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('ABCDEF', 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('-ABCDEF', 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 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
223 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
224 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
225
18080
a6d218f99ff7 patch 8.1.2035: recognizing octal numbers is confusing
Bram Moolenaar <Bram@vim.org>
parents: 18035
diff changeset
226 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
227 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
228 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
229 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
230 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
231 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
232
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(0, str2nr('0x10'))
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(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
235 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
236 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
237 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
238 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
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_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
241 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
242
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
243 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
244 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
245 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
246 call assert_equal(1, str2nr(1.2))
27457
4c16acb2525f patch 8.2.4257: Vim9: finding global function without g: prefix inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 27412
diff changeset
247 call v9.CheckDefAndScriptFailure(['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
248 endif
21265
6a4806e326dd patch 8.2.1183: assert_fails() checks the last error message
Bram Moolenaar <Bram@vim.org>
parents: 20978
diff changeset
249 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
250 endfunc
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
251
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
252 func Test_strftime()
18669
9007e9896303 patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents: 18623
diff changeset
253 CheckFunction strftime
9007e9896303 patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents: 18623
diff changeset
254
10743
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
255 " 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
256 " 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
257 " 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
258 "
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
259 " 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
260 " 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
261 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
262 "
18017
988e5a868b60 patch 8.1.2004: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 18000
diff changeset
263 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
264
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
265 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
266 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
267
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes
Bram Moolenaar <Bram@vim.org>
parents: 16945
diff changeset
268 " 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
269 " 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
270 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
271 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
272 endif
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes
Bram Moolenaar <Bram@vim.org>
parents: 16945
diff changeset
273
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes
Bram Moolenaar <Bram@vim.org>
parents: 16945
diff changeset
274 " 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
275 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
276 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
277
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes
Bram Moolenaar <Bram@vim.org>
parents: 16945
diff changeset
278 " 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
279 " 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
280 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
281 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
282 " 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
283 if has('unix')
ca4e6685e2f4 patch 8.1.1568: strftime() test fails on MS-Windows
Bram Moolenaar <Bram@vim.org>
parents: 17135
diff changeset
284 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
285 endif
17135
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes
Bram Moolenaar <Bram@vim.org>
parents: 16945
diff changeset
286
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes
Bram Moolenaar <Bram@vim.org>
parents: 16945
diff changeset
287 " 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
288 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
289 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
290 else
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes
Bram Moolenaar <Bram@vim.org>
parents: 16945
diff changeset
291 unlet $TZ
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes
Bram Moolenaar <Bram@vim.org>
parents: 16945
diff changeset
292 endif
18669
9007e9896303 patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents: 18623
diff changeset
293 endfunc
17135
d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes
Bram Moolenaar <Bram@vim.org>
parents: 16945
diff changeset
294
18669
9007e9896303 patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents: 18623
diff changeset
295 func Test_strptime()
9007e9896303 patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents: 18623
diff changeset
296 CheckFunction strptime
9007e9896303 patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents: 18623
diff changeset
297
9007e9896303 patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents: 18623
diff changeset
298 if exists('$TZ')
9007e9896303 patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents: 18623
diff changeset
299 let tz = $TZ
9007e9896303 patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents: 18623
diff changeset
300 endif
9007e9896303 patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents: 18623
diff changeset
301 let $TZ = 'UTC'
9007e9896303 patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents: 18623
diff changeset
302
18821
a9cfb0db187d patch 8.1.2398: strptime() test fails on Japanese Mac
Bram Moolenaar <Bram@vim.org>
parents: 18669
diff changeset
303 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
304
20794
2e7acc208a1f patch 8.2.0949: strptime() does not use DST
Bram Moolenaar <Bram@vim.org>
parents: 20790
diff changeset
305 " 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
306 let $TZ = 'WINTER0SUMMER,J1,J365'
2e7acc208a1f patch 8.2.0949: strptime() does not use DST
Bram Moolenaar <Bram@vim.org>
parents: 20790
diff changeset
307 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
308
18669
9007e9896303 patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents: 18623
diff changeset
309 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
310 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
311 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
312 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
313
9007e9896303 patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents: 18623
diff changeset
314 if exists('tz')
9007e9896303 patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents: 18623
diff changeset
315 let $TZ = tz
9007e9896303 patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents: 18623
diff changeset
316 else
9007e9896303 patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents: 18623
diff changeset
317 unlet $TZ
9007e9896303 patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents: 18623
diff changeset
318 endif
10743
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
319 endfunc
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
320
15774
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents: 15754
diff changeset
321 func Test_resolve_unix()
21765
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 21552
diff changeset
322 CheckUnix
14885
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents: 14883
diff changeset
323
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents: 14883
diff changeset
324 " Xlink1 -> Xlink2
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents: 14883
diff changeset
325 " Xlink2 -> Xlink3
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents: 14883
diff changeset
326 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
327 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
328 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
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('Xlink2/'))
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents: 14883
diff changeset
331 " 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
332 "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
333 "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
334 "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
335 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
336
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents: 14883
diff changeset
337 " 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
338 " Xlink1 -> Xlink2
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents: 14883
diff changeset
339 " Xlink2 -> Xlink3
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents: 14883
diff changeset
340 " Xlink3 -> Xlink1
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents: 14883
diff changeset
341 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
342 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
343 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
344 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
345 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
346 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
347 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
348 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
349
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents: 14883
diff changeset
350 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
351 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
352 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
353
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents: 14883
diff changeset
354 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
355 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
356 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
357 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
358
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents: 14883
diff changeset
359 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
360 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
361 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
362 call delete('Xlink1')
22512
aeeee593fe0f patch 8.2.1804: resolve('/') returns an empty string
Bram Moolenaar <Bram@vim.org>
parents: 22385
diff changeset
363
aeeee593fe0f patch 8.2.1804: resolve('/') returns an empty string
Bram Moolenaar <Bram@vim.org>
parents: 22385
diff changeset
364 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
365 endfunc
5e47597de905 patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents: 14883
diff changeset
366
15774
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents: 15754
diff changeset
367 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
368 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
369 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
370 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
371 endfunc
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 func Test_resolve_win32()
21765
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 21552
diff changeset
374 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
375
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents: 15754
diff changeset
376 " 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
377 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
378 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
379 wq
17172
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents: 17137
diff changeset
380 let lines =<< trim END
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents: 17137
diff changeset
381 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
382 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
383 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
384 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
385 shortcut.Save
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents: 17137
diff changeset
386 END
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents: 17137
diff changeset
387 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
388 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
389 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
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('Xfile')
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents: 15754
diff changeset
392
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents: 15754
diff changeset
393 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
394 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
395 else
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents: 15754
diff changeset
396 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
397 endif
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents: 15754
diff changeset
398
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents: 15754
diff changeset
399 " 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
400 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
401 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
402 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
403
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents: 15754
diff changeset
404 " 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
405 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
406 wq
16945
efd36a9052cc patch 8.1.1473: new resolve() implementation causes problem for plugins
Bram Moolenaar <Bram@vim.org>
parents: 16831
diff changeset
407 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
408 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
409 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
410 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
411 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
412 else
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents: 15754
diff changeset
413 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
414 endif
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 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
416
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents: 15754
diff changeset
417 " 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
418 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
419 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
420 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
421 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
422
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 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
424
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents: 15754
diff changeset
425 " 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
426 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
427 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
428 else
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents: 15754
diff changeset
429 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
430 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
431 endif
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents: 15754
diff changeset
432
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents: 15754
diff changeset
433 " 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
434 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
435 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
436 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
437 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
438
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 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
440
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents: 15754
diff changeset
441 " 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
442 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
443 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
444 else
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents: 15754
diff changeset
445 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
446 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
447 endif
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents: 15754
diff changeset
448
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents: 15754
diff changeset
449 " 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
450 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
451 wq
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents: 15754
diff changeset
452 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
453 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
454 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
455 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
456 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
457 bw!
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents: 15754
diff changeset
458 else
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents: 15754
diff changeset
459 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
460 endif
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents: 15754
diff changeset
461 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
462
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 " 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
464 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
465 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
466 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
467 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
468 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
469 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
470 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
471 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
472 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
473 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
474 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
475 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
476
f42aa3d90b12 patch 8.1.1417: MS-Windows: resolve() does not resolve all components of path
Bram Moolenaar <Bram@vim.org>
parents: 16752
diff changeset
477 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
478 endfunc
c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents: 15754
diff changeset
479
10743
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
480 func Test_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('/'))
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
483 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
484 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
485 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
486 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
487 if has('unix')
738e182aaf29 patch 8.2.0986: MS-Windows: functions test fails
Bram Moolenaar <Bram@vim.org>
parents: 20867
diff changeset
488 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
489 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
490 endif
20867
9c24319b4cb2 patch 8.2.0985: simplify() does not remove slashes from "///path"
Bram Moolenaar <Bram@vim.org>
parents: 20794
diff changeset
491
19952
82ea10d554fb patch 8.2.0532: cannot use simplify() as a method
Bram Moolenaar <Bram@vim.org>
parents: 19932
diff changeset
492 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
493 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
494 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
495 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
496 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
497 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
498 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
499 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
500 call mkdir('Xdir')
2c3e7a6bd6c6 patch 8.2.1040: not enough testing for movement commands
Bram Moolenaar <Bram@vim.org>
parents: 20887
diff changeset
501 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
502 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
503
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
504 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
505 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
506 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
507 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
508 call assert_equal('1.2', simplify(1.2))
27457
4c16acb2525f patch 8.2.4257: Vim9: finding global function without g: prefix inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 27412
diff changeset
509 call v9.CheckDefAndScriptFailure(['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
510 endif
10555
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
511 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
512
14487
336213a840d9 patch 8.1.0257: no test for pathshorten()
Christian Brabandt <cb@256bit.org>
parents: 14422
diff changeset
513 func Test_pathshorten()
336213a840d9 patch 8.1.0257: no test for pathshorten()
Christian Brabandt <cb@256bit.org>
parents: 14422
diff changeset
514 call assert_equal('', pathshorten(''))
336213a840d9 patch 8.1.0257: no test for pathshorten()
Christian Brabandt <cb@256bit.org>
parents: 14422
diff changeset
515 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
516 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
517 call assert_equal('f/', pathshorten('foo/'))
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'))
17976
6d11a0d5751d patch 8.1.1984: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17952
diff changeset
519 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
520 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
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'))
336213a840d9 patch 8.1.0257: no test for pathshorten()
Christian Brabandt <cb@256bit.org>
parents: 14422
diff changeset
523 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
524 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
525 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
526 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
527
770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character
Bram Moolenaar <Bram@vim.org>
parents: 22375
diff changeset
528 " 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
529 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
530 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
531 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
532 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
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/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
535 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
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_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
539 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
540 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
541 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
542 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
543 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
544 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
545 endfunc
336213a840d9 patch 8.1.0257: no test for pathshorten()
Christian Brabandt <cb@256bit.org>
parents: 14422
diff changeset
546
12869
a89350ba2a9d patch 8.0.1311: no test for strpart()
Christian Brabandt <cb@256bit.org>
parents: 12451
diff changeset
547 func Test_strpart()
a89350ba2a9d patch 8.0.1311: no test for strpart()
Christian Brabandt <cb@256bit.org>
parents: 12451
diff changeset
548 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
549 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
550 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
551 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
552 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
553 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
554 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
555
15607
2dcaa860e3fc patch 8.1.0811: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 15008
diff changeset
556 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
557 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
558
62f933f64447 patch 8.2.1517: cannot easily get the character under the cursor
Bram Moolenaar <Bram@vim.org>
parents: 21911
diff changeset
559 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
560 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
561 call assert_equal('ó', strpart('cómposed', 1, 1, 1))
12869
a89350ba2a9d patch 8.0.1311: no test for strpart()
Christian Brabandt <cb@256bit.org>
parents: 12451
diff changeset
562 endfunc
a89350ba2a9d patch 8.0.1311: no test for strpart()
Christian Brabandt <cb@256bit.org>
parents: 12451
diff changeset
563
10706
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes
Christian Brabandt <cb@256bit.org>
parents: 10555
diff changeset
564 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
565 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
566
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes
Christian Brabandt <cb@256bit.org>
parents: 10555
diff changeset
567 " 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
568 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
569 \ 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
570
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes
Christian Brabandt <cb@256bit.org>
parents: 10555
diff changeset
571 " 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
572 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
573 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
574 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
575 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
576 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
577 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
578 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
579 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
580 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
581 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
582 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
583 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
584 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
585 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
586 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
587 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
588 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
589 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
590 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
591 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
592 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
593 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
594 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
595 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
596 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
597 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
598
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes
Christian Brabandt <cb@256bit.org>
parents: 10555
diff changeset
599 " 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
600 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
601 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
602 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
603 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
604 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
605 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
606 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
607 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
608 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
609 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
610 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
611 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
612 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
613 call assert_equal("nñńņňʼnṅṉ", tolower("nñńņňʼnṅṉ"))
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("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
615 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
616 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
617 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
618 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
619 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
620 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
621 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
622 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
623 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
624 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
625 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
626
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes
Christian Brabandt <cb@256bit.org>
parents: 10555
diff changeset
627 " 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
628 " Ⱥ (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
629 " 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
630 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
631
d5647746c267 patch 8.0.1421: accessing invalid memory with overlong byte sequence
Christian Brabandt <cb@256bit.org>
parents: 13070
diff changeset
632 " 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
633 " invalid memory.
d5647746c267 patch 8.0.1421: accessing invalid memory with overlong byte sequence
Christian Brabandt <cb@256bit.org>
parents: 13070
diff changeset
634 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
635 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
636
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 20178
diff changeset
637 " Test in latin1 encoding
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 20178
diff changeset
638 let save_enc = &encoding
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 20178
diff changeset
639 set encoding=latin1
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 20178
diff changeset
640 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
641 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
642 endfunc
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 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
645 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
646
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes
Christian Brabandt <cb@256bit.org>
parents: 10555
diff changeset
647 " 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
648 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
649 \ 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
650
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes
Christian Brabandt <cb@256bit.org>
parents: 10555
diff changeset
651 " 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
652 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
653 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
654 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
655 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
656 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
657 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
658 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
659 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
660 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
661 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
662 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
663 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
664 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
665 call assert_equal("NÑŃŅŇʼnṄṈ", toupper("nñńņňʼnṅṉ"))
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("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
667 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
668 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
669 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
670 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
671 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
672 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
673 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
674 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
675 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
676 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
677 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
678
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes
Christian Brabandt <cb@256bit.org>
parents: 10555
diff changeset
679 " 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
680 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
681 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
682 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
683 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
684 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
685 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
686 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
687 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
688 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
689 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
690 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
691 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
692 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
693 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
694 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
695 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
696 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
697 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
698 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
699 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
700 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
701 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
702 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
703 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
704 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
705 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
706
10743
8779b4b2e958 patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents: 10706
diff changeset
707 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
708
d5647746c267 patch 8.0.1421: accessing invalid memory with overlong byte sequence
Christian Brabandt <cb@256bit.org>
parents: 13070
diff changeset
709 " 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
710 " invalid memory.
d5647746c267 patch 8.0.1421: accessing invalid memory with overlong byte sequence
Christian Brabandt <cb@256bit.org>
parents: 13070
diff changeset
711 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
712 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
713
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 20178
diff changeset
714 " Test in latin1 encoding
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 20178
diff changeset
715 let save_enc = &encoding
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 20178
diff changeset
716 set encoding=latin1
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 20178
diff changeset
717 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
718 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
719 endfunc
056e32b99e93 patch 8.0.0243: tolower() does not work if the byte count changes
Christian Brabandt <cb@256bit.org>
parents: 10555
diff changeset
720
18035
11dca9732a48 patch 8.1.2013: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 18017
diff changeset
721 func Test_tr()
11dca9732a48 patch 8.1.2013: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 18017
diff changeset
722 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
723 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
724 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
725 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
726 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
727 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
728 set encoding=latin1
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
729 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
730 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
731 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
732 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
733 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
734 endfunc
11dca9732a48 patch 8.1.2013: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 18017
diff changeset
735
10787
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents: 10743
diff changeset
736 " 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
737 let current_modes = ''
11135
c4e4387bbd50 patch 8.0.0455: the mode test may hang
Christian Brabandt <cb@256bit.org>
parents: 11095
diff changeset
738 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
739 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
740 return ''
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents: 10743
diff changeset
741 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
742
19906
031184ace7c5 patch 8.2.0509: various code is not properly tested.
Bram Moolenaar <Bram@vim.org>
parents: 19902
diff changeset
743 " 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
744 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
745 new
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents: 10743
diff changeset
746 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
747
11135
c4e4387bbd50 patch 8.0.0455: the mode test may hang
Christian Brabandt <cb@256bit.org>
parents: 11095
diff changeset
748 " 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
749 set complete=.
c4e4387bbd50 patch 8.0.0455: the mode test may hang
Christian Brabandt <cb@256bit.org>
parents: 11095
diff changeset
750
10787
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents: 10743
diff changeset
751 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
752 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
753
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents: 10743
diff changeset
754 normal! 3G
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\<F2>\<Esc>"
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-i', 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: Multiple matches
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 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
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-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
761 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
762 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
763 " 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
764 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
765 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
766 " 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
767 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
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: 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>\<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-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
773 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
774 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
775 " 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
776 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
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-X CTRL-L: Single match
d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents: 10787
diff changeset
779 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
780 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
781 " 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
782 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
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-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
785 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
786 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
787 " 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
788 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
789 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
790
25864
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
791 exe "normal R\<F2>\<Esc>"
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
792 call assert_equal('R-R', g:current_modes)
10833
d66e5446cc48 patch 8.0.0306: mode() not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents: 10787
diff changeset
793 " 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
794 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
795 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
796 " 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
797 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
798 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
799 " 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
800 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
801 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
802 " 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
803 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
804 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
805 " 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
806 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
807 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
808 " 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
809 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
810 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
811 " 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
812 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
813 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
814 " 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
815 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
816 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
817 " 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
818 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
819 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
820 " 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
821 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
822 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
823 " 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
824 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
825 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
826
25864
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
827 exe "normal gR\<F2>\<Esc>"
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
828 call assert_equal('R-Rv', g:current_modes)
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
829 " gR_CTRL-P: Multiple matches
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
830 exe "normal gRBa\<C-P>\<F2>\<Esc>u"
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
831 call assert_equal('R-Rvc', g:current_modes)
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
832 " gR_CTRL-P: Single match
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
833 exe "normal gRBro\<C-P>\<F2>\<Esc>u"
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
834 call assert_equal('R-Rvc', g:current_modes)
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
835 " gR_CTRL-X
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
836 exe "normal gRBa\<C-X>\<F2>\<Esc>u"
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
837 call assert_equal('R-Rvx', g:current_modes)
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
838 " gR_CTRL-X CTRL-P: Multiple matches
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
839 exe "normal gRBa\<C-X>\<C-P>\<F2>\<Esc>u"
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
840 call assert_equal('R-Rvc', g:current_modes)
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
841 " gR_CTRL-X CTRL-P: Single match
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
842 exe "normal gRBro\<C-X>\<C-P>\<F2>\<Esc>u"
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
843 call assert_equal('R-Rvc', g:current_modes)
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
844 " gR_CTRL-X CTRL-P + CTRL-P: Single match
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
845 exe "normal gRBro\<C-X>\<C-P>\<C-P>\<F2>\<Esc>u"
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
846 call assert_equal('R-Rvc', g:current_modes)
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
847 " gR_CTRL-X CTRL-L: Multiple matches
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
848 exe "normal gR\<C-X>\<C-L>\<F2>\<Esc>u"
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
849 call assert_equal('R-Rvc', g:current_modes)
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
850 " gR_CTRL-X CTRL-L: Single match
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
851 exe "normal gRBlu\<C-X>\<C-L>\<F2>\<Esc>u"
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
852 call assert_equal('R-Rvc', g:current_modes)
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
853 " gR_CTRL-P: No match
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
854 exe "normal gRCom\<C-P>\<F2>\<Esc>u"
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
855 call assert_equal('R-Rvc', g:current_modes)
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
856 " gR_CTRL-X CTRL-P: No match
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
857 exe "normal gRCom\<C-X>\<C-P>\<F2>\<Esc>u"
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
858 call assert_equal('R-Rvc', g:current_modes)
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
859 " gR_CTRL-X CTRL-L: No match
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
860 exe "normal gRabc\<C-X>\<C-L>\<F2>\<Esc>u"
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
861 call assert_equal('R-Rvc', g:current_modes)
44e9d98555a9 patch 8.2.3466: completion submode not indicated for virtual replace
Bram Moolenaar <Bram@vim.org>
parents: 25854
diff changeset
862
17930
0cdb6ac20748 patch 8.1.1961: more functions can be used as a method
Bram Moolenaar <Bram@vim.org>
parents: 17916
diff changeset
863 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
864 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
865
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
866 " 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
867 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
868 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
869
06316dbd66bc patch 8.1.0225: mode() does not indicate using CTRL-O from Insert mode
Christian Brabandt <cb@256bit.org>
parents: 14379
diff changeset
870 " 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
871 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
872 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
873
06316dbd66bc patch 8.1.0225: mode() does not indicate using CTRL-O from Insert mode
Christian Brabandt <cb@256bit.org>
parents: 14379
diff changeset
874 " 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
875 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
876 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
877
10787
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents: 10743
diff changeset
878 " 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
879
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents: 10743
diff changeset
880 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
881 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
882 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
883 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
884 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
885 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
886 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
887 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
888 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
889 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
890
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents: 10743
diff changeset
891 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
892 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
893 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
894 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
895 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
896 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
897 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
898 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
899 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
900 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
901
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
902 " 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
903 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
904 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
905 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
906 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
907 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
908 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
909
10787
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents: 10743
diff changeset
910 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
911 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
912 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
913 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
914 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
915 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
916 " 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
917
26007
1d2e1c23e458 patch 8.2.3537: mode() does not return the right value in 'operatorfunc'
Bram Moolenaar <Bram@vim.org>
parents: 25969
diff changeset
918 " Test mode in operatorfunc (it used to be Operator-pending).
1d2e1c23e458 patch 8.2.3537: mode() does not return the right value in 'operatorfunc'
Bram Moolenaar <Bram@vim.org>
parents: 25969
diff changeset
919 set operatorfunc=OperatorFunc
1d2e1c23e458 patch 8.2.3537: mode() does not return the right value in 'operatorfunc'
Bram Moolenaar <Bram@vim.org>
parents: 25969
diff changeset
920 function OperatorFunc(_)
1d2e1c23e458 patch 8.2.3537: mode() does not return the right value in 'operatorfunc'
Bram Moolenaar <Bram@vim.org>
parents: 25969
diff changeset
921 call Save_mode()
1d2e1c23e458 patch 8.2.3537: mode() does not return the right value in 'operatorfunc'
Bram Moolenaar <Bram@vim.org>
parents: 25969
diff changeset
922 endfunction
1d2e1c23e458 patch 8.2.3537: mode() does not return the right value in 'operatorfunc'
Bram Moolenaar <Bram@vim.org>
parents: 25969
diff changeset
923 execute "normal! g@l\<Esc>"
1d2e1c23e458 patch 8.2.3537: mode() does not return the right value in 'operatorfunc'
Bram Moolenaar <Bram@vim.org>
parents: 25969
diff changeset
924 call assert_equal('n-n', g:current_modes)
1d2e1c23e458 patch 8.2.3537: mode() does not return the right value in 'operatorfunc'
Bram Moolenaar <Bram@vim.org>
parents: 25969
diff changeset
925 execute "normal! i\<C-o>g@l\<Esc>"
1d2e1c23e458 patch 8.2.3537: mode() does not return the right value in 'operatorfunc'
Bram Moolenaar <Bram@vim.org>
parents: 25969
diff changeset
926 call assert_equal('n-niI', g:current_modes)
1d2e1c23e458 patch 8.2.3537: mode() does not return the right value in 'operatorfunc'
Bram Moolenaar <Bram@vim.org>
parents: 25969
diff changeset
927 execute "normal! R\<C-o>g@l\<Esc>"
1d2e1c23e458 patch 8.2.3537: mode() does not return the right value in 'operatorfunc'
Bram Moolenaar <Bram@vim.org>
parents: 25969
diff changeset
928 call assert_equal('n-niR', g:current_modes)
1d2e1c23e458 patch 8.2.3537: mode() does not return the right value in 'operatorfunc'
Bram Moolenaar <Bram@vim.org>
parents: 25969
diff changeset
929 execute "normal! gR\<C-o>g@l\<Esc>"
1d2e1c23e458 patch 8.2.3537: mode() does not return the right value in 'operatorfunc'
Bram Moolenaar <Bram@vim.org>
parents: 25969
diff changeset
930 call assert_equal('n-niV', g:current_modes)
1d2e1c23e458 patch 8.2.3537: mode() does not return the right value in 'operatorfunc'
Bram Moolenaar <Bram@vim.org>
parents: 25969
diff changeset
931
25854
2d0bea8aed33 patch 8.2.3461: cannot distinguish Normal and Terminal-Normal mode
Bram Moolenaar <Bram@vim.org>
parents: 25771
diff changeset
932 if has('terminal')
2d0bea8aed33 patch 8.2.3461: cannot distinguish Normal and Terminal-Normal mode
Bram Moolenaar <Bram@vim.org>
parents: 25771
diff changeset
933 term
2d0bea8aed33 patch 8.2.3461: cannot distinguish Normal and Terminal-Normal mode
Bram Moolenaar <Bram@vim.org>
parents: 25771
diff changeset
934 call feedkeys("\<C-W>N", 'xt')
2d0bea8aed33 patch 8.2.3461: cannot distinguish Normal and Terminal-Normal mode
Bram Moolenaar <Bram@vim.org>
parents: 25771
diff changeset
935 call assert_equal('n', mode())
2d0bea8aed33 patch 8.2.3461: cannot distinguish Normal and Terminal-Normal mode
Bram Moolenaar <Bram@vim.org>
parents: 25771
diff changeset
936 call assert_equal('nt', mode(1))
2d0bea8aed33 patch 8.2.3461: cannot distinguish Normal and Terminal-Normal mode
Bram Moolenaar <Bram@vim.org>
parents: 25771
diff changeset
937 call feedkeys("aexit\<CR>", 'xt')
2d0bea8aed33 patch 8.2.3461: cannot distinguish Normal and Terminal-Normal mode
Bram Moolenaar <Bram@vim.org>
parents: 25771
diff changeset
938 endif
2d0bea8aed33 patch 8.2.3461: cannot distinguish Normal and Terminal-Normal mode
Bram Moolenaar <Bram@vim.org>
parents: 25771
diff changeset
939
10787
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents: 10743
diff changeset
940 bwipe!
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents: 10743
diff changeset
941 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
942 xunmap <F2>
11135
c4e4387bbd50 patch 8.0.0455: the mode test may hang
Christian Brabandt <cb@256bit.org>
parents: 11095
diff changeset
943 set complete&
26007
1d2e1c23e458 patch 8.2.3537: mode() does not return the right value in 'operatorfunc'
Bram Moolenaar <Bram@vim.org>
parents: 25969
diff changeset
944 set operatorfunc&
1d2e1c23e458 patch 8.2.3537: mode() does not return the right value in 'operatorfunc'
Bram Moolenaar <Bram@vim.org>
parents: 25969
diff changeset
945 delfunction OperatorFunc
10787
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents: 10743
diff changeset
946 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
947
20120
16460964c304 patch 8.2.0615: regexp benchmark stest is old style
Bram Moolenaar <Bram@vim.org>
parents: 20109
diff changeset
948 " Test for append()
17871
521ce0d887e5 patch 8.1.1932: ml_get errors after using append()
Bram Moolenaar <Bram@vim.org>
parents: 17849
diff changeset
949 func Test_append()
521ce0d887e5 patch 8.1.1932: ml_get errors after using append()
Bram Moolenaar <Bram@vim.org>
parents: 17849
diff changeset
950 enew!
521ce0d887e5 patch 8.1.1932: ml_get errors after using append()
Bram Moolenaar <Bram@vim.org>
parents: 17849
diff changeset
951 split
521ce0d887e5 patch 8.1.1932: ml_get errors after using append()
Bram Moolenaar <Bram@vim.org>
parents: 17849
diff changeset
952 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
953 call append(1, [])
16460964c304 patch 8.2.0615: regexp benchmark stest is old style
Bram Moolenaar <Bram@vim.org>
parents: 20109
diff changeset
954 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
955 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
956 split
521ce0d887e5 patch 8.1.1932: ml_get errors after using append()
Bram Moolenaar <Bram@vim.org>
parents: 17849
diff changeset
957 only
521ce0d887e5 patch 8.1.1932: ml_get errors after using append()
Bram Moolenaar <Bram@vim.org>
parents: 17849
diff changeset
958 undo
20120
16460964c304 patch 8.2.0615: regexp benchmark stest is old style
Bram Moolenaar <Bram@vim.org>
parents: 20109
diff changeset
959 undo
20109
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 19954
diff changeset
960
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 19954
diff changeset
961 " 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
962 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
963 endfunc
521ce0d887e5 patch 8.1.1932: ml_get errors after using append()
Bram Moolenaar <Bram@vim.org>
parents: 17849
diff changeset
964
20120
16460964c304 patch 8.2.0615: regexp benchmark stest is old style
Bram Moolenaar <Bram@vim.org>
parents: 20109
diff changeset
965 " Test for setline()
16460964c304 patch 8.2.0615: regexp benchmark stest is old style
Bram Moolenaar <Bram@vim.org>
parents: 20109
diff changeset
966 func Test_setline()
16460964c304 patch 8.2.0615: regexp benchmark stest is old style
Bram Moolenaar <Bram@vim.org>
parents: 20109
diff changeset
967 new
16460964c304 patch 8.2.0615: regexp benchmark stest is old style
Bram Moolenaar <Bram@vim.org>
parents: 20109
diff changeset
968 call setline(0, ["foo"])
16460964c304 patch 8.2.0615: regexp benchmark stest is old style
Bram Moolenaar <Bram@vim.org>
parents: 20109
diff changeset
969 call setline(0, [])
16460964c304 patch 8.2.0615: regexp benchmark stest is old style
Bram Moolenaar <Bram@vim.org>
parents: 20109
diff changeset
970 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
971 call setline(1, ["bar"])
16460964c304 patch 8.2.0615: regexp benchmark stest is old style
Bram Moolenaar <Bram@vim.org>
parents: 20109
diff changeset
972 call setline(1, [])
16460964c304 patch 8.2.0615: regexp benchmark stest is old style
Bram Moolenaar <Bram@vim.org>
parents: 20109
diff changeset
973 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
974 call setline(2, [])
16460964c304 patch 8.2.0615: regexp benchmark stest is old style
Bram Moolenaar <Bram@vim.org>
parents: 20109
diff changeset
975 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
976 call setline(3, [])
16460964c304 patch 8.2.0615: regexp benchmark stest is old style
Bram Moolenaar <Bram@vim.org>
parents: 20109
diff changeset
977 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
978 call setline(2, ["baz"])
16460964c304 patch 8.2.0615: regexp benchmark stest is old style
Bram Moolenaar <Bram@vim.org>
parents: 20109
diff changeset
979 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
980 close!
16460964c304 patch 8.2.0615: regexp benchmark stest is old style
Bram Moolenaar <Bram@vim.org>
parents: 20109
diff changeset
981 endfunc
16460964c304 patch 8.2.0615: regexp benchmark stest is old style
Bram Moolenaar <Bram@vim.org>
parents: 20109
diff changeset
982
10889
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10833
diff changeset
983 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
984 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
985 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
986 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
987 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
988 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
989
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10833
diff changeset
990 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
991 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
992 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
993 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
994
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10833
diff changeset
995 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
996 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
997
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10833
diff changeset
998 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
999 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
1000 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
1001
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10833
diff changeset
1002 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
1003 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
1004 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
1005 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
1006
11197
7f355d8cd634 patch 8.0.0485: not all windows commands are tested
Christian Brabandt <cb@256bit.org>
parents: 11191
diff changeset
1007 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
1008 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
1009 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
1010
10891
c9d057b7a0ab patch 8.0.0335: functions test fails
Christian Brabandt <cb@256bit.org>
parents: 10889
diff changeset
1011 call assert_equal(0, getbufvar(bnr, '&autoindent'))
c9d057b7a0ab patch 8.0.0335: functions test fails
Christian Brabandt <cb@256bit.org>
parents: 10889
diff changeset
1012 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
1013
19689
da98d2ed8dc5 patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents: 19554
diff changeset
1014 " 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
1015 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
1016 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
1017
10889
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10833
diff changeset
1018 " 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
1019 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
1020 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
1021 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
1022 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
1023 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
1024 close
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10833
diff changeset
1025
19902
481e8fa158b4 patch 8.2.0507: getbufvar() may get the wrong dictionary
Bram Moolenaar <Bram@vim.org>
parents: 19795
diff changeset
1026 " Get the b: dict.
481e8fa158b4 patch 8.2.0507: getbufvar() may get the wrong dictionary
Bram Moolenaar <Bram@vim.org>
parents: 19795
diff changeset
1027 let b:testvar = 'one'
481e8fa158b4 patch 8.2.0507: getbufvar() may get the wrong dictionary
Bram Moolenaar <Bram@vim.org>
parents: 19795
diff changeset
1028 new
481e8fa158b4 patch 8.2.0507: getbufvar() may get the wrong dictionary
Bram Moolenaar <Bram@vim.org>
parents: 19795
diff changeset
1029 let b:testvar = 'two'
481e8fa158b4 patch 8.2.0507: getbufvar() may get the wrong dictionary
Bram Moolenaar <Bram@vim.org>
parents: 19795
diff changeset
1030 let thebuf = bufnr()
481e8fa158b4 patch 8.2.0507: getbufvar() may get the wrong dictionary
Bram Moolenaar <Bram@vim.org>
parents: 19795
diff changeset
1031 wincmd w
481e8fa158b4 patch 8.2.0507: getbufvar() may get the wrong dictionary
Bram Moolenaar <Bram@vim.org>
parents: 19795
diff changeset
1032 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
1033 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
1034 bwipe!
481e8fa158b4 patch 8.2.0507: getbufvar() may get the wrong dictionary
Bram Moolenaar <Bram@vim.org>
parents: 19795
diff changeset
1035
10889
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10833
diff changeset
1036 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
1037 endfunc
11020
50f3e37bc210 patch 8.0.0399: crash when using balloon_show() when not supported
Christian Brabandt <cb@256bit.org>
parents: 10891
diff changeset
1038
11095
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1039 func Test_last_buffer_nr()
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1040 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
1041 endfunc
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1042
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1043 func Test_stridx()
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1044 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
1045 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
1046 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
1047 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
1048 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
1049 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
1050 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
1051 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
1052 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
1053 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
1054 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
1055 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
1056 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
1057 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
1058 endfunc
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1059
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1060 func Test_strridx()
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1061 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
1062 call assert_equal(0, strridx('', ''))
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1063 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
1064 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
1065 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
1066 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
1067 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
1068 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
1069 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
1070 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
1071 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
1072 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
1073 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
1074 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
1075 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
1076 endfunc
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1077
12451
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested
Christian Brabandt <cb@256bit.org>
parents: 11828
diff changeset
1078 func Test_match_func()
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested
Christian Brabandt <cb@256bit.org>
parents: 11828
diff changeset
1079 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
1080 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
1081 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
1082 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
1083 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
1084 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
1085 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
1086 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
1087 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
1088 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
1089 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
1090 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
1091 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
1092 endfunc
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested
Christian Brabandt <cb@256bit.org>
parents: 11828
diff changeset
1093
11095
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1094 func Test_matchend()
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1095 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
1096 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
1097 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
1098 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
1099 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
1100 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
1101 endfunc
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested
Christian Brabandt <cb@256bit.org>
parents: 11828
diff changeset
1102
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested
Christian Brabandt <cb@256bit.org>
parents: 11828
diff changeset
1103 func Test_matchlist()
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested
Christian Brabandt <cb@256bit.org>
parents: 11828
diff changeset
1104 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
1105 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
1106 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
1107 endfunc
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested
Christian Brabandt <cb@256bit.org>
parents: 11828
diff changeset
1108
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested
Christian Brabandt <cb@256bit.org>
parents: 11828
diff changeset
1109 func Test_matchstr()
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested
Christian Brabandt <cb@256bit.org>
parents: 11828
diff changeset
1110 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
1111 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
1112 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
1113 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
1114 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
1115 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
1116 endfunc
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested
Christian Brabandt <cb@256bit.org>
parents: 11828
diff changeset
1117
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested
Christian Brabandt <cb@256bit.org>
parents: 11828
diff changeset
1118 func Test_matchstrpos()
61450cb2b6a1 patch 8.0.1105: match() and matchend() are not tested
Christian Brabandt <cb@256bit.org>
parents: 11828
diff changeset
1119 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
1120 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
1121 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
1122 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
1123 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
1124 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
1125 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
1126 endfunc
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1127
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1128 func Test_nextnonblank_prevnonblank()
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1129 new
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1130 insert
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1131 This
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1132
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1133
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1134 is
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1135
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1136 a
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1137 Test
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1138 .
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1139 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
1140 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
1141 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
1142 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
1143 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
1144 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
1145 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
1146 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
1147 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
1148 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
1149
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1150 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
1151 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
1152 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
1153 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
1154 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
1155 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
1156 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
1157 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
1158 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
1159 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
1160 bw!
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1161 endfunc
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1162
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1163 func Test_byte2line_line2byte()
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1164 new
14579
23d6d9e9ae3e patch 8.1.0303: line2byte() is wrong for last line with 'noeol'
Christian Brabandt <cb@256bit.org>
parents: 14487
diff changeset
1165 set endofline
11095
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1166 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
1167
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1168 set fileformat=unix
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1169 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
1170 \ 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
1171 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
1172 \ 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
1173
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1174 set fileformat=mac
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1175 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
1176 \ 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
1177 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
1178 \ 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
1179
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1180 set fileformat=dos
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1181 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
1182 \ 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
1183 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
1184 \ 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
1185
14579
23d6d9e9ae3e patch 8.1.0303: line2byte() is wrong for last line with 'noeol'
Christian Brabandt <cb@256bit.org>
parents: 14487
diff changeset
1186 bw!
23d6d9e9ae3e patch 8.1.0303: line2byte() is wrong for last line with 'noeol'
Christian Brabandt <cb@256bit.org>
parents: 14487
diff changeset
1187 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
1188 normal a-
23d6d9e9ae3e patch 8.1.0303: line2byte() is wrong for last line with 'noeol'
Christian Brabandt <cb@256bit.org>
parents: 14487
diff changeset
1189 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
1190 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
1191 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
1192 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
1193 endfor
23d6d9e9ae3e patch 8.1.0303: line2byte() is wrong for last line with 'noeol'
Christian Brabandt <cb@256bit.org>
parents: 14487
diff changeset
1194
23d6d9e9ae3e patch 8.1.0303: line2byte() is wrong for last line with 'noeol'
Christian Brabandt <cb@256bit.org>
parents: 14487
diff changeset
1195 set endofline& fixendofline& fileformat&
11095
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1196 bw!
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1197 endfunc
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1198
19783
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
1199 " 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
1200 func Test_byteidx()
1090d6637cfd patch 8.1.1911: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17783
diff changeset
1201 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
1202 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
1203 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
1204 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
1205 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
1206 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
1207 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
1208 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
1209 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
1210 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
1211 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
1212
1090d6637cfd patch 8.1.1911: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17783
diff changeset
1213 let b = '.é.' " 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
1214 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
1215 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
1216 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
1217 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
1218 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
1219 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
1220
1090d6637cfd patch 8.1.1911: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17783
diff changeset
1221 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
1222 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
1223 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
1224 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
1225 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
1226 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
1227 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
1228 endfunc
1090d6637cfd patch 8.1.1911: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17783
diff changeset
1229
23380
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index
Bram Moolenaar <Bram@vim.org>
parents: 23108
diff changeset
1230 " 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
1231 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
1232 let a = 'xá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
1233 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
1234 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
1235 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
1236 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
1237 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
1238 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
1239 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
1240 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
1241
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index
Bram Moolenaar <Bram@vim.org>
parents: 23108
diff changeset
1242 " 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
1243 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
1244 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
1245 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
1246 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
1247 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
1248 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
1249
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index
Bram Moolenaar <Bram@vim.org>
parents: 23108
diff changeset
1250 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
1251 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
1252 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
1253 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
1254 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
1255 endfunc
2351b40af967 patch 8.2.2233: cannot convert a byte index into a character index
Bram Moolenaar <Bram@vim.org>
parents: 23108
diff changeset
1256
11095
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1257 func Test_count()
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1258 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
1259 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
1260 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
1261 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
1262 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
1263
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1264 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
1265 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
1266 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
1267 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
1268
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1269 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
1270 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
1271 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
1272 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
1273 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
1274
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1275 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
1276 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
1277 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
1278 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
1279
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1280 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
1281 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
1282 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
1283 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
1284 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
1285
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1286 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
1287 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
1288 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
1289 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
1290
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1291 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
1292 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
1293 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
1294 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
1295 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
1296
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1297 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
1298
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL
Christian Brabandt <cb@256bit.org>
parents: 11484
diff changeset
1299 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
1300 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
1301 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
1302 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
1303 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
1304 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
1305 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
1306
81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 16231
diff changeset
1307 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
1308 endfunc
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1309
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1310 func Test_changenr()
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1311 new Xchangenr
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1312 call assert_equal(0, changenr())
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1313 norm ifoo
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1314 call assert_equal(1, changenr())
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1315 set undolevels=10
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1316 norm Sbar
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1317 call assert_equal(2, changenr())
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1318 undo
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1319 call assert_equal(1, changenr())
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1320 redo
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1321 call assert_equal(2, changenr())
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1322 bw!
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1323 set undolevels&
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1324 endfunc
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1325
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1326 func Test_filewritable()
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1327 new Xfilewritable
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1328 write!
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1329 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
1330
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1331 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
1332 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
1333
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1334 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
1335 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
1336
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1337 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
1338
20313
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 20178
diff changeset
1339 call mkdir('Xdir')
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 20178
diff changeset
1340 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
1341 call delete('Xdir', 'd')
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 20178
diff changeset
1342
11095
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1343 call delete('Xfilewritable')
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1344 bw!
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1345 endfunc
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1346
14883
1c2ba2b0227e patch 8.1.0453: MS-Windows: executable() is not reliable
Bram Moolenaar <Bram@vim.org>
parents: 14669
diff changeset
1347 func Test_Executable()
1c2ba2b0227e patch 8.1.0453: MS-Windows: executable() is not reliable
Bram Moolenaar <Bram@vim.org>
parents: 14669
diff changeset
1348 if has('win32')
1c2ba2b0227e patch 8.1.0453: MS-Windows: executable() is not reliable
Bram Moolenaar <Bram@vim.org>
parents: 14669
diff changeset
1349 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
1350 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
1351 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
1352 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
1353 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
1354
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe
Bram Moolenaar <Bram@vim.org>
parents: 20591
diff changeset
1355 " 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
1356 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
1357 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
1358 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
1359 new
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe
Bram Moolenaar <Bram@vim.org>
parents: 20591
diff changeset
1360 " 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
1361 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
1362 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
1363 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
1364 bwipe
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe
Bram Moolenaar <Bram@vim.org>
parents: 20591
diff changeset
1365
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe
Bram Moolenaar <Bram@vim.org>
parents: 20591
diff changeset
1366 " 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
1367 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
1368 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
1369 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
1370 new
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe
Bram Moolenaar <Bram@vim.org>
parents: 20591
diff changeset
1371 " 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
1372 lcd Xdir
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe
Bram Moolenaar <Bram@vim.org>
parents: 20591
diff changeset
1373 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
1374 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
1375 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
1376 bwipe
89b0f161e6a6 patch 8.2.0850: MS-Windows: exepath() works different from cmd.exe
Bram Moolenaar <Bram@vim.org>
parents: 20591
diff changeset
1377 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
1378 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
1379 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
1380 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
1381
f1fd0b0b335c patch 8.1.1740: exepath() doesn't work for "bin/cat"
Bram Moolenaar <Bram@vim.org>
parents: 17278
diff changeset
1382 " 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
1383 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
1384 new
17849
73ddc462979d patch 8.1.1921: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17837
diff changeset
1385 " 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
1386 lcd /
f1fd0b0b335c patch 8.1.1740: exepath() doesn't work for "bin/cat"
Bram Moolenaar <Bram@vim.org>
parents: 17278
diff changeset
1387 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
1388 let result = catcmd->exepath()
a8602bad9e9a patch 8.2.2259: Test_Executable() fails when using chroot
Bram Moolenaar <Bram@vim.org>
parents: 23380
diff changeset
1389 " 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
1390 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
1391 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
1392 else
25439
01feec4a221d patch 8.2.3256: executable test may fail on new Ubuntu system
Bram Moolenaar <Bram@vim.org>
parents: 25398
diff changeset
1393 " /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
1394 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
1395 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
1396 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
1397 endif
17484
f1fd0b0b335c patch 8.1.1740: exepath() doesn't work for "bin/cat"
Bram Moolenaar <Bram@vim.org>
parents: 17278
diff changeset
1398 bwipe
21765
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 21552
diff changeset
1399 else
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 21552
diff changeset
1400 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
1401 endif
1c2ba2b0227e patch 8.1.0453: MS-Windows: executable() is not reliable
Bram Moolenaar <Bram@vim.org>
parents: 14669
diff changeset
1402 endfunc
1c2ba2b0227e patch 8.1.0453: MS-Windows: executable() is not reliable
Bram Moolenaar <Bram@vim.org>
parents: 14669
diff changeset
1403
28702
99729fe344f7 patch 8.2.4875: MS-Windows: some .exe files are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 28672
diff changeset
1404 func Test_executable_windows_store_apps()
99729fe344f7 patch 8.2.4875: MS-Windows: some .exe files are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 28672
diff changeset
1405 CheckMSWindows
99729fe344f7 patch 8.2.4875: MS-Windows: some .exe files are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 28672
diff changeset
1406
99729fe344f7 patch 8.2.4875: MS-Windows: some .exe files are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 28672
diff changeset
1407 " Windows Store apps install some 'decoy' .exe that require some careful
99729fe344f7 patch 8.2.4875: MS-Windows: some .exe files are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 28672
diff changeset
1408 " handling as they behave similarly to symlinks.
99729fe344f7 patch 8.2.4875: MS-Windows: some .exe files are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 28672
diff changeset
1409 let app_dir = expand("$LOCALAPPDATA\\Microsoft\\WindowsApps")
99729fe344f7 patch 8.2.4875: MS-Windows: some .exe files are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 28672
diff changeset
1410 if !isdirectory(app_dir)
99729fe344f7 patch 8.2.4875: MS-Windows: some .exe files are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 28672
diff changeset
1411 return
99729fe344f7 patch 8.2.4875: MS-Windows: some .exe files are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 28672
diff changeset
1412 endif
99729fe344f7 patch 8.2.4875: MS-Windows: some .exe files are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 28672
diff changeset
1413
99729fe344f7 patch 8.2.4875: MS-Windows: some .exe files are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 28672
diff changeset
1414 let save_path = $PATH
99729fe344f7 patch 8.2.4875: MS-Windows: some .exe files are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 28672
diff changeset
1415 let $PATH = app_dir
99729fe344f7 patch 8.2.4875: MS-Windows: some .exe files are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 28672
diff changeset
1416 " Ensure executable() finds all the app .exes
99729fe344f7 patch 8.2.4875: MS-Windows: some .exe files are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 28672
diff changeset
1417 for entry in readdir(app_dir)
99729fe344f7 patch 8.2.4875: MS-Windows: some .exe files are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 28672
diff changeset
1418 if entry =~ '\.exe$'
99729fe344f7 patch 8.2.4875: MS-Windows: some .exe files are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 28672
diff changeset
1419 call assert_true(executable(entry))
99729fe344f7 patch 8.2.4875: MS-Windows: some .exe files are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 28672
diff changeset
1420 endif
99729fe344f7 patch 8.2.4875: MS-Windows: some .exe files are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 28672
diff changeset
1421 endfor
99729fe344f7 patch 8.2.4875: MS-Windows: some .exe files are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 28672
diff changeset
1422
99729fe344f7 patch 8.2.4875: MS-Windows: some .exe files are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 28672
diff changeset
1423 let $PATH = save_path
99729fe344f7 patch 8.2.4875: MS-Windows: some .exe files are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 28672
diff changeset
1424 endfunc
99729fe344f7 patch 8.2.4875: MS-Windows: some .exe files are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 28672
diff changeset
1425
16180
1eaaa82ececf patch 8.1.1095: MS-Windows: executable() fails on very long filename
Bram Moolenaar <Bram@vim.org>
parents: 16144
diff changeset
1426 func Test_executable_longname()
21765
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 21552
diff changeset
1427 CheckMSWindows
16180
1eaaa82ececf patch 8.1.1095: MS-Windows: executable() fails on very long filename
Bram Moolenaar <Bram@vim.org>
parents: 16144
diff changeset
1428
22977
515d1651c6c6 patch 8.2.2035: MS-Windows: some tests may fail
Bram Moolenaar <Bram@vim.org>
parents: 22568
diff changeset
1429 " 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
1430 " 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
1431 " characters.
515d1651c6c6 patch 8.2.2035: MS-Windows: some tests may fail
Bram Moolenaar <Bram@vim.org>
parents: 22568
diff changeset
1432 " 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
1433 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
1434 if len > 200
515d1651c6c6 patch 8.2.2035: MS-Windows: some tests may fail
Bram Moolenaar <Bram@vim.org>
parents: 22568
diff changeset
1435 let len = 200
515d1651c6c6 patch 8.2.2035: MS-Windows: some tests may fail
Bram Moolenaar <Bram@vim.org>
parents: 22568
diff changeset
1436 endif
515d1651c6c6 patch 8.2.2035: MS-Windows: some tests may fail
Bram Moolenaar <Bram@vim.org>
parents: 22568
diff changeset
1437
515d1651c6c6 patch 8.2.2035: MS-Windows: some tests may fail
Bram Moolenaar <Bram@vim.org>
parents: 22568
diff changeset
1438 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
1439 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
1440 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
1441 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
1442 endfunc
1eaaa82ececf patch 8.1.1095: MS-Windows: executable() fails on very long filename
Bram Moolenaar <Bram@vim.org>
parents: 16144
diff changeset
1443
11095
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1444 func Test_hostname()
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1445 let hostname_vim = hostname()
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1446 if has('unix')
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1447 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
1448 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
1449 endif
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1450 endfunc
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1451
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1452 func Test_getpid()
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1453 " 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
1454 call assert_equal(getpid(), getpid())
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1455 if has('unix')
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1456 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
1457 endif
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1458 endfunc
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1459
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1460 func Test_hlexists()
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1461 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
1462 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
1463 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
1464 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
1465 syntax on
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1466 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
1467 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
1468 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
1469 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
1470 syntax off
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1471 endfunc
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1472
20158
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20156
diff changeset
1473 " 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
1474 func Test_col()
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1475 new
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1476 call setline(1, 'abcdef')
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1477 norm gg4|mx6|mY2|
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1478 call assert_equal(2, col('.'))
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1479 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
1480 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
1481 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
1482 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
1483 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
1484 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
1485
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1486 call assert_equal(0, col(''))
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1487 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
1488 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
1489 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
1490 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
1491 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
1492 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
1493
b3e93a05c3ca patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 19689
diff changeset
1494 " 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
1495 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
1496 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
1497 return ''
b3e93a05c3ca patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 19689
diff changeset
1498 endfunc
b3e93a05c3ca patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 19689
diff changeset
1499 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
1500 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
1501 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
1502 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
1503 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
1504 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
1505
19783
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
1506 " 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
1507 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
1508 "normal! ggVG
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
1509 call feedkeys("ggVG\<Esc>", 'xt')
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
1510 call assert_equal(1, col("'<"))
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
1511 call assert_equal(14, col("'>"))
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
1512 " 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
1513 $d
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
1514 call assert_notequal(14, col("'>"))
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
1515
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
1516 " Test with 'virtualedit'
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
1517 set virtualedit=all
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
1518 call cursor(1, 10)
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
1519 call assert_equal(4, col('.'))
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
1520 set virtualedit&
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
1521
11095
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1522 bw!
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1523 endfunc
5763281d212a patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents: 11024
diff changeset
1524
19517
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage
Bram Moolenaar <Bram@vim.org>
parents: 19400
diff changeset
1525 " 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
1526 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
1527 " 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
1528 redir => v
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage
Bram Moolenaar <Bram@vim.org>
parents: 19400
diff changeset
1529 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
1530 redir END
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage
Bram Moolenaar <Bram@vim.org>
parents: 19400
diff changeset
1531 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
1532 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
1533
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage
Bram Moolenaar <Bram@vim.org>
parents: 19400
diff changeset
1534 " 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
1535 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
1536 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
1537
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage
Bram Moolenaar <Bram@vim.org>
parents: 19400
diff changeset
1538 " 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
1539 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
1540 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
1541 endfunc
21552
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list
Bram Moolenaar <Bram@vim.org>
parents: 21265
diff changeset
1542 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
1543 \ .. "\<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
1544 delfunc Tcomplete
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage
Bram Moolenaar <Bram@vim.org>
parents: 19400
diff changeset
1545 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
1546
24134
72e9b861bc92 patch 8.2.2608: character input not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 23849
diff changeset
1547 " 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
1548 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
1549 call assert_equal('y', c)
72e9b861bc92 patch 8.2.2608: character input not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 23849
diff changeset
1550
29073
c7bd1040a1c4 patch 8.2.5058: input() does not handle composing characters properly
Bram Moolenaar <Bram@vim.org>
parents: 28994
diff changeset
1551 " Test for using text with composing characters as default input
c7bd1040a1c4 patch 8.2.5058: input() does not handle composing characters properly
Bram Moolenaar <Bram@vim.org>
parents: 28994
diff changeset
1552 call feedkeys(":let c = input('name? ', \"ã̳\")\<CR>\<CR>", 'xt')
c7bd1040a1c4 patch 8.2.5058: input() does not handle composing characters properly
Bram Moolenaar <Bram@vim.org>
parents: 28994
diff changeset
1553 call assert_equal('ã̳', c)
c7bd1040a1c4 patch 8.2.5058: input() does not handle composing characters properly
Bram Moolenaar <Bram@vim.org>
parents: 28994
diff changeset
1554
24134
72e9b861bc92 patch 8.2.2608: character input not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 23849
diff changeset
1555 " 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
1556 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
1557 call assert_equal(' x', c)
72e9b861bc92 patch 8.2.2608: character input not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 23849
diff changeset
1558
19536
bab20768e1fd patch 8.2.0325: ex_getln.c code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 19517
diff changeset
1559 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
1560 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
1561 endfunc
bab20768e1fd patch 8.2.0325: ex_getln.c code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 19517
diff changeset
1562
bab20768e1fd patch 8.2.0325: ex_getln.c code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 19517
diff changeset
1563 " 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
1564 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
1565 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
1566 if has('gui_running')
2fb397573541 patch 8.2.0644: insufficient testing for invalid function arguments
Bram Moolenaar <Bram@vim.org>
parents: 20158
diff changeset
1567 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
1568 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
1569 else
2fb397573541 patch 8.2.0644: insufficient testing for invalid function arguments
Bram Moolenaar <Bram@vim.org>
parents: 20158
diff changeset
1570 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
1571 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
1572 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
1573 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
1574 endif
20867
9c24319b4cb2 patch 8.2.0985: simplify() does not remove slashes from "///path"
Bram Moolenaar <Bram@vim.org>
parents: 20794
diff changeset
1575 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
1576 endfunc
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage
Bram Moolenaar <Bram@vim.org>
parents: 19400
diff changeset
1577
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage
Bram Moolenaar <Bram@vim.org>
parents: 19400
diff changeset
1578 " Test for inputlist()
14379
0f1446193ded patch 8.1.0204: inputlist() is not tested
Christian Brabandt <cb@256bit.org>
parents: 14348
diff changeset
1579 func Test_inputlist()
0f1446193ded patch 8.1.0204: inputlist() is not tested
Christian Brabandt <cb@256bit.org>
parents: 14348
diff changeset
1580 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
1581 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
1582 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
1583 call assert_equal(2, c)
0f1446193ded patch 8.1.0204: inputlist() is not tested
Christian Brabandt <cb@256bit.org>
parents: 14348
diff changeset
1584 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
1585 call assert_equal(3, c)
0f1446193ded patch 8.1.0204: inputlist() is not tested
Christian Brabandt <cb@256bit.org>
parents: 14348
diff changeset
1586
20788
072ad890c227 patch 8.2.0946: cannot use "q" to cancel a number prompt
Bram Moolenaar <Bram@vim.org>
parents: 20669
diff changeset
1587 " 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
1588 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
1589 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
1590
072ad890c227 patch 8.2.0946: cannot use "q" to cancel a number prompt
Bram Moolenaar <Bram@vim.org>
parents: 20669
diff changeset
1591 " 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
1592 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
1593 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
1594
072ad890c227 patch 8.2.0946: cannot use "q" to cancel a number prompt
Bram Moolenaar <Bram@vim.org>
parents: 20669
diff changeset
1595 " 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
1596 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
1597 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
1598
24673
53fd6370e4fd patch 8.2.2875: cancelling inputlist() after a digit does not return zero
Bram Moolenaar <Bram@vim.org>
parents: 24669
diff changeset
1599 " 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
1600 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
1601 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
1602
19906
031184ace7c5 patch 8.2.0509: various code is not properly tested.
Bram Moolenaar <Bram@vim.org>
parents: 19902
diff changeset
1603 " 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
1604 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
1605 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
1606
031184ace7c5 patch 8.2.0509: various code is not properly tested.
Bram Moolenaar <Bram@vim.org>
parents: 19902
diff changeset
1607 " 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
1608 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
1609 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
1610 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
1611 " 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
1612 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
1613 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
1614 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
1615
14379
0f1446193ded patch 8.1.0204: inputlist() is not tested
Christian Brabandt <cb@256bit.org>
parents: 14348
diff changeset
1616 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
1617 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
1618 endfunc
0f1446193ded patch 8.1.0204: inputlist() is not tested
Christian Brabandt <cb@256bit.org>
parents: 14348
diff changeset
1619
11020
50f3e37bc210 patch 8.0.0399: crash when using balloon_show() when not supported
Christian Brabandt <cb@256bit.org>
parents: 10891
diff changeset
1620 func Test_balloon_show()
21765
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 21552
diff changeset
1621 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
1622
21765
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 21552
diff changeset
1623 " 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
1624 call balloon_show('hi!')
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 21552
diff changeset
1625 if !has('gui_running')
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 21552
diff changeset
1626 call balloon_show(range(3))
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 21552
diff changeset
1627 call balloon_show([])
11024
973fa964cb91 patch 8.0.0401: test fails with missing balloon feature
Christian Brabandt <cb@256bit.org>
parents: 11020
diff changeset
1628 endif
11020
50f3e37bc210 patch 8.0.0399: crash when using balloon_show() when not supported
Christian Brabandt <cb@256bit.org>
parents: 10891
diff changeset
1629 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
1630
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout
Christian Brabandt <cb@256bit.org>
parents: 11135
diff changeset
1631 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
1632 " 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
1633 " 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
1634 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
1635 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
1636 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
1637 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
1638 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
1639
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout
Christian Brabandt <cb@256bit.org>
parents: 11135
diff changeset
1640 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
1641 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
1642 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
1643 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
1644 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
1645 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
1646 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
1647
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout
Christian Brabandt <cb@256bit.org>
parents: 11135
diff changeset
1648 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
1649 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
1650 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
1651 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
1652 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
1653 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
1654
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout
Christian Brabandt <cb@256bit.org>
parents: 11135
diff changeset
1655 bwipe!
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout
Christian Brabandt <cb@256bit.org>
parents: 11135
diff changeset
1656 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
1657 bwipe!
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout
Christian Brabandt <cb@256bit.org>
parents: 11135
diff changeset
1658 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
1659 bwipe!
445fd6be2009 patch 8.0.0482: the setbufvar() function may mess up the window layout
Christian Brabandt <cb@256bit.org>
parents: 11135
diff changeset
1660 endfunc
11325
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents: 11197
diff changeset
1661
27360
dfaba853a792 patch 8.2.4208: using setbufvar() may change the window title
Bram Moolenaar <Bram@vim.org>
parents: 26650
diff changeset
1662 func Test_setbufvar_keep_window_title()
dfaba853a792 patch 8.2.4208: using setbufvar() may change the window title
Bram Moolenaar <Bram@vim.org>
parents: 26650
diff changeset
1663 CheckRunVimInTerminal
27364
3834b8385025 patch 8.2.4210: window title test fails in some configurations
Bram Moolenaar <Bram@vim.org>
parents: 27360
diff changeset
1664 if !has('title') || empty(&t_ts)
3834b8385025 patch 8.2.4210: window title test fails in some configurations
Bram Moolenaar <Bram@vim.org>
parents: 27360
diff changeset
1665 throw "Skipped: can't get/set title"
3834b8385025 patch 8.2.4210: window title test fails in some configurations
Bram Moolenaar <Bram@vim.org>
parents: 27360
diff changeset
1666 endif
27360
dfaba853a792 patch 8.2.4208: using setbufvar() may change the window title
Bram Moolenaar <Bram@vim.org>
parents: 26650
diff changeset
1667
dfaba853a792 patch 8.2.4208: using setbufvar() may change the window title
Bram Moolenaar <Bram@vim.org>
parents: 26650
diff changeset
1668 let lines =<< trim END
27368
7ec64e4539af patch 8.2.4212: window title test still fails in some configurations
Bram Moolenaar <Bram@vim.org>
parents: 27366
diff changeset
1669 set title
27360
dfaba853a792 patch 8.2.4208: using setbufvar() may change the window title
Bram Moolenaar <Bram@vim.org>
parents: 26650
diff changeset
1670 edit Xa.txt
dfaba853a792 patch 8.2.4208: using setbufvar() may change the window title
Bram Moolenaar <Bram@vim.org>
parents: 26650
diff changeset
1671 let g:buf = bufadd('Xb.txt')
dfaba853a792 patch 8.2.4208: using setbufvar() may change the window title
Bram Moolenaar <Bram@vim.org>
parents: 26650
diff changeset
1672 inoremap <F2> <C-R>=setbufvar(g:buf, '&autoindent', 1) ?? ''<CR>
dfaba853a792 patch 8.2.4208: using setbufvar() may change the window title
Bram Moolenaar <Bram@vim.org>
parents: 26650
diff changeset
1673 END
dfaba853a792 patch 8.2.4208: using setbufvar() may change the window title
Bram Moolenaar <Bram@vim.org>
parents: 26650
diff changeset
1674 call writefile(lines, 'Xsetbufvar')
dfaba853a792 patch 8.2.4208: using setbufvar() may change the window title
Bram Moolenaar <Bram@vim.org>
parents: 26650
diff changeset
1675 let buf = RunVimInTerminal('-S Xsetbufvar', {})
27366
66046931fa58 patch 8.2.4211: window title test still fails in some configurations
Bram Moolenaar <Bram@vim.org>
parents: 27364
diff changeset
1676 call WaitForAssert({-> assert_match('Xa.txt', term_gettitle(buf))}, 1000)
27360
dfaba853a792 patch 8.2.4208: using setbufvar() may change the window title
Bram Moolenaar <Bram@vim.org>
parents: 26650
diff changeset
1677
dfaba853a792 patch 8.2.4208: using setbufvar() may change the window title
Bram Moolenaar <Bram@vim.org>
parents: 26650
diff changeset
1678 call term_sendkeys(buf, "i\<F2>")
dfaba853a792 patch 8.2.4208: using setbufvar() may change the window title
Bram Moolenaar <Bram@vim.org>
parents: 26650
diff changeset
1679 call TermWait(buf)
dfaba853a792 patch 8.2.4208: using setbufvar() may change the window title
Bram Moolenaar <Bram@vim.org>
parents: 26650
diff changeset
1680 call term_sendkeys(buf, "\<Esc>")
dfaba853a792 patch 8.2.4208: using setbufvar() may change the window title
Bram Moolenaar <Bram@vim.org>
parents: 26650
diff changeset
1681 call TermWait(buf)
dfaba853a792 patch 8.2.4208: using setbufvar() may change the window title
Bram Moolenaar <Bram@vim.org>
parents: 26650
diff changeset
1682 call assert_match('Xa.txt', term_gettitle(buf))
dfaba853a792 patch 8.2.4208: using setbufvar() may change the window title
Bram Moolenaar <Bram@vim.org>
parents: 26650
diff changeset
1683
dfaba853a792 patch 8.2.4208: using setbufvar() may change the window title
Bram Moolenaar <Bram@vim.org>
parents: 26650
diff changeset
1684 call StopVimInTerminal(buf)
dfaba853a792 patch 8.2.4208: using setbufvar() may change the window title
Bram Moolenaar <Bram@vim.org>
parents: 26650
diff changeset
1685 call delete('Xsetbufvar')
dfaba853a792 patch 8.2.4208: using setbufvar() may change the window title
Bram Moolenaar <Bram@vim.org>
parents: 26650
diff changeset
1686 endfunc
dfaba853a792 patch 8.2.4208: using setbufvar() may change the window title
Bram Moolenaar <Bram@vim.org>
parents: 26650
diff changeset
1687
11325
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents: 11197
diff changeset
1688 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
1689 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
1690 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
1691 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
1692 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
1693 endfunction
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents: 11197
diff changeset
1694
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents: 11197
diff changeset
1695 function! Apply()
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents: 11197
diff changeset
1696 5,6normal! .
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents: 11197
diff changeset
1697 endfunction
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents: 11197
diff changeset
1698
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents: 11197
diff changeset
1699 new
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents: 11197
diff changeset
1700 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
1701 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
1702 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
1703 3,4normal .
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents: 11197
diff changeset
1704 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
1705 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
1706 call Apply()
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents: 11197
diff changeset
1707 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
1708 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
1709 bwipe!
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents: 11197
diff changeset
1710
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents: 11197
diff changeset
1711 nunmap g.
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents: 11197
diff changeset
1712 delfunc Operator
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents: 11197
diff changeset
1713 delfunc Apply
77f3b7316d8b patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents: 11197
diff changeset
1714 endfunc
11484
3933a3bf9385 patch 8.0.0625: shellescape() always escapes a newline
Christian Brabandt <cb@256bit.org>
parents: 11325
diff changeset
1715
13513
4064f342bea4 patch 8.0.1630: trimming white space is not that easy
Christian Brabandt <cb@256bit.org>
parents: 13092
diff changeset
1716 func Test_trim()
4064f342bea4 patch 8.0.1630: trimming white space is not that easy
Christian Brabandt <cb@256bit.org>
parents: 13092
diff changeset
1717 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
1718 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
1719 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
1720 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
1721 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
1722 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
1723 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
1724 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
1725 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
1726 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
1727 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
1728 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
1729 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
1730 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
1731 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
1732 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
1733 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
1734
20629
7b8ac5e49451 patch 8.2.0868: trim() always trims both ends
Bram Moolenaar <Bram@vim.org>
parents: 20593
diff changeset
1735 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
1736 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
1737 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
1738 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
1739 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
1740 call assert_fails('eval trim(" vim ", " ", 3)', 'E475:')
25771
7dbd3a65a04b patch 8.2.3421: a bit of code is not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 25439
diff changeset
1741 call assert_fails('eval trim(" vim ", 0)', 'E475:')
20629
7b8ac5e49451 patch 8.2.0868: trim() always trims both ends
Bram Moolenaar <Bram@vim.org>
parents: 20593
diff changeset
1742
17976
6d11a0d5751d patch 8.1.1984: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17952
diff changeset
1743 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
1744 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
1745
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
1746 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
1747 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
1748
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording
Christian Brabandt <cb@256bit.org>
parents: 13980
diff changeset
1749 " 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
1750 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
1751 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
1752 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
1753 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
1754 return ''
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording
Christian Brabandt <cb@256bit.org>
parents: 13980
diff changeset
1755 endfunc
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording
Christian Brabandt <cb@256bit.org>
parents: 13980
diff changeset
1756
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording
Christian Brabandt <cb@256bit.org>
parents: 13980
diff changeset
1757 new
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording
Christian Brabandt <cb@256bit.org>
parents: 13980
diff changeset
1758 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
1759 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
1760 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
1761 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
1762 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
1763 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
1764 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
1765 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
1766 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
1767 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
1768
15973
393a9a3a2da2 patch 8.1.0992: a :normal command resets the reg_executing() result
Bram Moolenaar <Bram@vim.org>
parents: 15774
diff changeset
1769 " :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
1770 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
1771 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
1772 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
1773 normal! ia
393a9a3a2da2 patch 8.1.0992: a :normal command resets the reg_executing() result
Bram Moolenaar <Bram@vim.org>
parents: 15774
diff changeset
1774 endfunc
393a9a3a2da2 patch 8.1.0992: a :normal command resets the reg_executing() result
Bram Moolenaar <Bram@vim.org>
parents: 15774
diff changeset
1775 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
1776 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
1777 delfunc TestFunc
393a9a3a2da2 patch 8.1.0992: a :normal command resets the reg_executing() result
Bram Moolenaar <Bram@vim.org>
parents: 15774
diff changeset
1778
15979
72987a858c96 patch 8.1.0995: a getchar() call resets the reg_executing() result
Bram Moolenaar <Bram@vim.org>
parents: 15973
diff changeset
1779 " 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
1780 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
1781 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
1782 let g:typed = ''
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input()
Bram Moolenaar <Bram@vim.org>
parents: 15979
diff changeset
1783 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
1784 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
1785 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
1786 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
1787 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
1788 endfunc
72987a858c96 patch 8.1.0995: a getchar() call resets the reg_executing() result
Bram Moolenaar <Bram@vim.org>
parents: 15973
diff changeset
1789 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
1790 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
1791 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
1792 delfunc TestFunc
72987a858c96 patch 8.1.0995: a getchar() call resets the reg_executing() result
Bram Moolenaar <Bram@vim.org>
parents: 15973
diff changeset
1793 unmap W
72987a858c96 patch 8.1.0995: a getchar() call resets the reg_executing() result
Bram Moolenaar <Bram@vim.org>
parents: 15973
diff changeset
1794 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
1795 unlet g:regs
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input()
Bram Moolenaar <Bram@vim.org>
parents: 15979
diff changeset
1796
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input()
Bram Moolenaar <Bram@vim.org>
parents: 15979
diff changeset
1797 " 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
1798 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
1799 let @q = "W"
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input()
Bram Moolenaar <Bram@vim.org>
parents: 15979
diff changeset
1800 let g:typed = ''
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input()
Bram Moolenaar <Bram@vim.org>
parents: 15979
diff changeset
1801 let g:regs = []
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input()
Bram Moolenaar <Bram@vim.org>
parents: 15979
diff changeset
1802 func TestFunc() abort
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input()
Bram Moolenaar <Bram@vim.org>
parents: 15979
diff changeset
1803 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
1804 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
1805 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
1806 endfunc
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input()
Bram Moolenaar <Bram@vim.org>
parents: 15979
diff changeset
1807 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
1808 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
1809 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
1810 delfunc TestFunc
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input()
Bram Moolenaar <Bram@vim.org>
parents: 15979
diff changeset
1811 unmap W
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input()
Bram Moolenaar <Bram@vim.org>
parents: 15979
diff changeset
1812 unlet g:typed
4850744dc181 patch 8.1.1077: reg_executing() is reset by calling input()
Bram Moolenaar <Bram@vim.org>
parents: 15979
diff changeset
1813 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
1814
14004
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording
Christian Brabandt <cb@256bit.org>
parents: 13980
diff changeset
1815 bwipe!
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording
Christian Brabandt <cb@256bit.org>
parents: 13980
diff changeset
1816 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
1817 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
1818 endfunc
14137
0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents: 14004
diff changeset
1819
17914
af3d441845cd patch 8.1.1953: more functions can be used as a method
Bram Moolenaar <Bram@vim.org>
parents: 17871
diff changeset
1820 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
1821 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
1822 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
1823 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
1824 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
1825 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
1826 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
1827 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
1828 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
1829 endfunc
af3d441845cd patch 8.1.1953: more functions can be used as a method
Bram Moolenaar <Bram@vim.org>
parents: 17871
diff changeset
1830 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
1831 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
1832 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
1833 delfunc TestFunc
af3d441845cd patch 8.1.1953: more functions can be used as a method
Bram Moolenaar <Bram@vim.org>
parents: 17871
diff changeset
1834 unmap W
af3d441845cd patch 8.1.1953: more functions can be used as a method
Bram Moolenaar <Bram@vim.org>
parents: 17871
diff changeset
1835 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
1836 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
1837 endfunc
af3d441845cd patch 8.1.1953: more functions can be used as a method
Bram Moolenaar <Bram@vim.org>
parents: 17871
diff changeset
1838
17952
4754339d9aee patch 8.1.1972: no proper test for getchar()
Bram Moolenaar <Bram@vim.org>
parents: 17944
diff changeset
1839 func Test_getchar()
4754339d9aee patch 8.1.1972: no proper test for getchar()
Bram Moolenaar <Bram@vim.org>
parents: 17944
diff changeset
1840 call feedkeys('a', '')
4754339d9aee patch 8.1.1972: no proper test for getchar()
Bram Moolenaar <Bram@vim.org>
parents: 17944
diff changeset
1841 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
1842 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
1843 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
1844
3f9053c21765 patch 8.2.2957: using getchar() in Vim9 script is problematic
Bram Moolenaar <Bram@vim.org>
parents: 24822
diff changeset
1845 call feedkeys('a', '')
3f9053c21765 patch 8.2.2957: using getchar() in Vim9 script is problematic
Bram Moolenaar <Bram@vim.org>
parents: 24822
diff changeset
1846 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
1847 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
1848 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
1849
27802
9b01fea87065 patch 8.2.4427: getchar() may return modifiers if no character is available
Bram Moolenaar <Bram@vim.org>
parents: 27671
diff changeset
1850 call feedkeys("\<M-F2>", '')
9b01fea87065 patch 8.2.4427: getchar() may return modifiers if no character is available
Bram Moolenaar <Bram@vim.org>
parents: 27671
diff changeset
1851 call assert_equal("\<M-F2>", getchar(0))
9b01fea87065 patch 8.2.4427: getchar() may return modifiers if no character is available
Bram Moolenaar <Bram@vim.org>
parents: 27671
diff changeset
1852 call assert_equal(0, getchar(0))
9b01fea87065 patch 8.2.4427: getchar() may return modifiers if no character is available
Bram Moolenaar <Bram@vim.org>
parents: 27671
diff changeset
1853
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
1854 call setline(1, 'xxxx')
17952
4754339d9aee patch 8.1.1972: no proper test for getchar()
Bram Moolenaar <Bram@vim.org>
parents: 17944
diff changeset
1855 call test_setmouse(1, 3)
4754339d9aee patch 8.1.1972: no proper test for getchar()
Bram Moolenaar <Bram@vim.org>
parents: 17944
diff changeset
1856 let v:mouse_win = 9
4754339d9aee patch 8.1.1972: no proper test for getchar()
Bram Moolenaar <Bram@vim.org>
parents: 17944
diff changeset
1857 let v:mouse_winid = 9
4754339d9aee patch 8.1.1972: no proper test for getchar()
Bram Moolenaar <Bram@vim.org>
parents: 17944
diff changeset
1858 let v:mouse_lnum = 9
4754339d9aee patch 8.1.1972: no proper test for getchar()
Bram Moolenaar <Bram@vim.org>
parents: 17944
diff changeset
1859 let v:mouse_col = 9
4754339d9aee patch 8.1.1972: no proper test for getchar()
Bram Moolenaar <Bram@vim.org>
parents: 17944
diff changeset
1860 call feedkeys("\<S-LeftMouse>", '')
4754339d9aee patch 8.1.1972: no proper test for getchar()
Bram Moolenaar <Bram@vim.org>
parents: 17944
diff changeset
1861 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
1862 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
1863 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
1864 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
1865 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
1866 enew!
17952
4754339d9aee patch 8.1.1972: no proper test for getchar()
Bram Moolenaar <Bram@vim.org>
parents: 17944
diff changeset
1867 endfunc
4754339d9aee patch 8.1.1972: no proper test for getchar()
Bram Moolenaar <Bram@vim.org>
parents: 17944
diff changeset
1868
14137
0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents: 14004
diff changeset
1869 func Test_libcall_libcallnr()
21765
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 21552
diff changeset
1870 CheckFeature libcall
14137
0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents: 14004
diff changeset
1871
0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents: 14004
diff changeset
1872 if has('win32')
0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents: 14004
diff changeset
1873 let libc = 'msvcrt.dll'
0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents: 14004
diff changeset
1874 elseif has('mac')
0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents: 14004
diff changeset
1875 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
1876 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
1877 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
1878 endif
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on
Bram Moolenaar <Bram@vim.org>
parents: 15649
diff changeset
1879 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
1880 " 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
1881 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
1882 " 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
1883 " 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
1884 " 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
1885 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
1886 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
1887 " 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
1888 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
1889 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
1890 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
1891 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
1892 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
1893 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
1894 else
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on
Bram Moolenaar <Bram@vim.org>
parents: 15649
diff changeset
1895 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
1896 endif
14669
63d5ae57a663 patch 8.1.0347: some tests fail on Solaris
Christian Brabandt <cb@256bit.org>
parents: 14579
diff changeset
1897 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
1898 " 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
1899 return
14669
63d5ae57a663 patch 8.1.0347: some tests fail on Solaris
Christian Brabandt <cb@256bit.org>
parents: 14579
diff changeset
1900 endif
14137
0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents: 14004
diff changeset
1901 endif
0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents: 14004
diff changeset
1902
0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents: 14004
diff changeset
1903 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
1904 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
1905 else
17916
2e53305f2239 patch 8.1.1954: more functions can be used as a method
Bram Moolenaar <Bram@vim.org>
parents: 17914
diff changeset
1906 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
1907 endif
0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents: 14004
diff changeset
1908
0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents: 14004
diff changeset
1909 " 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
1910 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
1911
0d534adbcc2f patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents: 14004
diff changeset
1912 " 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
1913 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
1914 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
1915
21265
6a4806e326dd patch 8.2.1183: assert_fails() checks the last error message
Bram Moolenaar <Bram@vim.org>
parents: 20978
diff changeset
1916 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
1917 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
1918
21265
6a4806e326dd patch 8.2.1183: assert_fails() checks the last error message
Bram Moolenaar <Bram@vim.org>
parents: 20978
diff changeset
1919 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
1920 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
1921 endfunc
14348
e73c0a0e7e87 patch 8.1.0189: function defined in sandbox not tested
Christian Brabandt <cb@256bit.org>
parents: 14137
diff changeset
1922
e73c0a0e7e87 patch 8.1.0189: function defined in sandbox not tested
Christian Brabandt <cb@256bit.org>
parents: 14137
diff changeset
1923 sandbox function Fsandbox()
e73c0a0e7e87 patch 8.1.0189: function defined in sandbox not tested
Christian Brabandt <cb@256bit.org>
parents: 14137
diff changeset
1924 normal ix
e73c0a0e7e87 patch 8.1.0189: function defined in sandbox not tested
Christian Brabandt <cb@256bit.org>
parents: 14137
diff changeset
1925 endfunc
e73c0a0e7e87 patch 8.1.0189: function defined in sandbox not tested
Christian Brabandt <cb@256bit.org>
parents: 14137
diff changeset
1926
e73c0a0e7e87 patch 8.1.0189: function defined in sandbox not tested
Christian Brabandt <cb@256bit.org>
parents: 14137
diff changeset
1927 func Test_func_sandbox()
e73c0a0e7e87 patch 8.1.0189: function defined in sandbox not tested
Christian Brabandt <cb@256bit.org>
parents: 14137
diff changeset
1928 sandbox let F = {-> 'hello'}
e73c0a0e7e87 patch 8.1.0189: function defined in sandbox not tested
Christian Brabandt <cb@256bit.org>
parents: 14137
diff changeset
1929 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
1930
17849
73ddc462979d patch 8.1.1921: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17837
diff changeset
1931 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
1932 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
1933 unlet F
e73c0a0e7e87 patch 8.1.0189: function defined in sandbox not tested
Christian Brabandt <cb@256bit.org>
parents: 14137
diff changeset
1934
e73c0a0e7e87 patch 8.1.0189: function defined in sandbox not tested
Christian Brabandt <cb@256bit.org>
parents: 14137
diff changeset
1935 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
1936 delfunc Fsandbox
19689
da98d2ed8dc5 patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents: 19554
diff changeset
1937
da98d2ed8dc5 patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents: 19554
diff changeset
1938 " 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
1939 " from a sandbox)
da98d2ed8dc5 patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents: 19554
diff changeset
1940 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
1941 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
1942
32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range
Bram Moolenaar <Bram@vim.org>
parents: 14895
diff changeset
1943 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
1944 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
1945 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
1946 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
1947
32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range
Bram Moolenaar <Bram@vim.org>
parents: 14895
diff changeset
1948 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
1949 " 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
1950 " 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
1951 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
1952 new
17994
0dcc2ee838dd patch 8.1.1993: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17982
diff changeset
1953 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
1954 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
1955 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
1956
32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range
Bram Moolenaar <Bram@vim.org>
parents: 14895
diff changeset
1957 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
1958 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
1959 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
1960 endfunc
15008
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions
Bram Moolenaar <Bram@vim.org>
parents: 15000
diff changeset
1961
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions
Bram Moolenaar <Bram@vim.org>
parents: 15000
diff changeset
1962 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
1963 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
1964 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
1965 source Xfuncexists
17849
73ddc462979d patch 8.1.1921: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17837
diff changeset
1966 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
1967 " 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
1968 source Xfuncexists
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions
Bram Moolenaar <Bram@vim.org>
parents: 15000
diff changeset
1969 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
1970
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions
Bram Moolenaar <Bram@vim.org>
parents: 15000
diff changeset
1971 " 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
1972 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
1973 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
1974
24685
04205b7d67d5 patch 8.2.2881: various pieces of code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 24673
diff changeset
1975 " 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
1976 " already defined
04205b7d67d5 patch 8.2.2881: various pieces of code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 24673
diff changeset
1977 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
1978
15008
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions
Bram Moolenaar <Bram@vim.org>
parents: 15000
diff changeset
1979 delfunc ExistingFunction
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions
Bram Moolenaar <Bram@vim.org>
parents: 15000
diff changeset
1980 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
1981 call writefile([
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions
Bram Moolenaar <Bram@vim.org>
parents: 15000
diff changeset
1982 \ '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
1983 \ '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
1984 \ ], 'Xfuncexists')
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions
Bram Moolenaar <Bram@vim.org>
parents: 15000
diff changeset
1985 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
1986 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
1987
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions
Bram Moolenaar <Bram@vim.org>
parents: 15000
diff changeset
1988 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
1989 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
1990 delfunc ExistingFunction
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions
Bram Moolenaar <Bram@vim.org>
parents: 15000
diff changeset
1991 endfunc
15649
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
1992
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
1993 " Test confirm({msg} [, {choices} [, {default} [, {type}]]])
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
1994 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
1995 CheckUnix
0da9bc55c31a patch 8.1.1826: tests use hand coded feature and option checks
Bram Moolenaar <Bram@vim.org>
parents: 17484
diff changeset
1996 CheckNotGui
15649
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
1997
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
1998 call feedkeys('o', 'L')
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
1999 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
2000 call assert_equal(1, a)
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2001
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2002 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
2003 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
2004 call assert_equal(1, a)
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2005
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2006 call feedkeys('n', 'L')
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2007 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
2008 call assert_equal(2, a)
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2009
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2010 " 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
2011 call feedkeys("\<C-C>", 'L')
15649
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2012 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
2013 call assert_equal(0, a)
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2014
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2015 " <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
2016 " 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
2017 eval "\<Esc>0"->feedkeys('L')
15649
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2018 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
2019 call assert_equal(0, a)
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2020
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2021 " 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
2022 call feedkeys("\<CR>", 'L')
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2023 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
2024 call assert_equal(1, a)
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2025
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2026 call feedkeys("\<CR>", 'L')
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2027 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
2028 call assert_equal(2, a)
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2029
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2030 call feedkeys("\<CR>", 'L')
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2031 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
2032 call assert_equal(0, a)
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2033
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2034 " Test with the {type} 4th argument
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2035 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
2036 call feedkeys('y', 'L')
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2037 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
2038 call assert_equal(1, a)
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2039 endfor
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2040
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2041 call assert_fails('call confirm([])', 'E730:')
e649df212461 patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2042 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
2043 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
2044 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
2045 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
2046
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on
Bram Moolenaar <Bram@vim.org>
parents: 15649
diff changeset
2047 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
2048 " 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
2049 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
2050 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
2051
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on
Bram Moolenaar <Bram@vim.org>
parents: 15649
diff changeset
2052 " 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
2053 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
2054 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
2055 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
2056 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
2057 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
2058 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
2059 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
2060 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
2061
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on
Bram Moolenaar <Bram@vim.org>
parents: 15649
diff changeset
2062 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
2063 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
2064 " 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
2065 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
2066 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
2067 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
2068 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
2069 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
2070 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
2071 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
2072 endif
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on
Bram Moolenaar <Bram@vim.org>
parents: 15649
diff changeset
2073 endfunc
16231
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents: 16180
diff changeset
2074
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents: 16180
diff changeset
2075 func Test_readdir()
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents: 16180
diff changeset
2076 call mkdir('Xdir')
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents: 16180
diff changeset
2077 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
2078 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
2079 call mkdir('Xdir/dir')
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents: 16180
diff changeset
2080
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents: 16180
diff changeset
2081 " All results
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents: 16180
diff changeset
2082 let files = readdir('Xdir')
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents: 16180
diff changeset
2083 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
2084
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents: 16180
diff changeset
2085 " 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
2086 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
2087 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
2088
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents: 16180
diff changeset
2089 " Only .txt files
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents: 16180
diff changeset
2090 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
2091 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
2092
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents: 16180
diff changeset
2093 " 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
2094 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
2095 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
2096
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents: 16180
diff changeset
2097 " Limit to 1 result.
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents: 16180
diff changeset
2098 let l = []
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents: 16180
diff changeset
2099 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
2100 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
2101
17944
745c02392844 patch 8.1.1968: crash when using nested map()
Bram Moolenaar <Bram@vim.org>
parents: 17930
diff changeset
2102 " Nested readdir() must not crash
745c02392844 patch 8.1.1968: crash when using nested map()
Bram Moolenaar <Bram@vim.org>
parents: 17930
diff changeset
2103 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
2104 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
2105
17837
f71ee7b04f0b patch 8.1.1915: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17829
diff changeset
2106 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
2107 endfunc
16668
81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 16231
diff changeset
2108
20643
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow
Bram Moolenaar <Bram@vim.org>
parents: 20629
diff changeset
2109 func Test_readdirex()
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow
Bram Moolenaar <Bram@vim.org>
parents: 20629
diff changeset
2110 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
2111 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
2112 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
2113 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
2114
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow
Bram Moolenaar <Bram@vim.org>
parents: 20629
diff changeset
2115 " All results
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow
Bram Moolenaar <Bram@vim.org>
parents: 20629
diff changeset
2116 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
2117 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
2118 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
2119 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
2120
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow
Bram Moolenaar <Bram@vim.org>
parents: 20629
diff changeset
2121 " 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
2122 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
2123 \ ->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
2124 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
2125
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow
Bram Moolenaar <Bram@vim.org>
parents: 20629
diff changeset
2126 " Only .txt files
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow
Bram Moolenaar <Bram@vim.org>
parents: 20629
diff changeset
2127 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
2128 \ ->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
2129 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
2130
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow
Bram Moolenaar <Bram@vim.org>
parents: 20629
diff changeset
2131 " 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
2132 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
2133 \ ->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
2134 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
2135
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow
Bram Moolenaar <Bram@vim.org>
parents: 20629
diff changeset
2136 " 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
2137 let l = []
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow
Bram Moolenaar <Bram@vim.org>
parents: 20629
diff changeset
2138 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
2139 \ ->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
2140 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
2141
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow
Bram Moolenaar <Bram@vim.org>
parents: 20629
diff changeset
2142 " 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
2143 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
2144 \ ->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
2145 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
2146
20867
9c24319b4cb2 patch 8.2.0985: simplify() does not remove slashes from "///path"
Bram Moolenaar <Bram@vim.org>
parents: 20794
diff changeset
2147 " 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
2148 if has("unix")
5a9c42c6a69e patch 8.2.0947: readdirex() doesn't handle broken link properly
Bram Moolenaar <Bram@vim.org>
parents: 20788
diff changeset
2149 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
2150 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
2151 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
2152 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
2153 \ ->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
2154 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
2155 \ ['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
2156 endif
20643
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow
Bram Moolenaar <Bram@vim.org>
parents: 20629
diff changeset
2157 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
2158
fdc72bf4de35 patch 8.2.1832: readdirex() error is displayed as a message
Bram Moolenaar <Bram@vim.org>
parents: 22512
diff changeset
2159 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
2160 endfunc
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow
Bram Moolenaar <Bram@vim.org>
parents: 20629
diff changeset
2161
20873
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2162 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
2163 CheckUnix
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2164 " 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
2165 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
2166 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
2167 endif
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2168 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
2169 call mkdir('Xdir2')
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2170 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
2171 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
2172 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
2173
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2174 " 1) default
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2175 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
2176 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
2177 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
2178
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2179 " 2) no sorting
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2180 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
2181 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
2182 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
2183 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
2184
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2185 " 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
2186 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
2187 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
2188
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2189 " 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
2190 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
2191 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
2192
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2193 " 5) Default Collation
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2194 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
2195 lang collate C
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2196 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
2197 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
2198
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2199 " 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
2200 " 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
2201 " available
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2202 try
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2203 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
2204 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
2205 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
2206 catch
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2207 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
2208
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2209 finally
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2210 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
2211 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
2212 endtry
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2213 endfunc
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2214
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2215 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
2216 " 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
2217 let dir = 'Xdir3'
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2218 call mkdir(dir)
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2219 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
2220 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
2221 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
2222 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
2223 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
2224 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
2225
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2226 " 1) default
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2227 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
2228 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
2229 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
2230
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2231 " 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
2232 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
2233 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
2234
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2235 " 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
2236 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
2237 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
2238
20887
5dd8e741060b patch 8.2.0995: insufficient testing for the readdir() sort option
Bram Moolenaar <Bram@vim.org>
parents: 20877
diff changeset
2239 " 4) collation
5dd8e741060b patch 8.2.0995: insufficient testing for the readdir() sort option
Bram Moolenaar <Bram@vim.org>
parents: 20877
diff changeset
2240 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
2241 lang collate C
5dd8e741060b patch 8.2.0995: insufficient testing for the readdir() sort option
Bram Moolenaar <Bram@vim.org>
parents: 20877
diff changeset
2242 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
2243 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
2244 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
2245
5dd8e741060b patch 8.2.0995: insufficient testing for the readdir() sort option
Bram Moolenaar <Bram@vim.org>
parents: 20877
diff changeset
2246 " 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
2247 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
2248 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
2249 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
2250
5dd8e741060b patch 8.2.0995: insufficient testing for the readdir() sort option
Bram Moolenaar <Bram@vim.org>
parents: 20877
diff changeset
2251 " 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
2252 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
2253 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
2254
5dd8e741060b patch 8.2.0995: insufficient testing for the readdir() sort option
Bram Moolenaar <Bram@vim.org>
parents: 20877
diff changeset
2255 " Cleanup
5dd8e741060b patch 8.2.0995: insufficient testing for the readdir() sort option
Bram Moolenaar <Bram@vim.org>
parents: 20877
diff changeset
2256 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
2257
20873
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2258 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
2259 endfunc
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted
Bram Moolenaar <Bram@vim.org>
parents: 20869
diff changeset
2260
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
2261 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
2262 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
2263 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
2264 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
2265 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
2266 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
2267 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
2268 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
2269 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
2270
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
2271 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
2272 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
2273 call assert_false(filereadable('Xdir/[a-1]/foo.txt'))
28341
0390c4848b27 patch 8.2.4696: delete() with "rf" argument does not report a failure
Bram Moolenaar <Bram@vim.org>
parents: 28291
diff changeset
2274
0390c4848b27 patch 8.2.4696: delete() with "rf" argument does not report a failure
Bram Moolenaar <Bram@vim.org>
parents: 28291
diff changeset
2275 if has('unix')
0390c4848b27 patch 8.2.4696: delete() with "rf" argument does not report a failure
Bram Moolenaar <Bram@vim.org>
parents: 28291
diff changeset
2276 call mkdir('Xdir/Xdir2', 'p')
0390c4848b27 patch 8.2.4696: delete() with "rf" argument does not report a failure
Bram Moolenaar <Bram@vim.org>
parents: 28291
diff changeset
2277 silent !chmod 555 Xdir
0390c4848b27 patch 8.2.4696: delete() with "rf" argument does not report a failure
Bram Moolenaar <Bram@vim.org>
parents: 28291
diff changeset
2278 call assert_equal(-1, delete('Xdir/Xdir2', 'rf'))
0390c4848b27 patch 8.2.4696: delete() with "rf" argument does not report a failure
Bram Moolenaar <Bram@vim.org>
parents: 28291
diff changeset
2279 call assert_equal(-1, delete('Xdir', 'rf'))
0390c4848b27 patch 8.2.4696: delete() with "rf" argument does not report a failure
Bram Moolenaar <Bram@vim.org>
parents: 28291
diff changeset
2280 silent !chmod 755 Xdir
0390c4848b27 patch 8.2.4696: delete() with "rf" argument does not report a failure
Bram Moolenaar <Bram@vim.org>
parents: 28291
diff changeset
2281 call assert_equal(0, delete('Xdir', 'rf'))
0390c4848b27 patch 8.2.4696: delete() with "rf" argument does not report a failure
Bram Moolenaar <Bram@vim.org>
parents: 28291
diff changeset
2282 endif
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
2283 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
2284
16668
81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 16231
diff changeset
2285 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
2286 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
2287 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
2288 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
2289 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
2290 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
2291
81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 16231
diff changeset
2292 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
2293 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
2294 endfunction
81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 16231
diff changeset
2295 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
2296 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
2297 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
2298 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
2299
24878
f67773e26cfa patch 8.2.2977: crash when using a null function reference
Bram Moolenaar <Bram@vim.org>
parents: 24838
diff changeset
2300 " These once caused a crash.
24618
4aebea72c397 patch 8.2.2848: crash whn calling partial
Bram Moolenaar <Bram@vim.org>
parents: 24596
diff changeset
2301 call call(test_null_function(), [])
4aebea72c397 patch 8.2.2848: crash whn calling partial
Bram Moolenaar <Bram@vim.org>
parents: 24596
diff changeset
2302 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
2303 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
2304 call assert_fails('call test_null_partial()()', 'E117:')
26506
4a1d2abc2016 patch 8.2.3783: confusing error for using a variable as a function
Bram Moolenaar <Bram@vim.org>
parents: 26472
diff changeset
2305
4a1d2abc2016 patch 8.2.3783: confusing error for using a variable as a function
Bram Moolenaar <Bram@vim.org>
parents: 26472
diff changeset
2306 let lines =<< trim END
4a1d2abc2016 patch 8.2.3783: confusing error for using a variable as a function
Bram Moolenaar <Bram@vim.org>
parents: 26472
diff changeset
2307 let Time = 'localtime'
4a1d2abc2016 patch 8.2.3783: confusing error for using a variable as a function
Bram Moolenaar <Bram@vim.org>
parents: 26472
diff changeset
2308 call Time()
4a1d2abc2016 patch 8.2.3783: confusing error for using a variable as a function
Bram Moolenaar <Bram@vim.org>
parents: 26472
diff changeset
2309 END
27457
4c16acb2525f patch 8.2.4257: Vim9: finding global function without g: prefix inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 27412
diff changeset
2310 call v9.CheckScriptFailure(lines, 'E1085:')
16668
81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 16231
diff changeset
2311 endfunc
81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 16231
diff changeset
2312
81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 16231
diff changeset
2313 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
2314 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
2315 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
2316 set encoding=latin1
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
2317 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
2318 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
2319 endfunc
81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 16231
diff changeset
2320
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
2321 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
2322 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
2323 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
2324 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
2325 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
2326 " 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
2327 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
2328 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
2329
16668
81be817c9d9a patch 8.1.1336: some eval functionality is not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 16231
diff changeset
2330 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
2331 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
2332 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
2333
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
2334 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
2335 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
2336 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
2337 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
2338 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
2339 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
2340 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
2341 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
2342 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
2343 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
2344
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
2345 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
2346 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
2347 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
2348 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
2349 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
2350 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
2351 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
2352 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
2353 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
2354 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
2355 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
2356
17223
07bbe73b8e74 patch 8.1.1611: bufadd() reuses existing buffer without a name
Bram Moolenaar <Bram@vim.org>
parents: 17221
diff changeset
2357 let buf1 = bufadd('')
07bbe73b8e74 patch 8.1.1611: bufadd() reuses existing buffer without a name
Bram Moolenaar <Bram@vim.org>
parents: 17221
diff changeset
2358 let buf2 = bufadd('')
07bbe73b8e74 patch 8.1.1611: bufadd() reuses existing buffer without a name
Bram Moolenaar <Bram@vim.org>
parents: 17221
diff changeset
2359 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
2360 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
2361 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
2362 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
2363 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
2364 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
2365 exe 'bwipe ' .. buf1
07bbe73b8e74 patch 8.1.1611: bufadd() reuses existing buffer without a name
Bram Moolenaar <Bram@vim.org>
parents: 17221
diff changeset
2366 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
2367 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
2368 exe 'bwipe ' .. buf2
07bbe73b8e74 patch 8.1.1611: bufadd() reuses existing buffer without a name
Bram Moolenaar <Bram@vim.org>
parents: 17221
diff changeset
2369 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
2370
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
2371 bwipe someName
17278
b6de6181e5ab patch 8.1.1638: running tests leaves some files behind
Bram Moolenaar <Bram@vim.org>
parents: 17223
diff changeset
2372 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
2373 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
2374 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
2375 endfunc
18143
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2376
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2377 func Test_state()
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2378 CheckRunVimInTerminal
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2379
19795
1c7f92a1100e patch 8.2.0454: some tests fail when the system is slow
Bram Moolenaar <Bram@vim.org>
parents: 19783
diff changeset
2380 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
2381
18143
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2382 let lines =<< trim END
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2383 call setline(1, ['one', 'two', 'three'])
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2384 map ;; gg
18209
9a7bbad64376 patch 8.1.2099: state() test fails on some Mac systems
Bram Moolenaar <Bram@vim.org>
parents: 18143
diff changeset
2385 set complete=.
18143
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2386 func RunTimer()
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2387 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
2388 endfunc
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2389 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
2390 END
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2391 call writefile(lines, 'XState')
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2392 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
2393
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2394 " 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
2395 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
2396 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
2397 call term_sendkeys(buf, ":\<CR>")
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2398
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2399 " Using a timer callback
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2400 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
2401 call TermWait(buf, 25)
18143
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2402 call term_sendkeys(buf, getstate)
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2403 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
2404
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2405 " Halfway a mapping
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2406 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
2407 call TermWait(buf, 25)
18143
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2408 call term_sendkeys(buf, ";")
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2409 call term_sendkeys(buf, getstate)
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2410 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
2411
18209
9a7bbad64376 patch 8.1.2099: state() test fails on some Mac systems
Bram Moolenaar <Bram@vim.org>
parents: 18143
diff changeset
2412 " 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
2413 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
2414 call TermWait(buf, 25)
18143
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2415 call term_sendkeys(buf, "\<Esc>")
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2416 call term_sendkeys(buf, getstate)
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2417 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
2418
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2419 " Autocommand executing
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2420 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
2421 call TermWait(buf, 25)
18143
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2422 call term_sendkeys(buf, getstate)
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2423 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
2424
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2425 " Todo: "w" - waiting for ch_evalexpr()
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2426
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2427 " messages scrolled
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2428 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
2429 call TermWait(buf, 25)
18143
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2430 call term_sendkeys(buf, "\<CR>")
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2431 call term_sendkeys(buf, getstate)
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2432 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
2433
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2434 call StopVimInTerminal(buf)
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2435 call delete('XState')
2416e1a887ca patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents: 18096
diff changeset
2436 endfunc
19201
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2437
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2438 func Test_range()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2439 " destructuring
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2440 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
2441 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
2442
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2443 " index
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2444 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
2445
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2446 " add()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2447 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
2448 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
2449 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
2450
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2451 " append()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2452 new
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2453 call append('.', range(5))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2454 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
2455 bwipe!
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 " appendbufline()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2458 new
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2459 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
2460 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
2461 bwipe!
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2462
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2463 " call()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2464 func TwoArgs(a, b)
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2465 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
2466 endfunc
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2467 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
2468
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2469 " col()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2470 new
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2471 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
2472 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
2473 bwipe!
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2474
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2475 " complete()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2476 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
2477 " complete_info()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2478 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
2479
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2480 " copy()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2481 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
2482
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2483 " count()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2484 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
2485 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
2486 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
2487
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2488 " cursor()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2489 new
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2490 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
2491 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
2492 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
2493 bwipe!
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2494
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2495 " deepcopy()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2496 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
2497
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2498 " empty()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2499 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
2500 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
2501
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2502 " execute()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2503 new
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2504 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
2505 call execute(range(3))
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2506 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
2507 bwipe!
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2508
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2509 " extend()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2510 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
2511 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
2512 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
2513
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2514 " filter()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2515 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
2516 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
2517
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2518 " funcref()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2519 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
2520
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2521 " function()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2522 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
2523
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2524 " garbagecollect()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2525 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
2526 let otherlist = range(3)
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2527 call test_garbagecollect_now()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2528
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2529 " get()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2530 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
2531 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
2532
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2533 " index()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2534 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
2535 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
2536
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2537 " inputlist()
19209
b780229f5792 patch 8.2.0163: test hangs on MS-Windows console
Bram Moolenaar <Bram@vim.org>
parents: 19207
diff changeset
2538 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
2539 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
2540 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
2541 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
2542
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2543 " insert()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2544 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
2545 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
2546 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
2547 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
2548 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
2549 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
2550
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2551 " join()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2552 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
2553
19209
b780229f5792 patch 8.2.0163: test hangs on MS-Windows console
Bram Moolenaar <Bram@vim.org>
parents: 19207
diff changeset
2554 " json_encode()
b780229f5792 patch 8.2.0163: test hangs on MS-Windows console
Bram Moolenaar <Bram@vim.org>
parents: 19207
diff changeset
2555 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
2556
19201
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2557 " len()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2558 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
2559 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
2560 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
2561 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
2562
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2563 " list2str()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2564 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
2565 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
2566
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2567 " lock()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2568 let thelist = range(5)
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2569 lockvar thelist
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2570
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2571 " map()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2572 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
2573 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
2574 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
2575 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
2576
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2577 " match()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2578 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
2579
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2580 " matchaddpos()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2581 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
2582 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
2583
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2584 " matchend()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2585 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
2586 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
2587 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
2588
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2589 " matchstrpos()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2590 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
2591 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
2592 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
2593
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2594 " max() reverse()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2595 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
2596 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
2597 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
2598 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
2599 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
2600 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
2601 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
2602 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
2603 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
2604
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2605 " min() reverse()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2606 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
2607 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
2608 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
2609 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
2610 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
2611 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
2612 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
2613 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
2614 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
2615
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2616 " remove()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2617 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
2618 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
2619 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
2620 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
2621 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
2622 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
2623
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2624 " repeat()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2625 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
2626 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
2627 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
2628 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
2629 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
2630
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2631 " reverse()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2632 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
2633 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
2634 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
2635 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
2636 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
2637 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
2638 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
2639 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
2640 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
2641
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2642 " TODO: setpos()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2643 " new
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2644 " 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
2645 " 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
2646 " 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
2647 " bwipe!
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2648
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2649 " setreg()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2650 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
2651 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
2652
19241
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work
Bram Moolenaar <Bram@vim.org>
parents: 19209
diff changeset
2653 " settagstack()
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work
Bram Moolenaar <Bram@vim.org>
parents: 19209
diff changeset
2654 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
2655
19241
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work
Bram Moolenaar <Bram@vim.org>
parents: 19209
diff changeset
2656 " 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
2657 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
2658 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
2659
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work
Bram Moolenaar <Bram@vim.org>
parents: 19209
diff changeset
2660 " 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
2661 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
2662
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work
Bram Moolenaar <Bram@vim.org>
parents: 19209
diff changeset
2663 " 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
2664 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
2665
19201
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2666 " sort()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2667 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
2668
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2669 " string()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2670 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
2671
19241
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work
Bram Moolenaar <Bram@vim.org>
parents: 19209
diff changeset
2672 " 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
2673 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
2674 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
2675 endfunc
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work
Bram Moolenaar <Bram@vim.org>
parents: 19209
diff changeset
2676 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
2677 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
2678 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
2679
19241
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work
Bram Moolenaar <Bram@vim.org>
parents: 19209
diff changeset
2680 " 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
2681 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
2682 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
2683 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
2684 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
2685 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
2686 else
e4a155edc9cb patch 8.2.0211: test for ANSI colors fails without an "ls" command
Bram Moolenaar <Bram@vim.org>
parents: 19255
diff changeset
2687 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
2688 endif
28919
99c1356f4210 patch 8.2.4982: colors in terminal window are not 100% correct
Bram Moolenaar <Bram@vim.org>
parents: 28702
diff changeset
2689 call assert_fails('call term_start("' .. cmd .. '", #{term_finish: "close"'
99c1356f4210 patch 8.2.4982: colors in terminal window are not 100% correct
Bram Moolenaar <Bram@vim.org>
parents: 28702
diff changeset
2690 \ .. ', ansi_colors: range(16)})', 'E475:')
28921
995bc7ba8d5b patch 8.2.4983: colors test fails in the GUI
Bram Moolenaar <Bram@vim.org>
parents: 28919
diff changeset
2691 unlet g:terminal_ansi_colors
19241
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work
Bram Moolenaar <Bram@vim.org>
parents: 19209
diff changeset
2692 endif
c53dbbf3229b patch 8.2.0179: still a few places where range() does not work
Bram Moolenaar <Bram@vim.org>
parents: 19209
diff changeset
2693
19201
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2694 " type()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2695 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
2696
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2697 " uniq()
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 18821
diff changeset
2698 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
2699
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
2700 " errors
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
2701 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
2702 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
2703 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
2704 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
2705 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
2706 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
2707 endfunc
19400
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled
Bram Moolenaar <Bram@vim.org>
parents: 19306
diff changeset
2708
27412
557a50b0d10b patch 8.2.4234: test_garbagecollect_now() does not check v:testing
Bram Moolenaar <Bram@vim.org>
parents: 27368
diff changeset
2709 func Test_garbagecollect_now_fails()
557a50b0d10b patch 8.2.4234: test_garbagecollect_now() does not check v:testing
Bram Moolenaar <Bram@vim.org>
parents: 27368
diff changeset
2710 let v:testing = 0
557a50b0d10b patch 8.2.4234: test_garbagecollect_now() does not check v:testing
Bram Moolenaar <Bram@vim.org>
parents: 27368
diff changeset
2711 call assert_fails('call test_garbagecollect_now()', 'E1142:')
557a50b0d10b patch 8.2.4234: test_garbagecollect_now() does not check v:testing
Bram Moolenaar <Bram@vim.org>
parents: 27368
diff changeset
2712 let v:testing = 1
557a50b0d10b patch 8.2.4234: test_garbagecollect_now() does not check v:testing
Bram Moolenaar <Bram@vim.org>
parents: 27368
diff changeset
2713 endfunc
557a50b0d10b patch 8.2.4234: test_garbagecollect_now() does not check v:testing
Bram Moolenaar <Bram@vim.org>
parents: 27368
diff changeset
2714
19400
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled
Bram Moolenaar <Bram@vim.org>
parents: 19306
diff changeset
2715 func Test_echoraw()
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled
Bram Moolenaar <Bram@vim.org>
parents: 19306
diff changeset
2716 CheckScreendump
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled
Bram Moolenaar <Bram@vim.org>
parents: 19306
diff changeset
2717
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled
Bram Moolenaar <Bram@vim.org>
parents: 19306
diff changeset
2718 " 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
2719 let lines =<< trim END
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled
Bram Moolenaar <Bram@vim.org>
parents: 19306
diff changeset
2720 call echoraw("hello\<CR>x")
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled
Bram Moolenaar <Bram@vim.org>
parents: 19306
diff changeset
2721 END
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled
Bram Moolenaar <Bram@vim.org>
parents: 19306
diff changeset
2722 call writefile(lines, 'XTest_echoraw')
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled
Bram Moolenaar <Bram@vim.org>
parents: 19306
diff changeset
2723 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
2724 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
2725
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled
Bram Moolenaar <Bram@vim.org>
parents: 19306
diff changeset
2726 " clean up
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled
Bram Moolenaar <Bram@vim.org>
parents: 19306
diff changeset
2727 call StopVimInTerminal(buf)
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled
Bram Moolenaar <Bram@vim.org>
parents: 19306
diff changeset
2728 call delete('XTest_echoraw')
bd9069d21c5d patch 8.2.0258: modifyOtherKeys cannot be temporarily disabled
Bram Moolenaar <Bram@vim.org>
parents: 19306
diff changeset
2729 endfunc
19517
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage
Bram Moolenaar <Bram@vim.org>
parents: 19400
diff changeset
2730
20158
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20156
diff changeset
2731 " Test for echo highlighting
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20156
diff changeset
2732 func Test_echohl()
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20156
diff changeset
2733 echohl Search
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20156
diff changeset
2734 echo 'Vim'
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20156
diff changeset
2735 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
2736 " 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
2737 " ScreenAttrs() returns all zeros.
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20156
diff changeset
2738 echohl None
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20156
diff changeset
2739 endfunc
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20156
diff changeset
2740
19783
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
2741 " Test for the eval() function
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
2742 func Test_eval()
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
2743 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
2744 endfunc
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
2745
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
2746 " Test for the nr2char() function
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
2747 func Test_nr2char()
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
2748 set encoding=latin1
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
2749 call assert_equal('@', nr2char(64))
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
2750 set encoding=utf8
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
2751 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
2752 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
2753
28668
53c608c7ea9e patch 8.2.4858: K_SPECIAL may be escaped twice
Bram Moolenaar <Bram@vim.org>
parents: 28629
diff changeset
2754 call assert_equal("\x80\xfc\b" .. nr2char(0x100000), eval('"\<M-' .. nr2char(0x100000) .. '>"'))
53c608c7ea9e patch 8.2.4858: K_SPECIAL may be escaped twice
Bram Moolenaar <Bram@vim.org>
parents: 28629
diff changeset
2755 call assert_equal("\x80\xfc\b" .. nr2char(0x40000000), eval('"\<M-' .. nr2char(0x40000000) .. '>"'))
19783
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
2756 endfunc
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
2757
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
2758 " 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
2759 func Test_screen_functions()
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
2760 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
2761 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
2762 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
2763 endfunc
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 19742
diff changeset
2764
20109
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 19954
diff changeset
2765 " 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
2766 func Test_getcurpos_setpos()
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 19954
diff changeset
2767 new
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 19954
diff changeset
2768 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
2769 normal gg6l
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 19954
diff changeset
2770 let sp = getcurpos()
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 19954
diff changeset
2771 normal 0
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 19954
diff changeset
2772 call setpos('.', sp)
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 19954
diff changeset
2773 normal jyl
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 19954
diff changeset
2774 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
2775 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
2776 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
2777
0e231e8e70f8 patch 8.2.1727: a popup created with "cursorline" will ignore "firstline"
Bram Moolenaar <Bram@vim.org>
parents: 22355
diff changeset
2778 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
2779 normal G$
0e231e8e70f8 patch 8.2.1727: a popup created with "cursorline" will ignore "firstline"
Bram Moolenaar <Bram@vim.org>
parents: 22355
diff changeset
2780 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
2781 wincmd w
0e231e8e70f8 patch 8.2.1727: a popup created with "cursorline" will ignore "firstline"
Bram Moolenaar <Bram@vim.org>
parents: 22355
diff changeset
2782 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
2783
0e231e8e70f8 patch 8.2.1727: a popup created with "cursorline" will ignore "firstline"
Bram Moolenaar <Bram@vim.org>
parents: 22355
diff changeset
2784 wincmd w
20109
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 19954
diff changeset
2785 close!
22357
0e231e8e70f8 patch 8.2.1727: a popup created with "cursorline" will ignore "firstline"
Bram Moolenaar <Bram@vim.org>
parents: 22355
diff changeset
2786
0e231e8e70f8 patch 8.2.1727: a popup created with "cursorline" will ignore "firstline"
Bram Moolenaar <Bram@vim.org>
parents: 22355
diff changeset
2787 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
2788 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
2789 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
2790 endfunc
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 19954
diff changeset
2791
28061
050d49de7a66 patch 8.2.4555: getmousepos() returns the wrong column
Bram Moolenaar <Bram@vim.org>
parents: 27802
diff changeset
2792 func Test_getmousepos()
050d49de7a66 patch 8.2.4555: getmousepos() returns the wrong column
Bram Moolenaar <Bram@vim.org>
parents: 27802
diff changeset
2793 enew!
050d49de7a66 patch 8.2.4555: getmousepos() returns the wrong column
Bram Moolenaar <Bram@vim.org>
parents: 27802
diff changeset
2794 call setline(1, "\t\t\t1234")
28069
236b80af9833 patch 8.2.4559: getmousepos() returns the screen column
Bram Moolenaar <Bram@vim.org>
parents: 28061
diff changeset
2795 call test_setmouse(1, 1)
236b80af9833 patch 8.2.4559: getmousepos() returns the screen column
Bram Moolenaar <Bram@vim.org>
parents: 28061
diff changeset
2796 call assert_equal(#{
236b80af9833 patch 8.2.4559: getmousepos() returns the screen column
Bram Moolenaar <Bram@vim.org>
parents: 28061
diff changeset
2797 \ screenrow: 1,
236b80af9833 patch 8.2.4559: getmousepos() returns the screen column
Bram Moolenaar <Bram@vim.org>
parents: 28061
diff changeset
2798 \ screencol: 1,
236b80af9833 patch 8.2.4559: getmousepos() returns the screen column
Bram Moolenaar <Bram@vim.org>
parents: 28061
diff changeset
2799 \ winid: win_getid(),
236b80af9833 patch 8.2.4559: getmousepos() returns the screen column
Bram Moolenaar <Bram@vim.org>
parents: 28061
diff changeset
2800 \ winrow: 1,
236b80af9833 patch 8.2.4559: getmousepos() returns the screen column
Bram Moolenaar <Bram@vim.org>
parents: 28061
diff changeset
2801 \ wincol: 1,
236b80af9833 patch 8.2.4559: getmousepos() returns the screen column
Bram Moolenaar <Bram@vim.org>
parents: 28061
diff changeset
2802 \ line: 1,
236b80af9833 patch 8.2.4559: getmousepos() returns the screen column
Bram Moolenaar <Bram@vim.org>
parents: 28061
diff changeset
2803 \ column: 1,
236b80af9833 patch 8.2.4559: getmousepos() returns the screen column
Bram Moolenaar <Bram@vim.org>
parents: 28061
diff changeset
2804 \ }, getmousepos())
28061
050d49de7a66 patch 8.2.4555: getmousepos() returns the wrong column
Bram Moolenaar <Bram@vim.org>
parents: 27802
diff changeset
2805 call test_setmouse(1, 25)
050d49de7a66 patch 8.2.4555: getmousepos() returns the wrong column
Bram Moolenaar <Bram@vim.org>
parents: 27802
diff changeset
2806 call assert_equal(#{
050d49de7a66 patch 8.2.4555: getmousepos() returns the wrong column
Bram Moolenaar <Bram@vim.org>
parents: 27802
diff changeset
2807 \ screenrow: 1,
050d49de7a66 patch 8.2.4555: getmousepos() returns the wrong column
Bram Moolenaar <Bram@vim.org>
parents: 27802
diff changeset
2808 \ screencol: 25,
050d49de7a66 patch 8.2.4555: getmousepos() returns the wrong column
Bram Moolenaar <Bram@vim.org>
parents: 27802
diff changeset
2809 \ winid: win_getid(),
050d49de7a66 patch 8.2.4555: getmousepos() returns the wrong column
Bram Moolenaar <Bram@vim.org>
parents: 27802
diff changeset
2810 \ winrow: 1,
050d49de7a66 patch 8.2.4555: getmousepos() returns the wrong column
Bram Moolenaar <Bram@vim.org>
parents: 27802
diff changeset
2811 \ wincol: 25,
050d49de7a66 patch 8.2.4555: getmousepos() returns the wrong column
Bram Moolenaar <Bram@vim.org>
parents: 27802
diff changeset
2812 \ line: 1,
28069
236b80af9833 patch 8.2.4559: getmousepos() returns the screen column
Bram Moolenaar <Bram@vim.org>
parents: 28061
diff changeset
2813 \ column: 4,
28061
050d49de7a66 patch 8.2.4555: getmousepos() returns the wrong column
Bram Moolenaar <Bram@vim.org>
parents: 27802
diff changeset
2814 \ }, getmousepos())
050d49de7a66 patch 8.2.4555: getmousepos() returns the wrong column
Bram Moolenaar <Bram@vim.org>
parents: 27802
diff changeset
2815 call test_setmouse(1, 50)
050d49de7a66 patch 8.2.4555: getmousepos() returns the wrong column
Bram Moolenaar <Bram@vim.org>
parents: 27802
diff changeset
2816 call assert_equal(#{
050d49de7a66 patch 8.2.4555: getmousepos() returns the wrong column
Bram Moolenaar <Bram@vim.org>
parents: 27802
diff changeset
2817 \ screenrow: 1,
050d49de7a66 patch 8.2.4555: getmousepos() returns the wrong column
Bram Moolenaar <Bram@vim.org>
parents: 27802
diff changeset
2818 \ screencol: 50,
050d49de7a66 patch 8.2.4555: getmousepos() returns the wrong column
Bram Moolenaar <Bram@vim.org>
parents: 27802
diff changeset
2819 \ winid: win_getid(),
050d49de7a66 patch 8.2.4555: getmousepos() returns the wrong column
Bram Moolenaar <Bram@vim.org>
parents: 27802
diff changeset
2820 \ winrow: 1,
050d49de7a66 patch 8.2.4555: getmousepos() returns the wrong column
Bram Moolenaar <Bram@vim.org>
parents: 27802
diff changeset
2821 \ wincol: 50,
050d49de7a66 patch 8.2.4555: getmousepos() returns the wrong column
Bram Moolenaar <Bram@vim.org>
parents: 27802
diff changeset
2822 \ line: 1,
28069
236b80af9833 patch 8.2.4559: getmousepos() returns the screen column
Bram Moolenaar <Bram@vim.org>
parents: 28061
diff changeset
2823 \ column: 8,
28061
050d49de7a66 patch 8.2.4555: getmousepos() returns the wrong column
Bram Moolenaar <Bram@vim.org>
parents: 27802
diff changeset
2824 \ }, getmousepos())
28087
4c60e656e054 patch 8.2.4568: getmousepos() does not compute the column below the last line
Bram Moolenaar <Bram@vim.org>
parents: 28069
diff changeset
2825
4c60e656e054 patch 8.2.4568: getmousepos() does not compute the column below the last line
Bram Moolenaar <Bram@vim.org>
parents: 28069
diff changeset
2826 " If the mouse is positioned past the last buffer line, "line" and "column"
4c60e656e054 patch 8.2.4568: getmousepos() does not compute the column below the last line
Bram Moolenaar <Bram@vim.org>
parents: 28069
diff changeset
2827 " should act like it's positioned on the last buffer line.
4c60e656e054 patch 8.2.4568: getmousepos() does not compute the column below the last line
Bram Moolenaar <Bram@vim.org>
parents: 28069
diff changeset
2828 call test_setmouse(2, 25)
4c60e656e054 patch 8.2.4568: getmousepos() does not compute the column below the last line
Bram Moolenaar <Bram@vim.org>
parents: 28069
diff changeset
2829 call assert_equal(#{
4c60e656e054 patch 8.2.4568: getmousepos() does not compute the column below the last line
Bram Moolenaar <Bram@vim.org>
parents: 28069
diff changeset
2830 \ screenrow: 2,
4c60e656e054 patch 8.2.4568: getmousepos() does not compute the column below the last line
Bram Moolenaar <Bram@vim.org>
parents: 28069
diff changeset
2831 \ screencol: 25,
4c60e656e054 patch 8.2.4568: getmousepos() does not compute the column below the last line
Bram Moolenaar <Bram@vim.org>
parents: 28069
diff changeset
2832 \ winid: win_getid(),
4c60e656e054 patch 8.2.4568: getmousepos() does not compute the column below the last line
Bram Moolenaar <Bram@vim.org>
parents: 28069
diff changeset
2833 \ winrow: 2,
4c60e656e054 patch 8.2.4568: getmousepos() does not compute the column below the last line
Bram Moolenaar <Bram@vim.org>
parents: 28069
diff changeset
2834 \ wincol: 25,
4c60e656e054 patch 8.2.4568: getmousepos() does not compute the column below the last line
Bram Moolenaar <Bram@vim.org>
parents: 28069
diff changeset
2835 \ line: 1,
4c60e656e054 patch 8.2.4568: getmousepos() does not compute the column below the last line
Bram Moolenaar <Bram@vim.org>
parents: 28069
diff changeset
2836 \ column: 4,
4c60e656e054 patch 8.2.4568: getmousepos() does not compute the column below the last line
Bram Moolenaar <Bram@vim.org>
parents: 28069
diff changeset
2837 \ }, getmousepos())
4c60e656e054 patch 8.2.4568: getmousepos() does not compute the column below the last line
Bram Moolenaar <Bram@vim.org>
parents: 28069
diff changeset
2838 call test_setmouse(2, 50)
4c60e656e054 patch 8.2.4568: getmousepos() does not compute the column below the last line
Bram Moolenaar <Bram@vim.org>
parents: 28069
diff changeset
2839 call assert_equal(#{
4c60e656e054 patch 8.2.4568: getmousepos() does not compute the column below the last line
Bram Moolenaar <Bram@vim.org>
parents: 28069
diff changeset
2840 \ screenrow: 2,
4c60e656e054 patch 8.2.4568: getmousepos() does not compute the column below the last line
Bram Moolenaar <Bram@vim.org>
parents: 28069
diff changeset
2841 \ screencol: 50,
4c60e656e054 patch 8.2.4568: getmousepos() does not compute the column below the last line
Bram Moolenaar <Bram@vim.org>
parents: 28069
diff changeset
2842 \ winid: win_getid(),
4c60e656e054 patch 8.2.4568: getmousepos() does not compute the column below the last line
Bram Moolenaar <Bram@vim.org>
parents: 28069
diff changeset
2843 \ winrow: 2,
4c60e656e054 patch 8.2.4568: getmousepos() does not compute the column below the last line
Bram Moolenaar <Bram@vim.org>
parents: 28069
diff changeset
2844 \ wincol: 50,
4c60e656e054 patch 8.2.4568: getmousepos() does not compute the column below the last line
Bram Moolenaar <Bram@vim.org>
parents: 28069
diff changeset
2845 \ line: 1,
4c60e656e054 patch 8.2.4568: getmousepos() does not compute the column below the last line
Bram Moolenaar <Bram@vim.org>
parents: 28069
diff changeset
2846 \ column: 8,
4c60e656e054 patch 8.2.4568: getmousepos() does not compute the column below the last line
Bram Moolenaar <Bram@vim.org>
parents: 28069
diff changeset
2847 \ }, getmousepos())
28061
050d49de7a66 patch 8.2.4555: getmousepos() returns the wrong column
Bram Moolenaar <Bram@vim.org>
parents: 27802
diff changeset
2848 bwipe!
050d49de7a66 patch 8.2.4555: getmousepos() returns the wrong column
Bram Moolenaar <Bram@vim.org>
parents: 27802
diff changeset
2849 endfunc
050d49de7a66 patch 8.2.4555: getmousepos() returns the wrong column
Bram Moolenaar <Bram@vim.org>
parents: 27802
diff changeset
2850
20158
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20156
diff changeset
2851 " Test for glob()
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20156
diff changeset
2852 func Test_glob()
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20156
diff changeset
2853 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
2854 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
2855 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
2856
0c0e8cd8c177 patch 8.2.1505: not all file read and writecode is tested
Bram Moolenaar <Bram@vim.org>
parents: 21765
diff changeset
2857 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
2858 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
2859 set wildignorecase
0c0e8cd8c177 patch 8.2.1505: not all file read and writecode is tested
Bram Moolenaar <Bram@vim.org>
parents: 21765
diff changeset
2860 " 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
2861 " 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
2862 call assert_equal(['XGLOB2', 'Xglob1'], sort(glob('Xglob[12]', 0, 1)))
28291
1c97a31f8f22 patch 8.2.4671: 'wildignorecase' is sometimes not used for glob()
Bram Moolenaar <Bram@vim.org>
parents: 28087
diff changeset
2863 " wildignorecase shall be applied even when the pattern contains no wildcards.
1c97a31f8f22 patch 8.2.4671: 'wildignorecase' is sometimes not used for glob()
Bram Moolenaar <Bram@vim.org>
parents: 28087
diff changeset
2864 call assert_equal('XGLOB2', glob('xglob2'))
21911
0c0e8cd8c177 patch 8.2.1505: not all file read and writecode is tested
Bram Moolenaar <Bram@vim.org>
parents: 21765
diff changeset
2865 set wildignorecase&
0c0e8cd8c177 patch 8.2.1505: not all file read and writecode is tested
Bram Moolenaar <Bram@vim.org>
parents: 21765
diff changeset
2866
0c0e8cd8c177 patch 8.2.1505: not all file read and writecode is tested
Bram Moolenaar <Bram@vim.org>
parents: 21765
diff changeset
2867 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
2868 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
2869
0c0e8cd8c177 patch 8.2.1505: not all file read and writecode is tested
Bram Moolenaar <Bram@vim.org>
parents: 21765
diff changeset
2870 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
2871 endfunc
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20156
diff changeset
2872
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20156
diff changeset
2873 " Test for browse()
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20156
diff changeset
2874 func Test_browse()
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20156
diff changeset
2875 CheckFeature browse
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20156
diff changeset
2876 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
2877 endfunc
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20156
diff changeset
2878
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20156
diff changeset
2879 " Test for browsedir()
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20156
diff changeset
2880 func Test_browsedir()
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20156
diff changeset
2881 CheckFeature browse
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20156
diff changeset
2882 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
2883 endfunc
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20156
diff changeset
2884
24448
faac16c365b6 patch 8.2.2764: memory leak when default function argument is allocated
Bram Moolenaar <Bram@vim.org>
parents: 24204
diff changeset
2885 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
2886 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
2887 endfunc
faac16c365b6 patch 8.2.2764: memory leak when default function argument is allocated
Bram Moolenaar <Bram@vim.org>
parents: 24204
diff changeset
2888
faac16c365b6 patch 8.2.2764: memory leak when default function argument is allocated
Bram Moolenaar <Bram@vim.org>
parents: 24204
diff changeset
2889 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
2890 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
2891 endfunc
faac16c365b6 patch 8.2.2764: memory leak when default function argument is allocated
Bram Moolenaar <Bram@vim.org>
parents: 24204
diff changeset
2892
24695
13efbfc53054 patch 8.2.2886: various pieces of code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 24685
diff changeset
2893 " 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
2894 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
2895 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
2896 endfunc
13efbfc53054 patch 8.2.2886: various pieces of code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 24685
diff changeset
2897
24760
ca0f983f08cf patch 8.2.2918: builtin function can be shadowed by global variable
Bram Moolenaar <Bram@vim.org>
parents: 24695
diff changeset
2898 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
2899 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
2900 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
2901 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
2902 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
2903 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
2904 vim9script
27671
19367412787c patch 8.2.4361: Vim9: some tests fail
Bram Moolenaar <Bram@vim.org>
parents: 27457
diff changeset
2905 var trim = (x) => " " .. x
24766
29ed95687f74 patch 8.2.2921: E704 for script local variable is not backwards compatible
Bram Moolenaar <Bram@vim.org>
parents: 24764
diff changeset
2906 END
27457
4c16acb2525f patch 8.2.4257: Vim9: finding global function without g: prefix inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 27412
diff changeset
2907 call v9.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
2908
3907cf9be745 patch 8.2.2920: still a way to shadow a builtin function
Bram Moolenaar <Bram@vim.org>
parents: 24760
diff changeset
2909 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
2910 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
2911 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
2912 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
2913 endfunc
ca0f983f08cf patch 8.2.2918: builtin function can be shadowed by global variable
Bram Moolenaar <Bram@vim.org>
parents: 24695
diff changeset
2914
26472
cc95e10e1cf2 patch 8.2.3766: converting a funcref to a string leaves out "g:"
Bram Moolenaar <Bram@vim.org>
parents: 26007
diff changeset
2915 func Test_funcref_to_string()
cc95e10e1cf2 patch 8.2.3766: converting a funcref to a string leaves out "g:"
Bram Moolenaar <Bram@vim.org>
parents: 26007
diff changeset
2916 let Fn = funcref('g:Test_funcref_to_string')
cc95e10e1cf2 patch 8.2.3766: converting a funcref to a string leaves out "g:"
Bram Moolenaar <Bram@vim.org>
parents: 26007
diff changeset
2917 call assert_equal("function('g:Test_funcref_to_string')", string(Fn))
cc95e10e1cf2 patch 8.2.3766: converting a funcref to a string leaves out "g:"
Bram Moolenaar <Bram@vim.org>
parents: 26007
diff changeset
2918 endfunc
cc95e10e1cf2 patch 8.2.3766: converting a funcref to a string leaves out "g:"
Bram Moolenaar <Bram@vim.org>
parents: 26007
diff changeset
2919
28629
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial
Bram Moolenaar <Bram@vim.org>
parents: 28341
diff changeset
2920 " Test for isabsolutepath()
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial
Bram Moolenaar <Bram@vim.org>
parents: 28341
diff changeset
2921 func Test_isabsolutepath()
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial
Bram Moolenaar <Bram@vim.org>
parents: 28341
diff changeset
2922 call assert_false(isabsolutepath(''))
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial
Bram Moolenaar <Bram@vim.org>
parents: 28341
diff changeset
2923 call assert_false(isabsolutepath('.'))
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial
Bram Moolenaar <Bram@vim.org>
parents: 28341
diff changeset
2924 call assert_false(isabsolutepath('../Foo'))
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial
Bram Moolenaar <Bram@vim.org>
parents: 28341
diff changeset
2925 call assert_false(isabsolutepath('Foo/'))
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial
Bram Moolenaar <Bram@vim.org>
parents: 28341
diff changeset
2926 if has('win32')
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial
Bram Moolenaar <Bram@vim.org>
parents: 28341
diff changeset
2927 call assert_true(isabsolutepath('A:\'))
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial
Bram Moolenaar <Bram@vim.org>
parents: 28341
diff changeset
2928 call assert_true(isabsolutepath('A:\Foo'))
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial
Bram Moolenaar <Bram@vim.org>
parents: 28341
diff changeset
2929 call assert_true(isabsolutepath('A:/Foo'))
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial
Bram Moolenaar <Bram@vim.org>
parents: 28341
diff changeset
2930 call assert_false(isabsolutepath('A:Foo'))
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial
Bram Moolenaar <Bram@vim.org>
parents: 28341
diff changeset
2931 call assert_false(isabsolutepath('\Windows'))
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial
Bram Moolenaar <Bram@vim.org>
parents: 28341
diff changeset
2932 call assert_true(isabsolutepath('\\Server2\Share\Test\Foo.txt'))
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial
Bram Moolenaar <Bram@vim.org>
parents: 28341
diff changeset
2933 else
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial
Bram Moolenaar <Bram@vim.org>
parents: 28341
diff changeset
2934 call assert_true(isabsolutepath('/'))
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial
Bram Moolenaar <Bram@vim.org>
parents: 28341
diff changeset
2935 call assert_true(isabsolutepath('/usr/share/'))
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial
Bram Moolenaar <Bram@vim.org>
parents: 28341
diff changeset
2936 endif
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial
Bram Moolenaar <Bram@vim.org>
parents: 28341
diff changeset
2937 endfunc
24760
ca0f983f08cf patch 8.2.2918: builtin function can be shadowed by global variable
Bram Moolenaar <Bram@vim.org>
parents: 24695
diff changeset
2938
28672
e4de5b5193b4 patch 8.2.4860: MS-Windows: always uses current directory for executables
Bram Moolenaar <Bram@vim.org>
parents: 28668
diff changeset
2939 " Test for exepath()
e4de5b5193b4 patch 8.2.4860: MS-Windows: always uses current directory for executables
Bram Moolenaar <Bram@vim.org>
parents: 28668
diff changeset
2940 func Test_exepath()
e4de5b5193b4 patch 8.2.4860: MS-Windows: always uses current directory for executables
Bram Moolenaar <Bram@vim.org>
parents: 28668
diff changeset
2941 if has('win32')
e4de5b5193b4 patch 8.2.4860: MS-Windows: always uses current directory for executables
Bram Moolenaar <Bram@vim.org>
parents: 28668
diff changeset
2942 call assert_notequal(exepath('cmd'), '')
e4de5b5193b4 patch 8.2.4860: MS-Windows: always uses current directory for executables
Bram Moolenaar <Bram@vim.org>
parents: 28668
diff changeset
2943
e4de5b5193b4 patch 8.2.4860: MS-Windows: always uses current directory for executables
Bram Moolenaar <Bram@vim.org>
parents: 28668
diff changeset
2944 let oldNoDefaultCurrentDirectoryInExePath = $NoDefaultCurrentDirectoryInExePath
e4de5b5193b4 patch 8.2.4860: MS-Windows: always uses current directory for executables
Bram Moolenaar <Bram@vim.org>
parents: 28668
diff changeset
2945 call writefile(['@echo off', 'echo Evil'], 'vim-test-evil.bat')
e4de5b5193b4 patch 8.2.4860: MS-Windows: always uses current directory for executables
Bram Moolenaar <Bram@vim.org>
parents: 28668
diff changeset
2946 let $NoDefaultCurrentDirectoryInExePath = ''
e4de5b5193b4 patch 8.2.4860: MS-Windows: always uses current directory for executables
Bram Moolenaar <Bram@vim.org>
parents: 28668
diff changeset
2947 call assert_notequal(exepath("vim-test-evil.bat"), '')
e4de5b5193b4 patch 8.2.4860: MS-Windows: always uses current directory for executables
Bram Moolenaar <Bram@vim.org>
parents: 28668
diff changeset
2948 let $NoDefaultCurrentDirectoryInExePath = '1'
e4de5b5193b4 patch 8.2.4860: MS-Windows: always uses current directory for executables
Bram Moolenaar <Bram@vim.org>
parents: 28668
diff changeset
2949 call assert_equal(exepath("vim-test-evil.bat"), '')
e4de5b5193b4 patch 8.2.4860: MS-Windows: always uses current directory for executables
Bram Moolenaar <Bram@vim.org>
parents: 28668
diff changeset
2950 let $NoDefaultCurrentDirectoryInExePath = oldNoDefaultCurrentDirectoryInExePath
e4de5b5193b4 patch 8.2.4860: MS-Windows: always uses current directory for executables
Bram Moolenaar <Bram@vim.org>
parents: 28668
diff changeset
2951 call delete('vim-test-evil.bat')
e4de5b5193b4 patch 8.2.4860: MS-Windows: always uses current directory for executables
Bram Moolenaar <Bram@vim.org>
parents: 28668
diff changeset
2952 else
e4de5b5193b4 patch 8.2.4860: MS-Windows: always uses current directory for executables
Bram Moolenaar <Bram@vim.org>
parents: 28668
diff changeset
2953 call assert_notequal(exepath('sh'), '')
e4de5b5193b4 patch 8.2.4860: MS-Windows: always uses current directory for executables
Bram Moolenaar <Bram@vim.org>
parents: 28668
diff changeset
2954 endif
e4de5b5193b4 patch 8.2.4860: MS-Windows: always uses current directory for executables
Bram Moolenaar <Bram@vim.org>
parents: 28668
diff changeset
2955 endfunc
e4de5b5193b4 patch 8.2.4860: MS-Windows: always uses current directory for executables
Bram Moolenaar <Bram@vim.org>
parents: 28668
diff changeset
2956
28994
644b0f0541de patch 8.2.5019: cannot get the first screen column of a character
Bram Moolenaar <Bram@vim.org>
parents: 28921
diff changeset
2957 " Test for virtcol()
644b0f0541de patch 8.2.5019: cannot get the first screen column of a character
Bram Moolenaar <Bram@vim.org>
parents: 28921
diff changeset
2958 func Test_virtcol()
644b0f0541de patch 8.2.5019: cannot get the first screen column of a character
Bram Moolenaar <Bram@vim.org>
parents: 28921
diff changeset
2959 enew!
644b0f0541de patch 8.2.5019: cannot get the first screen column of a character
Bram Moolenaar <Bram@vim.org>
parents: 28921
diff changeset
2960 call setline(1, "the\tquick\tbrown\tfox")
644b0f0541de patch 8.2.5019: cannot get the first screen column of a character
Bram Moolenaar <Bram@vim.org>
parents: 28921
diff changeset
2961 norm! 4|
644b0f0541de patch 8.2.5019: cannot get the first screen column of a character
Bram Moolenaar <Bram@vim.org>
parents: 28921
diff changeset
2962 call assert_equal(8, virtcol('.'))
644b0f0541de patch 8.2.5019: cannot get the first screen column of a character
Bram Moolenaar <Bram@vim.org>
parents: 28921
diff changeset
2963 call assert_equal(8, virtcol('.', v:false))
644b0f0541de patch 8.2.5019: cannot get the first screen column of a character
Bram Moolenaar <Bram@vim.org>
parents: 28921
diff changeset
2964 call assert_equal([4, 8], virtcol('.', v:true))
644b0f0541de patch 8.2.5019: cannot get the first screen column of a character
Bram Moolenaar <Bram@vim.org>
parents: 28921
diff changeset
2965 bwipe!
644b0f0541de patch 8.2.5019: cannot get the first screen column of a character
Bram Moolenaar <Bram@vim.org>
parents: 28921
diff changeset
2966 endfunc
644b0f0541de patch 8.2.5019: cannot get the first screen column of a character
Bram Moolenaar <Bram@vim.org>
parents: 28921
diff changeset
2967
19517
738a4fe2c8c5 patch 8.2.0316: ex_getln.c code has insufficient test coverage
Bram Moolenaar <Bram@vim.org>
parents: 19400
diff changeset
2968 " vim: shiftwidth=2 sts=2 expandtab