Mercurial > vim
annotate src/testdir/test_mapping.vim @ 22987:1456b8e4d489 v8.2.2040
patch 8.2.2040: terminal buffer disappears even when 'bufhidden' is "hide"
Commit: https://github.com/vim/vim/commit/c9f8b849b6de9661e543d0d1431e233725dd956f
Author: Bram Moolenaar <Bram@vim.org>
Date: Tue Nov 24 19:36:16 2020 +0100
patch 8.2.2040: terminal buffer disappears even when 'bufhidden' is "hide"
Problem: Terminal buffer disappears even when 'bufhidden' is "hide".
(Sergey Vlasov)
Solution: Check 'bufhiddden' when a terminal buffer becomes hidden.
(closes #7358)
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Tue, 24 Nov 2020 19:45:03 +0100 |
parents | 1fe53aae3ba0 |
children | b68313ee7002 |
rev | line source |
---|---|
9867
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
1 " Tests for mappings and abbreviations |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
2 |
15659
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
3 source shared.vim |
17657
0da9bc55c31a
patch 8.1.1826: tests use hand coded feature and option checks
Bram Moolenaar <Bram@vim.org>
parents:
17249
diff
changeset
|
4 source check.vim |
18689
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
5 source screendump.vim |
22862
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
6 source term_util.vim |
15659
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
7 |
9867
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
8 func Test_abbreviation() |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
9 " abbreviation with 0x80 should work |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
10 inoreab чкпр vim |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
11 call feedkeys("Goчкпр \<Esc>", "xt") |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
12 call assert_equal('vim ', getline('$')) |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
13 iunab чкпр |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
14 set nomodified |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
15 endfunc |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
16 |
16389
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
17 func Test_abclear() |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
18 abbrev foo foobar |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
19 iabbrev fooi foobari |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
20 cabbrev fooc foobarc |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
21 call assert_equal("\n\n" |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
22 \ .. "c fooc foobarc\n" |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
23 \ .. "i fooi foobari\n" |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
24 \ .. "! foo foobar", execute('abbrev')) |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
25 |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
26 iabclear |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
27 call assert_equal("\n\n" |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
28 \ .. "c fooc foobarc\n" |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
29 \ .. "c foo foobar", execute('abbrev')) |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
30 abbrev foo foobar |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
31 iabbrev fooi foobari |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
32 |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
33 cabclear |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
34 call assert_equal("\n\n" |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
35 \ .. "i fooi foobari\n" |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
36 \ .. "i foo foobar", execute('abbrev')) |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
37 abbrev foo foobar |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
38 cabbrev fooc foobarc |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
39 |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
40 abclear |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
41 call assert_equal("\n\nNo abbreviation found", execute('abbrev')) |
19407
2f4be7ca1b1b
patch 8.2.0261: some code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
19370
diff
changeset
|
42 call assert_fails('%abclear', 'E481:') |
16389
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
43 endfunc |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
44 |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
45 func Test_abclear_buffer() |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
46 abbrev foo foobar |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
47 new X1 |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
48 abbrev <buffer> foo1 foobar1 |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
49 new X2 |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
50 abbrev <buffer> foo2 foobar2 |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
51 |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
52 call assert_equal("\n\n" |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
53 \ .. "! foo2 @foobar2\n" |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
54 \ .. "! foo foobar", execute('abbrev')) |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
55 |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
56 abclear <buffer> |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
57 call assert_equal("\n\n" |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
58 \ .. "! foo foobar", execute('abbrev')) |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
59 |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
60 b X1 |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
61 call assert_equal("\n\n" |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
62 \ .. "! foo1 @foobar1\n" |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
63 \ .. "! foo foobar", execute('abbrev')) |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
64 abclear <buffer> |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
65 call assert_equal("\n\n" |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
66 \ .. "! foo foobar", execute('abbrev')) |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
67 |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
68 abclear |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
69 call assert_equal("\n\nNo abbreviation found", execute('abbrev')) |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
70 |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
71 %bwipe |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
72 endfunc |
fb7cf38a1c7a
patch 8.1.1199: no test for :abclear
Bram Moolenaar <Bram@vim.org>
parents:
16101
diff
changeset
|
73 |
9867
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
74 func Test_map_ctrl_c_insert() |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
75 " mapping of ctrl-c in Insert mode |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
76 set cpo-=< cpo-=k |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
77 inoremap <c-c> <ctrl-c> |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
78 cnoremap <c-c> dummy |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
79 cunmap <c-c> |
20627
8bce783af0cb
patch 8.2.0867: using {xxx} for encoding a modifier is not nice
Bram Moolenaar <Bram@vim.org>
parents:
20603
diff
changeset
|
80 call feedkeys("GoTEST2: CTRL-C |\<*C-C>A|\<Esc>", "xt") |
9867
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
81 call assert_equal('TEST2: CTRL-C |<ctrl-c>A|', getline('$')) |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
82 unmap! <c-c> |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
83 set nomodified |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
84 endfunc |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
85 |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
86 func Test_map_ctrl_c_visual() |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
87 " mapping of ctrl-c in Visual mode |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
88 vnoremap <c-c> :<C-u>$put ='vmap works' |
20627
8bce783af0cb
patch 8.2.0867: using {xxx} for encoding a modifier is not nice
Bram Moolenaar <Bram@vim.org>
parents:
20603
diff
changeset
|
89 call feedkeys("GV\<*C-C>\<CR>", "xt") |
9867
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
90 call assert_equal('vmap works', getline('$')) |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
91 vunmap <c-c> |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
92 set nomodified |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
93 endfunc |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
94 |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
95 func Test_map_langmap() |
21765
08940efa6b4e
patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents:
20627
diff
changeset
|
96 CheckFeature langmap |
9925
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
97 |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
98 " check langmap applies in normal mode |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
99 set langmap=+- nolangremap |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
100 new |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
101 call setline(1, ['a', 'b', 'c']) |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
102 2 |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
103 call assert_equal('b', getline('.')) |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
104 call feedkeys("+", "xt") |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
105 call assert_equal('a', getline('.')) |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
106 |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
107 " check no remapping |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
108 map x + |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
109 2 |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
110 call feedkeys("x", "xt") |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
111 call assert_equal('c', getline('.')) |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
112 |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
113 " check with remapping |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
114 set langremap |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
115 2 |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
116 call feedkeys("x", "xt") |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
117 call assert_equal('a', getline('.')) |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
118 |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
119 unmap x |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
120 bwipe! |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
121 |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
122 " 'langnoremap' follows 'langremap' and vise versa |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
123 set langremap |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
124 set langnoremap |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
125 call assert_equal(0, &langremap) |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
126 set langremap |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
127 call assert_equal(0, &langnoremap) |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
128 set nolangremap |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
129 call assert_equal(1, &langnoremap) |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
130 |
10070
09c7df6f8dd3
commit https://github.com/vim/vim/commit/da9ce2cde11ddd0e16cdfbab6d4ac4e8110218e1
Christian Brabandt <cb@256bit.org>
parents:
9925
diff
changeset
|
131 " check default values |
09c7df6f8dd3
commit https://github.com/vim/vim/commit/da9ce2cde11ddd0e16cdfbab6d4ac4e8110218e1
Christian Brabandt <cb@256bit.org>
parents:
9925
diff
changeset
|
132 set langnoremap& |
09c7df6f8dd3
commit https://github.com/vim/vim/commit/da9ce2cde11ddd0e16cdfbab6d4ac4e8110218e1
Christian Brabandt <cb@256bit.org>
parents:
9925
diff
changeset
|
133 call assert_equal(0, &langnoremap) |
09c7df6f8dd3
commit https://github.com/vim/vim/commit/da9ce2cde11ddd0e16cdfbab6d4ac4e8110218e1
Christian Brabandt <cb@256bit.org>
parents:
9925
diff
changeset
|
134 call assert_equal(1, &langremap) |
09c7df6f8dd3
commit https://github.com/vim/vim/commit/da9ce2cde11ddd0e16cdfbab6d4ac4e8110218e1
Christian Brabandt <cb@256bit.org>
parents:
9925
diff
changeset
|
135 set langremap& |
09c7df6f8dd3
commit https://github.com/vim/vim/commit/da9ce2cde11ddd0e16cdfbab6d4ac4e8110218e1
Christian Brabandt <cb@256bit.org>
parents:
9925
diff
changeset
|
136 call assert_equal(0, &langnoremap) |
09c7df6f8dd3
commit https://github.com/vim/vim/commit/da9ce2cde11ddd0e16cdfbab6d4ac4e8110218e1
Christian Brabandt <cb@256bit.org>
parents:
9925
diff
changeset
|
137 call assert_equal(1, &langremap) |
09c7df6f8dd3
commit https://github.com/vim/vim/commit/da9ce2cde11ddd0e16cdfbab6d4ac4e8110218e1
Christian Brabandt <cb@256bit.org>
parents:
9925
diff
changeset
|
138 |
9925
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
139 " langmap should not apply in insert mode, 'langremap' doesn't matter |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
140 set langmap=+{ nolangremap |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
141 call feedkeys("Go+\<Esc>", "xt") |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
142 call assert_equal('+', getline('$')) |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
143 set langmap=+{ langremap |
9867
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
144 call feedkeys("Go+\<Esc>", "xt") |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
145 call assert_equal('+', getline('$')) |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
146 |
9925
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
147 " langmap used for register name in insert mode. |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
148 call setreg('a', 'aaaa') |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
149 call setreg('b', 'bbbb') |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
150 call setreg('c', 'cccc') |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
151 set langmap=ab langremap |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
152 call feedkeys("Go\<C-R>a\<Esc>", "xt") |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
153 call assert_equal('bbbb', getline('$')) |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
154 call feedkeys("Go\<C-R>\<C-R>a\<Esc>", "xt") |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
155 call assert_equal('bbbb', getline('$')) |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
156 " mapping does not apply |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
157 imap c a |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
158 call feedkeys("Go\<C-R>c\<Esc>", "xt") |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
159 call assert_equal('cccc', getline('$')) |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
160 imap a c |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
161 call feedkeys("Go\<C-R>a\<Esc>", "xt") |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
162 call assert_equal('bbbb', getline('$')) |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
163 |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
164 " langmap should not apply in Command-line mode |
3fba3e8326a7
commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents:
9869
diff
changeset
|
165 set langmap=+{ nolangremap |
9867
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
166 call feedkeys(":call append(line('$'), '+')\<CR>", "xt") |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
167 call assert_equal('+', getline('$')) |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
168 |
10787
09926123316b
patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents:
10070
diff
changeset
|
169 iunmap a |
09926123316b
patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents:
10070
diff
changeset
|
170 iunmap c |
9867
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
171 set nomodified |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
172 endfunc |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
173 |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
174 func Test_map_feedkeys() |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
175 " issue #212 (feedkeys insert mapping at current position) |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
176 nnoremap . :call feedkeys(".", "in")<cr> |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
177 call setline('$', ['a b c d', 'a b c d']) |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
178 $-1 |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
179 call feedkeys("0qqdw.ifoo\<Esc>qj0@q\<Esc>", "xt") |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
180 call assert_equal(['fooc d', 'fooc d'], getline(line('$') - 1, line('$'))) |
10787
09926123316b
patch 8.0.0283: mode() does not indicate Insert mode completion
Christian Brabandt <cb@256bit.org>
parents:
10070
diff
changeset
|
181 nunmap . |
9867
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
182 set nomodified |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
183 endfunc |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
184 |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
185 func Test_map_cursor() |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
186 " <c-g>U<cursor> works only within a single line |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
187 imapclear |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
188 imap ( ()<c-g>U<left> |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
189 call feedkeys("G2o\<Esc>ki\<CR>Test1: text with a (here some more text\<Esc>k.", "xt") |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
190 call assert_equal('Test1: text with a (here some more text)', getline(line('$') - 2)) |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
191 call assert_equal('Test1: text with a (here some more text)', getline(line('$') - 1)) |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
192 |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
193 " test undo |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
194 call feedkeys("G2o\<Esc>ki\<CR>Test2: text wit a (here some more text [und undo]\<C-G>u\<Esc>k.u", "xt") |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
195 call assert_equal('', getline(line('$') - 2)) |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
196 call assert_equal('Test2: text wit a (here some more text [und undo])', getline(line('$') - 1)) |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
197 set nomodified |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
198 imapclear |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
199 endfunc |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
200 |
16101
5c5d211bd5a8
patch 8.1.1055: CTRL-G U in Insert mode doesn't work for shift-Left
Bram Moolenaar <Bram@vim.org>
parents:
15687
diff
changeset
|
201 func Test_map_cursor_ctrl_gU() |
5c5d211bd5a8
patch 8.1.1055: CTRL-G U in Insert mode doesn't work for shift-Left
Bram Moolenaar <Bram@vim.org>
parents:
15687
diff
changeset
|
202 " <c-g>U<cursor> works only within a single line |
5c5d211bd5a8
patch 8.1.1055: CTRL-G U in Insert mode doesn't work for shift-Left
Bram Moolenaar <Bram@vim.org>
parents:
15687
diff
changeset
|
203 nnoremap c<* *Ncgn<C-r>"<C-G>U<S-Left> |
5c5d211bd5a8
patch 8.1.1055: CTRL-G U in Insert mode doesn't work for shift-Left
Bram Moolenaar <Bram@vim.org>
parents:
15687
diff
changeset
|
204 call setline(1, ['foo', 'foobar', '', 'foo']) |
5c5d211bd5a8
patch 8.1.1055: CTRL-G U in Insert mode doesn't work for shift-Left
Bram Moolenaar <Bram@vim.org>
parents:
15687
diff
changeset
|
205 call cursor(1,2) |
5c5d211bd5a8
patch 8.1.1055: CTRL-G U in Insert mode doesn't work for shift-Left
Bram Moolenaar <Bram@vim.org>
parents:
15687
diff
changeset
|
206 call feedkeys("c<*PREFIX\<esc>.", 'xt') |
5c5d211bd5a8
patch 8.1.1055: CTRL-G U in Insert mode doesn't work for shift-Left
Bram Moolenaar <Bram@vim.org>
parents:
15687
diff
changeset
|
207 call assert_equal(['PREFIXfoo', 'foobar', '', 'PREFIXfoo'], getline(1,'$')) |
5c5d211bd5a8
patch 8.1.1055: CTRL-G U in Insert mode doesn't work for shift-Left
Bram Moolenaar <Bram@vim.org>
parents:
15687
diff
changeset
|
208 " break undo manually |
5c5d211bd5a8
patch 8.1.1055: CTRL-G U in Insert mode doesn't work for shift-Left
Bram Moolenaar <Bram@vim.org>
parents:
15687
diff
changeset
|
209 set ul=1000 |
5c5d211bd5a8
patch 8.1.1055: CTRL-G U in Insert mode doesn't work for shift-Left
Bram Moolenaar <Bram@vim.org>
parents:
15687
diff
changeset
|
210 exe ":norm! uu" |
5c5d211bd5a8
patch 8.1.1055: CTRL-G U in Insert mode doesn't work for shift-Left
Bram Moolenaar <Bram@vim.org>
parents:
15687
diff
changeset
|
211 call assert_equal(['foo', 'foobar', '', 'foo'], getline(1,'$')) |
5c5d211bd5a8
patch 8.1.1055: CTRL-G U in Insert mode doesn't work for shift-Left
Bram Moolenaar <Bram@vim.org>
parents:
15687
diff
changeset
|
212 |
5c5d211bd5a8
patch 8.1.1055: CTRL-G U in Insert mode doesn't work for shift-Left
Bram Moolenaar <Bram@vim.org>
parents:
15687
diff
changeset
|
213 " Test that it does not work if the cursor moves to the previous line |
5c5d211bd5a8
patch 8.1.1055: CTRL-G U in Insert mode doesn't work for shift-Left
Bram Moolenaar <Bram@vim.org>
parents:
15687
diff
changeset
|
214 " 2 times <S-Left> move to the previous line |
5c5d211bd5a8
patch 8.1.1055: CTRL-G U in Insert mode doesn't work for shift-Left
Bram Moolenaar <Bram@vim.org>
parents:
15687
diff
changeset
|
215 nnoremap c<* *Ncgn<C-r>"<C-G>U<S-Left><C-G>U<S-Left> |
5c5d211bd5a8
patch 8.1.1055: CTRL-G U in Insert mode doesn't work for shift-Left
Bram Moolenaar <Bram@vim.org>
parents:
15687
diff
changeset
|
216 call setline(1, ['', ' foo', 'foobar', '', 'foo']) |
5c5d211bd5a8
patch 8.1.1055: CTRL-G U in Insert mode doesn't work for shift-Left
Bram Moolenaar <Bram@vim.org>
parents:
15687
diff
changeset
|
217 call cursor(2,3) |
5c5d211bd5a8
patch 8.1.1055: CTRL-G U in Insert mode doesn't work for shift-Left
Bram Moolenaar <Bram@vim.org>
parents:
15687
diff
changeset
|
218 call feedkeys("c<*PREFIX\<esc>.", 'xt') |
5c5d211bd5a8
patch 8.1.1055: CTRL-G U in Insert mode doesn't work for shift-Left
Bram Moolenaar <Bram@vim.org>
parents:
15687
diff
changeset
|
219 call assert_equal(['PREFIXPREFIX', ' foo', 'foobar', '', 'foo'], getline(1,'$')) |
5c5d211bd5a8
patch 8.1.1055: CTRL-G U in Insert mode doesn't work for shift-Left
Bram Moolenaar <Bram@vim.org>
parents:
15687
diff
changeset
|
220 nmapclear |
5c5d211bd5a8
patch 8.1.1055: CTRL-G U in Insert mode doesn't work for shift-Left
Bram Moolenaar <Bram@vim.org>
parents:
15687
diff
changeset
|
221 endfunc |
5c5d211bd5a8
patch 8.1.1055: CTRL-G U in Insert mode doesn't work for shift-Left
Bram Moolenaar <Bram@vim.org>
parents:
15687
diff
changeset
|
222 |
5c5d211bd5a8
patch 8.1.1055: CTRL-G U in Insert mode doesn't work for shift-Left
Bram Moolenaar <Bram@vim.org>
parents:
15687
diff
changeset
|
223 |
9867
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
224 " This isn't actually testing a mapping, but similar use of CTRL-G U as above. |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
225 func Test_break_undo() |
16101
5c5d211bd5a8
patch 8.1.1055: CTRL-G U in Insert mode doesn't work for shift-Left
Bram Moolenaar <Bram@vim.org>
parents:
15687
diff
changeset
|
226 set whichwrap=<,>,[,] |
9867
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
227 call feedkeys("G4o2k", "xt") |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
228 exe ":norm! iTest3: text with a (parenthesis here\<C-G>U\<Right>new line here\<esc>\<up>\<up>." |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
229 call assert_equal('new line here', getline(line('$') - 3)) |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
230 call assert_equal('Test3: text with a (parenthesis here', getline(line('$') - 2)) |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
231 call assert_equal('new line here', getline(line('$') - 1)) |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
232 set nomodified |
86f73f026a9a
commit https://github.com/vim/vim/commit/2d1a248762f069e470acde389ff4686a45d2f817
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
233 endfunc |
9869
989d44d35a66
commit https://github.com/vim/vim/commit/35a4cfa200917dd171b1fff3cd5b6cee9add673d
Christian Brabandt <cb@256bit.org>
parents:
9867
diff
changeset
|
234 |
989d44d35a66
commit https://github.com/vim/vim/commit/35a4cfa200917dd171b1fff3cd5b6cee9add673d
Christian Brabandt <cb@256bit.org>
parents:
9867
diff
changeset
|
235 func Test_map_meta_quotes() |
989d44d35a66
commit https://github.com/vim/vim/commit/35a4cfa200917dd171b1fff3cd5b6cee9add673d
Christian Brabandt <cb@256bit.org>
parents:
9867
diff
changeset
|
236 imap <M-"> foo |
20627
8bce783af0cb
patch 8.2.0867: using {xxx} for encoding a modifier is not nice
Bram Moolenaar <Bram@vim.org>
parents:
20603
diff
changeset
|
237 call feedkeys("Go-\<*M-\">-\<Esc>", "xt") |
9869
989d44d35a66
commit https://github.com/vim/vim/commit/35a4cfa200917dd171b1fff3cd5b6cee9add673d
Christian Brabandt <cb@256bit.org>
parents:
9867
diff
changeset
|
238 call assert_equal("-foo-", getline('$')) |
989d44d35a66
commit https://github.com/vim/vim/commit/35a4cfa200917dd171b1fff3cd5b6cee9add673d
Christian Brabandt <cb@256bit.org>
parents:
9867
diff
changeset
|
239 set nomodified |
989d44d35a66
commit https://github.com/vim/vim/commit/35a4cfa200917dd171b1fff3cd5b6cee9add673d
Christian Brabandt <cb@256bit.org>
parents:
9867
diff
changeset
|
240 iunmap <M-"> |
989d44d35a66
commit https://github.com/vim/vim/commit/35a4cfa200917dd171b1fff3cd5b6cee9add673d
Christian Brabandt <cb@256bit.org>
parents:
9867
diff
changeset
|
241 endfunc |
11295
d772bf077b3f
patch 8.0.0533: abbreviation doesn't work after backspacing newline
Christian Brabandt <cb@256bit.org>
parents:
10787
diff
changeset
|
242 |
17720
844f470532b6
patch 8.1.1857: cannot use modifier with multi-byte character
Bram Moolenaar <Bram@vim.org>
parents:
17657
diff
changeset
|
243 func Test_map_meta_multibyte() |
844f470532b6
patch 8.1.1857: cannot use modifier with multi-byte character
Bram Moolenaar <Bram@vim.org>
parents:
17657
diff
changeset
|
244 imap <M-á> foo |
17722
bf807c68ac80
patch 8.1.1858: test for multi-byte mapping fails on some systems
Bram Moolenaar <Bram@vim.org>
parents:
17720
diff
changeset
|
245 call assert_match('i <M-á>\s*foo', execute('imap')) |
17720
844f470532b6
patch 8.1.1857: cannot use modifier with multi-byte character
Bram Moolenaar <Bram@vim.org>
parents:
17657
diff
changeset
|
246 iunmap <M-á> |
844f470532b6
patch 8.1.1857: cannot use modifier with multi-byte character
Bram Moolenaar <Bram@vim.org>
parents:
17657
diff
changeset
|
247 endfunc |
844f470532b6
patch 8.1.1857: cannot use modifier with multi-byte character
Bram Moolenaar <Bram@vim.org>
parents:
17657
diff
changeset
|
248 |
11295
d772bf077b3f
patch 8.0.0533: abbreviation doesn't work after backspacing newline
Christian Brabandt <cb@256bit.org>
parents:
10787
diff
changeset
|
249 func Test_abbr_after_line_join() |
d772bf077b3f
patch 8.0.0533: abbreviation doesn't work after backspacing newline
Christian Brabandt <cb@256bit.org>
parents:
10787
diff
changeset
|
250 new |
d772bf077b3f
patch 8.0.0533: abbreviation doesn't work after backspacing newline
Christian Brabandt <cb@256bit.org>
parents:
10787
diff
changeset
|
251 abbr foo bar |
d772bf077b3f
patch 8.0.0533: abbreviation doesn't work after backspacing newline
Christian Brabandt <cb@256bit.org>
parents:
10787
diff
changeset
|
252 set backspace=indent,eol,start |
d772bf077b3f
patch 8.0.0533: abbreviation doesn't work after backspacing newline
Christian Brabandt <cb@256bit.org>
parents:
10787
diff
changeset
|
253 exe "normal o\<BS>foo " |
d772bf077b3f
patch 8.0.0533: abbreviation doesn't work after backspacing newline
Christian Brabandt <cb@256bit.org>
parents:
10787
diff
changeset
|
254 call assert_equal("bar ", getline(1)) |
d772bf077b3f
patch 8.0.0533: abbreviation doesn't work after backspacing newline
Christian Brabandt <cb@256bit.org>
parents:
10787
diff
changeset
|
255 bwipe! |
d772bf077b3f
patch 8.0.0533: abbreviation doesn't work after backspacing newline
Christian Brabandt <cb@256bit.org>
parents:
10787
diff
changeset
|
256 unabbr foo |
d772bf077b3f
patch 8.0.0533: abbreviation doesn't work after backspacing newline
Christian Brabandt <cb@256bit.org>
parents:
10787
diff
changeset
|
257 set backspace& |
d772bf077b3f
patch 8.0.0533: abbreviation doesn't work after backspacing newline
Christian Brabandt <cb@256bit.org>
parents:
10787
diff
changeset
|
258 endfunc |
11403
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
259 |
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
260 func Test_map_timeout() |
21765
08940efa6b4e
patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents:
20627
diff
changeset
|
261 CheckFeature timers |
11403
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
262 nnoremap aaaa :let got_aaaa = 1<CR> |
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
263 nnoremap bb :let got_bb = 1<CR> |
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
264 nmap b aaa |
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
265 new |
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
266 func ExitInsert(timer) |
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
267 let g:line = getline(1) |
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
268 call feedkeys("\<Esc>", "t") |
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
269 endfunc |
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
270 set timeout timeoutlen=200 |
15659
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
271 let timer = timer_start(300, 'ExitInsert') |
11403
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
272 " After the 'b' Vim waits for another character to see if it matches 'bb'. |
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
273 " When it times out it is expanded to "aaa", but there is no wait for |
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
274 " "aaaa". Can't check that reliably though. |
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
275 call feedkeys("b", "xt!") |
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
276 call assert_equal("aa", g:line) |
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
277 call assert_false(exists('got_aaa')) |
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
278 call assert_false(exists('got_bb')) |
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
279 |
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
280 bwipe! |
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
281 nunmap aaaa |
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
282 nunmap bb |
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
283 nunmap b |
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
284 set timeoutlen& |
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
285 delfunc ExitInsert |
15659
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
286 call timer_stop(timer) |
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
287 endfunc |
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
288 |
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
289 func Test_map_timeout_with_timer_interrupt() |
21765
08940efa6b4e
patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents:
20627
diff
changeset
|
290 CheckFeature job |
08940efa6b4e
patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents:
20627
diff
changeset
|
291 CheckFeature timers |
15659
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
292 |
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
293 " Confirm the timer invoked in exit_cb of the job doesn't disturb mapped key |
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
294 " sequence. |
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
295 new |
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
296 let g:val = 0 |
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
297 nnoremap \12 :let g:val = 1<CR> |
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
298 nnoremap \123 :let g:val = 2<CR> |
17726
586558396b7e
patch 8.1.1860: map timeout test is flaky
Bram Moolenaar <Bram@vim.org>
parents:
17722
diff
changeset
|
299 set timeout timeoutlen=200 |
15659
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
300 |
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
301 func ExitCb(job, status) |
15687
cb501b3c9fb5
patch 8.1.0851: feedkeys() with "L" does not work properly
Bram Moolenaar <Bram@vim.org>
parents:
15659
diff
changeset
|
302 let g:timer = timer_start(1, {-> feedkeys("3\<Esc>", 't')}) |
15659
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
303 endfunc |
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
304 |
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
305 call job_start([&shell, &shellcmdflag, 'echo'], {'exit_cb': 'ExitCb'}) |
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
306 call feedkeys('\12', 'xt!') |
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
307 call assert_equal(2, g:val) |
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
308 |
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
309 bwipe! |
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
310 nunmap \12 |
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
311 nunmap \123 |
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
312 set timeoutlen& |
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
313 call WaitFor({-> exists('g:timer')}) |
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
314 call timer_stop(g:timer) |
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
315 unlet g:timer |
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
316 unlet g:val |
8513d9864f7e
patch 8.1.0837: timer interrupting cursorhold and mapping not tested
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
317 delfunc ExitCb |
11403
74a40efb39ea
patch 8.0.0586: no test for mapping timing out
Christian Brabandt <cb@256bit.org>
parents:
11295
diff
changeset
|
318 endfunc |
13788
a27d380b257f
patch 8.0.1766: expanding abbreviation doesn't work
Christian Brabandt <cb@256bit.org>
parents:
11403
diff
changeset
|
319 |
a27d380b257f
patch 8.0.1766: expanding abbreviation doesn't work
Christian Brabandt <cb@256bit.org>
parents:
11403
diff
changeset
|
320 func Test_abbreviation_CR() |
a27d380b257f
patch 8.0.1766: expanding abbreviation doesn't work
Christian Brabandt <cb@256bit.org>
parents:
11403
diff
changeset
|
321 new |
a27d380b257f
patch 8.0.1766: expanding abbreviation doesn't work
Christian Brabandt <cb@256bit.org>
parents:
11403
diff
changeset
|
322 func Eatchar(pat) |
a27d380b257f
patch 8.0.1766: expanding abbreviation doesn't work
Christian Brabandt <cb@256bit.org>
parents:
11403
diff
changeset
|
323 let c = nr2char(getchar(0)) |
a27d380b257f
patch 8.0.1766: expanding abbreviation doesn't work
Christian Brabandt <cb@256bit.org>
parents:
11403
diff
changeset
|
324 return (c =~ a:pat) ? '' : c |
a27d380b257f
patch 8.0.1766: expanding abbreviation doesn't work
Christian Brabandt <cb@256bit.org>
parents:
11403
diff
changeset
|
325 endfunc |
a27d380b257f
patch 8.0.1766: expanding abbreviation doesn't work
Christian Brabandt <cb@256bit.org>
parents:
11403
diff
changeset
|
326 iabbrev <buffer><silent> ~~7 <c-r>=repeat('~', 7)<CR><c-r>=Eatchar('\s')<cr> |
a27d380b257f
patch 8.0.1766: expanding abbreviation doesn't work
Christian Brabandt <cb@256bit.org>
parents:
11403
diff
changeset
|
327 call feedkeys("GA~~7 \<esc>", 'xt') |
a27d380b257f
patch 8.0.1766: expanding abbreviation doesn't work
Christian Brabandt <cb@256bit.org>
parents:
11403
diff
changeset
|
328 call assert_equal('~~~~~~~', getline('$')) |
a27d380b257f
patch 8.0.1766: expanding abbreviation doesn't work
Christian Brabandt <cb@256bit.org>
parents:
11403
diff
changeset
|
329 %d |
a27d380b257f
patch 8.0.1766: expanding abbreviation doesn't work
Christian Brabandt <cb@256bit.org>
parents:
11403
diff
changeset
|
330 call feedkeys("GA~~7\<cr>\<esc>", 'xt') |
a27d380b257f
patch 8.0.1766: expanding abbreviation doesn't work
Christian Brabandt <cb@256bit.org>
parents:
11403
diff
changeset
|
331 call assert_equal(['~~~~~~~', ''], getline(1,'$')) |
a27d380b257f
patch 8.0.1766: expanding abbreviation doesn't work
Christian Brabandt <cb@256bit.org>
parents:
11403
diff
changeset
|
332 delfunc Eatchar |
a27d380b257f
patch 8.0.1766: expanding abbreviation doesn't work
Christian Brabandt <cb@256bit.org>
parents:
11403
diff
changeset
|
333 bw! |
a27d380b257f
patch 8.0.1766: expanding abbreviation doesn't work
Christian Brabandt <cb@256bit.org>
parents:
11403
diff
changeset
|
334 endfunc |
13933
bea665293ea0
patch 8.0.1837: one character cmdline abbreviation not triggered after '<,'>
Christian Brabandt <cb@256bit.org>
parents:
13788
diff
changeset
|
335 |
bea665293ea0
patch 8.0.1837: one character cmdline abbreviation not triggered after '<,'>
Christian Brabandt <cb@256bit.org>
parents:
13788
diff
changeset
|
336 func Test_cabbr_visual_mode() |
bea665293ea0
patch 8.0.1837: one character cmdline abbreviation not triggered after '<,'>
Christian Brabandt <cb@256bit.org>
parents:
13788
diff
changeset
|
337 cabbr s su |
bea665293ea0
patch 8.0.1837: one character cmdline abbreviation not triggered after '<,'>
Christian Brabandt <cb@256bit.org>
parents:
13788
diff
changeset
|
338 call feedkeys(":s \<c-B>\"\<CR>", 'itx') |
bea665293ea0
patch 8.0.1837: one character cmdline abbreviation not triggered after '<,'>
Christian Brabandt <cb@256bit.org>
parents:
13788
diff
changeset
|
339 call assert_equal('"su ', getreg(':')) |
bea665293ea0
patch 8.0.1837: one character cmdline abbreviation not triggered after '<,'>
Christian Brabandt <cb@256bit.org>
parents:
13788
diff
changeset
|
340 call feedkeys(":'<,'>s \<c-B>\"\<CR>", 'itx') |
bea665293ea0
patch 8.0.1837: one character cmdline abbreviation not triggered after '<,'>
Christian Brabandt <cb@256bit.org>
parents:
13788
diff
changeset
|
341 let expected = '"'. "'<,'>su " |
bea665293ea0
patch 8.0.1837: one character cmdline abbreviation not triggered after '<,'>
Christian Brabandt <cb@256bit.org>
parents:
13788
diff
changeset
|
342 call assert_equal(expected, getreg(':')) |
bea665293ea0
patch 8.0.1837: one character cmdline abbreviation not triggered after '<,'>
Christian Brabandt <cb@256bit.org>
parents:
13788
diff
changeset
|
343 call feedkeys(": '<,'>s \<c-B>\"\<CR>", 'itx') |
bea665293ea0
patch 8.0.1837: one character cmdline abbreviation not triggered after '<,'>
Christian Brabandt <cb@256bit.org>
parents:
13788
diff
changeset
|
344 let expected = '" '. "'<,'>su " |
bea665293ea0
patch 8.0.1837: one character cmdline abbreviation not triggered after '<,'>
Christian Brabandt <cb@256bit.org>
parents:
13788
diff
changeset
|
345 call assert_equal(expected, getreg(':')) |
bea665293ea0
patch 8.0.1837: one character cmdline abbreviation not triggered after '<,'>
Christian Brabandt <cb@256bit.org>
parents:
13788
diff
changeset
|
346 call feedkeys(":'a,'bs \<c-B>\"\<CR>", 'itx') |
bea665293ea0
patch 8.0.1837: one character cmdline abbreviation not triggered after '<,'>
Christian Brabandt <cb@256bit.org>
parents:
13788
diff
changeset
|
347 let expected = '"'. "'a,'bsu " |
bea665293ea0
patch 8.0.1837: one character cmdline abbreviation not triggered after '<,'>
Christian Brabandt <cb@256bit.org>
parents:
13788
diff
changeset
|
348 call assert_equal(expected, getreg(':')) |
bea665293ea0
patch 8.0.1837: one character cmdline abbreviation not triggered after '<,'>
Christian Brabandt <cb@256bit.org>
parents:
13788
diff
changeset
|
349 cunabbr s |
bea665293ea0
patch 8.0.1837: one character cmdline abbreviation not triggered after '<,'>
Christian Brabandt <cb@256bit.org>
parents:
13788
diff
changeset
|
350 endfunc |
15279
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
351 |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
352 func Test_motionforce_omap() |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
353 func GetCommand() |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
354 let g:m=mode(1) |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
355 let [g:lnum1, g:col1] = searchpos('-', 'Wb') |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
356 if g:lnum1 == 0 |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
357 return "\<Esc>" |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
358 endif |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
359 let [g:lnum2, g:col2] = searchpos('-', 'W') |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
360 if g:lnum2 == 0 |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
361 return "\<Esc>" |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
362 endif |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
363 return ":call Select()\<CR>" |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
364 endfunc |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
365 func Select() |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
366 call cursor([g:lnum1, g:col1]) |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
367 exe "normal! 1 ". (strlen(g:m) == 2 ? 'v' : g:m[2]) |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
368 call cursor([g:lnum2, g:col2]) |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
369 execute "normal! \<BS>" |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
370 endfunc |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
371 new |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
372 onoremap <buffer><expr> i- GetCommand() |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
373 " 1) default omap mapping |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
374 %d_ |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
375 call setline(1, ['aaa - bbb', 'x', 'ddd - eee']) |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
376 call cursor(2, 1) |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
377 norm di- |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
378 call assert_equal('no', g:m) |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
379 call assert_equal(['aaa -- eee'], getline(1, '$')) |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
380 " 2) forced characterwise operation |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
381 %d_ |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
382 call setline(1, ['aaa - bbb', 'x', 'ddd - eee']) |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
383 call cursor(2, 1) |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
384 norm dvi- |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
385 call assert_equal('nov', g:m) |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
386 call assert_equal(['aaa -- eee'], getline(1, '$')) |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
387 " 3) forced linewise operation |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
388 %d_ |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
389 call setline(1, ['aaa - bbb', 'x', 'ddd - eee']) |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
390 call cursor(2, 1) |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
391 norm dVi- |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
392 call assert_equal('noV', g:m) |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
393 call assert_equal([''], getline(1, '$')) |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
394 " 4) forced blockwise operation |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
395 %d_ |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
396 call setline(1, ['aaa - bbb', 'x', 'ddd - eee']) |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
397 call cursor(2, 1) |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
398 exe "norm d\<C-V>i-" |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
399 call assert_equal("no\<C-V>", g:m) |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
400 call assert_equal(['aaabbb', 'x', 'dddeee'], getline(1, '$')) |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
401 bwipe! |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
402 delfunc Select |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
403 delfunc GetCommand |
54457fc4af0b
patch 8.1.0648: custom operators can't act upon a forced motion
Bram Moolenaar <Bram@vim.org>
parents:
13933
diff
changeset
|
404 endfunc |
17184
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
405 |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
406 func Test_error_in_map_expr() |
17657
0da9bc55c31a
patch 8.1.1826: tests use hand coded feature and option checks
Bram Moolenaar <Bram@vim.org>
parents:
17249
diff
changeset
|
407 " Unlike CheckRunVimInTerminal this does work in a win32 console |
0da9bc55c31a
patch 8.1.1826: tests use hand coded feature and option checks
Bram Moolenaar <Bram@vim.org>
parents:
17249
diff
changeset
|
408 CheckFeature terminal |
0da9bc55c31a
patch 8.1.1826: tests use hand coded feature and option checks
Bram Moolenaar <Bram@vim.org>
parents:
17249
diff
changeset
|
409 if has('win32') && has('gui_running') |
17184
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
410 throw 'Skipped: cannot run Vim in a terminal window' |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
411 endif |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
412 |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
413 let lines =<< trim [CODE] |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
414 func Func() |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
415 " fail to create list |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
416 let x = [ |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
417 endfunc |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
418 nmap <expr> ! Func() |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
419 set updatetime=50 |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
420 [CODE] |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
421 call writefile(lines, 'Xtest.vim') |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
422 |
17249
3e2e998ce0db
patch 8.1.1624: when testing in the GUI may try to run gvim in a terminal
Bram Moolenaar <Bram@vim.org>
parents:
17239
diff
changeset
|
423 let buf = term_start(GetVimCommandCleanTerm() .. ' -S Xtest.vim', {'term_rows': 8}) |
17184
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
424 let job = term_getjob(buf) |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
425 call WaitForAssert({-> assert_notequal('', term_getline(buf, 8))}) |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
426 |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
427 " GC must not run during map-expr processing, which can make Vim crash. |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
428 call term_sendkeys(buf, '!') |
19954
c087099e9163
patch 8.2.0533: tests using term_wait() can still be flaky
Bram Moolenaar <Bram@vim.org>
parents:
19407
diff
changeset
|
429 call TermWait(buf, 50) |
17184
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
430 call term_sendkeys(buf, "\<CR>") |
19954
c087099e9163
patch 8.2.0533: tests using term_wait() can still be flaky
Bram Moolenaar <Bram@vim.org>
parents:
19407
diff
changeset
|
431 call TermWait(buf, 50) |
17184
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
432 call assert_equal('run', job_status(job)) |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
433 |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
434 call term_sendkeys(buf, ":qall!\<CR>") |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
435 call WaitFor({-> job_status(job) ==# 'dead'}) |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
436 if has('unix') |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
437 call assert_equal('', job_info(job).termsig) |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
438 endif |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
439 |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
440 call delete('Xtest.vim') |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
441 exe buf .. 'bwipe!' |
a5c3d374e1d3
patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents:
16389
diff
changeset
|
442 endfunc |
18329
1784afa654c8
patch 8.1.2159: some mappings are listed twice
Bram Moolenaar <Bram@vim.org>
parents:
17726
diff
changeset
|
443 |
1784afa654c8
patch 8.1.2159: some mappings are listed twice
Bram Moolenaar <Bram@vim.org>
parents:
17726
diff
changeset
|
444 func Test_list_mappings() |
18346
5b12fd0c39c3
patch 8.1.2167: mapping test fails on MS-Windows
Bram Moolenaar <Bram@vim.org>
parents:
18341
diff
changeset
|
445 " Remove default mappings |
5b12fd0c39c3
patch 8.1.2167: mapping test fails on MS-Windows
Bram Moolenaar <Bram@vim.org>
parents:
18341
diff
changeset
|
446 imapclear |
18341
a9d518b1271b
patch 8.1.2165: mapping test fails on Mac
Bram Moolenaar <Bram@vim.org>
parents:
18329
diff
changeset
|
447 |
18329
1784afa654c8
patch 8.1.2159: some mappings are listed twice
Bram Moolenaar <Bram@vim.org>
parents:
17726
diff
changeset
|
448 inoremap <C-M> CtrlM |
1784afa654c8
patch 8.1.2159: some mappings are listed twice
Bram Moolenaar <Bram@vim.org>
parents:
17726
diff
changeset
|
449 inoremap <A-S> AltS |
1784afa654c8
patch 8.1.2159: some mappings are listed twice
Bram Moolenaar <Bram@vim.org>
parents:
17726
diff
changeset
|
450 inoremap <S-/> ShiftSlash |
1784afa654c8
patch 8.1.2159: some mappings are listed twice
Bram Moolenaar <Bram@vim.org>
parents:
17726
diff
changeset
|
451 call assert_equal([ |
1784afa654c8
patch 8.1.2159: some mappings are listed twice
Bram Moolenaar <Bram@vim.org>
parents:
17726
diff
changeset
|
452 \ 'i <S-/> * ShiftSlash', |
1784afa654c8
patch 8.1.2159: some mappings are listed twice
Bram Moolenaar <Bram@vim.org>
parents:
17726
diff
changeset
|
453 \ 'i <M-S> * AltS', |
1784afa654c8
patch 8.1.2159: some mappings are listed twice
Bram Moolenaar <Bram@vim.org>
parents:
17726
diff
changeset
|
454 \ 'i <C-M> * CtrlM', |
1784afa654c8
patch 8.1.2159: some mappings are listed twice
Bram Moolenaar <Bram@vim.org>
parents:
17726
diff
changeset
|
455 \], execute('imap')->trim()->split("\n")) |
1784afa654c8
patch 8.1.2159: some mappings are listed twice
Bram Moolenaar <Bram@vim.org>
parents:
17726
diff
changeset
|
456 iunmap <C-M> |
1784afa654c8
patch 8.1.2159: some mappings are listed twice
Bram Moolenaar <Bram@vim.org>
parents:
17726
diff
changeset
|
457 iunmap <A-S> |
1784afa654c8
patch 8.1.2159: some mappings are listed twice
Bram Moolenaar <Bram@vim.org>
parents:
17726
diff
changeset
|
458 call assert_equal(['i <S-/> * ShiftSlash'], execute('imap')->trim()->split("\n")) |
1784afa654c8
patch 8.1.2159: some mappings are listed twice
Bram Moolenaar <Bram@vim.org>
parents:
17726
diff
changeset
|
459 iunmap <S-/> |
1784afa654c8
patch 8.1.2159: some mappings are listed twice
Bram Moolenaar <Bram@vim.org>
parents:
17726
diff
changeset
|
460 call assert_equal(['No mapping found'], execute('imap')->trim()->split("\n")) |
19170
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
461 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
462 " List global, buffer local and script local mappings |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
463 nmap ,f /^\k\+ (<CR> |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
464 nmap <buffer> ,f /^\k\+ (<CR> |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
465 nmap <script> ,fs /^\k\+ (<CR> |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
466 call assert_equal(['n ,f @/^\k\+ (<CR>', |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
467 \ 'n ,fs & /^\k\+ (<CR>', |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
468 \ 'n ,f /^\k\+ (<CR>'], |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
469 \ execute('nmap ,f')->trim()->split("\n")) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
470 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
471 " List <Nop> mapping |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
472 nmap ,n <Nop> |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
473 call assert_equal(['n ,n <Nop>'], |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
474 \ execute('nmap ,n')->trim()->split("\n")) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
475 |
19178
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
476 " verbose map |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
477 call assert_match("\tLast set from .*/test_mapping.vim line \\d\\+$", |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
478 \ execute('verbose map ,n')->trim()->split("\n")[1]) |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
479 |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
480 " map to CTRL-V |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
481 exe "nmap ,k \<C-V>" |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
482 call assert_equal(['n ,k <Nop>'], |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
483 \ execute('nmap ,k')->trim()->split("\n")) |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
484 |
19170
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
485 nmapclear |
18329
1784afa654c8
patch 8.1.2159: some mappings are listed twice
Bram Moolenaar <Bram@vim.org>
parents:
17726
diff
changeset
|
486 endfunc |
18689
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
487 |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
488 func Test_expr_map_restore_cursor() |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
489 CheckScreendump |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
490 |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
491 let lines =<< trim END |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
492 call setline(1, ['one', 'two', 'three']) |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
493 2 |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
494 set ls=2 |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
495 hi! link StatusLine ErrorMsg |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
496 noremap <expr> <C-B> Func() |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
497 func Func() |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
498 let g:on = !get(g:, 'on', 0) |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
499 redraws |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
500 return '' |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
501 endfunc |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
502 func Status() |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
503 return get(g:, 'on', 0) ? '[on]' : '' |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
504 endfunc |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
505 set stl=%{Status()} |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
506 END |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
507 call writefile(lines, 'XtestExprMap') |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
508 let buf = RunVimInTerminal('-S XtestExprMap', #{rows: 10}) |
19954
c087099e9163
patch 8.2.0533: tests using term_wait() can still be flaky
Bram Moolenaar <Bram@vim.org>
parents:
19407
diff
changeset
|
509 call TermWait(buf) |
18689
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
510 call term_sendkeys(buf, "\<C-B>") |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
511 call VerifyScreenDump(buf, 'Test_map_expr_1', {}) |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
512 |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
513 " clean up |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
514 call StopVimInTerminal(buf) |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
515 call delete('XtestExprMap') |
8cc12c8d7842
patch 8.1.2336: when an expr mapping moves the cursor it is not restored
Bram Moolenaar <Bram@vim.org>
parents:
18346
diff
changeset
|
516 endfunc |
19149
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
517 |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
518 " Test for mapping errors |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
519 func Test_map_error() |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
520 call assert_fails('unmap', 'E474:') |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
521 call assert_fails("exe 'map ' .. repeat('a', 51) .. ' :ls'", 'E474:') |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
522 call assert_fails('unmap abc', 'E31:') |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
523 call assert_fails('unabbr abc', 'E24:') |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
524 call assert_equal('', maparg('')) |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
525 call assert_fails('echo maparg("abc", [])', 'E730:') |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
526 |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
527 " unique map |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
528 map ,w /[#&!]<CR> |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
529 call assert_fails("map <unique> ,w /[#&!]<CR>", 'E227:') |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
530 " unique buffer-local map |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
531 call assert_fails("map <buffer> <unique> ,w /[.,;]<CR>", 'E225:') |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
532 unmap ,w |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
533 |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
534 " unique abbreviation |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
535 abbr SP special |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
536 call assert_fails("abbr <unique> SP special", 'E226:') |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
537 " unique buffer-local map |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
538 call assert_fails("abbr <buffer> <unique> SP special", 'E224:') |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
539 unabbr SP |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
540 |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
541 call assert_fails('mapclear abc', 'E474:') |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
542 call assert_fails('abclear abc', 'E474:') |
19170
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
543 call assert_fails('abbr $xyz abc', 'E474:') |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
544 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
545 " space character in an abbreviation |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
546 call assert_fails('abbr ab<space> ABC', 'E474:') |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
547 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
548 " invalid <expr> map |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
549 map <expr> ,f abc |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
550 call assert_fails('normal ,f', 'E121:') |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
551 unmap <expr> ,f |
19370
02111977dd05
patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents:
19178
diff
changeset
|
552 |
02111977dd05
patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents:
19178
diff
changeset
|
553 " Recursive use of :normal in a map |
02111977dd05
patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents:
19178
diff
changeset
|
554 set maxmapdepth=100 |
02111977dd05
patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents:
19178
diff
changeset
|
555 map gq :normal gq<CR> |
02111977dd05
patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents:
19178
diff
changeset
|
556 call assert_fails('normal gq', 'E192:') |
02111977dd05
patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents:
19178
diff
changeset
|
557 unmap gq |
02111977dd05
patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents:
19178
diff
changeset
|
558 set maxmapdepth& |
19149
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
559 endfunc |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
560 |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
561 " Test for <special> key mapping |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
562 func Test_map_special() |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
563 new |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
564 let old_cpo = &cpo |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
565 set cpo+=< |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
566 imap <F12> Blue |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
567 call feedkeys("i\<F12>", "x") |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
568 call assert_equal("<F12>", getline(1)) |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
569 call feedkeys("ddi<F12>", "x") |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
570 call assert_equal("Blue", getline(1)) |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
571 iunmap <F12> |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
572 imap <special> <F12> Green |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
573 call feedkeys("ddi\<F12>", "x") |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
574 call assert_equal("Green", getline(1)) |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
575 call feedkeys("ddi<F12>", "x") |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
576 call assert_equal("<F12>", getline(1)) |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
577 iunmap <special> <F12> |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
578 let &cpo = old_cpo |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
579 %bwipe! |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
580 endfunc |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
581 |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
582 " Test for hasmapto() |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
583 func Test_hasmapto() |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
584 call assert_equal(0, hasmapto('/^\k\+ (')) |
19170
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
585 map ,f /^\k\+ (<CR> |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
586 call assert_equal(1, hasmapto('/^\k\+ (')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
587 unmap ,f |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
588 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
589 " Insert mode mapping |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
590 call assert_equal(0, hasmapto('/^\k\+ (', 'i')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
591 imap ,f /^\k\+ (<CR> |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
592 call assert_equal(1, hasmapto('/^\k\+ (', 'i')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
593 iunmap ,f |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
594 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
595 " Normal mode mapping |
19149
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
596 call assert_equal(0, hasmapto('/^\k\+ (', 'n')) |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
597 nmap ,f /^\k\+ (<CR> |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
598 call assert_equal(1, hasmapto('/^\k\+ (')) |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
599 call assert_equal(1, hasmapto('/^\k\+ (', 'n')) |
19170
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
600 nunmap ,f |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
601 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
602 " Visual and Select mode mapping |
19149
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
603 call assert_equal(0, hasmapto('/^\k\+ (', 'v')) |
19170
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
604 call assert_equal(0, hasmapto('/^\k\+ (', 'x')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
605 call assert_equal(0, hasmapto('/^\k\+ (', 's')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
606 vmap ,f /^\k\+ (<CR> |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
607 call assert_equal(1, hasmapto('/^\k\+ (', 'v')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
608 call assert_equal(1, hasmapto('/^\k\+ (', 'x')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
609 call assert_equal(1, hasmapto('/^\k\+ (', 's')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
610 vunmap ,f |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
611 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
612 " Visual mode mapping |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
613 call assert_equal(0, hasmapto('/^\k\+ (', 'x')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
614 xmap ,f /^\k\+ (<CR> |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
615 call assert_equal(1, hasmapto('/^\k\+ (', 'v')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
616 call assert_equal(1, hasmapto('/^\k\+ (', 'x')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
617 call assert_equal(0, hasmapto('/^\k\+ (', 's')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
618 xunmap ,f |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
619 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
620 " Select mode mapping |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
621 call assert_equal(0, hasmapto('/^\k\+ (', 's')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
622 smap ,f /^\k\+ (<CR> |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
623 call assert_equal(1, hasmapto('/^\k\+ (', 'v')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
624 call assert_equal(0, hasmapto('/^\k\+ (', 'x')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
625 call assert_equal(1, hasmapto('/^\k\+ (', 's')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
626 sunmap ,f |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
627 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
628 " Operator-pending mode mapping |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
629 call assert_equal(0, hasmapto('/^\k\+ (', 'o')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
630 omap ,f /^\k\+ (<CR> |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
631 call assert_equal(1, hasmapto('/^\k\+ (', 'o')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
632 ounmap ,f |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
633 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
634 " Language mapping |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
635 call assert_equal(0, hasmapto('/^\k\+ (', 'l')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
636 lmap ,f /^\k\+ (<CR> |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
637 call assert_equal(1, hasmapto('/^\k\+ (', 'l')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
638 lunmap ,f |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
639 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
640 " Cmdline mode mapping |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
641 call assert_equal(0, hasmapto('/^\k\+ (', 'c')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
642 cmap ,f /^\k\+ (<CR> |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
643 call assert_equal(1, hasmapto('/^\k\+ (', 'c')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
644 cunmap ,f |
19149
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
645 |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
646 call assert_equal(0, hasmapto('/^\k\+ (', 'n', 1)) |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
647 endfunc |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
648 |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
649 " Test for command-line completion of maps |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
650 func Test_mapcomplete() |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
651 call assert_equal(['<buffer>', '<expr>', '<nowait>', '<script>', |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
652 \ '<silent>', '<special>', '<unique>'], |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
653 \ getcompletion('', 'mapping')) |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
654 call assert_equal([], getcompletion(',d', 'mapping')) |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
655 |
19170
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
656 call feedkeys(":unmap <buf\<C-A>\<C-B>\"\<CR>", 'tx') |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
657 call assert_equal('"unmap <buffer>', @:) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
658 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
659 call feedkeys(":unabbr <buf\<C-A>\<C-B>\"\<CR>", 'tx') |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
660 call assert_equal('"unabbr <buffer>', @:) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
661 |
19149
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
662 call feedkeys(":abbr! \<C-A>\<C-B>\"\<CR>", 'tx') |
19170
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
663 call assert_equal("\"abbr! \x01", @:) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
664 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
665 " Multiple matches for a map |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
666 nmap ,f /H<CR> |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
667 omap ,f /H<CR> |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
668 call feedkeys(":map ,\<C-A>\<C-B>\"\<CR>", 'tx') |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
669 call assert_equal('"map ,f', @:) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
670 mapclear |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
671 endfunc |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
672 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
673 " Test for <expr> in abbreviation |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
674 func Test_expr_abbr() |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
675 new |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
676 iabbr <expr> teh "the" |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
677 call feedkeys("iteh ", "tx") |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
678 call assert_equal('the ', getline(1)) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
679 iabclear |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
680 call setline(1, '') |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
681 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
682 " invalid <expr> abbreviation |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
683 abbr <expr> hte GetAbbr() |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
684 call assert_fails('normal ihte ', 'E117:') |
22742
f7f2d73ff85e
patch 8.2.1919: assert_fails() setting emsg_silent changes normal execution
Bram Moolenaar <Bram@vim.org>
parents:
21765
diff
changeset
|
685 call assert_equal('', getline(1)) |
19170
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
686 unabbr <expr> hte |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
687 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
688 close! |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
689 endfunc |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
690 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
691 " Test for storing mappings in different modes in a vimrc file |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
692 func Test_mkvimrc_mapmodes() |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
693 map a1 /a1 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
694 nmap a2 /a2 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
695 vmap a3 /a3 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
696 smap a4 /a4 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
697 xmap a5 /a5 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
698 omap a6 /a6 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
699 map! a7 /a7 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
700 imap a8 /a8 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
701 lmap a9 /a9 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
702 cmap a10 /a10 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
703 tmap a11 /a11 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
704 " Normal + Visual map |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
705 map a12 /a12 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
706 sunmap a12 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
707 ounmap a12 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
708 " Normal + Selectmode map |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
709 map a13 /a13 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
710 xunmap a13 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
711 ounmap a13 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
712 " Normal + OpPending map |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
713 map a14 /a14 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
714 vunmap a14 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
715 " Visual + Selectmode map |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
716 map a15 /a15 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
717 nunmap a15 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
718 ounmap a15 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
719 " Visual + OpPending map |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
720 map a16 /a16 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
721 nunmap a16 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
722 sunmap a16 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
723 " Selectmode + OpPending map |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
724 map a17 /a17 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
725 nunmap a17 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
726 xunmap a17 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
727 " Normal + Visual + Selectmode map |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
728 map a18 /a18 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
729 ounmap a18 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
730 " Normal + Visual + OpPending map |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
731 map a19 /a19 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
732 sunmap a19 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
733 " Normal + Selectmode + OpPending map |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
734 map a20 /a20 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
735 xunmap a20 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
736 " Visual + Selectmode + OpPending map |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
737 map a21 /a21 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
738 nunmap a21 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
739 " Mapping to Nop |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
740 map a22 <Nop> |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
741 " Script local mapping |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
742 map <script> a23 /a23 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
743 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
744 " Newline in {lhs} and {rhs} of a map |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
745 exe "map a24\<C-V>\<C-J> ia24\<C-V>\<C-J><Esc>" |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
746 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
747 " Abbreviation |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
748 abbr a25 A25 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
749 cabbr a26 A26 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
750 iabbr a27 A27 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
751 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
752 mkvimrc! Xvimrc |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
753 let l = readfile('Xvimrc') |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
754 call assert_equal(['map a1 /a1'], filter(copy(l), 'v:val =~ " a1 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
755 call assert_equal(['nmap a2 /a2'], filter(copy(l), 'v:val =~ " a2 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
756 call assert_equal(['vmap a3 /a3'], filter(copy(l), 'v:val =~ " a3 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
757 call assert_equal(['smap a4 /a4'], filter(copy(l), 'v:val =~ " a4 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
758 call assert_equal(['xmap a5 /a5'], filter(copy(l), 'v:val =~ " a5 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
759 call assert_equal(['omap a6 /a6'], filter(copy(l), 'v:val =~ " a6 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
760 call assert_equal(['map! a7 /a7'], filter(copy(l), 'v:val =~ " a7 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
761 call assert_equal(['imap a8 /a8'], filter(copy(l), 'v:val =~ " a8 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
762 call assert_equal(['lmap a9 /a9'], filter(copy(l), 'v:val =~ " a9 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
763 call assert_equal(['cmap a10 /a10'], filter(copy(l), 'v:val =~ " a10 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
764 call assert_equal(['tmap a11 /a11'], filter(copy(l), 'v:val =~ " a11 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
765 call assert_equal(['nmap a12 /a12', 'xmap a12 /a12'], |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
766 \ filter(copy(l), 'v:val =~ " a12 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
767 call assert_equal(['nmap a13 /a13', 'smap a13 /a13'], |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
768 \ filter(copy(l), 'v:val =~ " a13 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
769 call assert_equal(['nmap a14 /a14', 'omap a14 /a14'], |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
770 \ filter(copy(l), 'v:val =~ " a14 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
771 call assert_equal(['vmap a15 /a15'], filter(copy(l), 'v:val =~ " a15 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
772 call assert_equal(['xmap a16 /a16', 'omap a16 /a16'], |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
773 \ filter(copy(l), 'v:val =~ " a16 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
774 call assert_equal(['smap a17 /a17', 'omap a17 /a17'], |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
775 \ filter(copy(l), 'v:val =~ " a17 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
776 call assert_equal(['nmap a18 /a18', 'vmap a18 /a18'], |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
777 \ filter(copy(l), 'v:val =~ " a18 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
778 call assert_equal(['nmap a19 /a19', 'xmap a19 /a19', 'omap a19 /a19'], |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
779 \ filter(copy(l), 'v:val =~ " a19 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
780 call assert_equal(['nmap a20 /a20', 'smap a20 /a20', 'omap a20 /a20'], |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
781 \ filter(copy(l), 'v:val =~ " a20 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
782 call assert_equal(['vmap a21 /a21', 'omap a21 /a21'], |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
783 \ filter(copy(l), 'v:val =~ " a21 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
784 call assert_equal(['map a22 <Nop>'], filter(copy(l), 'v:val =~ " a22 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
785 call assert_equal([], filter(copy(l), 'v:val =~ " a23 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
786 call assert_equal(["map a24<NL> ia24<NL>\x16\e"], |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
787 \ filter(copy(l), 'v:val =~ " a24"')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
788 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
789 call assert_equal(['abbr a25 A25'], filter(copy(l), 'v:val =~ " a25 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
790 call assert_equal(['cabbr a26 A26'], filter(copy(l), 'v:val =~ " a26 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
791 call assert_equal(['iabbr a27 A27'], filter(copy(l), 'v:val =~ " a27 "')) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
792 call delete('Xvimrc') |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
793 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
794 mapclear |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
795 nmapclear |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
796 vmapclear |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
797 xmapclear |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
798 smapclear |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
799 omapclear |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
800 imapclear |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
801 lmapclear |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
802 cmapclear |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
803 tmapclear |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
804 endfunc |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
805 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
806 " Test for recursive mapping ('maxmapdepth') |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
807 func Test_map_recursive() |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
808 map x y |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
809 map y x |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
810 call assert_fails('normal x', 'E223:') |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
811 unmap x |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
812 unmap y |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
813 endfunc |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
814 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
815 " Test for removing an abbreviation using {rhs} and with space after {lhs} |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
816 func Test_abbr_remove() |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
817 abbr foo bar |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
818 let d = maparg('foo', 'i', 1, 1) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
819 call assert_equal(['foo', 'bar', '!'], [d.lhs, d.rhs, d.mode]) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
820 unabbr bar |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
821 call assert_equal({}, maparg('foo', 'i', 1, 1)) |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
822 |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
823 abbr foo bar |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
824 unabbr foo<space><tab> |
ad40333f2ec0
patch 8.2.0144: some mapping code is not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19149
diff
changeset
|
825 call assert_equal({}, maparg('foo', 'i', 1, 1)) |
19149
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
826 endfunc |
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
827 |
19178
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
828 " Trigger an abbreviation using a special key |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
829 func Test_abbr_trigger_special() |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
830 new |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
831 iabbr teh the |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
832 call feedkeys("iteh\<F2>\<Esc>", 'xt') |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
833 call assert_equal('the<F2>', getline(1)) |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
834 iunab teh |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
835 close! |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
836 endfunc |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
837 |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
838 " Test for '<' in 'cpoptions' |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
839 func Test_map_cpo_special_keycode() |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
840 set cpo-=< |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
841 imap x<Bslash>k Test |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
842 let d = maparg('x<Bslash>k', 'i', 0, 1) |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
843 call assert_equal(['x\k', 'Test', 'i'], [d.lhs, d.rhs, d.mode]) |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
844 call feedkeys(":imap x\<C-A>\<C-B>\"\<CR>", 'tx') |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
845 call assert_equal('"imap x\k', @:) |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
846 iunmap x<Bslash>k |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
847 set cpo+=< |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
848 imap x<Bslash>k Test |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
849 let d = maparg('x<Bslash>k', 'i', 0, 1) |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
850 call assert_equal(['x<Bslash>k', 'Test', 'i'], [d.lhs, d.rhs, d.mode]) |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
851 call feedkeys(":imap x\<C-A>\<C-B>\"\<CR>", 'tx') |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
852 call assert_equal('"imap x<Bslash>k', @:) |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
853 iunmap x<Bslash>k |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
854 set cpo-=< |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
855 " Modifying 'cpo' above adds some default mappings, remove them |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
856 mapclear |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
857 mapclear! |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
858 endfunc |
f7081bd2680e
patch 8.2.0148: mapping related function in wrong source file
Bram Moolenaar <Bram@vim.org>
parents:
19170
diff
changeset
|
859 |
22862
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
860 " Test for <Cmd> key in maps to execute commands |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
861 func Test_map_cmdkey() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
862 new |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
863 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
864 " Error cases |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
865 let x = 0 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
866 noremap <F3> <Cmd><Cmd>let x = 1<CR> |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
867 call assert_fails('call feedkeys("\<F3>", "xt")', 'E1136:') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
868 call assert_equal(0, x) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
869 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
870 noremap <F3> <Cmd><F3>let x = 2<CR> |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
871 call assert_fails('call feedkeys("\<F3>", "xt")', 'E1137:') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
872 call assert_equal(0, x) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
873 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
874 noremap <F3> <Cmd>let x = 3 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
875 call assert_fails('call feedkeys("\<F3>", "xt!")', 'E1135:') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
876 call assert_equal(0, x) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
877 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
878 " works in various modes and sees the correct mode() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
879 noremap <F3> <Cmd>let m = mode(1)<CR> |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
880 noremap! <F3> <Cmd>let m = mode(1)<CR> |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
881 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
882 " normal mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
883 call feedkeys("\<F3>", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
884 call assert_equal('n', m) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
885 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
886 " visual mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
887 call feedkeys("v\<F3>", 'xt!') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
888 call assert_equal('v', m) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
889 " shouldn't leave the visual mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
890 call assert_equal('v', mode(1)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
891 call feedkeys("\<Esc>", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
892 call assert_equal('n', mode(1)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
893 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
894 " visual mapping in select mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
895 call feedkeys("gh\<F3>", 'xt!') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
896 call assert_equal('v', m) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
897 " shouldn't leave select mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
898 call assert_equal('s', mode(1)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
899 call feedkeys("\<Esc>", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
900 call assert_equal('n', mode(1)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
901 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
902 " select mode mapping |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
903 snoremap <F3> <Cmd>let m = mode(1)<cr> |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
904 call feedkeys("gh\<F3>", 'xt!') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
905 call assert_equal('s', m) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
906 " shouldn't leave select mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
907 call assert_equal('s', mode(1)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
908 call feedkeys("\<Esc>", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
909 call assert_equal('n', mode(1)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
910 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
911 " operator-pending mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
912 call feedkeys("d\<F3>", 'xt!') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
913 call assert_equal('no', m) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
914 " leaves the operator-pending mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
915 call assert_equal('n', mode(1)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
916 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
917 " insert mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
918 call feedkeys("i\<F3>abc", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
919 call assert_equal('i', m) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
920 call assert_equal('abc', getline('.')) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
921 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
922 " replace mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
923 call feedkeys("0R\<F3>two", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
924 call assert_equal('R', m) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
925 call assert_equal('two', getline('.')) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
926 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
927 " virtual replace mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
928 call setline('.', "one\ttwo") |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
929 call feedkeys("4|gR\<F3>xxx", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
930 call assert_equal('Rv', m) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
931 call assert_equal("onexxx\ttwo", getline('.')) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
932 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
933 " cmdline mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
934 call feedkeys(":\<F3>\"xxx\<CR>", 'xt!') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
935 call assert_equal('c', m) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
936 call assert_equal('"xxx', @:) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
937 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
938 " terminal mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
939 if CanRunVimInTerminal() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
940 tnoremap <F3> <Cmd>let m = mode(1)<CR> |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
941 let buf = Run_shell_in_terminal({}) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
942 call feedkeys("\<F3>", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
943 call assert_equal('t', m) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
944 call assert_equal('t', mode(1)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
945 call StopShellInTerminal(buf) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
946 call TermWait(buf) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
947 close! |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
948 tunmap <F3> |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
949 endif |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
950 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
951 " invoke cmdline mode recursively |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
952 noremap! <F2> <Cmd>norm! :foo<CR> |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
953 %d |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
954 call setline(1, ['some short lines', 'of test text']) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
955 call feedkeys(":bar\<F2>x\<C-B>\"\r", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
956 call assert_equal('"barx', @:) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
957 unmap! <F2> |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
958 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
959 " test for calling a <SID> function |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
960 let lines =<< trim END |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
961 map <F2> <Cmd>call <SID>do_it()<CR> |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
962 func s:do_it() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
963 let g:x = 32 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
964 endfunc |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
965 END |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
966 call writefile(lines, 'Xscript') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
967 source Xscript |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
968 call feedkeys("\<F2>", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
969 call assert_equal(32, g:x) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
970 call delete('Xscript') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
971 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
972 unmap <F3> |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
973 unmap! <F3> |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
974 %bw! |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
975 endfunc |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
976 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
977 " text object enters visual mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
978 func TextObj() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
979 if mode() !=# "v" |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
980 normal! v |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
981 end |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
982 call cursor(1, 3) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
983 normal! o |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
984 call cursor(2, 4) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
985 endfunc |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
986 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
987 func s:cmdmap(lhs, rhs) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
988 exe 'noremap ' .. a:lhs .. ' <Cmd>' .. a:rhs .. '<CR>' |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
989 exe 'noremap! ' .. a:lhs .. ' <Cmd>' .. a:rhs .. '<CR>' |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
990 endfunc |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
991 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
992 func s:cmdunmap(lhs) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
993 exe 'unmap ' .. a:lhs |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
994 exe 'unmap! ' .. a:lhs |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
995 endfunc |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
996 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
997 " Map various <Fx> keys used by the <Cmd> key tests |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
998 func s:setupMaps() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
999 call s:cmdmap('<F3>', 'let m = mode(1)') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1000 call s:cmdmap('<F4>', 'normal! ww') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1001 call s:cmdmap('<F5>', 'normal! "ay') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1002 call s:cmdmap('<F6>', 'throw "very error"') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1003 call s:cmdmap('<F7>', 'call TextObj()') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1004 call s:cmdmap('<F8>', 'startinsert') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1005 call s:cmdmap('<F9>', 'stopinsert') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1006 endfunc |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1007 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1008 " Remove the mappings setup by setupMaps() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1009 func s:cleanupMaps() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1010 call s:cmdunmap('<F3>') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1011 call s:cmdunmap('<F4>') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1012 call s:cmdunmap('<F5>') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1013 call s:cmdunmap('<F6>') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1014 call s:cmdunmap('<F7>') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1015 call s:cmdunmap('<F8>') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1016 call s:cmdunmap('<F9>') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1017 endfunc |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1018 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1019 " Test for <Cmd> mapping in normal mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1020 func Test_map_cmdkey_normal_mode() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1021 new |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1022 call s:setupMaps() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1023 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1024 " check v:count and v:register works |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1025 call s:cmdmap('<F2>', 'let s = [mode(1), v:count, v:register]') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1026 call feedkeys("\<F2>", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1027 call assert_equal(['n', 0, '"'], s) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1028 call feedkeys("7\<F2>", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1029 call assert_equal(['n', 7, '"'], s) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1030 call feedkeys("\"e\<F2>", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1031 call assert_equal(['n', 0, 'e'], s) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1032 call feedkeys("5\"k\<F2>", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1033 call assert_equal(['n', 5, 'k'], s) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1034 call s:cmdunmap('<F2>') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1035 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1036 call setline(1, ['some short lines', 'of test text']) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1037 call feedkeys("\<F7>y", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1038 call assert_equal("me short lines\nof t", @") |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1039 call assert_equal('v', getregtype('"')) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1040 call assert_equal([0, 1, 3, 0], getpos("'<")) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1041 call assert_equal([0, 2, 4, 0], getpos("'>")) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1042 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1043 " startinsert |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1044 %d |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1045 call feedkeys("\<F8>abc", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1046 call assert_equal('abc', getline(1)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1047 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1048 " feedkeys are not executed immediately |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1049 noremap ,a <Cmd>call feedkeys("aalpha") \| let g:a = getline(2)<CR> |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1050 %d |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1051 call setline(1, ['some short lines', 'of test text']) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1052 call cursor(2, 3) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1053 call feedkeys(",a\<F3>", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1054 call assert_equal('of test text', g:a) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1055 call assert_equal('n', m) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1056 call assert_equal(['some short lines', 'of alphatest text'], getline(1, '$')) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1057 nunmap ,a |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1058 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1059 " feedkeys(..., 'x') is executed immediately, but insert mode is aborted |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1060 noremap ,b <Cmd>call feedkeys("abeta", 'x') \| let g:b = getline(2)<CR> |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1061 call feedkeys(",b\<F3>", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1062 call assert_equal('n', m) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1063 call assert_equal('of alphabetatest text', g:b) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1064 nunmap ,b |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1065 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1066 call s:cleanupMaps() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1067 %bw! |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1068 endfunc |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1069 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1070 " Test for <Cmd> mapping with the :normal command |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1071 func Test_map_cmdkey_normal_cmd() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1072 new |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1073 noremap ,x <Cmd>call append(1, "xx") \| call append(1, "aa")<CR> |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1074 noremap ,f <Cmd>nosuchcommand<CR> |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1075 noremap ,e <Cmd>throw "very error" \| call append(1, "yy")<CR> |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1076 noremap ,m <Cmd>echoerr "The message." \| call append(1, "zz")<CR> |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1077 noremap ,w <Cmd>for i in range(5) \| if i==1 \| echoerr "Err" \| endif \| call append(1, i) \| endfor<CR> |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1078 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1079 call setline(1, ['some short lines', 'of test text']) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1080 exe "norm ,x\r" |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1081 call assert_equal(['some short lines', 'aa', 'xx', 'of test text'], getline(1, '$')) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1082 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1083 call assert_fails('norm ,f', 'E492:') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1084 call assert_fails('norm ,e', 'very error') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1085 call assert_fails('norm ,m', 'The message.') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1086 call assert_equal(['some short lines', 'aa', 'xx', 'of test text'], getline(1, '$')) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1087 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1088 %d |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1089 let caught_err = 0 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1090 try |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1091 exe "normal ,w" |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1092 catch /Vim(echoerr):Err/ |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1093 let caught_err = 1 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1094 endtry |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1095 call assert_equal(1, caught_err) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1096 call assert_equal(['', '0'], getline(1, '$')) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1097 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1098 %d |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1099 call assert_fails('normal ,w', 'Err') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1100 call assert_equal(['', '4', '3', '2' ,'1', '0'], getline(1, '$')) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1101 call assert_equal(1, line('.')) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1102 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1103 nunmap ,x |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1104 nunmap ,f |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1105 nunmap ,e |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1106 nunmap ,m |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1107 nunmap ,w |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1108 %bw! |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1109 endfunc |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1110 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1111 " Test for <Cmd> mapping in visual mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1112 func Test_map_cmdkey_visual_mode() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1113 new |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1114 set showmode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1115 call s:setupMaps() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1116 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1117 call setline(1, ['some short lines', 'of test text']) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1118 call feedkeys("v\<F4>", 'xt!') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1119 call assert_equal(['v', 1, 12], [mode(1), col('v'), col('.')]) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1120 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1121 " can invoke an opeartor, ending the visual mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1122 let @a = '' |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1123 call feedkeys("\<F5>", 'xt!') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1124 call assert_equal('n', mode(1)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1125 call assert_equal('some short l', @a) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1126 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1127 " error doesn't interrupt visual mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1128 call assert_fails('call feedkeys("ggvw\<F6>", "xt!")', 'E605:') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1129 call assert_equal(['v', 1, 6], [mode(1), col('v'), col('.')]) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1130 call feedkeys("\<F7>", 'xt!') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1131 call assert_equal(['v', 1, 3, 2, 4], [mode(1), line('v'), col('v'), line('.'), col('.')]) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1132 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1133 " startinsert gives "-- (insert) VISUAL --" mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1134 call feedkeys("\<F8>", 'xt!') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1135 call assert_equal(['v', 1, 3, 2, 4], [mode(1), line('v'), col('v'), line('.'), col('.')]) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1136 redraw! |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1137 call assert_match('^-- (insert) VISUAL --', Screenline(&lines)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1138 call feedkeys("\<Esc>new ", 'x') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1139 call assert_equal(['some short lines', 'of new test text'], getline(1, '$')) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1140 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1141 call s:cleanupMaps() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1142 set showmode& |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1143 %bw! |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1144 endfunc |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1145 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1146 " Test for <Cmd> mapping in select mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1147 func Test_map_cmdkey_select_mode() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1148 new |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1149 set showmode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1150 call s:setupMaps() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1151 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1152 snoremap <F1> <cmd>throw "very error"<CR> |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1153 snoremap <F2> <cmd>normal! <c-g>"by<CR> |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1154 call setline(1, ['some short lines', 'of test text']) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1155 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1156 call feedkeys("gh\<F4>", "xt!") |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1157 call assert_equal(['s', 1, 12], [mode(1), col('v'), col('.')]) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1158 redraw! |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1159 call assert_match('^-- SELECT --', Screenline(&lines)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1160 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1161 " visual mapping in select mode restarts select mode after operator |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1162 let @a = '' |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1163 call feedkeys("\<F5>", 'xt!') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1164 call assert_equal('s', mode(1)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1165 call assert_equal('some short l', @a) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1166 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1167 " select mode mapping works, and does not restart select mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1168 let @b = '' |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1169 call feedkeys("\<F2>", 'xt!') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1170 call assert_equal('n', mode(1)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1171 call assert_equal('some short l', @b) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1172 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1173 " error doesn't interrupt temporary visual mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1174 call assert_fails('call feedkeys("\<Esc>ggvw\<C-G>\<F6>", "xt!")', 'E605:') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1175 redraw! |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1176 call assert_match('^-- VISUAL --', Screenline(&lines)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1177 " quirk: restoration of select mode is not performed |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1178 call assert_equal(['v', 1, 6], [mode(1), col('v'), col('.')]) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1179 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1180 " error doesn't interrupt select mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1181 call assert_fails('call feedkeys("\<Esc>ggvw\<C-G>\<F1>", "xt!")', 'E605:') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1182 redraw! |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1183 call assert_match('^-- SELECT --', Screenline(&lines)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1184 call assert_equal(['s', 1, 6], [mode(1), col('v'), col('.')]) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1185 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1186 call feedkeys("\<F7>", 'xt!') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1187 redraw! |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1188 call assert_match('^-- SELECT --', Screenline(&lines)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1189 call assert_equal(['s', 1, 3, 2, 4], [mode(1), line('v'), col('v'), line('.'), col('.')]) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1190 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1191 " startinsert gives "-- SELECT (insert) --" mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1192 call feedkeys("\<F8>", 'xt!') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1193 redraw! |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1194 call assert_match('^-- (insert) SELECT --', Screenline(&lines)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1195 call assert_equal(['s', 1, 3, 2, 4], [mode(1), line('v'), col('v'), line('.'), col('.')]) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1196 call feedkeys("\<Esc>new ", 'x') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1197 call assert_equal(['some short lines', 'of new test text'], getline(1, '$')) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1198 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1199 sunmap <F1> |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1200 sunmap <F2> |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1201 call s:cleanupMaps() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1202 set showmode& |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1203 %bw! |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1204 endfunc |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1205 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1206 " Test for <Cmd> mapping in operator-pending mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1207 func Test_map_cmdkey_op_pending_mode() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1208 new |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1209 call s:setupMaps() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1210 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1211 call setline(1, ['some short lines', 'of test text']) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1212 call feedkeys("d\<F4>", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1213 call assert_equal(['lines', 'of test text'], getline(1, '$')) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1214 call assert_equal(['some short '], getreg('"', 1, 1)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1215 " create a new undo point |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1216 let &undolevels = &undolevels |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1217 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1218 call feedkeys(".", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1219 call assert_equal(['test text'], getline(1, '$')) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1220 call assert_equal(['lines', 'of '], getreg('"', 1, 1)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1221 " create a new undo point |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1222 let &undolevels = &undolevels |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1223 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1224 call feedkeys("uu", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1225 call assert_equal(['some short lines', 'of test text'], getline(1, '$')) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1226 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1227 " error aborts operator-pending, operator not performed |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1228 call assert_fails('call feedkeys("d\<F6>", "xt")', 'E605:') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1229 call assert_equal(['some short lines', 'of test text'], getline(1, '$')) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1230 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1231 call feedkeys("\"bd\<F7>", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1232 call assert_equal(['soest text'], getline(1, '$')) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1233 call assert_equal(['me short lines', 'of t'], getreg('b', 1, 1)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1234 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1235 " startinsert aborts operator |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1236 call feedkeys("d\<F8>cc", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1237 call assert_equal(['soccest text'], getline(1, '$')) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1238 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1239 call s:cleanupMaps() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1240 %bw! |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1241 endfunc |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1242 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1243 " Test for <Cmd> mapping in insert mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1244 func Test_map_cmdkey_insert_mode() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1245 new |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1246 call s:setupMaps() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1247 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1248 call setline(1, ['some short lines', 'of test text']) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1249 " works the same as <C-O>w<C-O>w |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1250 call feedkeys("iindeed \<F4>little ", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1251 call assert_equal(['indeed some short little lines', 'of test text'], getline(1, '$')) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1252 call assert_fails('call feedkeys("i\<F6> 2", "xt")', 'E605:') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1253 call assert_equal(['indeed some short little 2 lines', 'of test text'], getline(1, '$')) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1254 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1255 " Note when entering visual mode from InsertEnter autocmd, an async event, |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1256 " or a <Cmd> mapping, vim ends up in undocumented "INSERT VISUAL" mode. |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1257 call feedkeys("i\<F7>stuff ", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1258 call assert_equal(['indeed some short little 2 lines', 'of stuff test text'], getline(1, '$')) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1259 call assert_equal(['v', 1, 3, 2, 9], [mode(1), line('v'), col('v'), line('.'), col('.')]) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1260 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1261 call feedkeys("\<F5>", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1262 call assert_equal(['deed some short little 2 lines', 'of stuff '], getreg('a', 1, 1)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1263 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1264 " also works as part of abbreviation |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1265 abbr foo <Cmd>let g:y = 17<CR>bar |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1266 exe "normal i\<space>foo " |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1267 call assert_equal(17, g:y) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1268 call assert_equal('in bar deed some short little 2 lines', getline(1)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1269 unabbr foo |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1270 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1271 " :startinsert does nothing |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1272 call setline(1, 'foo bar') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1273 call feedkeys("ggi\<F8>vim", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1274 call assert_equal('vimfoo bar', getline(1)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1275 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1276 " :stopinsert works |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1277 call feedkeys("ggi\<F9>Abc", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1278 call assert_equal('vimfoo barbc', getline(1)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1279 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1280 call s:cleanupMaps() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1281 %bw! |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1282 endfunc |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1283 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1284 " Test for <Cmd> mapping in insert-completion mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1285 func Test_map_cmdkey_insert_complete_mode() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1286 new |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1287 call s:setupMaps() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1288 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1289 call setline(1, 'some short lines') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1290 call feedkeys("os\<C-X>\<C-N>\<F3>\<C-N> ", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1291 call assert_equal('ic', m) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1292 call assert_equal(['some short lines', 'short '], getline(1, '$')) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1293 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1294 call s:cleanupMaps() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1295 %bw! |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1296 endfunc |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1297 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1298 " Test for <Cmd> mapping in cmdline mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1299 func Test_map_cmdkey_cmdline_mode() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1300 new |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1301 call s:setupMaps() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1302 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1303 call setline(1, ['some short lines', 'of test text']) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1304 let x = 0 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1305 call feedkeys(":let x\<F3>= 10\r", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1306 call assert_equal('c', m) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1307 call assert_equal(10, x) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1308 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1309 " exception doesn't leave cmdline mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1310 call assert_fails('call feedkeys(":let x\<F6>= 20\r", "xt")', 'E605:') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1311 call assert_equal(20, x) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1312 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1313 " move cursor in the buffer from cmdline mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1314 call feedkeys(":let x\<F4>= 30\r", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1315 call assert_equal(30, x) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1316 call assert_equal(12, col('.')) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1317 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1318 " :startinsert takes effect after leaving cmdline mode |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1319 call feedkeys(":let x\<F8>= 40\rnew ", 'xt') |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1320 call assert_equal(40, x) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1321 call assert_equal('some short new lines', getline(1)) |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1322 |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1323 call s:cleanupMaps() |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1324 %bw! |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1325 endfunc |
6d50182e7e24
patch 8.2.1978: making a mapping work in all modes is complicated
Bram Moolenaar <Bram@vim.org>
parents:
22742
diff
changeset
|
1326 |
22916
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1327 func Test_map_cmdkey_redo() |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1328 func SelectDash() |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1329 call search('^---\n\zs', 'bcW') |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1330 norm! V |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1331 call search('\n\ze---$', 'W') |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1332 endfunc |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1333 |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1334 let text =<< trim END |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1335 --- |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1336 aaa |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1337 --- |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1338 bbb |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1339 bbb |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1340 --- |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1341 ccc |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1342 ccc |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1343 ccc |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1344 --- |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1345 END |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1346 new Xcmdtext |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1347 call setline(1, text) |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1348 |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1349 onoremap <silent> i- <Cmd>call SelectDash()<CR> |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1350 call feedkeys('2Gdi-', 'xt') |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1351 call assert_equal(['---', '---'], getline(1, 2)) |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1352 call feedkeys('j.', 'xt') |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1353 call assert_equal(['---', '---', '---'], getline(1, 3)) |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1354 call feedkeys('j.', 'xt') |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1355 call assert_equal(['---', '---', '---', '---'], getline(1, 4)) |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1356 |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1357 bwipe! |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1358 call delete('Xcmdtext') |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1359 delfunc SelectDash |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1360 ounmap i- |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1361 endfunc |
1fe53aae3ba0
patch 8.2.2005: redoing a mapping with <Cmd> doesn't work properly
Bram Moolenaar <Bram@vim.org>
parents:
22862
diff
changeset
|
1362 |
19149
643c6c3c0da4
patch 8.2.0134: some map functionality not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18689
diff
changeset
|
1363 " vim: shiftwidth=2 sts=2 expandtab |