Mercurial > vim
annotate src/testdir/test_functions.vim @ 18933:82c732e8d23d v8.2.0027
patch 8.2.0027: still some /* */ comments
Commit: https://github.com/vim/vim/commit/aa2f0ee639d3b59e4402261ebee27bf545a62d8b
Author: Bram Moolenaar <Bram@vim.org>
Date: Sat Dec 21 18:47:26 2019 +0100
patch 8.2.0027: still some /* */ comments
Problem: Still some /* */ comments.
Solution: Convert to // comments.
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Sat, 21 Dec 2019 19:00:03 +0100 |
parents | a9cfb0db187d |
children | e7b4fff348dd |
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. |
14669
63d5ae57a663
patch 8.1.0347: some tests fail on Solaris
Christian Brabandt <cb@256bit.org>
parents:
14579
diff
changeset
|
2 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
|
3 source check.vim |
18143
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
4 source term_util.vim |
10555
fff45421182b
patch 8.0.0167: str2nr()/str2float() fail with negative values
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
5 |
12869
a89350ba2a9d
patch 8.0.1311: no test for strpart()
Christian Brabandt <cb@256bit.org>
parents:
12451
diff
changeset
|
6 " 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
|
7 func Test_00_bufexists() |
a89350ba2a9d
patch 8.0.1311: no test for strpart()
Christian Brabandt <cb@256bit.org>
parents:
12451
diff
changeset
|
8 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
|
9 call assert_equal(1, bufexists(bufnr('%'))) |
a89350ba2a9d
patch 8.0.1311: no test for strpart()
Christian Brabandt <cb@256bit.org>
parents:
12451
diff
changeset
|
10 call assert_equal(0, bufexists(0)) |
a89350ba2a9d
patch 8.0.1311: no test for strpart()
Christian Brabandt <cb@256bit.org>
parents:
12451
diff
changeset
|
11 new Xfoo |
a89350ba2a9d
patch 8.0.1311: no test for strpart()
Christian Brabandt <cb@256bit.org>
parents:
12451
diff
changeset
|
12 let bn = bufnr('%') |
a89350ba2a9d
patch 8.0.1311: no test for strpart()
Christian Brabandt <cb@256bit.org>
parents:
12451
diff
changeset
|
13 call assert_equal(1, bufexists(bn)) |
a89350ba2a9d
patch 8.0.1311: no test for strpart()
Christian Brabandt <cb@256bit.org>
parents:
12451
diff
changeset
|
14 call assert_equal(1, bufexists('Xfoo')) |
a89350ba2a9d
patch 8.0.1311: no test for strpart()
Christian Brabandt <cb@256bit.org>
parents:
12451
diff
changeset
|
15 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
|
16 call assert_equal(1, bufexists(0)) |
a89350ba2a9d
patch 8.0.1311: no test for strpart()
Christian Brabandt <cb@256bit.org>
parents:
12451
diff
changeset
|
17 bw |
a89350ba2a9d
patch 8.0.1311: no test for strpart()
Christian Brabandt <cb@256bit.org>
parents:
12451
diff
changeset
|
18 call assert_equal(0, bufexists(bn)) |
a89350ba2a9d
patch 8.0.1311: no test for strpart()
Christian Brabandt <cb@256bit.org>
parents:
12451
diff
changeset
|
19 call assert_equal(0, bufexists('Xfoo')) |
a89350ba2a9d
patch 8.0.1311: no test for strpart()
Christian Brabandt <cb@256bit.org>
parents:
12451
diff
changeset
|
20 endfunc |
a89350ba2a9d
patch 8.0.1311: no test for strpart()
Christian Brabandt <cb@256bit.org>
parents:
12451
diff
changeset
|
21 |
10743
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
22 func Test_empty() |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
23 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
|
24 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
|
25 |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
26 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
|
27 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
|
28 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
|
29 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
|
30 |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
31 call assert_equal(1, empty(0.0)) |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
32 call assert_equal(1, empty(-0.0)) |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
33 call assert_equal(0, empty(1.0)) |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
34 call assert_equal(0, empty(-1.0)) |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
35 call assert_equal(0, empty(1.0/0.0)) |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
36 call assert_equal(0, empty(0.0/0.0)) |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
37 |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
38 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
|
39 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
|
40 |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
41 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
|
42 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
|
43 |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
44 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
|
45 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
|
46 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
|
47 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
|
48 |
11095
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
49 if has('channel') |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
50 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
|
51 endif |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
52 if has('job') |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
53 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
|
54 endif |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
55 |
10743
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
56 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
|
57 call assert_equal(0, empty(function('Test_empty', [0]))) |
10743
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
58 endfunc |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
59 |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
60 func Test_len() |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
61 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
|
62 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
|
63 |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
64 call assert_equal(0, len('')) |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
65 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
|
66 |
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, len([])) |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
68 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
|
69 |
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, len({})) |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
71 call assert_equal(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
|
72 |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
73 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
|
74 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
|
75 endfunc |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
76 |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
77 func Test_max() |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
78 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
|
79 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
|
80 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
|
81 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
|
82 |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
83 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
|
84 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
|
85 |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
86 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
|
87 call assert_fails('call max(v:none)', 'E712:') |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
88 endfunc |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
89 |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
90 func Test_min() |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
91 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
|
92 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
|
93 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
|
94 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
|
95 |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
96 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
|
97 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
|
98 |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
99 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
|
100 call assert_fails('call min(v:none)', 'E712:') |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
101 endfunc |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
102 |
13980
a9e31b01366b
patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents:
13513
diff
changeset
|
103 func Test_strwidth() |
a9e31b01366b
patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents:
13513
diff
changeset
|
104 for aw in ['single', 'double'] |
a9e31b01366b
patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents:
13513
diff
changeset
|
105 exe 'set ambiwidth=' . aw |
a9e31b01366b
patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents:
13513
diff
changeset
|
106 call assert_equal(0, strwidth('')) |
a9e31b01366b
patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents:
13513
diff
changeset
|
107 call assert_equal(1, strwidth("\t")) |
a9e31b01366b
patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents:
13513
diff
changeset
|
108 call assert_equal(3, strwidth('Vim')) |
a9e31b01366b
patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents:
13513
diff
changeset
|
109 call assert_equal(4, strwidth(1234)) |
a9e31b01366b
patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents:
13513
diff
changeset
|
110 call assert_equal(5, strwidth(-1234)) |
a9e31b01366b
patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents:
13513
diff
changeset
|
111 |
15607
2dcaa860e3fc
patch 8.1.0811: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents:
15008
diff
changeset
|
112 call assert_equal(2, strwidth('😉')) |
2dcaa860e3fc
patch 8.1.0811: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents:
15008
diff
changeset
|
113 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
|
114 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
|
115 |
a9e31b01366b
patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents:
13513
diff
changeset
|
116 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
|
117 call assert_fails('call strwidth([])', 'E730:') |
a9e31b01366b
patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents:
13513
diff
changeset
|
118 call assert_fails('call strwidth({})', 'E731:') |
a9e31b01366b
patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents:
13513
diff
changeset
|
119 call assert_fails('call strwidth(1.2)', 'E806:') |
a9e31b01366b
patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents:
13513
diff
changeset
|
120 endfor |
a9e31b01366b
patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents:
13513
diff
changeset
|
121 |
a9e31b01366b
patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents:
13513
diff
changeset
|
122 set ambiwidth& |
a9e31b01366b
patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents:
13513
diff
changeset
|
123 endfunc |
a9e31b01366b
patch 8.1.0008: no test for strwidth()
Christian Brabandt <cb@256bit.org>
parents:
13513
diff
changeset
|
124 |
10555
fff45421182b
patch 8.0.0167: str2nr()/str2float() fail with negative values
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
125 func Test_str2nr() |
fff45421182b
patch 8.0.0167: str2nr()/str2float() fail with negative values
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
126 call assert_equal(0, str2nr('')) |
fff45421182b
patch 8.0.0167: str2nr()/str2float() fail with negative values
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
127 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
|
128 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
|
129 |
fff45421182b
patch 8.0.0167: str2nr()/str2float() fail with negative values
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
130 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
|
131 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
|
132 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
|
133 |
fff45421182b
patch 8.0.0167: str2nr()/str2float() fail with negative values
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
134 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
|
135 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
|
136 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
|
137 |
fff45421182b
patch 8.0.0167: str2nr()/str2float() fail with negative values
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
138 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
|
139 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
|
140 |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
141 call assert_equal(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
|
142 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
|
143 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
|
144 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
|
145 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
|
146 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
|
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(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
|
149 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
|
150 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
|
151 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
|
152 |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
153 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
|
154 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
|
155 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
|
156 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
|
157 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
|
158 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
|
159 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
|
160 |
18080
a6d218f99ff7
patch 8.1.2035: recognizing octal numbers is confusing
Bram Moolenaar <Bram@vim.org>
parents:
18035
diff
changeset
|
161 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
|
162 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
|
163 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
|
164 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
|
165 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
|
166 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
|
167 |
10743
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
168 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
|
169 call assert_equal(0, str2nr('0b10')) |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
170 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
|
171 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
|
172 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
|
173 |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
174 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
|
175 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
|
176 |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
177 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
|
178 call assert_fails('call str2nr({->2})', 'E729:') |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
179 call assert_fails('call str2nr(1.2)', 'E806:') |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
180 call assert_fails('call str2nr(10, [])', 'E474:') |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
181 endfunc |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
182 |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
183 func Test_strftime() |
18669
9007e9896303
patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents:
18623
diff
changeset
|
184 CheckFunction strftime |
9007e9896303
patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents:
18623
diff
changeset
|
185 |
10743
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
186 " 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
|
187 " 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
|
188 " 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
|
189 " |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
190 " 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
|
191 " 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
|
192 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
|
193 " |
18017
988e5a868b60
patch 8.1.2004: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents:
18000
diff
changeset
|
194 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
|
195 |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
196 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
|
197 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
|
198 |
d03a52e02f1a
patch 8.1.1567: localtime_r() does not respond to $TZ changes
Bram Moolenaar <Bram@vim.org>
parents:
16945
diff
changeset
|
199 " 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
|
200 " 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
|
201 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
|
202 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
|
203 endif |
d03a52e02f1a
patch 8.1.1567: localtime_r() does not respond to $TZ changes
Bram Moolenaar <Bram@vim.org>
parents:
16945
diff
changeset
|
204 |
d03a52e02f1a
patch 8.1.1567: localtime_r() does not respond to $TZ changes
Bram Moolenaar <Bram@vim.org>
parents:
16945
diff
changeset
|
205 " 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
|
206 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
|
207 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
|
208 |
d03a52e02f1a
patch 8.1.1567: localtime_r() does not respond to $TZ changes
Bram Moolenaar <Bram@vim.org>
parents:
16945
diff
changeset
|
209 " 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
|
210 " 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
|
211 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
|
212 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
|
213 " 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
|
214 if has('unix') |
ca4e6685e2f4
patch 8.1.1568: strftime() test fails on MS-Windows
Bram Moolenaar <Bram@vim.org>
parents:
17135
diff
changeset
|
215 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
|
216 endif |
17135
d03a52e02f1a
patch 8.1.1567: localtime_r() does not respond to $TZ changes
Bram Moolenaar <Bram@vim.org>
parents:
16945
diff
changeset
|
217 |
d03a52e02f1a
patch 8.1.1567: localtime_r() does not respond to $TZ changes
Bram Moolenaar <Bram@vim.org>
parents:
16945
diff
changeset
|
218 " 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
|
219 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
|
220 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
|
221 else |
d03a52e02f1a
patch 8.1.1567: localtime_r() does not respond to $TZ changes
Bram Moolenaar <Bram@vim.org>
parents:
16945
diff
changeset
|
222 unlet $TZ |
d03a52e02f1a
patch 8.1.1567: localtime_r() does not respond to $TZ changes
Bram Moolenaar <Bram@vim.org>
parents:
16945
diff
changeset
|
223 endif |
18669
9007e9896303
patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents:
18623
diff
changeset
|
224 endfunc |
17135
d03a52e02f1a
patch 8.1.1567: localtime_r() does not respond to $TZ changes
Bram Moolenaar <Bram@vim.org>
parents:
16945
diff
changeset
|
225 |
18669
9007e9896303
patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents:
18623
diff
changeset
|
226 func Test_strptime() |
9007e9896303
patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents:
18623
diff
changeset
|
227 CheckFunction strptime |
9007e9896303
patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents:
18623
diff
changeset
|
228 |
9007e9896303
patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents:
18623
diff
changeset
|
229 if exists('$TZ') |
9007e9896303
patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents:
18623
diff
changeset
|
230 let tz = $TZ |
9007e9896303
patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents:
18623
diff
changeset
|
231 endif |
9007e9896303
patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents:
18623
diff
changeset
|
232 let $TZ = 'UTC' |
9007e9896303
patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents:
18623
diff
changeset
|
233 |
18821
a9cfb0db187d
patch 8.1.2398: strptime() test fails on Japanese Mac
Bram Moolenaar <Bram@vim.org>
parents:
18669
diff
changeset
|
234 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
|
235 |
9007e9896303
patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents:
18623
diff
changeset
|
236 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
|
237 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
|
238 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
|
239 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
|
240 |
9007e9896303
patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents:
18623
diff
changeset
|
241 if exists('tz') |
9007e9896303
patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents:
18623
diff
changeset
|
242 let $TZ = tz |
9007e9896303
patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents:
18623
diff
changeset
|
243 else |
9007e9896303
patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents:
18623
diff
changeset
|
244 unlet $TZ |
9007e9896303
patch 8.1.2326: cannot parse a date/time string
Bram Moolenaar <Bram@vim.org>
parents:
18623
diff
changeset
|
245 endif |
10743
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
246 endfunc |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
247 |
15774
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
248 func Test_resolve_unix() |
14885
5e47597de905
patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents:
14883
diff
changeset
|
249 if !has('unix') |
5e47597de905
patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents:
14883
diff
changeset
|
250 return |
5e47597de905
patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents:
14883
diff
changeset
|
251 endif |
5e47597de905
patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents:
14883
diff
changeset
|
252 |
5e47597de905
patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents:
14883
diff
changeset
|
253 " Xlink1 -> Xlink2 |
5e47597de905
patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents:
14883
diff
changeset
|
254 " Xlink2 -> Xlink3 |
5e47597de905
patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents:
14883
diff
changeset
|
255 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
|
256 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
|
257 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
|
258 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
|
259 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
|
260 " 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
|
261 "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
|
262 "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
|
263 "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
|
264 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
|
265 |
5e47597de905
patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents:
14883
diff
changeset
|
266 " 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
|
267 " Xlink1 -> Xlink2 |
5e47597de905
patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents:
14883
diff
changeset
|
268 " Xlink2 -> Xlink3 |
5e47597de905
patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents:
14883
diff
changeset
|
269 " Xlink3 -> Xlink1 |
5e47597de905
patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents:
14883
diff
changeset
|
270 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
|
271 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
|
272 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
|
273 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
|
274 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
|
275 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
|
276 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
|
277 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
|
278 |
5e47597de905
patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents:
14883
diff
changeset
|
279 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
|
280 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
|
281 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
|
282 |
5e47597de905
patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents:
14883
diff
changeset
|
283 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
|
284 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
|
285 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
|
286 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
|
287 |
5e47597de905
patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents:
14883
diff
changeset
|
288 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
|
289 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
|
290 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
|
291 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
|
292 endfunc |
5e47597de905
patch 8.1.0454: resolve() was not tested with a symlink cycle
Bram Moolenaar <Bram@vim.org>
parents:
14883
diff
changeset
|
293 |
15774
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
294 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
|
295 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
|
296 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
|
297 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
|
298 endfunc |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
299 |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
300 func Test_resolve_win32() |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
301 if !has('win32') |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
302 return |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
303 endif |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
304 |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
305 " 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
|
306 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
|
307 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
|
308 wq |
17172
6990c1160ea5
patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents:
17137
diff
changeset
|
309 let lines =<< trim END |
6990c1160ea5
patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents:
17137
diff
changeset
|
310 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
|
311 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
|
312 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
|
313 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
|
314 shortcut.Save |
6990c1160ea5
patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents:
17137
diff
changeset
|
315 END |
6990c1160ea5
patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents:
17137
diff
changeset
|
316 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
|
317 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
|
318 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
|
319 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
|
320 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
|
321 |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
322 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
|
323 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
|
324 else |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
325 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
|
326 endif |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
327 |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
328 " 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
|
329 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
|
330 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
|
331 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
|
332 |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
333 " 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
|
334 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
|
335 wq |
16945
efd36a9052cc
patch 8.1.1473: new resolve() implementation causes problem for plugins
Bram Moolenaar <Bram@vim.org>
parents:
16831
diff
changeset
|
336 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
|
337 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
|
338 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
|
339 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
|
340 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
|
341 else |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
342 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
|
343 endif |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
344 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
|
345 |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
346 " 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
|
347 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
|
348 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
|
349 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
|
350 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
|
351 |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
352 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
|
353 |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
354 " 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
|
355 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
|
356 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
|
357 else |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
358 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
|
359 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
|
360 endif |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
361 |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
362 " 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
|
363 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
|
364 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
|
365 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
|
366 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
|
367 |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
368 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
|
369 |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
370 " 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
|
371 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
|
372 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
|
373 else |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
374 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
|
375 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
|
376 endif |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
377 |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
378 " 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
|
379 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
|
380 wq |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
381 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
|
382 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
|
383 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
|
384 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
|
385 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
|
386 bw! |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
387 else |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
388 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
|
389 endif |
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 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
|
391 |
f42aa3d90b12
patch 8.1.1417: MS-Windows: resolve() does not resolve all components of path
Bram Moolenaar <Bram@vim.org>
parents:
16752
diff
changeset
|
392 " 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
|
393 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
|
394 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
|
395 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
|
396 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
|
397 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
|
398 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
|
399 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
|
400 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
|
401 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
|
402 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
|
403 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
|
404 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
|
405 |
f42aa3d90b12
patch 8.1.1417: MS-Windows: resolve() does not resolve all components of path
Bram Moolenaar <Bram@vim.org>
parents:
16752
diff
changeset
|
406 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
|
407 endfunc |
c4efa095f323
patch 8.1.0894: MS-Windows: resolve() does not return a reparse point
Bram Moolenaar <Bram@vim.org>
parents:
15754
diff
changeset
|
408 |
10743
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
409 func Test_simplify() |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
410 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
|
411 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
|
412 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
|
413 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
|
414 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
|
415 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
|
416 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
|
417 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
|
418 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
|
419 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
|
420 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
|
421 |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
422 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
|
423 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
|
424 call assert_fails('call simplify({})', 'E731:') |
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
425 call assert_fails('call simplify(1.2)', 'E806:') |
10555
fff45421182b
patch 8.0.0167: str2nr()/str2float() fail with negative values
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
426 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
|
427 |
14487
336213a840d9
patch 8.1.0257: no test for pathshorten()
Christian Brabandt <cb@256bit.org>
parents:
14422
diff
changeset
|
428 func Test_pathshorten() |
336213a840d9
patch 8.1.0257: no test for pathshorten()
Christian Brabandt <cb@256bit.org>
parents:
14422
diff
changeset
|
429 call assert_equal('', pathshorten('')) |
336213a840d9
patch 8.1.0257: no test for pathshorten()
Christian Brabandt <cb@256bit.org>
parents:
14422
diff
changeset
|
430 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
|
431 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
|
432 call assert_equal('f/', pathshorten('foo/')) |
336213a840d9
patch 8.1.0257: no test for pathshorten()
Christian Brabandt <cb@256bit.org>
parents:
14422
diff
changeset
|
433 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
|
434 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
|
435 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
|
436 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
|
437 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
|
438 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
|
439 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
|
440 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
|
441 endfunc |
336213a840d9
patch 8.1.0257: no test for pathshorten()
Christian Brabandt <cb@256bit.org>
parents:
14422
diff
changeset
|
442 |
12869
a89350ba2a9d
patch 8.0.1311: no test for strpart()
Christian Brabandt <cb@256bit.org>
parents:
12451
diff
changeset
|
443 func Test_strpart() |
a89350ba2a9d
patch 8.0.1311: no test for strpart()
Christian Brabandt <cb@256bit.org>
parents:
12451
diff
changeset
|
444 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
|
445 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
|
446 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
|
447 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
|
448 call assert_equal('defg', strpart('abcdefg', 3)) |
a89350ba2a9d
patch 8.0.1311: no test for strpart()
Christian Brabandt <cb@256bit.org>
parents:
12451
diff
changeset
|
449 |
15607
2dcaa860e3fc
patch 8.1.0811: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents:
15008
diff
changeset
|
450 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
|
451 call assert_equal('léphant', strpart('éléphant', 2)) |
12869
a89350ba2a9d
patch 8.0.1311: no test for strpart()
Christian Brabandt <cb@256bit.org>
parents:
12451
diff
changeset
|
452 endfunc |
a89350ba2a9d
patch 8.0.1311: no test for strpart()
Christian Brabandt <cb@256bit.org>
parents:
12451
diff
changeset
|
453 |
10706
056e32b99e93
patch 8.0.0243: tolower() does not work if the byte count changes
Christian Brabandt <cb@256bit.org>
parents:
10555
diff
changeset
|
454 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
|
455 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
|
456 |
056e32b99e93
patch 8.0.0243: tolower() does not work if the byte count changes
Christian Brabandt <cb@256bit.org>
parents:
10555
diff
changeset
|
457 " 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
|
458 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
|
459 \ 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
|
460 |
056e32b99e93
patch 8.0.0243: tolower() does not work if the byte count changes
Christian Brabandt <cb@256bit.org>
parents:
10555
diff
changeset
|
461 " 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
|
462 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
|
463 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
|
464 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
|
465 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
|
466 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
|
467 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
|
468 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
|
469 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
|
470 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
|
471 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
|
472 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
|
473 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
|
474 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
|
475 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
|
476 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
|
477 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
|
478 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
|
479 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
|
480 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
|
481 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
|
482 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
|
483 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
|
484 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
|
485 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
|
486 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
|
487 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
|
488 |
056e32b99e93
patch 8.0.0243: tolower() does not work if the byte count changes
Christian Brabandt <cb@256bit.org>
parents:
10555
diff
changeset
|
489 " 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
|
490 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
|
491 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
|
492 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
|
493 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
|
494 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
|
495 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
|
496 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
|
497 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
|
498 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
|
499 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
|
500 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
|
501 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
|
502 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
|
503 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
|
504 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
|
505 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
|
506 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
|
507 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
|
508 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
|
509 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
|
510 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
|
511 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
|
512 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
|
513 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
|
514 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
|
515 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
|
516 |
056e32b99e93
patch 8.0.0243: tolower() does not work if the byte count changes
Christian Brabandt <cb@256bit.org>
parents:
10555
diff
changeset
|
517 " 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
|
518 " Ⱥ (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
|
519 " 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
|
520 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
|
521 |
d5647746c267
patch 8.0.1421: accessing invalid memory with overlong byte sequence
Christian Brabandt <cb@256bit.org>
parents:
13070
diff
changeset
|
522 " 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
|
523 " invalid memory. |
d5647746c267
patch 8.0.1421: accessing invalid memory with overlong byte sequence
Christian Brabandt <cb@256bit.org>
parents:
13070
diff
changeset
|
524 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
|
525 call tolower("123\xC0\x80\xC0") |
10706
056e32b99e93
patch 8.0.0243: tolower() does not work if the byte count changes
Christian Brabandt <cb@256bit.org>
parents:
10555
diff
changeset
|
526 endfunc |
056e32b99e93
patch 8.0.0243: tolower() does not work if the byte count changes
Christian Brabandt <cb@256bit.org>
parents:
10555
diff
changeset
|
527 |
056e32b99e93
patch 8.0.0243: tolower() does not work if the byte count changes
Christian Brabandt <cb@256bit.org>
parents:
10555
diff
changeset
|
528 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
|
529 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
|
530 |
056e32b99e93
patch 8.0.0243: tolower() does not work if the byte count changes
Christian Brabandt <cb@256bit.org>
parents:
10555
diff
changeset
|
531 " 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
|
532 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
|
533 \ 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
|
534 |
056e32b99e93
patch 8.0.0243: tolower() does not work if the byte count changes
Christian Brabandt <cb@256bit.org>
parents:
10555
diff
changeset
|
535 " 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
|
536 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
|
537 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
|
538 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
|
539 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
|
540 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
|
541 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
|
542 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
|
543 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
|
544 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
|
545 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
|
546 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
|
547 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
|
548 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
|
549 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
|
550 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
|
551 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
|
552 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
|
553 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
|
554 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
|
555 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
|
556 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
|
557 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
|
558 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
|
559 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
|
560 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
|
561 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
|
562 |
056e32b99e93
patch 8.0.0243: tolower() does not work if the byte count changes
Christian Brabandt <cb@256bit.org>
parents:
10555
diff
changeset
|
563 " 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
|
564 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
|
565 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
|
566 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
|
567 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
|
568 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
|
569 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
|
570 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
|
571 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
|
572 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
|
573 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
|
574 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
|
575 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
|
576 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
|
577 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
|
578 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
|
579 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
|
580 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
|
581 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
|
582 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
|
583 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
|
584 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
|
585 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
|
586 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
|
587 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
|
588 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
|
589 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
|
590 |
10743
8779b4b2e958
patch 8.0.0261: not enough test coverage for eval functions
Christian Brabandt <cb@256bit.org>
parents:
10706
diff
changeset
|
591 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
|
592 |
d5647746c267
patch 8.0.1421: accessing invalid memory with overlong byte sequence
Christian Brabandt <cb@256bit.org>
parents:
13070
diff
changeset
|
593 " 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
|
594 " invalid memory. |
d5647746c267
patch 8.0.1421: accessing invalid memory with overlong byte sequence
Christian Brabandt <cb@256bit.org>
parents:
13070
diff
changeset
|
595 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
|
596 call toupper("123\xC0\x80\xC0") |
10706
056e32b99e93
patch 8.0.0243: tolower() does not work if the byte count changes
Christian Brabandt <cb@256bit.org>
parents:
10555
diff
changeset
|
597 endfunc |
056e32b99e93
patch 8.0.0243: tolower() does not work if the byte count changes
Christian Brabandt <cb@256bit.org>
parents:
10555
diff
changeset
|
598 |
18035
11dca9732a48
patch 8.1.2013: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents:
18017
diff
changeset
|
599 func Test_tr() |
11dca9732a48
patch 8.1.2013: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents:
18017
diff
changeset
|
600 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
|
601 call assert_equal('zxy', 'cab'->tr('abc', 'xyz')) |
11dca9732a48
patch 8.1.2013: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents:
18017
diff
changeset
|
602 endfunc |
11dca9732a48
patch 8.1.2013: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents:
18017
diff
changeset
|
603 |
10787
09926123316b
patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents:
10743
diff
changeset
|
604 " 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
|
605 let current_modes = '' |
11135
c4e4387bbd50
patch 8.0.0455: the mode test may hang
Christian Brabandt <cb@256bit.org>
parents:
11095
diff
changeset
|
606 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
|
607 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
|
608 return '' |
09926123316b
patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents:
10743
diff
changeset
|
609 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
|
610 |
11135
c4e4387bbd50
patch 8.0.0455: the mode test may hang
Christian Brabandt <cb@256bit.org>
parents:
11095
diff
changeset
|
611 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
|
612 new |
09926123316b
patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents:
10743
diff
changeset
|
613 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
|
614 |
11135
c4e4387bbd50
patch 8.0.0455: the mode test may hang
Christian Brabandt <cb@256bit.org>
parents:
11095
diff
changeset
|
615 " 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
|
616 set complete=. |
c4e4387bbd50
patch 8.0.0455: the mode test may hang
Christian Brabandt <cb@256bit.org>
parents:
11095
diff
changeset
|
617 |
10787
09926123316b
patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents:
10743
diff
changeset
|
618 inoremap <F2> <C-R>=Save_mode()<CR> |
09926123316b
patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents:
10743
diff
changeset
|
619 |
09926123316b
patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents:
10743
diff
changeset
|
620 normal! 3G |
09926123316b
patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents:
10743
diff
changeset
|
621 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
|
622 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
|
623 " 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
|
624 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
|
625 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
|
626 " 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
|
627 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
|
628 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
|
629 " 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
|
630 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
|
631 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
|
632 " 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
|
633 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
|
634 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
|
635 " 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
|
636 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
|
637 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
|
638 " 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
|
639 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
|
640 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
|
641 " 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
|
642 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
|
643 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
|
644 " 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
|
645 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
|
646 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
|
647 " 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
|
648 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
|
649 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
|
650 " 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
|
651 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
|
652 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
|
653 " 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
|
654 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
|
655 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
|
656 |
10833
d66e5446cc48
patch 8.0.0306: mode() not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
10787
diff
changeset
|
657 " 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
|
658 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
|
659 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
|
660 " 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
|
661 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
|
662 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
|
663 " 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
|
664 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
|
665 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
|
666 " 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
|
667 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
|
668 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
|
669 " 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
|
670 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
|
671 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
|
672 " 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
|
673 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
|
674 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
|
675 " 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
|
676 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
|
677 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
|
678 " 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
|
679 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
|
680 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
|
681 " 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
|
682 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
|
683 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
|
684 " 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
|
685 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
|
686 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
|
687 " 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
|
688 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
|
689 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
|
690 |
17930
0cdb6ac20748
patch 8.1.1961: more functions can be used as a method
Bram Moolenaar <Bram@vim.org>
parents:
17916
diff
changeset
|
691 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
|
692 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
|
693 |
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
|
694 " 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
|
695 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
|
696 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
|
697 |
06316dbd66bc
patch 8.1.0225: mode() does not indicate using CTRL-O from Insert mode
Christian Brabandt <cb@256bit.org>
parents:
14379
diff
changeset
|
698 " 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
|
699 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
|
700 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
|
701 |
06316dbd66bc
patch 8.1.0225: mode() does not indicate using CTRL-O from Insert mode
Christian Brabandt <cb@256bit.org>
parents:
14379
diff
changeset
|
702 " 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
|
703 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
|
704 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
|
705 |
10787
09926123316b
patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents:
10743
diff
changeset
|
706 " 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
|
707 |
09926123316b
patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents:
10743
diff
changeset
|
708 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
|
709 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
|
710 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
|
711 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
|
712 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
|
713 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
|
714 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
|
715 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
|
716 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
|
717 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
|
718 |
09926123316b
patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents:
10743
diff
changeset
|
719 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
|
720 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
|
721 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
|
722 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
|
723 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
|
724 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
|
725 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
|
726 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
|
727 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
|
728 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
|
729 |
09926123316b
patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents:
10743
diff
changeset
|
730 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
|
731 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
|
732 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
|
733 call assert_equal('c-cv', g:current_modes) |
09926123316b
patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents:
10743
diff
changeset
|
734 " 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
|
735 |
09926123316b
patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents:
10743
diff
changeset
|
736 bwipe! |
09926123316b
patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents:
10743
diff
changeset
|
737 iunmap <F2> |
11135
c4e4387bbd50
patch 8.0.0455: the mode test may hang
Christian Brabandt <cb@256bit.org>
parents:
11095
diff
changeset
|
738 set complete& |
10787
09926123316b
patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents:
10743
diff
changeset
|
739 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
|
740 |
17871
521ce0d887e5
patch 8.1.1932: ml_get errors after using append()
Bram Moolenaar <Bram@vim.org>
parents:
17849
diff
changeset
|
741 func Test_append() |
521ce0d887e5
patch 8.1.1932: ml_get errors after using append()
Bram Moolenaar <Bram@vim.org>
parents:
17849
diff
changeset
|
742 enew! |
521ce0d887e5
patch 8.1.1932: ml_get errors after using append()
Bram Moolenaar <Bram@vim.org>
parents:
17849
diff
changeset
|
743 split |
521ce0d887e5
patch 8.1.1932: ml_get errors after using append()
Bram Moolenaar <Bram@vim.org>
parents:
17849
diff
changeset
|
744 call append(0, ["foo"]) |
521ce0d887e5
patch 8.1.1932: ml_get errors after using append()
Bram Moolenaar <Bram@vim.org>
parents:
17849
diff
changeset
|
745 split |
521ce0d887e5
patch 8.1.1932: ml_get errors after using append()
Bram Moolenaar <Bram@vim.org>
parents:
17849
diff
changeset
|
746 only |
521ce0d887e5
patch 8.1.1932: ml_get errors after using append()
Bram Moolenaar <Bram@vim.org>
parents:
17849
diff
changeset
|
747 undo |
521ce0d887e5
patch 8.1.1932: ml_get errors after using append()
Bram Moolenaar <Bram@vim.org>
parents:
17849
diff
changeset
|
748 endfunc |
521ce0d887e5
patch 8.1.1932: ml_get errors after using append()
Bram Moolenaar <Bram@vim.org>
parents:
17849
diff
changeset
|
749 |
10889
5780bd3a5a7e
patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents:
10833
diff
changeset
|
750 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
|
751 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
|
752 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
|
753 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
|
754 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
|
755 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
|
756 |
5780bd3a5a7e
patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents:
10833
diff
changeset
|
757 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
|
758 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
|
759 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
|
760 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
|
761 |
5780bd3a5a7e
patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents:
10833
diff
changeset
|
762 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
|
763 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
|
764 |
5780bd3a5a7e
patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents:
10833
diff
changeset
|
765 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
|
766 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
|
767 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
|
768 |
5780bd3a5a7e
patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents:
10833
diff
changeset
|
769 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
|
770 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
|
771 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
|
772 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
|
773 |
11197
7f355d8cd634
patch 8.0.0485: not all windows commands are tested
Christian Brabandt <cb@256bit.org>
parents:
11191
diff
changeset
|
774 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
|
775 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
|
776 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
|
777 |
10891
c9d057b7a0ab
patch 8.0.0335: functions test fails
Christian Brabandt <cb@256bit.org>
parents:
10889
diff
changeset
|
778 call assert_equal(0, getbufvar(bnr, '&autoindent')) |
c9d057b7a0ab
patch 8.0.0335: functions test fails
Christian Brabandt <cb@256bit.org>
parents:
10889
diff
changeset
|
779 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
|
780 |
5780bd3a5a7e
patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents:
10833
diff
changeset
|
781 " 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
|
782 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
|
783 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
|
784 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
|
785 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
|
786 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
|
787 close |
5780bd3a5a7e
patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents:
10833
diff
changeset
|
788 |
5780bd3a5a7e
patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents:
10833
diff
changeset
|
789 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
|
790 endfunc |
11020
50f3e37bc210
patch 8.0.0399: crash when using balloon_show() when not supported
Christian Brabandt <cb@256bit.org>
parents:
10891
diff
changeset
|
791 |
11095
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
792 func Test_last_buffer_nr() |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
793 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
|
794 endfunc |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
795 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
796 func Test_stridx() |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
797 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
|
798 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
|
799 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
|
800 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
|
801 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
|
802 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
|
803 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
|
804 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
|
805 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
|
806 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
|
807 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
|
808 call assert_equal(-1, stridx('hello', 'hello world')) |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
809 endfunc |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
810 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
811 func Test_strridx() |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
812 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
|
813 call assert_equal(0, strridx('', '')) |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
814 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
|
815 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
|
816 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
|
817 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
|
818 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
|
819 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
|
820 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
|
821 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
|
822 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
|
823 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
|
824 call assert_equal(-1, strridx('hello', 'hello world')) |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
825 endfunc |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
826 |
12451
61450cb2b6a1
patch 8.0.1105: match() and matchend() are not tested
Christian Brabandt <cb@256bit.org>
parents:
11828
diff
changeset
|
827 func Test_match_func() |
61450cb2b6a1
patch 8.0.1105: match() and matchend() are not tested
Christian Brabandt <cb@256bit.org>
parents:
11828
diff
changeset
|
828 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
|
829 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
|
830 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
|
831 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
|
832 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
|
833 call assert_equal(-1, match(['vim', 'testing', 'execute'], 'img')) |
61450cb2b6a1
patch 8.0.1105: match() and matchend() are not tested
Christian Brabandt <cb@256bit.org>
parents:
11828
diff
changeset
|
834 endfunc |
61450cb2b6a1
patch 8.0.1105: match() and matchend() are not tested
Christian Brabandt <cb@256bit.org>
parents:
11828
diff
changeset
|
835 |
11095
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
836 func Test_matchend() |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
837 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
|
838 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
|
839 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
|
840 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
|
841 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
|
842 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
|
843 endfunc |
61450cb2b6a1
patch 8.0.1105: match() and matchend() are not tested
Christian Brabandt <cb@256bit.org>
parents:
11828
diff
changeset
|
844 |
61450cb2b6a1
patch 8.0.1105: match() and matchend() are not tested
Christian Brabandt <cb@256bit.org>
parents:
11828
diff
changeset
|
845 func Test_matchlist() |
61450cb2b6a1
patch 8.0.1105: match() and matchend() are not tested
Christian Brabandt <cb@256bit.org>
parents:
11828
diff
changeset
|
846 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
|
847 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
|
848 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
|
849 endfunc |
61450cb2b6a1
patch 8.0.1105: match() and matchend() are not tested
Christian Brabandt <cb@256bit.org>
parents:
11828
diff
changeset
|
850 |
61450cb2b6a1
patch 8.0.1105: match() and matchend() are not tested
Christian Brabandt <cb@256bit.org>
parents:
11828
diff
changeset
|
851 func Test_matchstr() |
61450cb2b6a1
patch 8.0.1105: match() and matchend() are not tested
Christian Brabandt <cb@256bit.org>
parents:
11828
diff
changeset
|
852 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
|
853 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
|
854 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
|
855 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
|
856 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
|
857 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
|
858 endfunc |
61450cb2b6a1
patch 8.0.1105: match() and matchend() are not tested
Christian Brabandt <cb@256bit.org>
parents:
11828
diff
changeset
|
859 |
61450cb2b6a1
patch 8.0.1105: match() and matchend() are not tested
Christian Brabandt <cb@256bit.org>
parents:
11828
diff
changeset
|
860 func Test_matchstrpos() |
61450cb2b6a1
patch 8.0.1105: match() and matchend() are not tested
Christian Brabandt <cb@256bit.org>
parents:
11828
diff
changeset
|
861 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
|
862 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
|
863 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
|
864 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
|
865 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
|
866 call assert_equal(['', -1, -1, -1], matchstrpos(['vim', 'testing', 'execute'], 'img')) |
11095
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
867 endfunc |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
868 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
869 func Test_nextnonblank_prevnonblank() |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
870 new |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
871 insert |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
872 This |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
873 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
874 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
875 is |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
876 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
877 a |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
878 Test |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
879 . |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
880 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
|
881 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
|
882 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
|
883 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
|
884 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
|
885 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
|
886 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
|
887 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
|
888 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
|
889 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
|
890 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
891 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
|
892 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
|
893 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
|
894 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
|
895 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
|
896 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
|
897 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
|
898 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
|
899 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
|
900 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
|
901 bw! |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
902 endfunc |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
903 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
904 func Test_byte2line_line2byte() |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
905 new |
14579
23d6d9e9ae3e
patch 8.1.0303: line2byte() is wrong for last line with 'noeol'
Christian Brabandt <cb@256bit.org>
parents:
14487
diff
changeset
|
906 set endofline |
11095
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
907 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
|
908 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
909 set fileformat=unix |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
910 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
|
911 \ 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
|
912 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
|
913 \ 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
|
914 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
915 set fileformat=mac |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
916 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
|
917 \ 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
|
918 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
|
919 \ 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
|
920 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
921 set fileformat=dos |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
922 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
|
923 \ 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
|
924 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
|
925 \ 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
|
926 |
14579
23d6d9e9ae3e
patch 8.1.0303: line2byte() is wrong for last line with 'noeol'
Christian Brabandt <cb@256bit.org>
parents:
14487
diff
changeset
|
927 bw! |
23d6d9e9ae3e
patch 8.1.0303: line2byte() is wrong for last line with 'noeol'
Christian Brabandt <cb@256bit.org>
parents:
14487
diff
changeset
|
928 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
|
929 normal a- |
23d6d9e9ae3e
patch 8.1.0303: line2byte() is wrong for last line with 'noeol'
Christian Brabandt <cb@256bit.org>
parents:
14487
diff
changeset
|
930 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
|
931 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
|
932 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
|
933 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
|
934 endfor |
23d6d9e9ae3e
patch 8.1.0303: line2byte() is wrong for last line with 'noeol'
Christian Brabandt <cb@256bit.org>
parents:
14487
diff
changeset
|
935 |
23d6d9e9ae3e
patch 8.1.0303: line2byte() is wrong for last line with 'noeol'
Christian Brabandt <cb@256bit.org>
parents:
14487
diff
changeset
|
936 set endofline& fixendofline& fileformat& |
11095
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
937 bw! |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
938 endfunc |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
939 |
17829
1090d6637cfd
patch 8.1.1911: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents:
17783
diff
changeset
|
940 func Test_byteidx() |
1090d6637cfd
patch 8.1.1911: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents:
17783
diff
changeset
|
941 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
|
942 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
|
943 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
|
944 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
|
945 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
|
946 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
|
947 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
|
948 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
|
949 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
|
950 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
|
951 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
|
952 |
1090d6637cfd
patch 8.1.1911: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents:
17783
diff
changeset
|
953 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
|
954 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
|
955 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
|
956 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
|
957 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
|
958 call assert_equal(-1, b->byteidx(4)) |
1090d6637cfd
patch 8.1.1911: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents:
17783
diff
changeset
|
959 |
1090d6637cfd
patch 8.1.1911: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents:
17783
diff
changeset
|
960 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
|
961 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
|
962 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
|
963 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
|
964 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
|
965 call assert_equal(-1, b->byteidxcomp(5)) |
1090d6637cfd
patch 8.1.1911: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents:
17783
diff
changeset
|
966 endfunc |
1090d6637cfd
patch 8.1.1911: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents:
17783
diff
changeset
|
967 |
11095
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
968 func Test_count() |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
969 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
|
970 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
|
971 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
|
972 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
|
973 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
|
974 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
975 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
|
976 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
|
977 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
|
978 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
|
979 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
980 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
|
981 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
|
982 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
|
983 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
|
984 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
|
985 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
986 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
|
987 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
|
988 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
|
989 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
|
990 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
991 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
|
992 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
|
993 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
|
994 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
|
995 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
|
996 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
997 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
|
998 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
|
999 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
|
1000 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
|
1001 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1002 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
|
1003 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
|
1004 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
|
1005 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
|
1006 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
|
1007 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1008 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
|
1009 |
5a07a3ff56c1
patch 8.0.0794: checking translations fails with multiple NL
Christian Brabandt <cb@256bit.org>
parents:
11484
diff
changeset
|
1010 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
|
1011 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
|
1012 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
|
1013 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
|
1014 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
|
1015 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
|
1016 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
|
1017 |
81be817c9d9a
patch 8.1.1336: some eval functionality is not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
16231
diff
changeset
|
1018 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
|
1019 endfunc |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1020 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1021 func Test_changenr() |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1022 new Xchangenr |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1023 call assert_equal(0, changenr()) |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1024 norm ifoo |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1025 call assert_equal(1, changenr()) |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1026 set undolevels=10 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1027 norm Sbar |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1028 call assert_equal(2, changenr()) |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1029 undo |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1030 call assert_equal(1, changenr()) |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1031 redo |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1032 call assert_equal(2, changenr()) |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1033 bw! |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1034 set undolevels& |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1035 endfunc |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1036 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1037 func Test_filewritable() |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1038 new Xfilewritable |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1039 write! |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1040 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
|
1041 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1042 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
|
1043 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
|
1044 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1045 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
|
1046 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
|
1047 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1048 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
|
1049 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1050 call delete('Xfilewritable') |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1051 bw! |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1052 endfunc |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1053 |
14883
1c2ba2b0227e
patch 8.1.0453: MS-Windows: executable() is not reliable
Bram Moolenaar <Bram@vim.org>
parents:
14669
diff
changeset
|
1054 func Test_Executable() |
1c2ba2b0227e
patch 8.1.0453: MS-Windows: executable() is not reliable
Bram Moolenaar <Bram@vim.org>
parents:
14669
diff
changeset
|
1055 if has('win32') |
1c2ba2b0227e
patch 8.1.0453: MS-Windows: executable() is not reliable
Bram Moolenaar <Bram@vim.org>
parents:
14669
diff
changeset
|
1056 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
|
1057 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
|
1058 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
|
1059 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
|
1060 call assert_equal(0, executable('win.ini')) |
1c2ba2b0227e
patch 8.1.0453: MS-Windows: executable() is not reliable
Bram Moolenaar <Bram@vim.org>
parents:
14669
diff
changeset
|
1061 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
|
1062 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
|
1063 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
|
1064 |
f1fd0b0b335c
patch 8.1.1740: exepath() doesn't work for "bin/cat"
Bram Moolenaar <Bram@vim.org>
parents:
17278
diff
changeset
|
1065 " 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
|
1066 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
|
1067 new |
17849
73ddc462979d
patch 8.1.1921: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents:
17837
diff
changeset
|
1068 " 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
|
1069 lcd / |
f1fd0b0b335c
patch 8.1.1740: exepath() doesn't work for "bin/cat"
Bram Moolenaar <Bram@vim.org>
parents:
17278
diff
changeset
|
1070 call assert_equal(1, executable(catcmd)) |
17849
73ddc462979d
patch 8.1.1921: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents:
17837
diff
changeset
|
1071 call assert_equal('/' .. catcmd, catcmd->exepath()) |
17484
f1fd0b0b335c
patch 8.1.1740: exepath() doesn't work for "bin/cat"
Bram Moolenaar <Bram@vim.org>
parents:
17278
diff
changeset
|
1072 bwipe |
14883
1c2ba2b0227e
patch 8.1.0453: MS-Windows: executable() is not reliable
Bram Moolenaar <Bram@vim.org>
parents:
14669
diff
changeset
|
1073 endif |
1c2ba2b0227e
patch 8.1.0453: MS-Windows: executable() is not reliable
Bram Moolenaar <Bram@vim.org>
parents:
14669
diff
changeset
|
1074 endfunc |
1c2ba2b0227e
patch 8.1.0453: MS-Windows: executable() is not reliable
Bram Moolenaar <Bram@vim.org>
parents:
14669
diff
changeset
|
1075 |
16180
1eaaa82ececf
patch 8.1.1095: MS-Windows: executable() fails on very long filename
Bram Moolenaar <Bram@vim.org>
parents:
16144
diff
changeset
|
1076 func Test_executable_longname() |
1eaaa82ececf
patch 8.1.1095: MS-Windows: executable() fails on very long filename
Bram Moolenaar <Bram@vim.org>
parents:
16144
diff
changeset
|
1077 if !has('win32') |
1eaaa82ececf
patch 8.1.1095: MS-Windows: executable() fails on very long filename
Bram Moolenaar <Bram@vim.org>
parents:
16144
diff
changeset
|
1078 return |
1eaaa82ececf
patch 8.1.1095: MS-Windows: executable() fails on very long filename
Bram Moolenaar <Bram@vim.org>
parents:
16144
diff
changeset
|
1079 endif |
1eaaa82ececf
patch 8.1.1095: MS-Windows: executable() fails on very long filename
Bram Moolenaar <Bram@vim.org>
parents:
16144
diff
changeset
|
1080 |
1eaaa82ececf
patch 8.1.1095: MS-Windows: executable() fails on very long filename
Bram Moolenaar <Bram@vim.org>
parents:
16144
diff
changeset
|
1081 let fname = 'X' . repeat('あ', 200) . '.bat' |
1eaaa82ececf
patch 8.1.1095: MS-Windows: executable() fails on very long filename
Bram Moolenaar <Bram@vim.org>
parents:
16144
diff
changeset
|
1082 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
|
1083 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
|
1084 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
|
1085 endfunc |
1eaaa82ececf
patch 8.1.1095: MS-Windows: executable() fails on very long filename
Bram Moolenaar <Bram@vim.org>
parents:
16144
diff
changeset
|
1086 |
11095
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1087 func Test_hostname() |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1088 let hostname_vim = hostname() |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1089 if has('unix') |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1090 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
|
1091 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
|
1092 endif |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1093 endfunc |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1094 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1095 func Test_getpid() |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1096 " 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
|
1097 call assert_equal(getpid(), getpid()) |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1098 if has('unix') |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1099 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
|
1100 endif |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1101 endfunc |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1102 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1103 func Test_hlexists() |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1104 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
|
1105 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
|
1106 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
|
1107 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
|
1108 syntax on |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1109 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
|
1110 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
|
1111 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
|
1112 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
|
1113 syntax off |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1114 endfunc |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1115 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1116 func Test_col() |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1117 new |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1118 call setline(1, 'abcdef') |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1119 norm gg4|mx6|mY2| |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1120 call assert_equal(2, col('.')) |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1121 call assert_equal(7, col('$')) |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1122 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
|
1123 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
|
1124 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
|
1125 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
|
1126 |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1127 call assert_equal(0, col('')) |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1128 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
|
1129 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
|
1130 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
|
1131 call assert_equal(0, col([1])) |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1132 bw! |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1133 endfunc |
5763281d212a
patch 8.0.0435: some functions are not tested
Christian Brabandt <cb@256bit.org>
parents:
11024
diff
changeset
|
1134 |
14379
0f1446193ded
patch 8.1.0204: inputlist() is not tested
Christian Brabandt <cb@256bit.org>
parents:
14348
diff
changeset
|
1135 func Test_inputlist() |
0f1446193ded
patch 8.1.0204: inputlist() is not tested
Christian Brabandt <cb@256bit.org>
parents:
14348
diff
changeset
|
1136 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
|
1137 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
|
1138 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
|
1139 call assert_equal(2, c) |
0f1446193ded
patch 8.1.0204: inputlist() is not tested
Christian Brabandt <cb@256bit.org>
parents:
14348
diff
changeset
|
1140 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
|
1141 call assert_equal(3, c) |
0f1446193ded
patch 8.1.0204: inputlist() is not tested
Christian Brabandt <cb@256bit.org>
parents:
14348
diff
changeset
|
1142 |
0f1446193ded
patch 8.1.0204: inputlist() is not tested
Christian Brabandt <cb@256bit.org>
parents:
14348
diff
changeset
|
1143 call assert_fails('call inputlist("")', 'E686:') |
0f1446193ded
patch 8.1.0204: inputlist() is not tested
Christian Brabandt <cb@256bit.org>
parents:
14348
diff
changeset
|
1144 endfunc |
0f1446193ded
patch 8.1.0204: inputlist() is not tested
Christian Brabandt <cb@256bit.org>
parents:
14348
diff
changeset
|
1145 |
11020
50f3e37bc210
patch 8.0.0399: crash when using balloon_show() when not supported
Christian Brabandt <cb@256bit.org>
parents:
10891
diff
changeset
|
1146 func Test_balloon_show() |
11024
973fa964cb91
patch 8.0.0401: test fails with missing balloon feature
Christian Brabandt <cb@256bit.org>
parents:
11020
diff
changeset
|
1147 if has('balloon_eval') |
973fa964cb91
patch 8.0.0401: test fails with missing balloon feature
Christian Brabandt <cb@256bit.org>
parents:
11020
diff
changeset
|
1148 " This won't do anything but must not crash either. |
973fa964cb91
patch 8.0.0401: test fails with missing balloon feature
Christian Brabandt <cb@256bit.org>
parents:
11020
diff
changeset
|
1149 call balloon_show('hi!') |
973fa964cb91
patch 8.0.0401: test fails with missing balloon feature
Christian Brabandt <cb@256bit.org>
parents:
11020
diff
changeset
|
1150 endif |
11020
50f3e37bc210
patch 8.0.0399: crash when using balloon_show() when not supported
Christian Brabandt <cb@256bit.org>
parents:
10891
diff
changeset
|
1151 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
|
1152 |
445fd6be2009
patch 8.0.0482: the setbufvar() function may mess up the window layout
Christian Brabandt <cb@256bit.org>
parents:
11135
diff
changeset
|
1153 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
|
1154 " 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
|
1155 " 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
|
1156 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
|
1157 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
|
1158 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
|
1159 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
|
1160 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
|
1161 |
445fd6be2009
patch 8.0.0482: the setbufvar() function may mess up the window layout
Christian Brabandt <cb@256bit.org>
parents:
11135
diff
changeset
|
1162 wincmd j |
445fd6be2009
patch 8.0.0482: the setbufvar() function may mess up the window layout
Christian Brabandt <cb@256bit.org>
parents:
11135
diff
changeset
|
1163 let wh = winheight('.') |
445fd6be2009
patch 8.0.0482: the setbufvar() function may mess up the window layout
Christian Brabandt <cb@256bit.org>
parents:
11135
diff
changeset
|
1164 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
|
1165 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
|
1166 execute 'belowright vertical split #' . dummy_buf |
445fd6be2009
patch 8.0.0482: the setbufvar() function may mess up the window layout
Christian Brabandt <cb@256bit.org>
parents:
11135
diff
changeset
|
1167 call assert_equal(wh, winheight('.')) |
445fd6be2009
patch 8.0.0482: the setbufvar() function may mess up the window layout
Christian Brabandt <cb@256bit.org>
parents:
11135
diff
changeset
|
1168 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
|
1169 |
445fd6be2009
patch 8.0.0482: the setbufvar() function may mess up the window layout
Christian Brabandt <cb@256bit.org>
parents:
11135
diff
changeset
|
1170 wincmd h |
445fd6be2009
patch 8.0.0482: the setbufvar() function may mess up the window layout
Christian Brabandt <cb@256bit.org>
parents:
11135
diff
changeset
|
1171 let wh = winheight('.') |
445fd6be2009
patch 8.0.0482: the setbufvar() function may mess up the window layout
Christian Brabandt <cb@256bit.org>
parents:
11135
diff
changeset
|
1172 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
|
1173 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
|
1174 execute 'belowright vertical split #' . dummy_buf |
445fd6be2009
patch 8.0.0482: the setbufvar() function may mess up the window layout
Christian Brabandt <cb@256bit.org>
parents:
11135
diff
changeset
|
1175 call assert_equal(wh, winheight('.')) |
445fd6be2009
patch 8.0.0482: the setbufvar() function may mess up the window layout
Christian Brabandt <cb@256bit.org>
parents:
11135
diff
changeset
|
1176 |
445fd6be2009
patch 8.0.0482: the setbufvar() function may mess up the window layout
Christian Brabandt <cb@256bit.org>
parents:
11135
diff
changeset
|
1177 bwipe! |
445fd6be2009
patch 8.0.0482: the setbufvar() function may mess up the window layout
Christian Brabandt <cb@256bit.org>
parents:
11135
diff
changeset
|
1178 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
|
1179 bwipe! |
445fd6be2009
patch 8.0.0482: the setbufvar() function may mess up the window layout
Christian Brabandt <cb@256bit.org>
parents:
11135
diff
changeset
|
1180 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
|
1181 bwipe! |
445fd6be2009
patch 8.0.0482: the setbufvar() function may mess up the window layout
Christian Brabandt <cb@256bit.org>
parents:
11135
diff
changeset
|
1182 endfunc |
11325
77f3b7316d8b
patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents:
11197
diff
changeset
|
1183 |
77f3b7316d8b
patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents:
11197
diff
changeset
|
1184 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
|
1185 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
|
1186 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
|
1187 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
|
1188 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
|
1189 endfunction |
77f3b7316d8b
patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents:
11197
diff
changeset
|
1190 |
77f3b7316d8b
patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents:
11197
diff
changeset
|
1191 function! Apply() |
77f3b7316d8b
patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents:
11197
diff
changeset
|
1192 5,6normal! . |
77f3b7316d8b
patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents:
11197
diff
changeset
|
1193 endfunction |
77f3b7316d8b
patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents:
11197
diff
changeset
|
1194 |
77f3b7316d8b
patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents:
11197
diff
changeset
|
1195 new |
77f3b7316d8b
patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents:
11197
diff
changeset
|
1196 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
|
1197 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
|
1198 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
|
1199 3,4normal . |
77f3b7316d8b
patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents:
11197
diff
changeset
|
1200 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
|
1201 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
|
1202 call Apply() |
77f3b7316d8b
patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents:
11197
diff
changeset
|
1203 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
|
1204 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
|
1205 bwipe! |
77f3b7316d8b
patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents:
11197
diff
changeset
|
1206 |
77f3b7316d8b
patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents:
11197
diff
changeset
|
1207 nunmap g. |
77f3b7316d8b
patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents:
11197
diff
changeset
|
1208 delfunc Operator |
77f3b7316d8b
patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents:
11197
diff
changeset
|
1209 delfunc Apply |
77f3b7316d8b
patch 8.0.0548: saving the redo buffer only works one time
Christian Brabandt <cb@256bit.org>
parents:
11197
diff
changeset
|
1210 endfunc |
11484
3933a3bf9385
patch 8.0.0625: shellescape() always escapes a newline
Christian Brabandt <cb@256bit.org>
parents:
11325
diff
changeset
|
1211 |
3933a3bf9385
patch 8.0.0625: shellescape() always escapes a newline
Christian Brabandt <cb@256bit.org>
parents:
11325
diff
changeset
|
1212 func Test_shellescape() |
3933a3bf9385
patch 8.0.0625: shellescape() always escapes a newline
Christian Brabandt <cb@256bit.org>
parents:
11325
diff
changeset
|
1213 let save_shell = &shell |
3933a3bf9385
patch 8.0.0625: shellescape() always escapes a newline
Christian Brabandt <cb@256bit.org>
parents:
11325
diff
changeset
|
1214 set shell=bash |
3933a3bf9385
patch 8.0.0625: shellescape() always escapes a newline
Christian Brabandt <cb@256bit.org>
parents:
11325
diff
changeset
|
1215 call assert_equal("'text'", shellescape('text')) |
18000
7a19c8d6bb9e
patch 8.1.1996: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents:
17994
diff
changeset
|
1216 call assert_equal("'te\"xt'", 'te"xt'->shellescape()) |
11484
3933a3bf9385
patch 8.0.0625: shellescape() always escapes a newline
Christian Brabandt <cb@256bit.org>
parents:
11325
diff
changeset
|
1217 call assert_equal("'te'\\''xt'", shellescape("te'xt")) |
3933a3bf9385
patch 8.0.0625: shellescape() always escapes a newline
Christian Brabandt <cb@256bit.org>
parents:
11325
diff
changeset
|
1218 |
3933a3bf9385
patch 8.0.0625: shellescape() always escapes a newline
Christian Brabandt <cb@256bit.org>
parents:
11325
diff
changeset
|
1219 call assert_equal("'te%xt'", shellescape("te%xt")) |
3933a3bf9385
patch 8.0.0625: shellescape() always escapes a newline
Christian Brabandt <cb@256bit.org>
parents:
11325
diff
changeset
|
1220 call assert_equal("'te\\%xt'", shellescape("te%xt", 1)) |
3933a3bf9385
patch 8.0.0625: shellescape() always escapes a newline
Christian Brabandt <cb@256bit.org>
parents:
11325
diff
changeset
|
1221 call assert_equal("'te#xt'", shellescape("te#xt")) |
3933a3bf9385
patch 8.0.0625: shellescape() always escapes a newline
Christian Brabandt <cb@256bit.org>
parents:
11325
diff
changeset
|
1222 call assert_equal("'te\\#xt'", shellescape("te#xt", 1)) |
3933a3bf9385
patch 8.0.0625: shellescape() always escapes a newline
Christian Brabandt <cb@256bit.org>
parents:
11325
diff
changeset
|
1223 call assert_equal("'te!xt'", shellescape("te!xt")) |
3933a3bf9385
patch 8.0.0625: shellescape() always escapes a newline
Christian Brabandt <cb@256bit.org>
parents:
11325
diff
changeset
|
1224 call assert_equal("'te\\!xt'", shellescape("te!xt", 1)) |
3933a3bf9385
patch 8.0.0625: shellescape() always escapes a newline
Christian Brabandt <cb@256bit.org>
parents:
11325
diff
changeset
|
1225 |
3933a3bf9385
patch 8.0.0625: shellescape() always escapes a newline
Christian Brabandt <cb@256bit.org>
parents:
11325
diff
changeset
|
1226 call assert_equal("'te\nxt'", shellescape("te\nxt")) |
3933a3bf9385
patch 8.0.0625: shellescape() always escapes a newline
Christian Brabandt <cb@256bit.org>
parents:
11325
diff
changeset
|
1227 call assert_equal("'te\\\nxt'", shellescape("te\nxt", 1)) |
3933a3bf9385
patch 8.0.0625: shellescape() always escapes a newline
Christian Brabandt <cb@256bit.org>
parents:
11325
diff
changeset
|
1228 set shell=tcsh |
3933a3bf9385
patch 8.0.0625: shellescape() always escapes a newline
Christian Brabandt <cb@256bit.org>
parents:
11325
diff
changeset
|
1229 call assert_equal("'te\\!xt'", shellescape("te!xt")) |
3933a3bf9385
patch 8.0.0625: shellescape() always escapes a newline
Christian Brabandt <cb@256bit.org>
parents:
11325
diff
changeset
|
1230 call assert_equal("'te\\\\!xt'", shellescape("te!xt", 1)) |
3933a3bf9385
patch 8.0.0625: shellescape() always escapes a newline
Christian Brabandt <cb@256bit.org>
parents:
11325
diff
changeset
|
1231 call assert_equal("'te\\\nxt'", shellescape("te\nxt")) |
3933a3bf9385
patch 8.0.0625: shellescape() always escapes a newline
Christian Brabandt <cb@256bit.org>
parents:
11325
diff
changeset
|
1232 call assert_equal("'te\\\\\nxt'", shellescape("te\nxt", 1)) |
3933a3bf9385
patch 8.0.0625: shellescape() always escapes a newline
Christian Brabandt <cb@256bit.org>
parents:
11325
diff
changeset
|
1233 |
3933a3bf9385
patch 8.0.0625: shellescape() always escapes a newline
Christian Brabandt <cb@256bit.org>
parents:
11325
diff
changeset
|
1234 let &shell = save_shell |
3933a3bf9385
patch 8.0.0625: shellescape() always escapes a newline
Christian Brabandt <cb@256bit.org>
parents:
11325
diff
changeset
|
1235 endfunc |
13513
4064f342bea4
patch 8.0.1630: trimming white space is not that easy
Christian Brabandt <cb@256bit.org>
parents:
13092
diff
changeset
|
1236 |
4064f342bea4
patch 8.0.1630: trimming white space is not that easy
Christian Brabandt <cb@256bit.org>
parents:
13092
diff
changeset
|
1237 func Test_trim() |
4064f342bea4
patch 8.0.1630: trimming white space is not that easy
Christian Brabandt <cb@256bit.org>
parents:
13092
diff
changeset
|
1238 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
|
1239 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
|
1240 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
|
1241 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
|
1242 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
|
1243 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
|
1244 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
|
1245 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
|
1246 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
|
1247 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
|
1248 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
|
1249 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
|
1250 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
|
1251 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
|
1252 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
|
1253 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
|
1254 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
|
1255 |
17976
6d11a0d5751d
patch 8.1.1984: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents:
17952
diff
changeset
|
1256 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
|
1257 call assert_equal("x", trim(chars . "x" . chars)) |
4064f342bea4
patch 8.0.1630: trimming white space is not that easy
Christian Brabandt <cb@256bit.org>
parents:
13092
diff
changeset
|
1258 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
|
1259 |
e124262d435e
patch 8.1.0020: cannot tell whether a register is executing or recording
Christian Brabandt <cb@256bit.org>
parents:
13980
diff
changeset
|
1260 " 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
|
1261 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
|
1262 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
|
1263 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
|
1264 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
|
1265 return '' |
e124262d435e
patch 8.1.0020: cannot tell whether a register is executing or recording
Christian Brabandt <cb@256bit.org>
parents:
13980
diff
changeset
|
1266 endfunc |
e124262d435e
patch 8.1.0020: cannot tell whether a register is executing or recording
Christian Brabandt <cb@256bit.org>
parents:
13980
diff
changeset
|
1267 |
e124262d435e
patch 8.1.0020: cannot tell whether a register is executing or recording
Christian Brabandt <cb@256bit.org>
parents:
13980
diff
changeset
|
1268 new |
e124262d435e
patch 8.1.0020: cannot tell whether a register is executing or recording
Christian Brabandt <cb@256bit.org>
parents:
13980
diff
changeset
|
1269 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
|
1270 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
|
1271 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
|
1272 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
|
1273 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
|
1274 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
|
1275 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
|
1276 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
|
1277 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
|
1278 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
|
1279 |
15973
393a9a3a2da2
patch 8.1.0992: a :normal command resets the reg_executing() result
Bram Moolenaar <Bram@vim.org>
parents:
15774
diff
changeset
|
1280 " :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
|
1281 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
|
1282 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
|
1283 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
|
1284 normal! ia |
393a9a3a2da2
patch 8.1.0992: a :normal command resets the reg_executing() result
Bram Moolenaar <Bram@vim.org>
parents:
15774
diff
changeset
|
1285 endfunc |
393a9a3a2da2
patch 8.1.0992: a :normal command resets the reg_executing() result
Bram Moolenaar <Bram@vim.org>
parents:
15774
diff
changeset
|
1286 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
|
1287 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
|
1288 delfunc TestFunc |
393a9a3a2da2
patch 8.1.0992: a :normal command resets the reg_executing() result
Bram Moolenaar <Bram@vim.org>
parents:
15774
diff
changeset
|
1289 |
15979
72987a858c96
patch 8.1.0995: a getchar() call resets the reg_executing() result
Bram Moolenaar <Bram@vim.org>
parents:
15973
diff
changeset
|
1290 " 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
|
1291 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
|
1292 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
|
1293 let g:typed = '' |
4850744dc181
patch 8.1.1077: reg_executing() is reset by calling input()
Bram Moolenaar <Bram@vim.org>
parents:
15979
diff
changeset
|
1294 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
|
1295 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
|
1296 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
|
1297 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
|
1298 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
|
1299 endfunc |
72987a858c96
patch 8.1.0995: a getchar() call resets the reg_executing() result
Bram Moolenaar <Bram@vim.org>
parents:
15973
diff
changeset
|
1300 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
|
1301 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
|
1302 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
|
1303 delfunc TestFunc |
72987a858c96
patch 8.1.0995: a getchar() call resets the reg_executing() result
Bram Moolenaar <Bram@vim.org>
parents:
15973
diff
changeset
|
1304 unmap W |
72987a858c96
patch 8.1.0995: a getchar() call resets the reg_executing() result
Bram Moolenaar <Bram@vim.org>
parents:
15973
diff
changeset
|
1305 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
|
1306 unlet g:regs |
4850744dc181
patch 8.1.1077: reg_executing() is reset by calling input()
Bram Moolenaar <Bram@vim.org>
parents:
15979
diff
changeset
|
1307 |
4850744dc181
patch 8.1.1077: reg_executing() is reset by calling input()
Bram Moolenaar <Bram@vim.org>
parents:
15979
diff
changeset
|
1308 " 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
|
1309 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
|
1310 let @q = "W" |
4850744dc181
patch 8.1.1077: reg_executing() is reset by calling input()
Bram Moolenaar <Bram@vim.org>
parents:
15979
diff
changeset
|
1311 let g:typed = '' |
4850744dc181
patch 8.1.1077: reg_executing() is reset by calling input()
Bram Moolenaar <Bram@vim.org>
parents:
15979
diff
changeset
|
1312 let g:regs = [] |
4850744dc181
patch 8.1.1077: reg_executing() is reset by calling input()
Bram Moolenaar <Bram@vim.org>
parents:
15979
diff
changeset
|
1313 func TestFunc() abort |
4850744dc181
patch 8.1.1077: reg_executing() is reset by calling input()
Bram Moolenaar <Bram@vim.org>
parents:
15979
diff
changeset
|
1314 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
|
1315 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
|
1316 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
|
1317 endfunc |
4850744dc181
patch 8.1.1077: reg_executing() is reset by calling input()
Bram Moolenaar <Bram@vim.org>
parents:
15979
diff
changeset
|
1318 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
|
1319 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
|
1320 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
|
1321 delfunc TestFunc |
4850744dc181
patch 8.1.1077: reg_executing() is reset by calling input()
Bram Moolenaar <Bram@vim.org>
parents:
15979
diff
changeset
|
1322 unmap W |
4850744dc181
patch 8.1.1077: reg_executing() is reset by calling input()
Bram Moolenaar <Bram@vim.org>
parents:
15979
diff
changeset
|
1323 unlet g:typed |
4850744dc181
patch 8.1.1077: reg_executing() is reset by calling input()
Bram Moolenaar <Bram@vim.org>
parents:
15979
diff
changeset
|
1324 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
|
1325 |
14004
e124262d435e
patch 8.1.0020: cannot tell whether a register is executing or recording
Christian Brabandt <cb@256bit.org>
parents:
13980
diff
changeset
|
1326 bwipe! |
e124262d435e
patch 8.1.0020: cannot tell whether a register is executing or recording
Christian Brabandt <cb@256bit.org>
parents:
13980
diff
changeset
|
1327 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
|
1328 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
|
1329 endfunc |
14137
0d534adbcc2f
patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents:
14004
diff
changeset
|
1330 |
17914
af3d441845cd
patch 8.1.1953: more functions can be used as a method
Bram Moolenaar <Bram@vim.org>
parents:
17871
diff
changeset
|
1331 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
|
1332 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
|
1333 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
|
1334 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
|
1335 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
|
1336 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
|
1337 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
|
1338 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
|
1339 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
|
1340 endfunc |
af3d441845cd
patch 8.1.1953: more functions can be used as a method
Bram Moolenaar <Bram@vim.org>
parents:
17871
diff
changeset
|
1341 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
|
1342 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
|
1343 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
|
1344 delfunc TestFunc |
af3d441845cd
patch 8.1.1953: more functions can be used as a method
Bram Moolenaar <Bram@vim.org>
parents:
17871
diff
changeset
|
1345 unmap W |
af3d441845cd
patch 8.1.1953: more functions can be used as a method
Bram Moolenaar <Bram@vim.org>
parents:
17871
diff
changeset
|
1346 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
|
1347 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
|
1348 endfunc |
af3d441845cd
patch 8.1.1953: more functions can be used as a method
Bram Moolenaar <Bram@vim.org>
parents:
17871
diff
changeset
|
1349 |
17952
4754339d9aee
patch 8.1.1972: no proper test for getchar()
Bram Moolenaar <Bram@vim.org>
parents:
17944
diff
changeset
|
1350 func Test_getchar() |
4754339d9aee
patch 8.1.1972: no proper test for getchar()
Bram Moolenaar <Bram@vim.org>
parents:
17944
diff
changeset
|
1351 call feedkeys('a', '') |
4754339d9aee
patch 8.1.1972: no proper test for getchar()
Bram Moolenaar <Bram@vim.org>
parents:
17944
diff
changeset
|
1352 call assert_equal(char2nr('a'), getchar()) |
4754339d9aee
patch 8.1.1972: no proper test for getchar()
Bram Moolenaar <Bram@vim.org>
parents:
17944
diff
changeset
|
1353 |
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
|
1354 call setline(1, 'xxxx') |
17952
4754339d9aee
patch 8.1.1972: no proper test for getchar()
Bram Moolenaar <Bram@vim.org>
parents:
17944
diff
changeset
|
1355 call test_setmouse(1, 3) |
4754339d9aee
patch 8.1.1972: no proper test for getchar()
Bram Moolenaar <Bram@vim.org>
parents:
17944
diff
changeset
|
1356 let v:mouse_win = 9 |
4754339d9aee
patch 8.1.1972: no proper test for getchar()
Bram Moolenaar <Bram@vim.org>
parents:
17944
diff
changeset
|
1357 let v:mouse_winid = 9 |
4754339d9aee
patch 8.1.1972: no proper test for getchar()
Bram Moolenaar <Bram@vim.org>
parents:
17944
diff
changeset
|
1358 let v:mouse_lnum = 9 |
4754339d9aee
patch 8.1.1972: no proper test for getchar()
Bram Moolenaar <Bram@vim.org>
parents:
17944
diff
changeset
|
1359 let v:mouse_col = 9 |
4754339d9aee
patch 8.1.1972: no proper test for getchar()
Bram Moolenaar <Bram@vim.org>
parents:
17944
diff
changeset
|
1360 call feedkeys("\<S-LeftMouse>", '') |
4754339d9aee
patch 8.1.1972: no proper test for getchar()
Bram Moolenaar <Bram@vim.org>
parents:
17944
diff
changeset
|
1361 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
|
1362 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
|
1363 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
|
1364 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
|
1365 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
|
1366 enew! |
17952
4754339d9aee
patch 8.1.1972: no proper test for getchar()
Bram Moolenaar <Bram@vim.org>
parents:
17944
diff
changeset
|
1367 endfunc |
4754339d9aee
patch 8.1.1972: no proper test for getchar()
Bram Moolenaar <Bram@vim.org>
parents:
17944
diff
changeset
|
1368 |
14137
0d534adbcc2f
patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents:
14004
diff
changeset
|
1369 func Test_libcall_libcallnr() |
0d534adbcc2f
patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents:
14004
diff
changeset
|
1370 if !has('libcall') |
0d534adbcc2f
patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents:
14004
diff
changeset
|
1371 return |
0d534adbcc2f
patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents:
14004
diff
changeset
|
1372 endif |
0d534adbcc2f
patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents:
14004
diff
changeset
|
1373 |
0d534adbcc2f
patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents:
14004
diff
changeset
|
1374 if has('win32') |
0d534adbcc2f
patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents:
14004
diff
changeset
|
1375 let libc = 'msvcrt.dll' |
0d534adbcc2f
patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents:
14004
diff
changeset
|
1376 elseif has('mac') |
0d534adbcc2f
patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents:
14004
diff
changeset
|
1377 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
|
1378 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
|
1379 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
|
1380 endif |
772e72b046a3
patch 8.1.0846: not easy to recognize the system Vim runs on
Bram Moolenaar <Bram@vim.org>
parents:
15649
diff
changeset
|
1381 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
|
1382 " 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
|
1383 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
|
1384 " 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
|
1385 " 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
|
1386 " 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
|
1387 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
|
1388 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
|
1389 " 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
|
1390 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
|
1391 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
|
1392 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
|
1393 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
|
1394 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
|
1395 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
|
1396 else |
772e72b046a3
patch 8.1.0846: not easy to recognize the system Vim runs on
Bram Moolenaar <Bram@vim.org>
parents:
15649
diff
changeset
|
1397 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
|
1398 endif |
14669
63d5ae57a663
patch 8.1.0347: some tests fail on Solaris
Christian Brabandt <cb@256bit.org>
parents:
14579
diff
changeset
|
1399 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
|
1400 " 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
|
1401 return |
14669
63d5ae57a663
patch 8.1.0347: some tests fail on Solaris
Christian Brabandt <cb@256bit.org>
parents:
14579
diff
changeset
|
1402 endif |
14137
0d534adbcc2f
patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents:
14004
diff
changeset
|
1403 endif |
0d534adbcc2f
patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents:
14004
diff
changeset
|
1404 |
0d534adbcc2f
patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents:
14004
diff
changeset
|
1405 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
|
1406 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
|
1407 else |
17916
2e53305f2239
patch 8.1.1954: more functions can be used as a method
Bram Moolenaar <Bram@vim.org>
parents:
17914
diff
changeset
|
1408 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
|
1409 endif |
0d534adbcc2f
patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents:
14004
diff
changeset
|
1410 |
0d534adbcc2f
patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents:
14004
diff
changeset
|
1411 " 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
|
1412 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
|
1413 |
0d534adbcc2f
patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents:
14004
diff
changeset
|
1414 " 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
|
1415 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
|
1416 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
|
1417 |
0d534adbcc2f
patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents:
14004
diff
changeset
|
1418 call assert_fails("call libcall(libc, 'Xdoesnotexist_', '')", 'E364:') |
0d534adbcc2f
patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents:
14004
diff
changeset
|
1419 call assert_fails("call libcallnr(libc, 'Xdoesnotexist_', '')", 'E364:') |
0d534adbcc2f
patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents:
14004
diff
changeset
|
1420 |
0d534adbcc2f
patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents:
14004
diff
changeset
|
1421 call assert_fails("call libcall('Xdoesnotexist_', 'getenv', 'HOME')", 'E364:') |
0d534adbcc2f
patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents:
14004
diff
changeset
|
1422 call assert_fails("call libcallnr('Xdoesnotexist_', 'strlen', 'abcd')", 'E364:') |
0d534adbcc2f
patch 8.1.0086: no tests for libcall() and libcallnr()
Christian Brabandt <cb@256bit.org>
parents:
14004
diff
changeset
|
1423 endfunc |
14348
e73c0a0e7e87
patch 8.1.0189: function defined in sandbox not tested
Christian Brabandt <cb@256bit.org>
parents:
14137
diff
changeset
|
1424 |
e73c0a0e7e87
patch 8.1.0189: function defined in sandbox not tested
Christian Brabandt <cb@256bit.org>
parents:
14137
diff
changeset
|
1425 sandbox function Fsandbox() |
e73c0a0e7e87
patch 8.1.0189: function defined in sandbox not tested
Christian Brabandt <cb@256bit.org>
parents:
14137
diff
changeset
|
1426 normal ix |
e73c0a0e7e87
patch 8.1.0189: function defined in sandbox not tested
Christian Brabandt <cb@256bit.org>
parents:
14137
diff
changeset
|
1427 endfunc |
e73c0a0e7e87
patch 8.1.0189: function defined in sandbox not tested
Christian Brabandt <cb@256bit.org>
parents:
14137
diff
changeset
|
1428 |
e73c0a0e7e87
patch 8.1.0189: function defined in sandbox not tested
Christian Brabandt <cb@256bit.org>
parents:
14137
diff
changeset
|
1429 func Test_func_sandbox() |
e73c0a0e7e87
patch 8.1.0189: function defined in sandbox not tested
Christian Brabandt <cb@256bit.org>
parents:
14137
diff
changeset
|
1430 sandbox let F = {-> 'hello'} |
e73c0a0e7e87
patch 8.1.0189: function defined in sandbox not tested
Christian Brabandt <cb@256bit.org>
parents:
14137
diff
changeset
|
1431 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
|
1432 |
17849
73ddc462979d
patch 8.1.1921: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents:
17837
diff
changeset
|
1433 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
|
1434 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
|
1435 unlet F |
e73c0a0e7e87
patch 8.1.0189: function defined in sandbox not tested
Christian Brabandt <cb@256bit.org>
parents:
14137
diff
changeset
|
1436 |
e73c0a0e7e87
patch 8.1.0189: function defined in sandbox not tested
Christian Brabandt <cb@256bit.org>
parents:
14137
diff
changeset
|
1437 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
|
1438 delfunc Fsandbox |
e73c0a0e7e87
patch 8.1.0189: function defined in sandbox not tested
Christian Brabandt <cb@256bit.org>
parents:
14137
diff
changeset
|
1439 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
|
1440 |
32787e326de2
patch 8.1.0511: ml_get error when calling a function with a range
Bram Moolenaar <Bram@vim.org>
parents:
14895
diff
changeset
|
1441 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
|
1442 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
|
1443 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
|
1444 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
|
1445 |
32787e326de2
patch 8.1.0511: ml_get error when calling a function with a range
Bram Moolenaar <Bram@vim.org>
parents:
14895
diff
changeset
|
1446 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
|
1447 " 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
|
1448 " 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
|
1449 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
|
1450 new |
17994
0dcc2ee838dd
patch 8.1.1993: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents:
17982
diff
changeset
|
1451 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
|
1452 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
|
1453 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
|
1454 |
32787e326de2
patch 8.1.0511: ml_get error when calling a function with a range
Bram Moolenaar <Bram@vim.org>
parents:
14895
diff
changeset
|
1455 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
|
1456 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
|
1457 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
|
1458 endfunc |
15008
67e3103d6e18
patch 8.1.0515: reloading a script gives errors for existing functions
Bram Moolenaar <Bram@vim.org>
parents:
15000
diff
changeset
|
1459 |
67e3103d6e18
patch 8.1.0515: reloading a script gives errors for existing functions
Bram Moolenaar <Bram@vim.org>
parents:
15000
diff
changeset
|
1460 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
|
1461 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
|
1462 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
|
1463 source Xfuncexists |
17849
73ddc462979d
patch 8.1.1921: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents:
17837
diff
changeset
|
1464 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
|
1465 " 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
|
1466 source Xfuncexists |
67e3103d6e18
patch 8.1.0515: reloading a script gives errors for existing functions
Bram Moolenaar <Bram@vim.org>
parents:
15000
diff
changeset
|
1467 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
|
1468 |
67e3103d6e18
patch 8.1.0515: reloading a script gives errors for existing functions
Bram Moolenaar <Bram@vim.org>
parents:
15000
diff
changeset
|
1469 " 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
|
1470 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
|
1471 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
|
1472 |
67e3103d6e18
patch 8.1.0515: reloading a script gives errors for existing functions
Bram Moolenaar <Bram@vim.org>
parents:
15000
diff
changeset
|
1473 delfunc ExistingFunction |
67e3103d6e18
patch 8.1.0515: reloading a script gives errors for existing functions
Bram Moolenaar <Bram@vim.org>
parents:
15000
diff
changeset
|
1474 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
|
1475 call writefile([ |
67e3103d6e18
patch 8.1.0515: reloading a script gives errors for existing functions
Bram Moolenaar <Bram@vim.org>
parents:
15000
diff
changeset
|
1476 \ '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
|
1477 \ '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
|
1478 \ ], 'Xfuncexists') |
67e3103d6e18
patch 8.1.0515: reloading a script gives errors for existing functions
Bram Moolenaar <Bram@vim.org>
parents:
15000
diff
changeset
|
1479 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
|
1480 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
|
1481 |
67e3103d6e18
patch 8.1.0515: reloading a script gives errors for existing functions
Bram Moolenaar <Bram@vim.org>
parents:
15000
diff
changeset
|
1482 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
|
1483 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
|
1484 delfunc ExistingFunction |
67e3103d6e18
patch 8.1.0515: reloading a script gives errors for existing functions
Bram Moolenaar <Bram@vim.org>
parents:
15000
diff
changeset
|
1485 endfunc |
15649
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1486 |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1487 " Test confirm({msg} [, {choices} [, {default} [, {type}]]]) |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1488 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
|
1489 CheckUnix |
0da9bc55c31a
patch 8.1.1826: tests use hand coded feature and option checks
Bram Moolenaar <Bram@vim.org>
parents:
17484
diff
changeset
|
1490 CheckNotGui |
15649
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1491 |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1492 call feedkeys('o', 'L') |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1493 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
|
1494 call assert_equal(1, a) |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1495 |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1496 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
|
1497 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
|
1498 call assert_equal(1, a) |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1499 |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1500 call feedkeys('n', 'L') |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1501 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
|
1502 call assert_equal(2, a) |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1503 |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1504 " confirm() should return 0 when pressing CTRL-C. |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1505 call feedkeys("\<C-c>", 'L') |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1506 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
|
1507 call assert_equal(0, a) |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1508 |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1509 " <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
|
1510 " 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
|
1511 eval "\<Esc>0"->feedkeys('L') |
15649
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1512 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
|
1513 call assert_equal(0, a) |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1514 |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1515 " 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
|
1516 call feedkeys("\<CR>", 'L') |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1517 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
|
1518 call assert_equal(1, a) |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1519 |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1520 call feedkeys("\<CR>", 'L') |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1521 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
|
1522 call assert_equal(2, a) |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1523 |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1524 call feedkeys("\<CR>", 'L') |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1525 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
|
1526 call assert_equal(0, a) |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1527 |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1528 " Test with the {type} 4th argument |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1529 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
|
1530 call feedkeys('y', 'L') |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1531 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
|
1532 call assert_equal(1, a) |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1533 endfor |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1534 |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1535 call assert_fails('call confirm([])', 'E730:') |
e649df212461
patch 8.1.0832: confirm() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
1536 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
|
1537 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
|
1538 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
|
1539 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
|
1540 |
772e72b046a3
patch 8.1.0846: not easy to recognize the system Vim runs on
Bram Moolenaar <Bram@vim.org>
parents:
15649
diff
changeset
|
1541 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
|
1542 " The system matches at most only one name. |
772e72b046a3
patch 8.1.0846: not easy to recognize the system Vim runs on
Bram Moolenaar <Bram@vim.org>
parents:
15649
diff
changeset
|
1543 let names = ['amiga', 'beos', 'bsd', 'hpux', 'linux', 'mac', 'qnx', 'sun', 'vms', 'win32', 'win32unix'] |
772e72b046a3
patch 8.1.0846: not easy to recognize the system Vim runs on
Bram Moolenaar <Bram@vim.org>
parents:
15649
diff
changeset
|
1544 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
|
1545 |
772e72b046a3
patch 8.1.0846: not easy to recognize the system Vim runs on
Bram Moolenaar <Bram@vim.org>
parents:
15649
diff
changeset
|
1546 " 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
|
1547 call assert_equal(has('beos'), has('beos') && 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
|
1548 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
|
1549 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
|
1550 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
|
1551 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
|
1552 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
|
1553 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
|
1554 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
|
1555 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
|
1556 |
772e72b046a3
patch 8.1.0846: not easy to recognize the system Vim runs on
Bram Moolenaar <Bram@vim.org>
parents:
15649
diff
changeset
|
1557 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
|
1558 let uname = system('uname') |
772e72b046a3
patch 8.1.0846: not easy to recognize the system Vim runs on
Bram Moolenaar <Bram@vim.org>
parents:
15649
diff
changeset
|
1559 call assert_equal(uname =~? 'BeOS', has('beos')) |
15742
916c13256877
patch 8.1.0878: test for has('bsd') fails on some BSD systems
Bram Moolenaar <Bram@vim.org>
parents:
15677
diff
changeset
|
1560 " 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
|
1561 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
|
1562 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
|
1563 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
|
1564 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
|
1565 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
|
1566 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
|
1567 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
|
1568 endif |
772e72b046a3
patch 8.1.0846: not easy to recognize the system Vim runs on
Bram Moolenaar <Bram@vim.org>
parents:
15649
diff
changeset
|
1569 endfunc |
16231
0761a4c111a7
patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents:
16180
diff
changeset
|
1570 |
0761a4c111a7
patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents:
16180
diff
changeset
|
1571 func Test_readdir() |
0761a4c111a7
patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents:
16180
diff
changeset
|
1572 call mkdir('Xdir') |
0761a4c111a7
patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents:
16180
diff
changeset
|
1573 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
|
1574 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
|
1575 call mkdir('Xdir/dir') |
0761a4c111a7
patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents:
16180
diff
changeset
|
1576 |
0761a4c111a7
patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents:
16180
diff
changeset
|
1577 " All results |
0761a4c111a7
patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents:
16180
diff
changeset
|
1578 let files = readdir('Xdir') |
0761a4c111a7
patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents:
16180
diff
changeset
|
1579 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
|
1580 |
0761a4c111a7
patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents:
16180
diff
changeset
|
1581 " Only results containing "f" |
17982
2029737e6a22
patch 8.1.1987: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents:
17976
diff
changeset
|
1582 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
|
1583 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
|
1584 |
0761a4c111a7
patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents:
16180
diff
changeset
|
1585 " Only .txt files |
0761a4c111a7
patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents:
16180
diff
changeset
|
1586 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
|
1587 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
|
1588 |
0761a4c111a7
patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents:
16180
diff
changeset
|
1589 " 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
|
1590 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
|
1591 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
|
1592 |
0761a4c111a7
patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents:
16180
diff
changeset
|
1593 " Limit to 1 result. |
0761a4c111a7
patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents:
16180
diff
changeset
|
1594 let l = [] |
0761a4c111a7
patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents:
16180
diff
changeset
|
1595 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
|
1596 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
|
1597 |
17944
745c02392844
patch 8.1.1968: crash when using nested map()
Bram Moolenaar <Bram@vim.org>
parents:
17930
diff
changeset
|
1598 " Nested readdir() must not crash |
745c02392844
patch 8.1.1968: crash when using nested map()
Bram Moolenaar <Bram@vim.org>
parents:
17930
diff
changeset
|
1599 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
|
1600 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
|
1601 |
17837
f71ee7b04f0b
patch 8.1.1915: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents:
17829
diff
changeset
|
1602 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
|
1603 endfunc |
16668
81be817c9d9a
patch 8.1.1336: some eval functionality is not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
16231
diff
changeset
|
1604 |
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
|
1605 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
|
1606 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
|
1607 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
|
1608 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
|
1609 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
|
1610 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
|
1611 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
|
1612 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
|
1613 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
|
1614 |
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
|
1615 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
|
1616 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
|
1617 call assert_false(filereadable('Xdir/[a-1]/foo.txt')) |
e2d8d83e6721
patch 8.1.1378: delete() can not handle a file name that looks like a pattern
Bram Moolenaar <Bram@vim.org>
parents:
16668
diff
changeset
|
1618 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
|
1619 |
16668
81be817c9d9a
patch 8.1.1336: some eval functionality is not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
16231
diff
changeset
|
1620 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
|
1621 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
|
1622 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
|
1623 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
|
1624 call assert_equal(0, call('', [])) |
81be817c9d9a
patch 8.1.1336: some eval functionality is not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
16231
diff
changeset
|
1625 |
81be817c9d9a
patch 8.1.1336: some eval functionality is not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
16231
diff
changeset
|
1626 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
|
1627 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
|
1628 endfunction |
81be817c9d9a
patch 8.1.1336: some eval functionality is not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
16231
diff
changeset
|
1629 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
|
1630 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
|
1631 call assert_fails("call call('Mylen', [], 0)", 'E715:') |
81be817c9d9a
patch 8.1.1336: some eval functionality is not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
16231
diff
changeset
|
1632 endfunc |
81be817c9d9a
patch 8.1.1336: some eval functionality is not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
16231
diff
changeset
|
1633 |
81be817c9d9a
patch 8.1.1336: some eval functionality is not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
16231
diff
changeset
|
1634 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
|
1635 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
|
1636 call assert_equal(120, 'x'->char2nr()) |
16668
81be817c9d9a
patch 8.1.1336: some eval functionality is not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
16231
diff
changeset
|
1637 endfunc |
81be817c9d9a
patch 8.1.1336: some eval functionality is not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
16231
diff
changeset
|
1638 |
81be817c9d9a
patch 8.1.1336: some eval functionality is not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
16231
diff
changeset
|
1639 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
|
1640 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
|
1641 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
|
1642 |
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
|
1643 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
|
1644 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
|
1645 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
|
1646 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
|
1647 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
|
1648 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
|
1649 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
|
1650 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
|
1651 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
|
1652 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
|
1653 |
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
|
1654 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
|
1655 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
|
1656 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
|
1657 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
|
1658 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
|
1659 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
|
1660 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
|
1661 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
|
1662 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
|
1663 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
|
1664 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
|
1665 |
17223
07bbe73b8e74
patch 8.1.1611: bufadd() reuses existing buffer without a name
Bram Moolenaar <Bram@vim.org>
parents:
17221
diff
changeset
|
1666 let buf1 = bufadd('') |
07bbe73b8e74
patch 8.1.1611: bufadd() reuses existing buffer without a name
Bram Moolenaar <Bram@vim.org>
parents:
17221
diff
changeset
|
1667 let buf2 = bufadd('') |
07bbe73b8e74
patch 8.1.1611: bufadd() reuses existing buffer without a name
Bram Moolenaar <Bram@vim.org>
parents:
17221
diff
changeset
|
1668 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
|
1669 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
|
1670 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
|
1671 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
|
1672 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
|
1673 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
|
1674 exe 'bwipe ' .. buf1 |
07bbe73b8e74
patch 8.1.1611: bufadd() reuses existing buffer without a name
Bram Moolenaar <Bram@vim.org>
parents:
17221
diff
changeset
|
1675 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
|
1676 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
|
1677 exe 'bwipe ' .. buf2 |
07bbe73b8e74
patch 8.1.1611: bufadd() reuses existing buffer without a name
Bram Moolenaar <Bram@vim.org>
parents:
17221
diff
changeset
|
1678 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
|
1679 |
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
|
1680 bwipe someName |
17278
b6de6181e5ab
patch 8.1.1638: running tests leaves some files behind
Bram Moolenaar <Bram@vim.org>
parents:
17223
diff
changeset
|
1681 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
|
1682 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
|
1683 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
|
1684 endfunc |
18143
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1685 |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1686 func Test_state() |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1687 CheckRunVimInTerminal |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1688 |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1689 let lines =<< trim END |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1690 call setline(1, ['one', 'two', 'three']) |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1691 map ;; gg |
18209
9a7bbad64376
patch 8.1.2099: state() test fails on some Mac systems
Bram Moolenaar <Bram@vim.org>
parents:
18143
diff
changeset
|
1692 set complete=. |
18143
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1693 func RunTimer() |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1694 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
|
1695 endfunc |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1696 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
|
1697 END |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1698 call writefile(lines, 'XState') |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1699 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
|
1700 |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1701 " 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
|
1702 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
|
1703 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
|
1704 call term_sendkeys(buf, ":\<CR>") |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1705 |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1706 " Using a timer callback |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1707 call term_sendkeys(buf, ":call RunTimer()\<CR>") |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1708 call term_wait(buf, 50) |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1709 let getstate = ":echo 'state: ' .. g:state .. '; mode: ' .. g:mode\<CR>" |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1710 call term_sendkeys(buf, getstate) |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1711 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
|
1712 |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1713 " Halfway a mapping |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1714 call term_sendkeys(buf, ":call RunTimer()\<CR>;") |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1715 call term_wait(buf, 50) |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1716 call term_sendkeys(buf, ";") |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1717 call term_sendkeys(buf, getstate) |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1718 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
|
1719 |
18209
9a7bbad64376
patch 8.1.2099: state() test fails on some Mac systems
Bram Moolenaar <Bram@vim.org>
parents:
18143
diff
changeset
|
1720 " 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
|
1721 call term_sendkeys(buf, ":call RunTimer()\<CR>Got\<C-N>") |
18209
9a7bbad64376
patch 8.1.2099: state() test fails on some Mac systems
Bram Moolenaar <Bram@vim.org>
parents:
18143
diff
changeset
|
1722 call term_wait(buf, 200) |
18143
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1723 call term_sendkeys(buf, "\<Esc>") |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1724 call term_sendkeys(buf, getstate) |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1725 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
|
1726 |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1727 " Autocommand executing |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1728 call term_sendkeys(buf, ":set filetype=foobar\<CR>") |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1729 call term_wait(buf, 50) |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1730 call term_sendkeys(buf, getstate) |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1731 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
|
1732 |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1733 " Todo: "w" - waiting for ch_evalexpr() |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1734 |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1735 " messages scrolled |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1736 call term_sendkeys(buf, ":call RunTimer()\<CR>:echo \"one\\ntwo\\nthree\"\<CR>") |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1737 call term_wait(buf, 50) |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1738 call term_sendkeys(buf, "\<CR>") |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1739 call term_sendkeys(buf, getstate) |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1740 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
|
1741 |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1742 call StopVimInTerminal(buf) |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1743 call delete('XState') |
2416e1a887ca
patch 8.1.2066: no tests for state()
Bram Moolenaar <Bram@vim.org>
parents:
18096
diff
changeset
|
1744 endfunc |