Mercurial > vim
annotate src/testdir/test_termcodes.vim @ 19237:1a3ebc75cf39 v8.2.0177
patch 8.2.0177: memory leak in get_tags()
Commit: https://github.com/vim/vim/commit/70b3e706b40fc2c84c1f9f33fa64945a481df395
Author: Bram Moolenaar <Bram@vim.org>
Date: Wed Jan 29 22:38:45 2020 +0100
patch 8.2.0177: memory leak in get_tags()
Problem: Memory leak in get_tags().
Solution: Free matches when finding a pseudo-tag line. (Dominique Pelle,
closes #5553)
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Wed, 29 Jan 2020 22:45:08 +0100 |
parents | 5c256866b837 |
children | da791e5c0139 |
rev | line source |
---|---|
16263
d3377393e3d9
patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
1 " Tests for decoding escape sequences sent by the terminal. |
d3377393e3d9
patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
2 |
d3377393e3d9
patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
3 " This only works for Unix in a terminal |
17657
0da9bc55c31a
patch 8.1.1826: tests use hand coded feature and option checks
Bram Moolenaar <Bram@vim.org>
parents:
17089
diff
changeset
|
4 source check.vim |
0da9bc55c31a
patch 8.1.1826: tests use hand coded feature and option checks
Bram Moolenaar <Bram@vim.org>
parents:
17089
diff
changeset
|
5 CheckNotGui |
0da9bc55c31a
patch 8.1.1826: tests use hand coded feature and option checks
Bram Moolenaar <Bram@vim.org>
parents:
17089
diff
changeset
|
6 CheckUnix |
16263
d3377393e3d9
patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
7 |
16437
fbc0b3b38c79
patch 8.1.1223: middle mouse click test fails without a clipboard
Bram Moolenaar <Bram@vim.org>
parents:
16423
diff
changeset
|
8 source shared.vim |
fbc0b3b38c79
patch 8.1.1223: middle mouse click test fails without a clipboard
Bram Moolenaar <Bram@vim.org>
parents:
16423
diff
changeset
|
9 |
16487
a4732cdcfaaf
patch 8.1.1247: urxvt mouse codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
16481
diff
changeset
|
10 " xterm2 and sgr always work, urxvt is optional. |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
11 let s:ttymouse_values = ['xterm2', 'sgr'] |
16487
a4732cdcfaaf
patch 8.1.1247: urxvt mouse codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
16481
diff
changeset
|
12 if has('mouse_urxvt') |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
13 call add(s:ttymouse_values, 'urxvt') |
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
14 endif |
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
15 |
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
16 " dec doesn't support all the functionality |
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
17 if has('mouse_dec') |
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
18 let s:ttymouse_dec = ['dec'] |
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
19 else |
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
20 let s:ttymouse_dec = [] |
16487
a4732cdcfaaf
patch 8.1.1247: urxvt mouse codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
16481
diff
changeset
|
21 endif |
a4732cdcfaaf
patch 8.1.1247: urxvt mouse codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
16481
diff
changeset
|
22 |
16493
4912193bc5e7
patch 8.1.1250: no test for netterm mouse
Bram Moolenaar <Bram@vim.org>
parents:
16489
diff
changeset
|
23 " netterm only supports left click |
4912193bc5e7
patch 8.1.1250: no test for netterm mouse
Bram Moolenaar <Bram@vim.org>
parents:
16489
diff
changeset
|
24 if has('mouse_netterm') |
4912193bc5e7
patch 8.1.1250: no test for netterm mouse
Bram Moolenaar <Bram@vim.org>
parents:
16489
diff
changeset
|
25 let s:ttymouse_netterm = ['netterm'] |
4912193bc5e7
patch 8.1.1250: no test for netterm mouse
Bram Moolenaar <Bram@vim.org>
parents:
16489
diff
changeset
|
26 else |
4912193bc5e7
patch 8.1.1250: no test for netterm mouse
Bram Moolenaar <Bram@vim.org>
parents:
16489
diff
changeset
|
27 let s:ttymouse_netterm = [] |
4912193bc5e7
patch 8.1.1250: no test for netterm mouse
Bram Moolenaar <Bram@vim.org>
parents:
16489
diff
changeset
|
28 endif |
4912193bc5e7
patch 8.1.1250: no test for netterm mouse
Bram Moolenaar <Bram@vim.org>
parents:
16489
diff
changeset
|
29 |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
30 " Helper function to emit a terminal escape code. |
16487
a4732cdcfaaf
patch 8.1.1247: urxvt mouse codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
16481
diff
changeset
|
31 func TerminalEscapeCode(code, row, col, m) |
16352
c742c008953e
patch 8.1.1181: tests for mouse clicks are a bit flaky
Bram Moolenaar <Bram@vim.org>
parents:
16348
diff
changeset
|
32 if &ttymouse ==# 'xterm2' |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
33 " need to use byte encoding here. |
16487
a4732cdcfaaf
patch 8.1.1247: urxvt mouse codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
16481
diff
changeset
|
34 let str = list2str([a:code + 0x20, a:col + 0x20, a:row + 0x20]) |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
35 if has('iconv') |
17914
af3d441845cd
patch 8.1.1953: more functions can be used as a method
Bram Moolenaar <Bram@vim.org>
parents:
17686
diff
changeset
|
36 let bytes = str->iconv('utf-8', 'latin1') |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
37 else |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
38 " Hopefully the numbers are not too big. |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
39 let bytes = str |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
40 endif |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
41 return "\<Esc>[M" .. bytes |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
42 elseif &ttymouse ==# 'sgr' |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
43 return printf("\<Esc>[<%d;%d;%d%s", a:code, a:col, a:row, a:m) |
16487
a4732cdcfaaf
patch 8.1.1247: urxvt mouse codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
16481
diff
changeset
|
44 elseif &ttymouse ==# 'urxvt' |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
45 return printf("\<Esc>[%d;%d;%dM", a:code + 0x20, a:col, a:row) |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
46 endif |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
47 endfunc |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
48 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
49 func DecEscapeCode(code, down, row, col) |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
50 return printf("\<Esc>[%d;%d;%d;%d&w", a:code, a:down, a:row, a:col) |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
51 endfunc |
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
52 |
16493
4912193bc5e7
patch 8.1.1250: no test for netterm mouse
Bram Moolenaar <Bram@vim.org>
parents:
16489
diff
changeset
|
53 func NettermEscapeCode(row, col) |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
54 return printf("\<Esc>}%d,%d\r", a:row, a:col) |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
55 endfunc |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
56 |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
57 func MouseLeftClickCode(row, col) |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
58 if &ttymouse ==# 'dec' |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
59 return DecEscapeCode(2, 4, a:row, a:col) |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
60 elseif &ttymouse ==# 'netterm' |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
61 return NettermEscapeCode(a:row, a:col) |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
62 else |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
63 return TerminalEscapeCode(0, a:row, a:col, 'M') |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
64 endif |
16493
4912193bc5e7
patch 8.1.1250: no test for netterm mouse
Bram Moolenaar <Bram@vim.org>
parents:
16489
diff
changeset
|
65 endfunc |
4912193bc5e7
patch 8.1.1250: no test for netterm mouse
Bram Moolenaar <Bram@vim.org>
parents:
16489
diff
changeset
|
66 |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
67 func MouseLeftClick(row, col) |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
68 call feedkeys(MouseLeftClickCode(a:row, a:col), 'Lx!') |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
69 endfunc |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
70 |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
71 func MouseMiddleClickCode(row, col) |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
72 if &ttymouse ==# 'dec' |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
73 return DecEscapeCode(4, 2, a:row, a:col) |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
74 else |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
75 return TerminalEscapeCode(1, a:row, a:col, 'M') |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
76 endif |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
77 endfunc |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
78 |
16423
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
79 func MouseMiddleClick(row, col) |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
80 call feedkeys(MouseMiddleClickCode(a:row, a:col), 'Lx!') |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
81 endfunc |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
82 |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
83 func MouseRightClickCode(row, col) |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
84 if &ttymouse ==# 'dec' |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
85 return DecEscapeCode(6, 1, a:row, a:col) |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
86 else |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
87 return TerminalEscapeCode(2, a:row, a:col, 'M') |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
88 endif |
16423
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
89 endfunc |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
90 |
18307
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
91 func MouseRightClick(row, col) |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
92 call feedkeys(MouseRightClickCode(a:row, a:col), 'Lx!') |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
93 endfunc |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
94 |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
95 func MouseCtrlLeftClickCode(row, col) |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
96 let ctrl = 0x10 |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
97 return TerminalEscapeCode(0 + ctrl, a:row, a:col, 'M') |
18307
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
98 endfunc |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
99 |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
100 func MouseCtrlLeftClick(row, col) |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
101 call feedkeys(MouseCtrlLeftClickCode(a:row, a:col), 'Lx!') |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
102 endfunc |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
103 |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
104 func MouseCtrlRightClickCode(row, col) |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
105 let ctrl = 0x10 |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
106 return TerminalEscapeCode(2 + ctrl, a:row, a:col, 'M') |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
107 endfunc |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
108 |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
109 func MouseCtrlRightClick(row, col) |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
110 call feedkeys(MouseCtrlRightClickCode(a:row, a:col), 'Lx!') |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
111 endfunc |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
112 |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
113 func MouseLeftReleaseCode(row, col) |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
114 if &ttymouse ==# 'dec' |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
115 return DecEscapeCode(3, 0, a:row, a:col) |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
116 elseif &ttymouse ==# 'netterm' |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
117 return '' |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
118 else |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
119 return TerminalEscapeCode(3, a:row, a:col, 'm') |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
120 endif |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
121 endfunc |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
122 |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
123 func MouseLeftRelease(row, col) |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
124 call feedkeys(MouseLeftReleaseCode(a:row, a:col), 'Lx!') |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
125 endfunc |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
126 |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
127 func MouseMiddleReleaseCode(row, col) |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
128 if &ttymouse ==# 'dec' |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
129 return DecEscapeCode(5, 0, a:row, a:col) |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
130 else |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
131 return TerminalEscapeCode(3, a:row, a:col, 'm') |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
132 endif |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
133 endfunc |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
134 |
16423
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
135 func MouseMiddleRelease(row, col) |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
136 call feedkeys(MouseMiddleReleaseCode(a:row, a:col), 'Lx!') |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
137 endfunc |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
138 |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
139 func MouseRightReleaseCode(row, col) |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
140 if &ttymouse ==# 'dec' |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
141 return DecEscapeCode(7, 0, a:row, a:col) |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
142 else |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
143 return TerminalEscapeCode(3, a:row, a:col, 'm') |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
144 endif |
16423
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
145 endfunc |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
146 |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
147 func MouseRightRelease(row, col) |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
148 call feedkeys(MouseRightReleaseCode(a:row, a:col), 'Lx!') |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
149 endfunc |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
150 |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
151 func MouseLeftDragCode(row, col) |
18307
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
152 if &ttymouse ==# 'dec' |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
153 return DecEscapeCode(1, 4, a:row, a:col) |
18307
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
154 else |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
155 return TerminalEscapeCode(0x20, a:row, a:col, 'M') |
18307
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
156 endif |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
157 endfunc |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
158 |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
159 func MouseLeftDrag(row, col) |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
160 call feedkeys(MouseLeftDragCode(a:row, a:col), 'Lx!') |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
161 endfunc |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
162 |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
163 func MouseWheelUpCode(row, col) |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
164 return TerminalEscapeCode(0x40, a:row, a:col, 'M') |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
165 endfunc |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
166 |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
167 func MouseWheelUp(row, col) |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
168 call feedkeys(MouseWheelUpCode(a:row, a:col), 'Lx!') |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
169 endfunc |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
170 |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
171 func MouseWheelDownCode(row, col) |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
172 return TerminalEscapeCode(0x41, a:row, a:col, 'M') |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
173 endfunc |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
174 |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
175 func MouseWheelDown(row, col) |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
176 call feedkeys(MouseWheelDownCode(a:row, a:col), 'Lx!') |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
177 endfunc |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
178 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
179 func Test_term_mouse_left_click() |
16263
d3377393e3d9
patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
180 new |
d3377393e3d9
patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
181 let save_mouse = &mouse |
d3377393e3d9
patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
182 let save_term = &term |
d3377393e3d9
patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
183 let save_ttymouse = &ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
184 call test_override('no_query_mouse', 1) |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
185 set mouse=a term=xterm |
16263
d3377393e3d9
patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
186 call setline(1, ['line 1', 'line 2', 'line 3 is a bit longer']) |
d3377393e3d9
patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
187 |
16493
4912193bc5e7
patch 8.1.1250: no test for netterm mouse
Bram Moolenaar <Bram@vim.org>
parents:
16489
diff
changeset
|
188 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec + s:ttymouse_netterm |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
189 let msg = 'ttymouse=' .. ttymouse_val |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
190 exe 'set ttymouse=' .. ttymouse_val |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
191 go |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
192 call assert_equal([0, 1, 1, 0], getpos('.'), msg) |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
193 let row = 2 |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
194 let col = 6 |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
195 call MouseLeftClick(row, col) |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
196 call MouseLeftRelease(row, col) |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
197 call assert_equal([0, 2, 6, 0], getpos('.'), msg) |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
198 endfor |
16263
d3377393e3d9
patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
199 |
d3377393e3d9
patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
200 let &mouse = save_mouse |
d3377393e3d9
patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
201 let &term = save_term |
d3377393e3d9
patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
202 let &ttymouse = save_ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
203 call test_override('no_query_mouse', 0) |
16263
d3377393e3d9
patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
204 bwipe! |
d3377393e3d9
patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
205 endfunc |
d3377393e3d9
patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
206 |
18307
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
207 func Test_xterm_mouse_right_click_extends_visual() |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
208 if has('mac') |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
209 throw "Skipped: test right click in visual mode does not work on macOs (why?)" |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
210 endif |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
211 let save_mouse = &mouse |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
212 let save_term = &term |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
213 let save_ttymouse = &ttymouse |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
214 call test_override('no_query_mouse', 1) |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
215 set mouse=a term=xterm |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
216 |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
217 for visual_mode in ["v", "V", "\<C-V>"] |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
218 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
219 let msg = 'visual=' .. visual_mode .. ' ttymouse=' .. ttymouse_val |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
220 exe 'set ttymouse=' .. ttymouse_val |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
221 |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
222 call setline(1, repeat([repeat('-', 7)], 7)) |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
223 call MouseLeftClick(4, 4) |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
224 call MouseLeftRelease(4, 4) |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
225 exe "norm! " .. visual_mode |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
226 |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
227 " Right click extends top left of visual area. |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
228 call MouseRightClick(2, 2) |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
229 call MouseRightRelease(2, 2) |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
230 |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
231 " Right click extends bottom right of visual area. |
18307
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
232 call MouseRightClick(6, 6) |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
233 call MouseRightRelease(6, 6) |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
234 norm! r1gv |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
235 |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
236 " Right click shrinks top left of visual area. |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
237 call MouseRightClick(3, 3) |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
238 call MouseRightRelease(3, 3) |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
239 |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
240 " Right click shrinks bottom right of visual area. |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
241 call MouseRightClick(5, 5) |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
242 call MouseRightRelease(5, 5) |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
243 norm! r2 |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
244 |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
245 if visual_mode ==# 'v' |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
246 call assert_equal(['-------', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
247 \ '-111111', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
248 \ '1122222', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
249 \ '2222222', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
250 \ '2222211', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
251 \ '111111-', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
252 \ '-------'], getline(1, '$'), msg) |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
253 elseif visual_mode ==# 'V' |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
254 call assert_equal(['-------', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
255 \ '1111111', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
256 \ '2222222', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
257 \ '2222222', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
258 \ '2222222', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
259 \ '1111111', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
260 \ '-------'], getline(1, '$'), msg) |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
261 else |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
262 call assert_equal(['-------', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
263 \ '-11111-', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
264 \ '-12221-', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
265 \ '-12221-', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
266 \ '-12221-', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
267 \ '-11111-', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
268 \ '-------'], getline(1, '$'), msg) |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
269 endif |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
270 endfor |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
271 endfor |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
272 |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
273 let &mouse = save_mouse |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
274 let &term = save_term |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
275 let &ttymouse = save_ttymouse |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
276 call test_override('no_query_mouse', 0) |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
277 bwipe! |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
278 endfunc |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
279 |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
280 " Test that <C-LeftMouse> jumps to help tag and <C-RightMouse> jumps back. |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
281 func Test_xterm_mouse_ctrl_click() |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
282 let save_mouse = &mouse |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
283 let save_term = &term |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
284 let save_ttymouse = &ttymouse |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
285 set mouse=a term=xterm |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
286 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
287 for ttymouse_val in s:ttymouse_values |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
288 let msg = 'ttymouse=' .. ttymouse_val |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
289 exe 'set ttymouse=' .. ttymouse_val |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
290 help |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
291 /usr_02.txt |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
292 norm! zt |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
293 let row = 1 |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
294 let col = 1 |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
295 call MouseCtrlLeftClick(row, col) |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
296 call MouseLeftRelease(row, col) |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
297 call assert_match('usr_02.txt$', bufname('%'), msg) |
18223
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
298 call assert_equal('*usr_02.txt*', expand('<cWORD>'), msg) |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
299 |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
300 call MouseCtrlRightClick(row, col) |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
301 call MouseRightRelease(row, col) |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
302 call assert_match('help.txt$', bufname('%'), msg) |
18223
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
303 call assert_equal('|usr_02.txt|', expand('<cWORD>'), msg) |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
304 |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
305 helpclose |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
306 endfor |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
307 |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
308 let &mouse = save_mouse |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
309 let &term = save_term |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
310 let &ttymouse = save_ttymouse |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
311 endfunc |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
312 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
313 func Test_term_mouse_middle_click() |
17686
853afcc375b2
patch 8.1.1840: Testing: WorkingClipboard() is not accurate
Bram Moolenaar <Bram@vim.org>
parents:
17657
diff
changeset
|
314 CheckFeature clipboard_working |
16437
fbc0b3b38c79
patch 8.1.1223: middle mouse click test fails without a clipboard
Bram Moolenaar <Bram@vim.org>
parents:
16423
diff
changeset
|
315 |
16423
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
316 new |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
317 let save_mouse = &mouse |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
318 let save_term = &term |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
319 let save_ttymouse = &ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
320 call test_override('no_query_mouse', 1) |
16423
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
321 let save_quotestar = @* |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
322 let @* = 'abc' |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
323 set mouse=a term=xterm |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
324 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
325 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec |
16423
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
326 let msg = 'ttymouse=' .. ttymouse_val |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
327 exe 'set ttymouse=' .. ttymouse_val |
16423
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
328 call setline(1, ['123456789', '123456789']) |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
329 |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
330 " Middle-click in the middle of the line pastes text where clicked. |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
331 let row = 1 |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
332 let col = 6 |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
333 call MouseMiddleClick(row, col) |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
334 call MouseMiddleRelease(row, col) |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
335 call assert_equal(['12345abc6789', '123456789'], getline(1, '$'), msg) |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
336 |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
337 " Middle-click beyond end of the line pastes text at the end of the line. |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
338 let col = 20 |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
339 call MouseMiddleClick(row, col) |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
340 call MouseMiddleRelease(row, col) |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
341 call assert_equal(['12345abc6789abc', '123456789'], getline(1, '$'), msg) |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
342 |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
343 " Middle-click beyond the last line pastes in the last line. |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
344 let row = 5 |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
345 let col = 3 |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
346 call MouseMiddleClick(row, col) |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
347 call MouseMiddleRelease(row, col) |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
348 call assert_equal(['12345abc6789abc', '12abc3456789'], getline(1, '$'), msg) |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
349 endfor |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
350 |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
351 let &mouse = save_mouse |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
352 let &term = save_term |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
353 let &ttymouse = save_ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
354 call test_override('no_query_mouse', 0) |
16423
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
355 let @* = save_quotestar |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
356 bwipe! |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
357 endfunc |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
358 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
359 " TODO: for unclear reasons this test fails if it comes after |
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
360 " Test_xterm_mouse_ctrl_click() |
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
361 func Test_1xterm_mouse_wheel() |
16265
7feb5b90be5f
patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16263
diff
changeset
|
362 new |
7feb5b90be5f
patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16263
diff
changeset
|
363 let save_mouse = &mouse |
7feb5b90be5f
patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16263
diff
changeset
|
364 let save_term = &term |
7feb5b90be5f
patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16263
diff
changeset
|
365 let save_ttymouse = &ttymouse |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
366 set mouse=a term=xterm |
16265
7feb5b90be5f
patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16263
diff
changeset
|
367 call setline(1, range(1, 100)) |
7feb5b90be5f
patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16263
diff
changeset
|
368 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
369 for ttymouse_val in s:ttymouse_values |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
370 let msg = 'ttymouse=' .. ttymouse_val |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
371 exe 'set ttymouse=' .. ttymouse_val |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
372 go |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
373 call assert_equal(1, line('w0'), msg) |
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
374 call assert_equal([0, 1, 1, 0], getpos('.'), msg) |
16265
7feb5b90be5f
patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16263
diff
changeset
|
375 |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
376 call MouseWheelDown(1, 1) |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
377 call assert_equal(4, line('w0'), msg) |
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
378 call assert_equal([0, 4, 1, 0], getpos('.'), msg) |
16265
7feb5b90be5f
patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16263
diff
changeset
|
379 |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
380 call MouseWheelDown(1, 1) |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
381 call assert_equal(7, line('w0'), msg) |
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
382 call assert_equal([0, 7, 1, 0], getpos('.'), msg) |
16265
7feb5b90be5f
patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16263
diff
changeset
|
383 |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
384 call MouseWheelUp(1, 1) |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
385 call assert_equal(4, line('w0'), msg) |
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
386 call assert_equal([0, 7, 1, 0], getpos('.'), msg) |
16265
7feb5b90be5f
patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16263
diff
changeset
|
387 |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
388 call MouseWheelUp(1, 1) |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
389 call assert_equal(1, line('w0'), msg) |
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
390 call assert_equal([0, 7, 1, 0], getpos('.'), msg) |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
391 endfor |
16265
7feb5b90be5f
patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16263
diff
changeset
|
392 |
7feb5b90be5f
patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16263
diff
changeset
|
393 let &mouse = save_mouse |
7feb5b90be5f
patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16263
diff
changeset
|
394 let &term = save_term |
7feb5b90be5f
patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16263
diff
changeset
|
395 let &ttymouse = save_ttymouse |
7feb5b90be5f
patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16263
diff
changeset
|
396 bwipe! |
7feb5b90be5f
patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16263
diff
changeset
|
397 endfunc |
16275
ed5172ae1c32
patch 8.1.1142: no test for dragging the window separators with the mouse
Bram Moolenaar <Bram@vim.org>
parents:
16265
diff
changeset
|
398 |
18223
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
399 " Test that dragging beyond the window (at the bottom and at the top) |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
400 " scrolls window content by the number of lines beyond the window. |
18223
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
401 func Test_term_mouse_drag_beyond_window() |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
402 let save_mouse = &mouse |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
403 let save_term = &term |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
404 let save_ttymouse = &ttymouse |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
405 call test_override('no_query_mouse', 1) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
406 set mouse=a term=xterm |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
407 let col = 1 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
408 call setline(1, range(1, 100)) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
409 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
410 " Split into 3 windows, and go into the middle window |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
411 " so we test dragging mouse below and above the window. |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
412 2split |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
413 wincmd j |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
414 2split |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
415 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
416 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
417 let msg = 'ttymouse=' .. ttymouse_val |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
418 exe 'set ttymouse=' .. ttymouse_val |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
419 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
420 " Line #10 at the top. |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
421 norm! 10zt |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
422 redraw |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
423 call assert_equal(10, winsaveview().topline, msg) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
424 call assert_equal(2, winheight(0), msg) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
425 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
426 let row = 4 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
427 call MouseLeftClick(row, col) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
428 call assert_equal(10, winsaveview().topline, msg) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
429 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
430 " Drag downwards. We're still in the window so topline should |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
431 " not change yet. |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
432 let row += 1 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
433 call MouseLeftDrag(row, col) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
434 call assert_equal(10, winsaveview().topline, msg) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
435 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
436 " We now leave the window at the bottom, so the window content should |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
437 " scroll by 1 line, then 2 lines (etc) as we drag further away. |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
438 let row += 1 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
439 call MouseLeftDrag(row, col) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
440 call assert_equal(11, winsaveview().topline, msg) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
441 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
442 let row += 1 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
443 call MouseLeftDrag(row, col) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
444 call assert_equal(13, winsaveview().topline, msg) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
445 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
446 " Now drag upwards. |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
447 let row -= 1 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
448 call MouseLeftDrag(row, col) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
449 call assert_equal(14, winsaveview().topline, msg) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
450 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
451 " We're now back in the window so the topline should not change. |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
452 let row -= 1 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
453 call MouseLeftDrag(row, col) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
454 call assert_equal(14, winsaveview().topline, msg) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
455 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
456 let row -= 1 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
457 call MouseLeftDrag(row, col) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
458 call assert_equal(14, winsaveview().topline, msg) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
459 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
460 " We now leave the window at the top so the window content should |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
461 " scroll by 1 line, then 2, then 3 (etc) in the opposite direction. |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
462 let row -= 1 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
463 call MouseLeftDrag(row, col) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
464 call assert_equal(13, winsaveview().topline, msg) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
465 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
466 let row -= 1 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
467 call MouseLeftDrag(row, col) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
468 call assert_equal(11, winsaveview().topline, msg) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
469 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
470 let row -= 1 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
471 call MouseLeftDrag(row, col) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
472 call assert_equal(8, winsaveview().topline, msg) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
473 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
474 call MouseLeftRelease(row, col) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
475 call assert_equal(8, winsaveview().topline, msg) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
476 call assert_equal(2, winheight(0), msg) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
477 endfor |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
478 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
479 let &mouse = save_mouse |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
480 let &term = save_term |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
481 let &ttymouse = save_ttymouse |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
482 call test_override('no_query_mouse', 0) |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
483 bwipe! |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
484 endfunc |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
485 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
486 func Test_term_mouse_drag_window_separator() |
16275
ed5172ae1c32
patch 8.1.1142: no test for dragging the window separators with the mouse
Bram Moolenaar <Bram@vim.org>
parents:
16265
diff
changeset
|
487 let save_mouse = &mouse |
ed5172ae1c32
patch 8.1.1142: no test for dragging the window separators with the mouse
Bram Moolenaar <Bram@vim.org>
parents:
16265
diff
changeset
|
488 let save_term = &term |
ed5172ae1c32
patch 8.1.1142: no test for dragging the window separators with the mouse
Bram Moolenaar <Bram@vim.org>
parents:
16265
diff
changeset
|
489 let save_ttymouse = &ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
490 call test_override('no_query_mouse', 1) |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
491 set mouse=a term=xterm |
16275
ed5172ae1c32
patch 8.1.1142: no test for dragging the window separators with the mouse
Bram Moolenaar <Bram@vim.org>
parents:
16265
diff
changeset
|
492 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
493 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
494 let msg = 'ttymouse=' .. ttymouse_val |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
495 exe 'set ttymouse=' .. ttymouse_val |
16275
ed5172ae1c32
patch 8.1.1142: no test for dragging the window separators with the mouse
Bram Moolenaar <Bram@vim.org>
parents:
16265
diff
changeset
|
496 |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
497 " Split horizontally and test dragging the horizontal window separator. |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
498 split |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
499 let rowseparator = winheight(0) + 1 |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
500 let row = rowseparator |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
501 let col = 1 |
16310
5b8b849dc3aa
patch 8.1.1160: termcodes test would fail in a very big terminal
Bram Moolenaar <Bram@vim.org>
parents:
16300
diff
changeset
|
502 |
16352
c742c008953e
patch 8.1.1181: tests for mouse clicks are a bit flaky
Bram Moolenaar <Bram@vim.org>
parents:
16348
diff
changeset
|
503 " When 'ttymouse' is 'xterm2', row/col bigger than 223 are not supported. |
c742c008953e
patch 8.1.1181: tests for mouse clicks are a bit flaky
Bram Moolenaar <Bram@vim.org>
parents:
16348
diff
changeset
|
504 if ttymouse_val !=# 'xterm2' || row <= 223 |
16324
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
505 call MouseLeftClick(row, col) |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
506 let row -= 1 |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
507 call MouseLeftDrag(row, col) |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
508 call assert_equal(rowseparator - 1, winheight(0) + 1, msg) |
16324
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
509 let row += 1 |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
510 call MouseLeftDrag(row, col) |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
511 call assert_equal(rowseparator, winheight(0) + 1, msg) |
16324
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
512 call MouseLeftRelease(row, col) |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
513 call assert_equal(rowseparator, winheight(0) + 1, msg) |
16310
5b8b849dc3aa
patch 8.1.1160: termcodes test would fail in a very big terminal
Bram Moolenaar <Bram@vim.org>
parents:
16300
diff
changeset
|
514 endif |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
515 bwipe! |
16275
ed5172ae1c32
patch 8.1.1142: no test for dragging the window separators with the mouse
Bram Moolenaar <Bram@vim.org>
parents:
16265
diff
changeset
|
516 |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
517 " Split vertically and test dragging the vertical window separator. |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
518 vsplit |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
519 let colseparator = winwidth(0) + 1 |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
520 let row = 1 |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
521 let col = colseparator |
16275
ed5172ae1c32
patch 8.1.1142: no test for dragging the window separators with the mouse
Bram Moolenaar <Bram@vim.org>
parents:
16265
diff
changeset
|
522 |
16352
c742c008953e
patch 8.1.1181: tests for mouse clicks are a bit flaky
Bram Moolenaar <Bram@vim.org>
parents:
16348
diff
changeset
|
523 " When 'ttymouse' is 'xterm2', row/col bigger than 223 are not supported. |
c742c008953e
patch 8.1.1181: tests for mouse clicks are a bit flaky
Bram Moolenaar <Bram@vim.org>
parents:
16348
diff
changeset
|
524 if ttymouse_val !=# 'xterm2' || col <= 223 |
16324
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
525 call MouseLeftClick(row, col) |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
526 let col -= 1 |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
527 call MouseLeftDrag(row, col) |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
528 call assert_equal(colseparator - 1, winwidth(0) + 1, msg) |
16324
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
529 let col += 1 |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
530 call MouseLeftDrag(row, col) |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
531 call assert_equal(colseparator, winwidth(0) + 1, msg) |
16324
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
532 call MouseLeftRelease(row, col) |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
533 call assert_equal(colseparator, winwidth(0) + 1, msg) |
16324
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
534 endif |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
535 bwipe! |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
536 endfor |
16275
ed5172ae1c32
patch 8.1.1142: no test for dragging the window separators with the mouse
Bram Moolenaar <Bram@vim.org>
parents:
16265
diff
changeset
|
537 |
ed5172ae1c32
patch 8.1.1142: no test for dragging the window separators with the mouse
Bram Moolenaar <Bram@vim.org>
parents:
16265
diff
changeset
|
538 let &mouse = save_mouse |
ed5172ae1c32
patch 8.1.1142: no test for dragging the window separators with the mouse
Bram Moolenaar <Bram@vim.org>
parents:
16265
diff
changeset
|
539 let &term = save_term |
ed5172ae1c32
patch 8.1.1142: no test for dragging the window separators with the mouse
Bram Moolenaar <Bram@vim.org>
parents:
16265
diff
changeset
|
540 let &ttymouse = save_ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
541 call test_override('no_query_mouse', 0) |
16275
ed5172ae1c32
patch 8.1.1142: no test for dragging the window separators with the mouse
Bram Moolenaar <Bram@vim.org>
parents:
16265
diff
changeset
|
542 endfunc |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
543 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
544 func Test_term_mouse_drag_statusline() |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
545 let save_mouse = &mouse |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
546 let save_term = &term |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
547 let save_ttymouse = &ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
548 call test_override('no_query_mouse', 1) |
16320
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
549 let save_laststatus = &laststatus |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
550 set mouse=a term=xterm laststatus=2 |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
551 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
552 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
553 let msg = 'ttymouse=' .. ttymouse_val |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
554 exe 'set ttymouse=' .. ttymouse_val |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
555 |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
556 call assert_equal(1, &cmdheight, msg) |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
557 let rowstatusline = winheight(0) + 1 |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
558 let row = rowstatusline |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
559 let col = 1 |
16310
5b8b849dc3aa
patch 8.1.1160: termcodes test would fail in a very big terminal
Bram Moolenaar <Bram@vim.org>
parents:
16300
diff
changeset
|
560 |
16352
c742c008953e
patch 8.1.1181: tests for mouse clicks are a bit flaky
Bram Moolenaar <Bram@vim.org>
parents:
16348
diff
changeset
|
561 if ttymouse_val ==# 'xterm2' && row > 223 |
c742c008953e
patch 8.1.1181: tests for mouse clicks are a bit flaky
Bram Moolenaar <Bram@vim.org>
parents:
16348
diff
changeset
|
562 " When 'ttymouse' is 'xterm2', row/col bigger than 223 are not supported. |
16310
5b8b849dc3aa
patch 8.1.1160: termcodes test would fail in a very big terminal
Bram Moolenaar <Bram@vim.org>
parents:
16300
diff
changeset
|
563 continue |
5b8b849dc3aa
patch 8.1.1160: termcodes test would fail in a very big terminal
Bram Moolenaar <Bram@vim.org>
parents:
16300
diff
changeset
|
564 endif |
5b8b849dc3aa
patch 8.1.1160: termcodes test would fail in a very big terminal
Bram Moolenaar <Bram@vim.org>
parents:
16300
diff
changeset
|
565 |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
566 call MouseLeftClick(row, col) |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
567 let row -= 1 |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
568 call MouseLeftDrag(row, col) |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
569 call assert_equal(2, &cmdheight, msg) |
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
570 call assert_equal(rowstatusline - 1, winheight(0) + 1, msg) |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
571 let row += 1 |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
572 call MouseLeftDrag(row, col) |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
573 call assert_equal(1, &cmdheight, msg) |
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
574 call assert_equal(rowstatusline, winheight(0) + 1, msg) |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
575 call MouseLeftRelease(row, col) |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
576 call assert_equal(1, &cmdheight, msg) |
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
577 call assert_equal(rowstatusline, winheight(0) + 1, msg) |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
578 endfor |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
579 |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
580 let &mouse = save_mouse |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
581 let &term = save_term |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
582 let &ttymouse = save_ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
583 call test_override('no_query_mouse', 0) |
16320
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
584 let &laststatus = save_laststatus |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
585 endfunc |
16320
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
586 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
587 func Test_term_mouse_click_tab() |
16320
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
588 let save_mouse = &mouse |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
589 let save_term = &term |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
590 let save_ttymouse = &ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
591 call test_override('no_query_mouse', 1) |
16320
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
592 set mouse=a term=xterm |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
593 let row = 1 |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
594 |
16493
4912193bc5e7
patch 8.1.1250: no test for netterm mouse
Bram Moolenaar <Bram@vim.org>
parents:
16489
diff
changeset
|
595 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec + s:ttymouse_netterm |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
596 let msg = 'ttymouse=' .. ttymouse_val |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
597 exe 'set ttymouse=' .. ttymouse_val |
16320
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
598 e Xfoo |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
599 tabnew Xbar |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
600 |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
601 let a = split(execute(':tabs'), "\n") |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
602 call assert_equal(['Tab page 1', |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
603 \ ' Xfoo', |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
604 \ 'Tab page 2', |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
605 \ '> Xbar'], a, msg) |
16320
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
606 |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
607 " Test clicking on tab names in the tabline at the top. |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
608 let col = 2 |
16324
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
609 redraw |
16320
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
610 call MouseLeftClick(row, col) |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
611 call MouseLeftRelease(row, col) |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
612 let a = split(execute(':tabs'), "\n") |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
613 call assert_equal(['Tab page 1', |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
614 \ '> Xfoo', |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
615 \ 'Tab page 2', |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
616 \ ' Xbar'], a, msg) |
16320
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
617 |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
618 let col = 9 |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
619 call MouseLeftClick(row, col) |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
620 call MouseLeftRelease(row, col) |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
621 let a = split(execute(':tabs'), "\n") |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
622 call assert_equal(['Tab page 1', |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
623 \ ' Xfoo', |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
624 \ 'Tab page 2', |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
625 \ '> Xbar'], a, msg) |
16320
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
626 |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
627 %bwipe! |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
628 endfor |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
629 |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
630 let &mouse = save_mouse |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
631 let &term = save_term |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
632 let &ttymouse = save_ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
633 call test_override('no_query_mouse', 0) |
16320
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
634 endfunc |
16324
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
635 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
636 func Test_term_mouse_click_X_to_close_tab() |
16324
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
637 let save_mouse = &mouse |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
638 let save_term = &term |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
639 let save_ttymouse = &ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
640 call test_override('no_query_mouse', 1) |
16324
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
641 set mouse=a term=xterm |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
642 let row = 1 |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
643 let col = &columns |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
644 |
16493
4912193bc5e7
patch 8.1.1250: no test for netterm mouse
Bram Moolenaar <Bram@vim.org>
parents:
16489
diff
changeset
|
645 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec + s:ttymouse_netterm |
16352
c742c008953e
patch 8.1.1181: tests for mouse clicks are a bit flaky
Bram Moolenaar <Bram@vim.org>
parents:
16348
diff
changeset
|
646 if ttymouse_val ==# 'xterm2' && col > 223 |
c742c008953e
patch 8.1.1181: tests for mouse clicks are a bit flaky
Bram Moolenaar <Bram@vim.org>
parents:
16348
diff
changeset
|
647 " When 'ttymouse' is 'xterm2', row/col bigger than 223 are not supported. |
16324
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
648 continue |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
649 endif |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
650 let msg = 'ttymouse=' .. ttymouse_val |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
651 exe 'set ttymouse=' .. ttymouse_val |
16324
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
652 e Xtab1 |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
653 tabnew Xtab2 |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
654 tabnew Xtab3 |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
655 tabn 2 |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
656 |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
657 let a = split(execute(':tabs'), "\n") |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
658 call assert_equal(['Tab page 1', |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
659 \ ' Xtab1', |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
660 \ 'Tab page 2', |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
661 \ '> Xtab2', |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
662 \ 'Tab page 3', |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
663 \ ' Xtab3'], a, msg) |
16324
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
664 |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
665 " Click on "X" in tabline to close current tab i.e. Xtab2. |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
666 redraw |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
667 call MouseLeftClick(row, col) |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
668 call MouseLeftRelease(row, col) |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
669 let a = split(execute(':tabs'), "\n") |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
670 call assert_equal(['Tab page 1', |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
671 \ ' Xtab1', |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
672 \ 'Tab page 2', |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
673 \ '> Xtab3'], a, msg) |
16324
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
674 |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
675 %bwipe! |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
676 endfor |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
677 |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
678 let &mouse = save_mouse |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
679 let &term = save_term |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
680 let &ttymouse = save_ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
681 call test_override('no_query_mouse', 0) |
16324
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
682 endfunc |
16340
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
683 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
684 func Test_term_mouse_drag_to_move_tab() |
16340
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
685 let save_mouse = &mouse |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
686 let save_term = &term |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
687 let save_ttymouse = &ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
688 call test_override('no_query_mouse', 1) |
16340
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
689 " Set 'mousetime' to 1 to avoid recognizing a double-click in the loop |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
690 set mouse=a term=xterm mousetime=1 |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
691 let row = 1 |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
692 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
693 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
694 let msg = 'ttymouse=' .. ttymouse_val |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
695 exe 'set ttymouse=' .. ttymouse_val |
16340
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
696 e Xtab1 |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
697 tabnew Xtab2 |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
698 |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
699 let a = split(execute(':tabs'), "\n") |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
700 call assert_equal(['Tab page 1', |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
701 \ ' Xtab1', |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
702 \ 'Tab page 2', |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
703 \ '> Xtab2'], a, msg) |
16340
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
704 redraw |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
705 |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
706 " Click in tab2 and drag it to tab1. |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
707 " Check getcharmod() to verify that click is not |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
708 " interpreted as a spurious double-click. |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
709 call MouseLeftClick(row, 10) |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
710 call assert_equal(0, getcharmod(), msg) |
16340
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
711 for col in [9, 8, 7, 6] |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
712 call MouseLeftDrag(row, col) |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
713 endfor |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
714 call MouseLeftRelease(row, col) |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
715 let a = split(execute(':tabs'), "\n") |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
716 call assert_equal(['Tab page 1', |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
717 \ '> Xtab2', |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
718 \ 'Tab page 2', |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
719 \ ' Xtab1'], a, msg) |
16340
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
720 |
18627
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
721 " Click elsewhere so that click in next iteration is not |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
722 " interpreted as unwanted double-click. |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
723 call MouseLeftClick(row, 11) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
724 call MouseLeftRelease(row, 11) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
725 |
16340
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
726 %bwipe! |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
727 endfor |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
728 |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
729 let &mouse = save_mouse |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
730 let &term = save_term |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
731 let &ttymouse = save_ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
732 call test_override('no_query_mouse', 0) |
16340
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
733 set mousetime& |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
734 endfunc |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
735 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
736 func Test_term_mouse_double_click_to_create_tab() |
16340
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
737 let save_mouse = &mouse |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
738 let save_term = &term |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
739 let save_ttymouse = &ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
740 call test_override('no_query_mouse', 1) |
16340
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
741 " Set 'mousetime' to a small value, so that double-click works but we don't |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
742 " have to wait long to avoid a triple-click. |
18627
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
743 set mouse=a term=xterm mousetime=200 |
16340
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
744 let row = 1 |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
745 let col = 10 |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
746 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
747 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
748 let msg = 'ttymouse=' .. ttymouse_val |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
749 exe 'set ttymouse=' .. ttymouse_val |
16340
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
750 e Xtab1 |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
751 tabnew Xtab2 |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
752 |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
753 let a = split(execute(':tabs'), "\n") |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
754 call assert_equal(['Tab page 1', |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
755 \ ' Xtab1', |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
756 \ 'Tab page 2', |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
757 \ '> Xtab2'], a, msg) |
16340
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
758 |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
759 redraw |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
760 call MouseLeftClick(row, col) |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
761 " Check getcharmod() to verify that first click is not |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
762 " interpreted as a spurious double-click. |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
763 call assert_equal(0, getcharmod(), msg) |
16340
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
764 call MouseLeftRelease(row, col) |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
765 call MouseLeftClick(row, col) |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
766 call assert_equal(32, getcharmod(), msg) " double-click |
16340
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
767 call MouseLeftRelease(row, col) |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
768 let a = split(execute(':tabs'), "\n") |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
769 call assert_equal(['Tab page 1', |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
770 \ ' Xtab1', |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
771 \ 'Tab page 2', |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
772 \ '> [No Name]', |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
773 \ 'Tab page 3', |
16346
2fb516abde42
patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown
Bram Moolenaar <Bram@vim.org>
parents:
16342
diff
changeset
|
774 \ ' Xtab2'], a, msg) |
16340
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
775 |
18627
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
776 " Click elsewhere so that click in next iteration is not |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
777 " interpreted as unwanted double click. |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
778 call MouseLeftClick(row, col + 1) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
779 call MouseLeftRelease(row, col + 1) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
780 |
16340
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
781 %bwipe! |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
782 endfor |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
783 |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
784 let &mouse = save_mouse |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
785 let &term = save_term |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
786 let &ttymouse = save_ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
787 call test_override('no_query_mouse', 0) |
16340
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
788 set mousetime& |
2f70fc41ff7e
patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents:
16324
diff
changeset
|
789 endfunc |
16348
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
790 |
18627
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
791 " Test double/triple/quadruple click in normal mode to visually select. |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
792 func Test_term_mouse_multiple_clicks_to_visually_select() |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
793 let save_mouse = &mouse |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
794 let save_term = &term |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
795 let save_ttymouse = &ttymouse |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
796 call test_override('no_query_mouse', 1) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
797 set mouse=a term=xterm mousetime=200 |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
798 new |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
799 |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
800 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
801 let msg = 'ttymouse=' .. ttymouse_val |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
802 exe 'set ttymouse=' .. ttymouse_val |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
803 call setline(1, ['foo [foo bar] foo', 'foo']) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
804 |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
805 " Double-click on word should visually select the word. |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
806 call MouseLeftClick(1, 2) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
807 call assert_equal(0, getcharmod(), msg) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
808 call MouseLeftRelease(1, 2) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
809 call MouseLeftClick(1, 2) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
810 call assert_equal(32, getcharmod(), msg) " double-click |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
811 call MouseLeftRelease(1, 2) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
812 call assert_equal('v', mode(), msg) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
813 norm! r1 |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
814 call assert_equal(['111 [foo bar] foo', 'foo'], getline(1, '$'), msg) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
815 |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
816 " Double-click on opening square bracket should visually |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
817 " select the whole [foo bar]. |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
818 call MouseLeftClick(1, 5) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
819 call assert_equal(0, getcharmod(), msg) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
820 call MouseLeftRelease(1, 5) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
821 call MouseLeftClick(1, 5) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
822 call assert_equal(32, getcharmod(), msg) " double-click |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
823 call MouseLeftRelease(1, 5) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
824 call assert_equal('v', mode(), msg) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
825 norm! r2 |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
826 call assert_equal(['111 222222222 foo', 'foo'], getline(1, '$'), msg) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
827 |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
828 " Triple-click should visually select the whole line. |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
829 call MouseLeftClick(1, 3) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
830 call assert_equal(0, getcharmod(), msg) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
831 call MouseLeftRelease(1, 3) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
832 call MouseLeftClick(1, 3) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
833 call assert_equal(32, getcharmod(), msg) " double-click |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
834 call MouseLeftRelease(1, 3) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
835 call MouseLeftClick(1, 3) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
836 call assert_equal(64, getcharmod(), msg) " triple-click |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
837 call MouseLeftRelease(1, 3) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
838 call assert_equal('V', mode(), msg) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
839 norm! r3 |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
840 call assert_equal(['33333333333333333', 'foo'], getline(1, '$'), msg) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
841 |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
842 " Quadruple-click should start visual block select. |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
843 call MouseLeftClick(1, 2) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
844 call assert_equal(0, getcharmod(), msg) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
845 call MouseLeftRelease(1, 2) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
846 call MouseLeftClick(1, 2) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
847 call assert_equal(32, getcharmod(), msg) " double-click |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
848 call MouseLeftRelease(1, 2) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
849 call MouseLeftClick(1, 2) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
850 call assert_equal(64, getcharmod(), msg) " triple-click |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
851 call MouseLeftRelease(1, 2) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
852 call MouseLeftClick(1, 2) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
853 call assert_equal(96, getcharmod(), msg) " quadruple-click |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
854 call MouseLeftRelease(1, 2) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
855 call assert_equal("\<c-v>", mode(), msg) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
856 norm! r4 |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
857 call assert_equal(['34333333333333333', 'foo'], getline(1, '$'), msg) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
858 endfor |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
859 |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
860 let &mouse = save_mouse |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
861 let &term = save_term |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
862 let &ttymouse = save_ttymouse |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
863 set mousetime& |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
864 call test_override('no_query_mouse', 0) |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
865 bwipe! |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
866 endfunc |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
867 |
16348
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
868 func Test_xterm_mouse_click_in_fold_columns() |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
869 new |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
870 let save_mouse = &mouse |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
871 let save_term = &term |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
872 let save_ttymouse = &ttymouse |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
873 let save_foldcolumn = &foldcolumn |
16352
c742c008953e
patch 8.1.1181: tests for mouse clicks are a bit flaky
Bram Moolenaar <Bram@vim.org>
parents:
16348
diff
changeset
|
874 set mouse=a term=xterm foldcolumn=3 ttymouse=xterm2 |
16348
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
875 |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
876 " Create 2 nested folds. |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
877 call setline(1, range(1, 7)) |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
878 2,6fold |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
879 norm! zR |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
880 4,5fold |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
881 call assert_equal([-1, -1, -1, 4, 4, -1, -1], |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
882 \ map(range(1, 7), 'foldclosed(v:val)')) |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
883 |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
884 " Click in "+" of inner fold in foldcolumn should open it. |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
885 redraw |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
886 let row = 4 |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
887 let col = 2 |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
888 call MouseLeftClick(row, col) |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
889 call MouseLeftRelease(row, col) |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
890 call assert_equal([-1, -1, -1, -1, -1, -1, -1], |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
891 \ map(range(1, 7), 'foldclosed(v:val)')) |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
892 |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
893 " Click in "-" of outer fold in foldcolumn should close it. |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
894 redraw |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
895 let row = 2 |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
896 let col = 1 |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
897 call MouseLeftClick(row, col) |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
898 call MouseLeftRelease(row, col) |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
899 call assert_equal([-1, 2, 2, 2, 2, 2, -1], |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
900 \ map(range(1, 7), 'foldclosed(v:val)')) |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
901 norm! zR |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
902 |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
903 " Click in "|" of inner fold in foldcolumn should close it. |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
904 redraw |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
905 let row = 5 |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
906 let col = 2 |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
907 call MouseLeftClick(row, col) |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
908 call MouseLeftRelease(row, col) |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
909 call assert_equal([-1, -1, -1, 4, 4, -1, -1], |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
910 \ map(range(1, 7), 'foldclosed(v:val)')) |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
911 |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
912 let &foldcolumn = save_foldcolumn |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
913 let &ttymouse = save_ttymouse |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
914 let &term = save_term |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
915 let &mouse = save_mouse |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
916 bwipe! |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
917 endfunc |
16936
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
918 |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
919 " Left or right click in Ex command line sets position of the cursor. |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
920 func Test_term_mouse_click_in_cmdline_to_set_pos() |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
921 let save_mouse = &mouse |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
922 let save_term = &term |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
923 let save_ttymouse = &ttymouse |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
924 call test_override('no_query_mouse', 1) |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
925 set mouse=a term=xterm |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
926 let row = &lines |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
927 |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
928 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
929 let msg = 'ttymouse=' .. ttymouse_val |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
930 exe 'set ttymouse=' .. ttymouse_val |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
931 |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
932 call feedkeys(':"3456789' |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
933 \ .. MouseLeftClickCode(row, 7) |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
934 \ .. MouseLeftReleaseCode(row, 7) .. 'L' |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
935 \ .. MouseRightClickCode(row, 4) |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
936 \ .. MouseRightReleaseCode(row, 4) .. 'R' |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
937 \ .. "\<CR>", 'Lx!') |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
938 call assert_equal('"3R456L789', @:, msg) |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
939 endfor |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
940 |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
941 let &mouse = save_mouse |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
942 let &term = save_term |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
943 let &ttymouse = save_ttymouse |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
944 set mousetime& |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
945 call test_override('no_query_mouse', 0) |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
946 endfunc |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
947 |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
948 " Middle click in command line pastes at position of cursor. |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
949 func Test_term_mouse_middle_click_in_cmdline_to_paste() |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
950 CheckFeature clipboard_working |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
951 let save_mouse = &mouse |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
952 let save_term = &term |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
953 let save_ttymouse = &ttymouse |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
954 call test_override('no_query_mouse', 1) |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
955 set mouse=a term=xterm |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
956 let row = &lines |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
957 " Column values does not matter, paste is done at position of cursor. |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
958 let col = 1 |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
959 let @* = 'paste' |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
960 |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
961 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
962 let msg = 'ttymouse=' .. ttymouse_val |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
963 exe 'set ttymouse=' .. ttymouse_val |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
964 |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
965 call feedkeys(":\"->" |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
966 \ .. MouseMiddleReleaseCode(row, col) |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
967 \ .. MouseMiddleClickCode(row, col) |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
968 \ .. "<-" |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
969 \ .. MouseMiddleReleaseCode(row, col) |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
970 \ .. MouseMiddleClickCode(row, col) |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
971 \ .. "\<CR>", 'Lx!') |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
972 call assert_equal('"->paste<-paste', @:, msg) |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
973 endfor |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
974 |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
975 let &mouse = save_mouse |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
976 let &term = save_term |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
977 let &ttymouse = save_ttymouse |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
978 let @* = '' |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
979 call test_override('no_query_mouse', 0) |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
980 endfunc |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
981 |
16936
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
982 " This only checks if the sequence is recognized. |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
983 func Test_term_rgb_response() |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
984 set t_RF=x |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
985 set t_RB=y |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
986 |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
987 " response to t_RF, 4 digits |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
988 let red = 0x12 |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
989 let green = 0x34 |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
990 let blue = 0x56 |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
991 let seq = printf("\<Esc>]10;rgb:%02x00/%02x00/%02x00\x07", red, green, blue) |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
992 call feedkeys(seq, 'Lx!') |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
993 call assert_equal(seq, v:termrfgresp) |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
994 |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
995 " response to t_RF, 2 digits |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
996 let red = 0x78 |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
997 let green = 0x9a |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
998 let blue = 0xbc |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
999 let seq = printf("\<Esc>]10;rgb:%02x/%02x/%02x\x07", red, green, blue) |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1000 call feedkeys(seq, 'Lx!') |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1001 call assert_equal(seq, v:termrfgresp) |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1002 |
16940
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1003 " response to t_RB, 4 digits, dark |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1004 set background=light |
18031
8a2fb21c23c0
patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents:
17914
diff
changeset
|
1005 eval 'background'->test_option_not_set() |
16940
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1006 let red = 0x29 |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1007 let green = 0x4a |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1008 let blue = 0x6b |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1009 let seq = printf("\<Esc>]11;rgb:%02x00/%02x00/%02x00\x07", red, green, blue) |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1010 call feedkeys(seq, 'Lx!') |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1011 call assert_equal(seq, v:termrbgresp) |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1012 call assert_equal('dark', &background) |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1013 |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1014 " response to t_RB, 4 digits, light |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1015 set background=dark |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1016 call test_option_not_set('background') |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1017 let red = 0x81 |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1018 let green = 0x63 |
16936
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1019 let blue = 0x65 |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1020 let seq = printf("\<Esc>]11;rgb:%02x00/%02x00/%02x00\x07", red, green, blue) |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1021 call feedkeys(seq, 'Lx!') |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1022 call assert_equal(seq, v:termrbgresp) |
16940
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1023 call assert_equal('light', &background) |
16936
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1024 |
16940
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1025 " response to t_RB, 2 digits, dark |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1026 set background=light |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1027 call test_option_not_set('background') |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1028 let red = 0x47 |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1029 let green = 0x59 |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1030 let blue = 0x5b |
16936
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1031 let seq = printf("\<Esc>]11;rgb:%02x/%02x/%02x\x07", red, green, blue) |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1032 call feedkeys(seq, 'Lx!') |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1033 call assert_equal(seq, v:termrbgresp) |
16940
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1034 call assert_equal('dark', &background) |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
1035 |
16940
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1036 " response to t_RB, 2 digits, light |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1037 set background=dark |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1038 call test_option_not_set('background') |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1039 let red = 0x83 |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1040 let green = 0xa4 |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1041 let blue = 0xc2 |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1042 let seq = printf("\<Esc>]11;rgb:%02x/%02x/%02x\x07", red, green, blue) |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1043 call feedkeys(seq, 'Lx!') |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1044 call assert_equal(seq, v:termrbgresp) |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1045 call assert_equal('light', &background) |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
1046 |
16936
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1047 set t_RF= t_RB= |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1048 endfunc |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1049 |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1050 " This only checks if the sequence is recognized. |
18285
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1051 " This must be after other tests, because it has side effects to xterm |
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1052 " properties. |
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1053 func Test_xx01_term_style_response() |
16936
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1054 " Termresponse is only parsed when t_RV is not empty. |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1055 set t_RV=x |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1056 |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1057 " send the termresponse to trigger requesting the XT codes |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1058 let seq = "\<Esc>[>41;337;0c" |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1059 call feedkeys(seq, 'Lx!') |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1060 call assert_equal(seq, v:termresponse) |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1061 |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1062 let seq = "\<Esc>P1$r2 q\<Esc>\\" |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1063 call feedkeys(seq, 'Lx!') |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1064 call assert_equal(seq, v:termstyleresp) |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1065 |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1066 set t_RV= |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1067 endfunc |
16942
5f3e960ce76d
patch 8.1.1472: add_termcap_entry() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16940
diff
changeset
|
1068 |
18360
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1069 " This checks the iTerm2 version response. |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1070 " This must be after other tests, because it has side effects to xterm |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1071 " properties. |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1072 func Test_xx02_iTerm2_response() |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1073 " Termresponse is only parsed when t_RV is not empty. |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1074 set t_RV=x |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1075 |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1076 " Old versions of iTerm2 used a different style term response. |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1077 set ttymouse=xterm |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1078 call test_option_not_set('ttymouse') |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1079 let seq = "\<Esc>[>0;95;c" |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1080 call feedkeys(seq, 'Lx!') |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1081 call assert_equal(seq, v:termresponse) |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1082 call assert_equal('xterm', &ttymouse) |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1083 |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1084 set ttymouse=xterm |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1085 call test_option_not_set('ttymouse') |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1086 let seq = "\<Esc>[>0;95;0c" |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1087 call feedkeys(seq, 'Lx!') |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1088 call assert_equal(seq, v:termresponse) |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1089 call assert_equal('sgr', &ttymouse) |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1090 |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1091 set t_RV= |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1092 endfunc |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1093 |
18285
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1094 " This checks the libvterm version response. |
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1095 " This must be after other tests, because it has side effects to xterm |
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1096 " properties. |
18360
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1097 func Test_xx03_libvterm_response() |
18285
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1098 " Termresponse is only parsed when t_RV is not empty. |
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1099 set t_RV=x |
18311
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1100 |
18285
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1101 set ttymouse=xterm |
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1102 call test_option_not_set('ttymouse') |
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1103 let seq = "\<Esc>[>0;100;0c" |
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1104 call feedkeys(seq, 'Lx!') |
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1105 call assert_equal(seq, v:termresponse) |
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1106 call assert_equal('sgr', &ttymouse) |
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1107 |
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1108 set t_RV= |
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1109 endfunc |
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1110 |
18360
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1111 " This checks the Mac Terminal.app version response. |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1112 " This must be after other tests, because it has side effects to xterm |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1113 " properties. |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1114 func Test_xx04_Mac_Terminal_response() |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1115 " Termresponse is only parsed when t_RV is not empty. |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1116 set t_RV=x |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1117 |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1118 set ttymouse=xterm |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1119 call test_option_not_set('ttymouse') |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1120 let seq = "\<Esc>[>1;95;0c" |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1121 call feedkeys(seq, 'Lx!') |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1122 call assert_equal(seq, v:termresponse) |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1123 call assert_equal('sgr', &ttymouse) |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1124 |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1125 " Reset is_not_xterm and is_mac_terminal. |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1126 set t_RV= |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1127 set term=xterm |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1128 set t_RV=x |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1129 endfunc |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1130 |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1131 " This checks the mintty version response. |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1132 " This must be after other tests, because it has side effects to xterm |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1133 " properties. |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1134 func Test_xx05_mintty_response() |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1135 " Termresponse is only parsed when t_RV is not empty. |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1136 set t_RV=x |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1137 |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1138 set ttymouse=xterm |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1139 call test_option_not_set('ttymouse') |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1140 let seq = "\<Esc>[>77;20905;0c" |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1141 call feedkeys(seq, 'Lx!') |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1142 call assert_equal(seq, v:termresponse) |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1143 call assert_equal('sgr', &ttymouse) |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1144 |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1145 set t_RV= |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1146 endfunc |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1147 |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1148 " This checks the screen version response. |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1149 " This must be after other tests, because it has side effects to xterm |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1150 " properties. |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1151 func Test_xx06_screen_response() |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1152 " Termresponse is only parsed when t_RV is not empty. |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1153 set t_RV=x |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1154 |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1155 " Old versions of screen don't support SGR mouse mode. |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1156 set ttymouse=xterm |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1157 call test_option_not_set('ttymouse') |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1158 let seq = "\<Esc>[>83;40500;0c" |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1159 call feedkeys(seq, 'Lx!') |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1160 call assert_equal(seq, v:termresponse) |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1161 call assert_equal('xterm', &ttymouse) |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1162 |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1163 " screen supports SGR mouse mode starting in version 4.7. |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1164 set ttymouse=xterm |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1165 call test_option_not_set('ttymouse') |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1166 let seq = "\<Esc>[>83;40700;0c" |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1167 call feedkeys(seq, 'Lx!') |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1168 call assert_equal(seq, v:termresponse) |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1169 call assert_equal('sgr', &ttymouse) |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1170 |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1171 set t_RV= |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1172 endfunc |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1173 |
18311
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1174 " This checks the xterm version response. |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1175 " This must be after other tests, because it has side effects to xterm |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1176 " properties. |
18360
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1177 func Test_xx07_xterm_response() |
18311
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1178 " Termresponse is only parsed when t_RV is not empty. |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1179 set t_RV=x |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1180 |
18350
b1796f1b28fa
patch 8.1.2169: terminal flags are never reset
Bram Moolenaar <Bram@vim.org>
parents:
18311
diff
changeset
|
1181 " Do Terminal.app first to check that is_mac_terminal is reset. |
b1796f1b28fa
patch 8.1.2169: terminal flags are never reset
Bram Moolenaar <Bram@vim.org>
parents:
18311
diff
changeset
|
1182 set ttymouse=xterm |
b1796f1b28fa
patch 8.1.2169: terminal flags are never reset
Bram Moolenaar <Bram@vim.org>
parents:
18311
diff
changeset
|
1183 call test_option_not_set('ttymouse') |
b1796f1b28fa
patch 8.1.2169: terminal flags are never reset
Bram Moolenaar <Bram@vim.org>
parents:
18311
diff
changeset
|
1184 let seq = "\<Esc>[>1;95;0c" |
b1796f1b28fa
patch 8.1.2169: terminal flags are never reset
Bram Moolenaar <Bram@vim.org>
parents:
18311
diff
changeset
|
1185 call feedkeys(seq, 'Lx!') |
b1796f1b28fa
patch 8.1.2169: terminal flags are never reset
Bram Moolenaar <Bram@vim.org>
parents:
18311
diff
changeset
|
1186 call assert_equal(seq, v:termresponse) |
b1796f1b28fa
patch 8.1.2169: terminal flags are never reset
Bram Moolenaar <Bram@vim.org>
parents:
18311
diff
changeset
|
1187 call assert_equal('sgr', &ttymouse) |
b1796f1b28fa
patch 8.1.2169: terminal flags are never reset
Bram Moolenaar <Bram@vim.org>
parents:
18311
diff
changeset
|
1188 |
18311
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1189 " xterm < 95: "xterm" (actually unmodified) |
18350
b1796f1b28fa
patch 8.1.2169: terminal flags are never reset
Bram Moolenaar <Bram@vim.org>
parents:
18311
diff
changeset
|
1190 set t_RV= |
b1796f1b28fa
patch 8.1.2169: terminal flags are never reset
Bram Moolenaar <Bram@vim.org>
parents:
18311
diff
changeset
|
1191 set term=xterm |
b1796f1b28fa
patch 8.1.2169: terminal flags are never reset
Bram Moolenaar <Bram@vim.org>
parents:
18311
diff
changeset
|
1192 set t_RV=x |
18311
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1193 set ttymouse=xterm |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1194 call test_option_not_set('ttymouse') |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1195 let seq = "\<Esc>[>0;94;0c" |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1196 call feedkeys(seq, 'Lx!') |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1197 call assert_equal(seq, v:termresponse) |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1198 call assert_equal('xterm', &ttymouse) |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1199 |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1200 " xterm >= 95 < 277 "xterm2" |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1201 set ttymouse=xterm |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1202 call test_option_not_set('ttymouse') |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1203 let seq = "\<Esc>[>0;267;0c" |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1204 call feedkeys(seq, 'Lx!') |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1205 call assert_equal(seq, v:termresponse) |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1206 call assert_equal('xterm2', &ttymouse) |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1207 |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1208 " xterm >= 277: "sgr" |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1209 set ttymouse=xterm |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1210 call test_option_not_set('ttymouse') |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1211 let seq = "\<Esc>[>0;277;0c" |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1212 call feedkeys(seq, 'Lx!') |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1213 call assert_equal(seq, v:termresponse) |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1214 call assert_equal('sgr', &ttymouse) |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1215 |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1216 set t_RV= |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1217 endfunc |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1218 |
16942
5f3e960ce76d
patch 8.1.1472: add_termcap_entry() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16940
diff
changeset
|
1219 func Test_get_termcode() |
18247
eda5b2cb1dc4
patch 8.1.2118: termcodes test fails when $TERM is "dumb"
Bram Moolenaar <Bram@vim.org>
parents:
18223
diff
changeset
|
1220 try |
eda5b2cb1dc4
patch 8.1.2118: termcodes test fails when $TERM is "dumb"
Bram Moolenaar <Bram@vim.org>
parents:
18223
diff
changeset
|
1221 let k1 = &t_k1 |
eda5b2cb1dc4
patch 8.1.2118: termcodes test fails when $TERM is "dumb"
Bram Moolenaar <Bram@vim.org>
parents:
18223
diff
changeset
|
1222 catch /E113/ |
eda5b2cb1dc4
patch 8.1.2118: termcodes test fails when $TERM is "dumb"
Bram Moolenaar <Bram@vim.org>
parents:
18223
diff
changeset
|
1223 throw 'Skipped: Unable to query termcodes' |
eda5b2cb1dc4
patch 8.1.2118: termcodes test fails when $TERM is "dumb"
Bram Moolenaar <Bram@vim.org>
parents:
18223
diff
changeset
|
1224 endtry |
16942
5f3e960ce76d
patch 8.1.1472: add_termcap_entry() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16940
diff
changeset
|
1225 set t_k1= |
5f3e960ce76d
patch 8.1.1472: add_termcap_entry() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16940
diff
changeset
|
1226 set t_k1& |
5f3e960ce76d
patch 8.1.1472: add_termcap_entry() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16940
diff
changeset
|
1227 call assert_equal(k1, &t_k1) |
16947
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1228 |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1229 " use external termcap first |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1230 set nottybuiltin |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1231 set t_k1= |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1232 set t_k1& |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1233 " when using external termcap may get something else, but it must not be |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1234 " empty, since we would fallback to the builtin one. |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1235 call assert_notequal('', &t_k1) |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1236 |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1237 if &term =~ 'xterm' |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1238 " use internal termcap first |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1239 let term_save = &term |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1240 let &term = 'builtin_' .. &term |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1241 set t_k1= |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1242 set t_k1& |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1243 call assert_equal(k1, &t_k1) |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1244 let &term = term_save |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1245 endif |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1246 |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1247 set ttybuiltin |
16942
5f3e960ce76d
patch 8.1.1472: add_termcap_entry() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16940
diff
changeset
|
1248 endfunc |
18289
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1249 |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1250 func GetEscCodeCSI27(key, modifier) |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1251 let key = printf("%d", char2nr(a:key)) |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1252 let mod = printf("%d", a:modifier) |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1253 return "\<Esc>[27;" .. mod .. ';' .. key .. '~' |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1254 endfunc |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1255 |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1256 func GetEscCodeCSIu(key, modifier) |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1257 let key = printf("%d", char2nr(a:key)) |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1258 let mod = printf("%d", a:modifier) |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1259 return "\<Esc>[" .. key .. ';' .. mod .. 'u' |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1260 endfunc |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1261 |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1262 " This checks the CSI sequences when in modifyOtherKeys mode. |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1263 " The mode doesn't need to be enabled, the codes are always detected. |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1264 func RunTest_modifyOtherKeys(func) |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1265 new |
18301
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1266 set timeoutlen=10 |
18289
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1267 |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
1268 " Shift-X is sent as 'X' with the shift modifier |
18289
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1269 call feedkeys('a' .. a:func('X', 2) .. "\<Esc>", 'Lx!') |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1270 call assert_equal('X', getline(1)) |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1271 |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1272 " Ctrl-i is Tab |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1273 call setline(1, '') |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1274 call feedkeys('a' .. a:func('i', 5) .. "\<Esc>", 'Lx!') |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1275 call assert_equal("\t", getline(1)) |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1276 |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1277 " Ctrl-I is also Tab |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1278 call setline(1, '') |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1279 call feedkeys('a' .. a:func('I', 5) .. "\<Esc>", 'Lx!') |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1280 call assert_equal("\t", getline(1)) |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1281 |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1282 " Alt-x is ø |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1283 call setline(1, '') |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1284 call feedkeys('a' .. a:func('x', 3) .. "\<Esc>", 'Lx!') |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1285 call assert_equal("ø", getline(1)) |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1286 |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1287 " Meta-x is also ø |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1288 call setline(1, '') |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1289 call feedkeys('a' .. a:func('x', 9) .. "\<Esc>", 'Lx!') |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1290 call assert_equal("ø", getline(1)) |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1291 |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1292 " Alt-X is Ø |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1293 call setline(1, '') |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1294 call feedkeys('a' .. a:func('X', 3) .. "\<Esc>", 'Lx!') |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1295 call assert_equal("Ø", getline(1)) |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1296 |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1297 " Meta-X is ø |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1298 call setline(1, '') |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1299 call feedkeys('a' .. a:func('X', 9) .. "\<Esc>", 'Lx!') |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1300 call assert_equal("Ø", getline(1)) |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1301 |
18683
5ed740336224
patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work
Bram Moolenaar <Bram@vim.org>
parents:
18627
diff
changeset
|
1302 " Ctrl-6 is Ctrl-^ |
5ed740336224
patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work
Bram Moolenaar <Bram@vim.org>
parents:
18627
diff
changeset
|
1303 split aaa |
5ed740336224
patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work
Bram Moolenaar <Bram@vim.org>
parents:
18627
diff
changeset
|
1304 edit bbb |
5ed740336224
patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work
Bram Moolenaar <Bram@vim.org>
parents:
18627
diff
changeset
|
1305 call feedkeys(a:func('6', 5), 'Lx!') |
5ed740336224
patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work
Bram Moolenaar <Bram@vim.org>
parents:
18627
diff
changeset
|
1306 call assert_equal("aaa", bufname()) |
5ed740336224
patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work
Bram Moolenaar <Bram@vim.org>
parents:
18627
diff
changeset
|
1307 bwipe aaa |
5ed740336224
patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work
Bram Moolenaar <Bram@vim.org>
parents:
18627
diff
changeset
|
1308 bwipe bbb |
5ed740336224
patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work
Bram Moolenaar <Bram@vim.org>
parents:
18627
diff
changeset
|
1309 |
18289
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1310 bwipe! |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1311 set timeoutlen& |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1312 endfunc |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1313 |
18301
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1314 func Test_modifyOtherKeys_basic() |
18289
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1315 call RunTest_modifyOtherKeys(function('GetEscCodeCSI27')) |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1316 call RunTest_modifyOtherKeys(function('GetEscCodeCSIu')) |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1317 endfunc |
18295
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1318 |
18709
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1319 func Test_modifyOtherKeys_no_mapping() |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1320 set timeoutlen=10 |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1321 |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1322 let @a = 'aaa' |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1323 call feedkeys(":let x = '" .. GetEscCodeCSI27('R', 5) .. GetEscCodeCSI27('R', 5) .. "a'\<CR>", 'Lx!') |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1324 call assert_equal("let x = 'aaa'", @:) |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1325 |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1326 new |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1327 call feedkeys("a" .. GetEscCodeCSI27('R', 5) .. GetEscCodeCSI27('R', 5) .. "a\<Esc>", 'Lx!') |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1328 call assert_equal("aaa", getline(1)) |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1329 bwipe! |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1330 |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1331 new |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1332 call feedkeys("axx\<CR>yy" .. GetEscCodeCSI27('G', 5) .. GetEscCodeCSI27('K', 5) .. "a\<Esc>", 'Lx!') |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1333 call assert_equal("axx", getline(1)) |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1334 call assert_equal("yy", getline(2)) |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1335 bwipe! |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1336 |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1337 set timeoutlen& |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1338 endfunc |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1339 |
18295
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1340 func RunTest_mapping_shift(key, func) |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1341 call setline(1, '') |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1342 if a:key == '|' |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1343 exe 'inoremap \| xyz' |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1344 else |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1345 exe 'inoremap ' .. a:key .. ' xyz' |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1346 endif |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1347 call feedkeys('a' .. a:func(a:key, 2) .. "\<Esc>", 'Lx!') |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1348 call assert_equal("xyz", getline(1)) |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1349 if a:key == '|' |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1350 exe 'iunmap \|' |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1351 else |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1352 exe 'iunmap ' .. a:key |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1353 endif |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1354 endfunc |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1355 |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1356 func RunTest_mapping_works_with_shift(func) |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1357 new |
18301
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1358 set timeoutlen=10 |
18295
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1359 |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1360 call RunTest_mapping_shift('@', a:func) |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1361 call RunTest_mapping_shift('A', a:func) |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1362 call RunTest_mapping_shift('Z', a:func) |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1363 call RunTest_mapping_shift('^', a:func) |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1364 call RunTest_mapping_shift('_', a:func) |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1365 call RunTest_mapping_shift('{', a:func) |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1366 call RunTest_mapping_shift('|', a:func) |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1367 call RunTest_mapping_shift('}', a:func) |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1368 call RunTest_mapping_shift('~', a:func) |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1369 |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1370 bwipe! |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1371 set timeoutlen& |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1372 endfunc |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1373 |
18301
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1374 func Test_mapping_works_with_shift_plain() |
18295
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1375 call RunTest_mapping_works_with_shift(function('GetEscCodeCSI27')) |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1376 call RunTest_mapping_works_with_shift(function('GetEscCodeCSIu')) |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1377 endfunc |
18301
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1378 |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1379 func RunTest_mapping_mods(map, key, func, code) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1380 call setline(1, '') |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1381 exe 'inoremap ' .. a:map .. ' xyz' |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1382 call feedkeys('a' .. a:func(a:key, a:code) .. "\<Esc>", 'Lx!') |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1383 call assert_equal("xyz", getline(1)) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1384 exe 'iunmap ' .. a:map |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1385 endfunc |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1386 |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1387 func RunTest_mapping_works_with_mods(func, mods, code) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1388 new |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1389 set timeoutlen=10 |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1390 |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1391 if a:mods !~ 'S' |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1392 " Shift by itself has no effect |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1393 call RunTest_mapping_mods('<' .. a:mods .. '-@>', '@', a:func, a:code) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1394 endif |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1395 call RunTest_mapping_mods('<' .. a:mods .. '-A>', 'A', a:func, a:code) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1396 call RunTest_mapping_mods('<' .. a:mods .. '-Z>', 'Z', a:func, a:code) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1397 if a:mods !~ 'S' |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1398 " with Shift code is always upper case |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1399 call RunTest_mapping_mods('<' .. a:mods .. '-a>', 'a', a:func, a:code) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1400 call RunTest_mapping_mods('<' .. a:mods .. '-z>', 'z', a:func, a:code) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1401 endif |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1402 if a:mods != 'A' |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1403 " with Alt code is not in upper case |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1404 call RunTest_mapping_mods('<' .. a:mods .. '-a>', 'A', a:func, a:code) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1405 call RunTest_mapping_mods('<' .. a:mods .. '-z>', 'Z', a:func, a:code) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1406 endif |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1407 call RunTest_mapping_mods('<' .. a:mods .. '-á>', 'á', a:func, a:code) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1408 if a:mods !~ 'S' |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1409 " Shift by itself has no effect |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1410 call RunTest_mapping_mods('<' .. a:mods .. '-^>', '^', a:func, a:code) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1411 call RunTest_mapping_mods('<' .. a:mods .. '-_>', '_', a:func, a:code) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1412 call RunTest_mapping_mods('<' .. a:mods .. '-{>', '{', a:func, a:code) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1413 call RunTest_mapping_mods('<' .. a:mods .. '-\|>', '|', a:func, a:code) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1414 call RunTest_mapping_mods('<' .. a:mods .. '-}>', '}', a:func, a:code) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1415 call RunTest_mapping_mods('<' .. a:mods .. '-~>', '~', a:func, a:code) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1416 endif |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1417 |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1418 bwipe! |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1419 set timeoutlen& |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1420 endfunc |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1421 |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1422 func Test_mapping_works_with_shift() |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1423 call RunTest_mapping_works_with_mods(function('GetEscCodeCSI27'), 'S', 2) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1424 call RunTest_mapping_works_with_mods(function('GetEscCodeCSIu'), 'S', 2) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1425 endfunc |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
1426 |
18301
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1427 func Test_mapping_works_with_ctrl() |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1428 call RunTest_mapping_works_with_mods(function('GetEscCodeCSI27'), 'C', 5) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1429 call RunTest_mapping_works_with_mods(function('GetEscCodeCSIu'), 'C', 5) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1430 endfunc |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1431 |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1432 func Test_mapping_works_with_shift_ctrl() |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1433 call RunTest_mapping_works_with_mods(function('GetEscCodeCSI27'), 'C-S', 6) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1434 call RunTest_mapping_works_with_mods(function('GetEscCodeCSIu'), 'C-S', 6) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1435 endfunc |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1436 |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1437 " Below we also test the "u" code with Alt, This works, but libvterm would not |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1438 " send the Alt key like this but by prefixing an Esc. |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
1439 |
18301
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1440 func Test_mapping_works_with_alt() |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1441 call RunTest_mapping_works_with_mods(function('GetEscCodeCSI27'), 'A', 3) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1442 call RunTest_mapping_works_with_mods(function('GetEscCodeCSIu'), 'A', 3) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1443 endfunc |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1444 |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1445 func Test_mapping_works_with_shift_alt() |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1446 call RunTest_mapping_works_with_mods(function('GetEscCodeCSI27'), 'S-A', 4) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1447 call RunTest_mapping_works_with_mods(function('GetEscCodeCSIu'), 'S-A', 4) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1448 endfunc |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1449 |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1450 func Test_mapping_works_with_ctrl_alt() |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1451 call RunTest_mapping_works_with_mods(function('GetEscCodeCSI27'), 'C-A', 7) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1452 call RunTest_mapping_works_with_mods(function('GetEscCodeCSIu'), 'C-A', 7) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1453 endfunc |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1454 |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1455 func Test_mapping_works_with_shift_ctrl_alt() |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1456 call RunTest_mapping_works_with_mods(function('GetEscCodeCSI27'), 'C-S-A', 8) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1457 call RunTest_mapping_works_with_mods(function('GetEscCodeCSIu'), 'C-S-A', 8) |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1458 endfunc |
18717
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1459 |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1460 func Test_insert_literal() |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1461 set timeoutlen=10 |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1462 new |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1463 " CTRL-V CTRL-X inserts a ^X |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1464 call feedkeys('a' .. GetEscCodeCSIu('V', '5') .. GetEscCodeCSIu('X', '5') .. "\<Esc>", 'Lx!') |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1465 call assert_equal("\<C-X>", getline(1)) |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1466 |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1467 call setline(1, '') |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1468 call feedkeys('a' .. GetEscCodeCSI27('V', '5') .. GetEscCodeCSI27('X', '5') .. "\<Esc>", 'Lx!') |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1469 call assert_equal("\<C-X>", getline(1)) |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1470 |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
1471 " CTRL-SHIFT-V CTRL-X inserts escape sequence |
18717
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1472 call setline(1, '') |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1473 call feedkeys('a' .. GetEscCodeCSIu('V', '6') .. GetEscCodeCSIu('X', '5') .. "\<Esc>", 'Lx!') |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1474 call assert_equal("\<Esc>[88;5u", getline(1)) |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1475 |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1476 call setline(1, '') |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1477 call feedkeys('a' .. GetEscCodeCSI27('V', '6') .. GetEscCodeCSI27('X', '5') .. "\<Esc>", 'Lx!') |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1478 call assert_equal("\<Esc>[27;5;88~", getline(1)) |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1479 |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1480 bwipe! |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1481 set timeoutlen& |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1482 endfunc |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1483 |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1484 func Test_cmdline_literal() |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1485 set timeoutlen=10 |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1486 |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1487 " CTRL-V CTRL-Y inserts a ^Y |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1488 call feedkeys(':' .. GetEscCodeCSIu('V', '5') .. GetEscCodeCSIu('Y', '5') .. "\<C-B>\"\<CR>", 'Lx!') |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1489 call assert_equal("\"\<C-Y>", @:) |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1490 |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1491 call feedkeys(':' .. GetEscCodeCSI27('V', '5') .. GetEscCodeCSI27('Y', '5') .. "\<C-B>\"\<CR>", 'Lx!') |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1492 call assert_equal("\"\<C-Y>", @:) |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1493 |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
1494 " CTRL-SHIFT-V CTRL-Y inserts escape sequence |
18717
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1495 call feedkeys(':' .. GetEscCodeCSIu('V', '6') .. GetEscCodeCSIu('Y', '5') .. "\<C-B>\"\<CR>", 'Lx!') |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1496 call assert_equal("\"\<Esc>[89;5u", @:) |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1497 |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1498 call setline(1, '') |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1499 call feedkeys(':' .. GetEscCodeCSI27('V', '6') .. GetEscCodeCSI27('Y', '5') .. "\<C-B>\"\<CR>", 'Lx!') |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1500 call assert_equal("\"\<Esc>[27;5;89~", @:) |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1501 |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1502 set timeoutlen& |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1503 endfunc |