Mercurial > vim
annotate src/testdir/test_termcodes.vim @ 21350:e5e32c9f711f
Added tag v8.2.1225 for changeset 8488d9cc3ccd623ea3a5968675d37d0e13967d5c
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Thu, 16 Jul 2020 22:30:05 +0200 |
parents | f68b121daa47 |
children | e00467b9f5de |
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 |
19738
0208534b8a84
patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
19657
diff
changeset
|
9 source mouse.vim |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
10 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
11 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
|
12 new |
d3377393e3d9
patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
13 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
|
14 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
|
15 let save_ttymouse = &ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
16 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
|
17 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
|
18 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
|
19 |
19738
0208534b8a84
patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
19657
diff
changeset
|
20 for ttymouse_val in g:Ttymouse_values + g:Ttymouse_dec + g: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
|
21 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
|
22 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
|
23 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
|
24 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
|
25 let row = 2 |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
26 let col = 6 |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
27 call MouseLeftClick(row, col) |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
28 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
|
29 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
|
30 endfor |
16263
d3377393e3d9
patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
31 |
d3377393e3d9
patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
32 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
|
33 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
|
34 let &ttymouse = save_ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
35 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
|
36 bwipe! |
d3377393e3d9
patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
37 endfunc |
d3377393e3d9
patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
38 |
18307
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
39 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
|
40 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
|
41 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
|
42 endif |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
43 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
|
44 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
|
45 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
|
46 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
|
47 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
|
48 |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
49 for visual_mode in ["v", "V", "\<C-V>"] |
19738
0208534b8a84
patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
19657
diff
changeset
|
50 for ttymouse_val in g:Ttymouse_values + g:Ttymouse_dec |
18307
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
51 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
|
52 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
|
53 |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
54 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
|
55 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
|
56 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
|
57 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
|
58 |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
59 " 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
|
60 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
|
61 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
|
62 |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
63 " 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
|
64 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
|
65 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
|
66 norm! r1gv |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
67 |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
68 " 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
|
69 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
|
70 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
|
71 |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
72 " 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
|
73 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
|
74 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
|
75 norm! r2 |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
76 |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
77 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
|
78 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
|
79 \ '-111111', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
80 \ '1122222', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
81 \ '2222222', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
82 \ '2222211', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
83 \ '111111-', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
84 \ '-------'], 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
|
85 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
|
86 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
|
87 \ '1111111', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
88 \ '2222222', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
89 \ '2222222', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
90 \ '2222222', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
91 \ '1111111', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
92 \ '-------'], 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
|
93 else |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
94 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
|
95 \ '-11111-', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
96 \ '-12221-', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
97 \ '-12221-', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
98 \ '-12221-', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
99 \ '-11111-', |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
100 \ '-------'], 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
|
101 endif |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
102 endfor |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
103 endfor |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
104 |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
105 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
|
106 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
|
107 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
|
108 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
|
109 bwipe! |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
110 endfunc |
176fa195b95d
patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
111 |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
112 " Test that <C-LeftMouse> jumps to help tag and <C-RightMouse> jumps back. |
21325
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
113 " Also test for g<LeftMouse> and g<RightMouse>. |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
114 func Test_xterm_mouse_tagjump() |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
115 let save_mouse = &mouse |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
116 let save_term = &term |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
117 let save_ttymouse = &ttymouse |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
118 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
|
119 |
19738
0208534b8a84
patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
19657
diff
changeset
|
120 for ttymouse_val in g:Ttymouse_values |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
121 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
|
122 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
|
123 help |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
124 /usr_02.txt |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
125 norm! zt |
21325
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
126 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
127 " CTRL-left click to jump to a tag |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
128 let row = 1 |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
129 let col = 1 |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
130 call MouseCtrlLeftClick(row, col) |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
131 call MouseLeftRelease(row, col) |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
132 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
|
133 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
|
134 |
21325
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
135 " CTRL-right click to pop a tag |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
136 call MouseCtrlRightClick(row, col) |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
137 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
|
138 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
|
139 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
|
140 |
21325
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
141 " Jump to a tag |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
142 exe "normal \<C-]>" |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
143 call assert_match('usr_02.txt$', bufname('%'), msg) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
144 call assert_equal('*usr_02.txt*', expand('<cWORD>'), msg) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
145 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
146 " Use CTRL-right click in insert mode to pop the tag |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
147 new |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
148 let str = 'iHello' .. MouseCtrlRightClickCode(row, col) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
149 \ .. MouseRightReleaseCode(row, col) .. "\<C-C>" |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
150 call assert_fails('call feedkeys(str, "Lx!")', 'E37:') |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
151 close! |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
152 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
153 " CTRL-right click with a count |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
154 let str = "4" .. MouseCtrlRightClickCode(row, col) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
155 \ .. MouseRightReleaseCode(row, col) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
156 call assert_fails('call feedkeys(str, "Lx!")', 'E555:') |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
157 call assert_match('help.txt$', bufname('%'), msg) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
158 call assert_equal(1, line('.'), msg) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
159 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
160 " g<LeftMouse> to jump to a tag |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
161 /usr_02.txt |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
162 norm! zt |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
163 call test_setmouse(row, col) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
164 exe "normal g\<LeftMouse>" |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
165 call assert_match('usr_02.txt$', bufname('%'), msg) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
166 call assert_equal('*usr_02.txt*', expand('<cWORD>'), msg) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
167 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
168 " g<RightMouse> to pop to a tag |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
169 call test_setmouse(row, col) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
170 exe "normal g\<RightMouse>" |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
171 call assert_match('help.txt$', bufname('%'), msg) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
172 call assert_equal('|usr_02.txt|', expand('<cWORD>'), msg) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
173 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
174 %bw! |
16481
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
175 endfor |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
176 |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
177 let &mouse = save_mouse |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
178 let &term = save_term |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
179 let &ttymouse = save_ttymouse |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
180 endfunc |
8428e0edba1b
patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents:
16437
diff
changeset
|
181 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
182 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
|
183 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
|
184 |
16423
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
185 new |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
186 let save_mouse = &mouse |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
187 let save_term = &term |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
188 let save_ttymouse = &ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
189 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
|
190 let save_quotestar = @* |
21325
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
191 let save_quoteplus = @+ |
16423
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
192 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
|
193 |
19738
0208534b8a84
patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
19657
diff
changeset
|
194 for ttymouse_val in g:Ttymouse_values + g:Ttymouse_dec |
16423
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
195 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
|
196 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
|
197 call setline(1, ['123456789', '123456789']) |
21325
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
198 let @* = 'abc' |
16423
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
199 |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
200 " 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
|
201 let row = 1 |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
202 let col = 6 |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
203 call MouseMiddleClick(row, col) |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
204 call MouseMiddleRelease(row, col) |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
205 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
|
206 |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
207 " 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
|
208 let col = 20 |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
209 call MouseMiddleClick(row, col) |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
210 call MouseMiddleRelease(row, col) |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
211 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
|
212 |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
213 " 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
|
214 let row = 5 |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
215 let col = 3 |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
216 call MouseMiddleClick(row, col) |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
217 call MouseMiddleRelease(row, col) |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
218 call assert_equal(['12345abc6789abc', '12abc3456789'], getline(1, '$'), msg) |
21325
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
219 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
220 " Middle mouse click in operator pending mode beeps |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
221 call assert_beeps('exe "normal c\<MiddleMouse>"') |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
222 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
223 " Clicking middle mouse in visual mode, yanks the selection and pastes the |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
224 " clipboard contents |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
225 let save_clipboard = &clipboard |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
226 set clipboard= |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
227 let @" = '' |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
228 call cursor(1, 1) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
229 call feedkeys("v3l" .. |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
230 \ MouseMiddleClickCode(2, 7) .. MouseMiddleReleaseCode(2, 7), 'Lx!') |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
231 call assert_equal(['12345abc6789abc', '12abc3abc456789'], |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
232 \ getline(1, '$'), msg) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
233 call assert_equal('1234', @") |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
234 let &clipboard = save_clipboard |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
235 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
236 " Clicking middle mouse in select mode, replaces the selected text with |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
237 " the clipboard contents |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
238 let @+ = 'xyz' |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
239 call cursor(1, 3) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
240 exe "normal gh\<Right>\<Right>\<MiddleMouse>" |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
241 call assert_equal(['12xyzabc6789abc', '12abc3abc456789'], |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
242 \ getline(1, '$'), msg) |
16423
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
243 endfor |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
244 |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
245 let &mouse = save_mouse |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
246 let &term = save_term |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
247 let &ttymouse = save_ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
248 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
|
249 let @* = save_quotestar |
21325
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
250 let @+ = save_quotestar |
16423
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
251 bwipe! |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
252 endfunc |
4182fa3b9f70
patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16352
diff
changeset
|
253 |
21325
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
254 " If clipboard is not working, then clicking the middle mouse button in visual |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
255 " mode, will copy and paste the selected text. |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
256 func Test_term_mouse_middle_click_no_clipboard() |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
257 if has('clipboard_working') |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
258 throw 'Skipped: clipboard support works' |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
259 return |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
260 endif |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
261 new |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
262 let save_mouse = &mouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
263 let save_term = &term |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
264 let save_ttymouse = &ttymouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
265 call test_override('no_query_mouse', 1) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
266 set mouse=a term=xterm |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
267 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
268 for ttymouse_val in g:Ttymouse_values + g:Ttymouse_dec |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
269 let msg = 'ttymouse=' .. ttymouse_val |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
270 exe 'set ttymouse=' .. ttymouse_val |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
271 call setline(1, ['123456789', '123456789']) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
272 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
273 " Clicking middle mouse in visual mode, yanks the selection and pastes it |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
274 call cursor(1, 1) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
275 call feedkeys("v3l" .. |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
276 \ MouseMiddleClickCode(2, 7) .. MouseMiddleReleaseCode(2, 7), 'Lx!') |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
277 call assert_equal(['123456789', '1234561234789'], |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
278 \ getline(1, '$'), msg) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
279 endfor |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
280 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
281 call test_override('no_query_mouse', 0) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
282 let &ttymouse = save_ttymouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
283 let &term = save_term |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
284 let &mouse = save_mouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
285 close! |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
286 endfunc |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
287 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
288 func Test_term_mouse_middle_click_insert_mode() |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
289 CheckFeature clipboard_working |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
290 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
291 new |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
292 let save_mouse = &mouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
293 let save_term = &term |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
294 let save_ttymouse = &ttymouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
295 call test_override('no_query_mouse', 1) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
296 set mouse=a term=xterm |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
297 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
298 for ttymouse_val in g:Ttymouse_values + g:Ttymouse_dec |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
299 let msg = 'ttymouse=' .. ttymouse_val |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
300 exe 'set ttymouse=' .. ttymouse_val |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
301 call setline(1, ['123456789', '123456789']) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
302 let @* = 'abc' |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
303 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
304 " Middle-click in inesrt mode doesn't move the cursor but inserts the |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
305 " contents of aregister |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
306 call cursor(1, 4) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
307 call feedkeys('i' .. |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
308 \ MouseMiddleClickCode(2, 7) .. MouseMiddleReleaseCode(2, 7) .. |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
309 \ "\<C-C>", 'Lx!') |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
310 call assert_equal(['123abc456789', '123456789'], |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
311 \ getline(1, '$'), msg) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
312 call assert_equal([1, 6], [line('.'), col('.')]) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
313 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
314 " Middle-click in replace mode |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
315 call cursor(1, 1) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
316 call feedkeys('$R' .. |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
317 \ MouseMiddleClickCode(2, 7) .. MouseMiddleReleaseCode(2, 7) .. |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
318 \ "\<C-C>", 'Lx!') |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
319 call assert_equal(['123abc45678abc', '123456789'], |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
320 \ getline(1, '$'), msg) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
321 call assert_equal([1, 14], [line('.'), col('.')]) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
322 endfor |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
323 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
324 let &mouse = save_mouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
325 let &term = save_term |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
326 let &ttymouse = save_ttymouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
327 call test_override('no_query_mouse', 0) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
328 close! |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
329 endfunc |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
330 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
331 " Test for switching window using mouse in insert mode |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
332 func Test_term_mouse_switch_win_insert_mode() |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
333 5new |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
334 let save_mouse = &mouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
335 let save_term = &term |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
336 let save_ttymouse = &ttymouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
337 call test_override('no_query_mouse', 1) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
338 set mouse=a term=xterm ttymouse=xterm2 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
339 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
340 call feedkeys('ivim' .. |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
341 \ MouseLeftClickCode(8, 6) .. MouseLeftReleaseCode(8, 6) .. |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
342 \ "\<C-C>", 'Lx!') |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
343 call assert_equal(2, winnr()) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
344 wincmd w |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
345 call assert_equal('n', mode()) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
346 call assert_equal(['vim'], getline(1, '$')) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
347 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
348 let &mouse = save_mouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
349 let &term = save_term |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
350 let &ttymouse = save_ttymouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
351 call test_override('no_query_mouse', 0) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
352 close! |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
353 endfunc |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
354 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
355 " Test for using the mouse to increaes the height of the cmdline window |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
356 func Test_mouse_cmdwin_resize() |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
357 let save_mouse = &mouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
358 let save_term = &term |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
359 let save_ttymouse = &ttymouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
360 call test_override('no_query_mouse', 1) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
361 set mouse=a term=xterm ttymouse=xterm2 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
362 5new |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
363 redraw! |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
364 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
365 let h = 0 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
366 let row = &lines - &cmdwinheight - 2 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
367 call feedkeys("q:" .. |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
368 \ MouseLeftClickCode(row, 1) .. |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
369 \ MouseLeftDragCode(row - 1, 1) .. |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
370 \ MouseLeftReleaseCode(row - 2, 1) .. |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
371 \ "alet h = \<C-R>=winheight(0)\<CR>\<CR>", 'Lx!') |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
372 call assert_equal(&cmdwinheight + 2, h) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
373 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
374 let &mouse = save_mouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
375 let &term = save_term |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
376 let &ttymouse = save_ttymouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
377 call test_override('no_query_mouse', 0) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
378 close! |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
379 endfunc |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
380 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
381 " 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
|
382 " Test_xterm_mouse_ctrl_click() |
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
383 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
|
384 new |
7feb5b90be5f
patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16263
diff
changeset
|
385 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
|
386 let save_term = &term |
21114
d0265fdadec9
patch 8.2.1108: mouse left-right scroll is not supported in terminal window
Bram Moolenaar <Bram@vim.org>
parents:
20850
diff
changeset
|
387 let save_wrap = &wrap |
16265
7feb5b90be5f
patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16263
diff
changeset
|
388 let save_ttymouse = &ttymouse |
21114
d0265fdadec9
patch 8.2.1108: mouse left-right scroll is not supported in terminal window
Bram Moolenaar <Bram@vim.org>
parents:
20850
diff
changeset
|
389 set mouse=a term=xterm nowrap |
d0265fdadec9
patch 8.2.1108: mouse left-right scroll is not supported in terminal window
Bram Moolenaar <Bram@vim.org>
parents:
20850
diff
changeset
|
390 call setline(1, range(100000000000000, 100000000000100)) |
16265
7feb5b90be5f
patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16263
diff
changeset
|
391 |
19738
0208534b8a84
patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
19657
diff
changeset
|
392 for ttymouse_val in g: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
|
393 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
|
394 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
|
395 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
|
396 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
|
397 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
|
398 |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
399 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
|
400 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
|
401 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
|
402 |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
403 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
|
404 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
|
405 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
|
406 |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
407 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
|
408 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
|
409 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
|
410 |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
411 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
|
412 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
|
413 call assert_equal([0, 7, 1, 0], getpos('.'), msg) |
21114
d0265fdadec9
patch 8.2.1108: mouse left-right scroll is not supported in terminal window
Bram Moolenaar <Bram@vim.org>
parents:
20850
diff
changeset
|
414 |
d0265fdadec9
patch 8.2.1108: mouse left-right scroll is not supported in terminal window
Bram Moolenaar <Bram@vim.org>
parents:
20850
diff
changeset
|
415 if has('gui') |
d0265fdadec9
patch 8.2.1108: mouse left-right scroll is not supported in terminal window
Bram Moolenaar <Bram@vim.org>
parents:
20850
diff
changeset
|
416 " Horizontal wheel scrolling currently only works when vim is |
d0265fdadec9
patch 8.2.1108: mouse left-right scroll is not supported in terminal window
Bram Moolenaar <Bram@vim.org>
parents:
20850
diff
changeset
|
417 " compiled with gui enabled. |
d0265fdadec9
patch 8.2.1108: mouse left-right scroll is not supported in terminal window
Bram Moolenaar <Bram@vim.org>
parents:
20850
diff
changeset
|
418 call MouseWheelRight(1, 1) |
d0265fdadec9
patch 8.2.1108: mouse left-right scroll is not supported in terminal window
Bram Moolenaar <Bram@vim.org>
parents:
20850
diff
changeset
|
419 call assert_equal(7, 1 + virtcol(".") - wincol(), msg) |
d0265fdadec9
patch 8.2.1108: mouse left-right scroll is not supported in terminal window
Bram Moolenaar <Bram@vim.org>
parents:
20850
diff
changeset
|
420 call assert_equal([0, 7, 7, 0], getpos('.'), msg) |
d0265fdadec9
patch 8.2.1108: mouse left-right scroll is not supported in terminal window
Bram Moolenaar <Bram@vim.org>
parents:
20850
diff
changeset
|
421 |
d0265fdadec9
patch 8.2.1108: mouse left-right scroll is not supported in terminal window
Bram Moolenaar <Bram@vim.org>
parents:
20850
diff
changeset
|
422 call MouseWheelRight(1, 1) |
d0265fdadec9
patch 8.2.1108: mouse left-right scroll is not supported in terminal window
Bram Moolenaar <Bram@vim.org>
parents:
20850
diff
changeset
|
423 call assert_equal(13, 1 + virtcol(".") - wincol(), msg) |
d0265fdadec9
patch 8.2.1108: mouse left-right scroll is not supported in terminal window
Bram Moolenaar <Bram@vim.org>
parents:
20850
diff
changeset
|
424 call assert_equal([0, 7, 13, 0], getpos('.'), msg) |
d0265fdadec9
patch 8.2.1108: mouse left-right scroll is not supported in terminal window
Bram Moolenaar <Bram@vim.org>
parents:
20850
diff
changeset
|
425 |
d0265fdadec9
patch 8.2.1108: mouse left-right scroll is not supported in terminal window
Bram Moolenaar <Bram@vim.org>
parents:
20850
diff
changeset
|
426 call MouseWheelLeft(1, 1) |
d0265fdadec9
patch 8.2.1108: mouse left-right scroll is not supported in terminal window
Bram Moolenaar <Bram@vim.org>
parents:
20850
diff
changeset
|
427 call assert_equal(7, 1 + virtcol(".") - wincol(), msg) |
d0265fdadec9
patch 8.2.1108: mouse left-right scroll is not supported in terminal window
Bram Moolenaar <Bram@vim.org>
parents:
20850
diff
changeset
|
428 call assert_equal([0, 7, 13, 0], getpos('.'), msg) |
d0265fdadec9
patch 8.2.1108: mouse left-right scroll is not supported in terminal window
Bram Moolenaar <Bram@vim.org>
parents:
20850
diff
changeset
|
429 |
d0265fdadec9
patch 8.2.1108: mouse left-right scroll is not supported in terminal window
Bram Moolenaar <Bram@vim.org>
parents:
20850
diff
changeset
|
430 call MouseWheelLeft(1, 1) |
d0265fdadec9
patch 8.2.1108: mouse left-right scroll is not supported in terminal window
Bram Moolenaar <Bram@vim.org>
parents:
20850
diff
changeset
|
431 call assert_equal(1, 1 + virtcol(".") - wincol(), msg) |
d0265fdadec9
patch 8.2.1108: mouse left-right scroll is not supported in terminal window
Bram Moolenaar <Bram@vim.org>
parents:
20850
diff
changeset
|
432 call assert_equal([0, 7, 13, 0], getpos('.'), msg) |
d0265fdadec9
patch 8.2.1108: mouse left-right scroll is not supported in terminal window
Bram Moolenaar <Bram@vim.org>
parents:
20850
diff
changeset
|
433 endif |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
434 endfor |
16265
7feb5b90be5f
patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16263
diff
changeset
|
435 |
7feb5b90be5f
patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16263
diff
changeset
|
436 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
|
437 let &term = save_term |
21114
d0265fdadec9
patch 8.2.1108: mouse left-right scroll is not supported in terminal window
Bram Moolenaar <Bram@vim.org>
parents:
20850
diff
changeset
|
438 let &wrap = save_wrap |
16265
7feb5b90be5f
patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16263
diff
changeset
|
439 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
|
440 bwipe! |
7feb5b90be5f
patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16263
diff
changeset
|
441 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
|
442 |
18223
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
443 " 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
|
444 " 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
|
445 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
|
446 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
|
447 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
|
448 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
|
449 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
|
450 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
|
451 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
|
452 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
|
453 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
454 " 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
|
455 " 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
|
456 2split |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
457 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
|
458 2split |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
459 |
19738
0208534b8a84
patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
19657
diff
changeset
|
460 for ttymouse_val in g:Ttymouse_values + g:Ttymouse_dec |
18223
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
461 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
|
462 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
|
463 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
464 " 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
|
465 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
|
466 redraw |
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 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
|
468 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
|
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 = 4 |
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 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
|
472 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
|
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 " 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
|
475 " 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
|
476 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
|
477 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
|
478 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
|
479 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
480 " 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
|
481 " 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
|
482 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
|
483 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
|
484 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
|
485 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
486 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
|
487 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
|
488 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
|
489 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
490 " 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
|
491 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
|
492 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
|
493 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
|
494 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
495 " 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
|
496 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
|
497 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
|
498 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
|
499 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
500 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
|
501 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
|
502 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
|
503 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
504 " 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
|
505 " 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
|
506 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
|
507 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
|
508 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
|
509 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
510 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
|
511 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
|
512 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
|
513 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
514 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
|
515 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
|
516 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
|
517 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
518 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
|
519 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
|
520 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
|
521 endfor |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
522 |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
523 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
|
524 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
|
525 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
|
526 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
|
527 bwipe! |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
528 endfunc |
8a86e518fa42
patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents:
18031
diff
changeset
|
529 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
530 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
|
531 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
|
532 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
|
533 let save_ttymouse = &ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
534 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
|
535 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
|
536 |
19738
0208534b8a84
patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
19657
diff
changeset
|
537 for ttymouse_val in g:Ttymouse_values + g: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
|
538 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
|
539 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
|
540 |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
541 " 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
|
542 split |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
543 let rowseparator = winheight(0) + 1 |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
544 let row = rowseparator |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
545 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
|
546 |
16352
c742c008953e
patch 8.1.1181: tests for mouse clicks are a bit flaky
Bram Moolenaar <Bram@vim.org>
parents:
16348
diff
changeset
|
547 " 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
|
548 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
|
549 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
|
550 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
|
551 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
|
552 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
|
553 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
|
554 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
|
555 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
|
556 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
|
557 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
|
558 endif |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
559 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
|
560 |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
561 " 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
|
562 vsplit |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
563 let colseparator = winwidth(0) + 1 |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
564 let row = 1 |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
565 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
|
566 |
16352
c742c008953e
patch 8.1.1181: tests for mouse clicks are a bit flaky
Bram Moolenaar <Bram@vim.org>
parents:
16348
diff
changeset
|
567 " 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
|
568 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
|
569 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
|
570 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
|
571 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
|
572 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
|
573 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
|
574 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
|
575 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
|
576 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
|
577 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
|
578 endif |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
579 bwipe! |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
580 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
|
581 |
ed5172ae1c32
patch 8.1.1142: no test for dragging the window separators with the mouse
Bram Moolenaar <Bram@vim.org>
parents:
16265
diff
changeset
|
582 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
|
583 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
|
584 let &ttymouse = save_ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
585 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
|
586 endfunc |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
587 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
588 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
|
589 let save_mouse = &mouse |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
590 let save_term = &term |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
591 let save_ttymouse = &ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
592 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
|
593 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
|
594 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
|
595 |
19738
0208534b8a84
patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
19657
diff
changeset
|
596 for ttymouse_val in g:Ttymouse_values + g: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
|
597 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
|
598 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
|
599 |
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
|
600 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
|
601 let rowstatusline = winheight(0) + 1 |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
602 let row = rowstatusline |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
603 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
|
604 |
16352
c742c008953e
patch 8.1.1181: tests for mouse clicks are a bit flaky
Bram Moolenaar <Bram@vim.org>
parents:
16348
diff
changeset
|
605 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
|
606 " 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
|
607 continue |
5b8b849dc3aa
patch 8.1.1160: termcodes test would fail in a very big terminal
Bram Moolenaar <Bram@vim.org>
parents:
16300
diff
changeset
|
608 endif |
5b8b849dc3aa
patch 8.1.1160: termcodes test would fail in a very big terminal
Bram Moolenaar <Bram@vim.org>
parents:
16300
diff
changeset
|
609 |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
610 call MouseLeftClick(row, col) |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
611 let row -= 1 |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
612 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
|
613 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
|
614 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
|
615 let row += 1 |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
616 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
|
617 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
|
618 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
|
619 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
|
620 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
|
621 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
|
622 endfor |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
623 |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
624 let &mouse = save_mouse |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
625 let &term = save_term |
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
626 let &ttymouse = save_ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
627 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
|
628 let &laststatus = save_laststatus |
16300
f3d579f009d1
patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents:
16275
diff
changeset
|
629 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
|
630 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
631 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
|
632 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
|
633 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
|
634 let save_ttymouse = &ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
635 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
|
636 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
|
637 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
|
638 |
19738
0208534b8a84
patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
19657
diff
changeset
|
639 for ttymouse_val in g:Ttymouse_values + g:Ttymouse_dec + g: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
|
640 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
|
641 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
|
642 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
|
643 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
|
644 |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
645 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
|
646 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
|
647 \ ' 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
|
648 \ '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
|
649 \ '> 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
|
650 |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
651 " 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
|
652 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
|
653 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
|
654 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
|
655 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
|
656 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
|
657 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
|
658 \ '> 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
|
659 \ '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
|
660 \ ' 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
|
661 |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
662 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
|
663 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
|
664 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
|
665 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
|
666 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
|
667 \ ' 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
|
668 \ '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
|
669 \ '> 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
|
670 |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
671 %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
|
672 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
|
673 |
57e0f6b4a87d
patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents:
16310
diff
changeset
|
674 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
|
675 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
|
676 let &ttymouse = save_ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
677 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
|
678 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
|
679 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
680 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
|
681 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
|
682 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
|
683 let save_ttymouse = &ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
684 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
|
685 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
|
686 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
|
687 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
|
688 |
19738
0208534b8a84
patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
19657
diff
changeset
|
689 for ttymouse_val in g:Ttymouse_values + g:Ttymouse_dec + g: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
|
690 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
|
691 " 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
|
692 continue |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
693 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
|
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 |
16324
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
696 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
|
697 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
|
698 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
|
699 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
|
700 |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
701 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
|
702 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
|
703 \ ' Xtab1', |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
704 \ '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
|
705 \ '> Xtab2', |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
706 \ '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
|
707 \ ' 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
|
708 |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
709 " 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
|
710 redraw |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
711 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
|
712 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
|
713 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
|
714 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
|
715 \ ' Xtab1', |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
716 \ '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
|
717 \ '> 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
|
718 |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
719 %bwipe! |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
720 endfor |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
721 |
6b2412d0509f
patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents:
16320
diff
changeset
|
722 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
|
723 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
|
724 let &ttymouse = save_ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
725 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
|
726 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
|
727 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
728 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
|
729 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
|
730 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
|
731 let save_ttymouse = &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', 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
|
733 " 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
|
734 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
|
735 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
|
736 |
19738
0208534b8a84
patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
19657
diff
changeset
|
737 for ttymouse_val in g:Ttymouse_values + g: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
|
738 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
|
739 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
|
740 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
|
741 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
|
742 |
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
|
743 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
|
744 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
|
745 \ ' 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
|
746 \ '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
|
747 \ '> 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
|
748 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
|
749 |
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 " 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
|
751 " 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
|
752 " 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
|
753 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
|
754 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
|
755 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
|
756 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
|
757 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
|
758 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
|
759 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
|
760 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
|
761 \ '> 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
|
762 \ '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
|
763 \ ' 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
|
764 |
18627
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
765 " 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
|
766 " 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
|
767 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
|
768 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
|
769 |
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
|
770 %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
|
771 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
|
772 |
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 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
|
774 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
|
775 let &ttymouse = save_ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
776 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
|
777 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
|
778 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
|
779 |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
780 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
|
781 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
|
782 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
|
783 let save_ttymouse = &ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
784 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
|
785 " 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
|
786 " 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
|
787 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
|
788 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
|
789 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
|
790 |
19738
0208534b8a84
patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
19657
diff
changeset
|
791 for ttymouse_val in g:Ttymouse_values + g: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
|
792 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
|
793 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
|
794 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
|
795 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
|
796 |
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
|
797 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
|
798 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
|
799 \ ' 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
|
800 \ '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
|
801 \ '> 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
|
802 |
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
|
803 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
|
804 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
|
805 " 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
|
806 " 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
|
807 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
|
808 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
|
809 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
|
810 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
|
811 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
|
812 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
|
813 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
|
814 \ ' 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
|
815 \ '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
|
816 \ '> [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
|
817 \ '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
|
818 \ ' 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
|
819 |
18627
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
820 " 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
|
821 " 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
|
822 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
|
823 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
|
824 |
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
|
825 %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
|
826 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
|
827 |
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
|
828 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
|
829 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
|
830 let &ttymouse = save_ttymouse |
16489
42910f306377
patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents:
16487
diff
changeset
|
831 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
|
832 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
|
833 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
|
834 |
18627
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
835 " 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
|
836 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
|
837 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
|
838 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
|
839 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
|
840 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
|
841 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
|
842 new |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
843 |
19738
0208534b8a84
patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
19657
diff
changeset
|
844 for ttymouse_val in g:Ttymouse_values + g:Ttymouse_dec |
18627
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
845 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
|
846 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
|
847 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
|
848 |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
849 " 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
|
850 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
|
851 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
|
852 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
|
853 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
|
854 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
|
855 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
|
856 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
|
857 norm! r1 |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
858 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
|
859 |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
860 " 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
|
861 " 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
|
862 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
|
863 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
|
864 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
|
865 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
|
866 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
|
867 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
|
868 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
|
869 norm! r2 |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
870 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
|
871 |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
872 " 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
|
873 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
|
874 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
|
875 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
|
876 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
|
877 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
|
878 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
|
879 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
|
880 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
|
881 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
|
882 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
|
883 norm! r3 |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
884 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
|
885 |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
886 " 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
|
887 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
|
888 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
|
889 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
|
890 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
|
891 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
|
892 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
|
893 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
|
894 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
|
895 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
|
896 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
|
897 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
|
898 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
|
899 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
|
900 norm! r4 |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
901 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
|
902 endfor |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
903 |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
904 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
|
905 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
|
906 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
|
907 set mousetime& |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
908 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
|
909 bwipe! |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
910 endfunc |
169c810d4e51
patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18360
diff
changeset
|
911 |
16348
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
912 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
|
913 new |
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 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
|
915 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
|
916 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
|
917 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
|
918 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
|
919 |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
920 " 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
|
921 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
|
922 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
|
923 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
|
924 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
|
925 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
|
926 \ 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
|
927 |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
928 " 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
|
929 redraw |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
930 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
|
931 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
|
932 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
|
933 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
|
934 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
|
935 \ 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
|
936 |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
937 " 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
|
938 redraw |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
939 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
|
940 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
|
941 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
|
942 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
|
943 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
|
944 \ 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
|
945 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
|
946 |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
947 " 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
|
948 redraw |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
949 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
|
950 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
|
951 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
|
952 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
|
953 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
|
954 \ 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
|
955 |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
956 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
|
957 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
|
958 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
|
959 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
|
960 bwipe! |
5f3a86ba4261
patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents:
16346
diff
changeset
|
961 endfunc |
16936
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
962 |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
963 " 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
|
964 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
|
965 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
|
966 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
|
967 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
|
968 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
|
969 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
|
970 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
|
971 |
19738
0208534b8a84
patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
19657
diff
changeset
|
972 for ttymouse_val in g:Ttymouse_values + g:Ttymouse_dec |
19752
0927df746554
patch 8.2.0432: a few tests fail in a huge terminal
Bram Moolenaar <Bram@vim.org>
parents:
19738
diff
changeset
|
973 " When 'ttymouse' is 'xterm2', row/col bigger than 223 are not supported. |
0927df746554
patch 8.2.0432: a few tests fail in a huge terminal
Bram Moolenaar <Bram@vim.org>
parents:
19738
diff
changeset
|
974 if ttymouse_val !=# 'xterm2' || row <= 223 |
0927df746554
patch 8.2.0432: a few tests fail in a huge terminal
Bram Moolenaar <Bram@vim.org>
parents:
19738
diff
changeset
|
975 let msg = 'ttymouse=' .. ttymouse_val |
0927df746554
patch 8.2.0432: a few tests fail in a huge terminal
Bram Moolenaar <Bram@vim.org>
parents:
19738
diff
changeset
|
976 exe 'set ttymouse=' .. ttymouse_val |
0927df746554
patch 8.2.0432: a few tests fail in a huge terminal
Bram Moolenaar <Bram@vim.org>
parents:
19738
diff
changeset
|
977 |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
978 |
19752
0927df746554
patch 8.2.0432: a few tests fail in a huge terminal
Bram Moolenaar <Bram@vim.org>
parents:
19738
diff
changeset
|
979 call feedkeys(':"3456789' |
0927df746554
patch 8.2.0432: a few tests fail in a huge terminal
Bram Moolenaar <Bram@vim.org>
parents:
19738
diff
changeset
|
980 \ .. MouseLeftClickCode(row, 7) |
0927df746554
patch 8.2.0432: a few tests fail in a huge terminal
Bram Moolenaar <Bram@vim.org>
parents:
19738
diff
changeset
|
981 \ .. MouseLeftReleaseCode(row, 7) .. 'L' |
0927df746554
patch 8.2.0432: a few tests fail in a huge terminal
Bram Moolenaar <Bram@vim.org>
parents:
19738
diff
changeset
|
982 \ .. MouseRightClickCode(row, 4) |
0927df746554
patch 8.2.0432: a few tests fail in a huge terminal
Bram Moolenaar <Bram@vim.org>
parents:
19738
diff
changeset
|
983 \ .. MouseRightReleaseCode(row, 4) .. 'R' |
0927df746554
patch 8.2.0432: a few tests fail in a huge terminal
Bram Moolenaar <Bram@vim.org>
parents:
19738
diff
changeset
|
984 \ .. "\<CR>", 'Lx!') |
0927df746554
patch 8.2.0432: a few tests fail in a huge terminal
Bram Moolenaar <Bram@vim.org>
parents:
19738
diff
changeset
|
985 call assert_equal('"3R456L789', @:, msg) |
0927df746554
patch 8.2.0432: a few tests fail in a huge terminal
Bram Moolenaar <Bram@vim.org>
parents:
19738
diff
changeset
|
986 endif |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
987 endfor |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
988 |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
989 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
|
990 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
|
991 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
|
992 set mousetime& |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
993 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
|
994 endfunc |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
995 |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
996 " 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
|
997 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
|
998 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
|
999 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
|
1000 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
|
1001 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
|
1002 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
|
1003 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
|
1004 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
|
1005 " 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
|
1006 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
|
1007 let @* = 'paste' |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
1008 |
19738
0208534b8a84
patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
19657
diff
changeset
|
1009 for ttymouse_val in g:Ttymouse_values + g: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
|
1010 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
|
1011 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
|
1012 |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
1013 call feedkeys(":\"->" |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
1014 \ .. 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
|
1015 \ .. 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
|
1016 \ .. "<-" |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
1017 \ .. 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
|
1018 \ .. 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
|
1019 \ .. "\<CR>", 'Lx!') |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
1020 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
|
1021 endfor |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
1022 |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
1023 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
|
1024 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
|
1025 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
|
1026 let @* = '' |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
1027 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
|
1028 endfunc |
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
1029 |
21325
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1030 " Test for making sure S-Middlemouse doesn't do anything |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1031 func Test_term_mouse_shift_middle_click() |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1032 new |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1033 let save_mouse = &mouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1034 let save_term = &term |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1035 let save_ttymouse = &ttymouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1036 call test_override('no_query_mouse', 1) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1037 set mouse=a term=xterm ttymouse=xterm2 mousemodel= |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1038 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1039 call test_setmouse(1, 1) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1040 exe "normal \<S-MiddleMouse>" |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1041 call assert_equal([''], getline(1, '$')) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1042 call assert_equal(1, winnr()) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1043 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1044 let &mouse = save_mouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1045 let &term = save_term |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1046 let &ttymouse = save_ttymouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1047 set mousemodel& |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1048 call test_override('no_query_mouse', 0) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1049 close! |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1050 endfunc |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1051 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1052 " Test for using mouse in visual mode |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1053 func Test_term_mouse_visual_mode() |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1054 new |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1055 let save_mouse = &mouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1056 let save_term = &term |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1057 let save_ttymouse = &ttymouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1058 call test_override('no_query_mouse', 1) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1059 set term=xterm ttymouse=xterm2 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1060 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1061 " If visual mode is not present in 'mouse', then left click should not |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1062 " do anything in visal mode. |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1063 call setline(1, ['one two three four']) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1064 set mouse=nci |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1065 call cursor(1, 5) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1066 let @" = '' |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1067 call feedkeys("ve" |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1068 \ .. MouseLeftClickCode(1, 15) .. MouseLeftReleaseCode(1, 15) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1069 \ .. 'y', 'Lx!') |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1070 call assert_equal(5, col('.')) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1071 call assert_equal('two', @") |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1072 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1073 " Pressing right click in visual mode should change the visual selection |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1074 " if 'mousemodel' doesn't contain popup. |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1075 " Right click after the visual selection |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1076 set mousemodel= |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1077 set mouse=a |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1078 call test_setmouse(1, 13) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1079 exe "normal 5|ve\<RightMouse>y" |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1080 call assert_equal('two three', @") |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1081 call assert_equal(5, col('.')) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1082 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1083 " Right click before the visual selection |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1084 call test_setmouse(1, 9) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1085 exe "normal 15|ve\<RightMouse>y" |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1086 call assert_equal('three four', @") |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1087 call assert_equal(9, col('.')) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1088 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1089 " Multi-line selection. Right click in the middle of thse selection |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1090 call setline(1, ["one", "two", "three", "four", "five", "six"]) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1091 call test_setmouse(3, 1) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1092 exe "normal ggVG\<RightMouse>y" |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1093 call assert_equal(3, line("'<")) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1094 call test_setmouse(4, 1) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1095 exe "normal ggVG\<RightMouse>y" |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1096 call assert_equal(4, line("'>")) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1097 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1098 set mousemodel& |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1099 let &mouse = save_mouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1100 let &term = save_term |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1101 let &ttymouse = save_ttymouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1102 call test_override('no_query_mouse', 0) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1103 close! |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1104 endfunc |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1105 |
19657
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1106 " Test for displaying the popup menu using the right mouse click |
21325
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1107 func Test_term_mouse_popup_menu() |
19657
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1108 CheckFeature menu |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1109 new |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1110 call setline(1, 'popup menu test') |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1111 let save_mouse = &mouse |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1112 let save_term = &term |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1113 let save_ttymouse = &ttymouse |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1114 let save_mousemodel = &mousemodel |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1115 call test_override('no_query_mouse', 1) |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1116 set mouse=a term=xterm mousemodel=popup |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1117 |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1118 menu PopUp.foo :let g:menustr = 'foo'<CR> |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1119 menu PopUp.bar :let g:menustr = 'bar'<CR> |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1120 menu PopUp.baz :let g:menustr = 'baz'<CR> |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1121 |
19738
0208534b8a84
patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
19657
diff
changeset
|
1122 for ttymouse_val in g:Ttymouse_values |
19657
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1123 exe 'set ttymouse=' .. ttymouse_val |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1124 let g:menustr = '' |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1125 call feedkeys(MouseRightClickCode(1, 4) |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1126 \ .. MouseRightReleaseCode(1, 4) .. "\<Down>\<Down>\<CR>", "x") |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1127 call assert_equal('bar', g:menustr) |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1128 endfor |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1129 |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1130 unmenu PopUp |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1131 let &mouse = save_mouse |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1132 let &term = save_term |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1133 let &ttymouse = save_ttymouse |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1134 let &mousemodel = save_mousemodel |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1135 call test_override('no_query_mouse', 0) |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1136 close! |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1137 endfunc |
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1138 |
21325
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1139 " Test for 'mousemodel' set to popup_setpos to move the cursor where the popup |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1140 " menu is displayed. |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1141 func Test_term_mouse_popup_menu_setpos() |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1142 CheckFeature menu |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1143 5new |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1144 call setline(1, ['the dish ran away with the spoon', |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1145 \ 'the cow jumped over the moon' ]) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1146 let save_mouse = &mouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1147 let save_term = &term |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1148 let save_ttymouse = &ttymouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1149 let save_mousemodel = &mousemodel |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1150 call test_override('no_query_mouse', 1) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1151 set mouse=a term=xterm mousemodel=popup_setpos |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1152 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1153 nmenu PopUp.foo :let g:menustr = 'foo'<CR> |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1154 nmenu PopUp.bar :let g:menustr = 'bar'<CR> |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1155 nmenu PopUp.baz :let g:menustr = 'baz'<CR> |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1156 vmenu PopUp.foo y:<C-U>let g:menustr = 'foo'<CR> |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1157 vmenu PopUp.bar y:<C-U>let g:menustr = 'bar'<CR> |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1158 vmenu PopUp.baz y:<C-U>let g:menustr = 'baz'<CR> |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1159 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1160 for ttymouse_val in g:Ttymouse_values |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1161 exe 'set ttymouse=' .. ttymouse_val |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1162 let g:menustr = '' |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1163 call cursor(1, 1) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1164 call feedkeys(MouseRightClickCode(1, 5) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1165 \ .. MouseRightReleaseCode(1, 5) .. "\<Down>\<Down>\<CR>", "x") |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1166 call assert_equal('bar', g:menustr) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1167 call assert_equal([1, 5], [line('.'), col('.')]) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1168 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1169 " Test for right click in visual mode inside the selection |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1170 let @" = '' |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1171 call cursor(1, 10) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1172 call feedkeys('vee' .. MouseRightClickCode(1, 12) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1173 \ .. MouseRightReleaseCode(1, 12) .. "\<Down>\<CR>", "x") |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1174 call assert_equal([1, 10], [line('.'), col('.')]) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1175 call assert_equal('ran away', @") |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1176 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1177 " Test for right click in visual mode before the selection |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1178 let @" = '' |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1179 call cursor(1, 10) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1180 call feedkeys('vee' .. MouseRightClickCode(1, 2) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1181 \ .. MouseRightReleaseCode(1, 2) .. "\<Down>\<CR>", "x") |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1182 call assert_equal([1, 2], [line('.'), col('.')]) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1183 call assert_equal('', @") |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1184 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1185 " Test for right click in visual mode after the selection |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1186 let @" = '' |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1187 call cursor(1, 10) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1188 call feedkeys('vee' .. MouseRightClickCode(1, 20) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1189 \ .. MouseRightReleaseCode(1, 20) .. "\<Down>\<CR>", "x") |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1190 call assert_equal([1, 20], [line('.'), col('.')]) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1191 call assert_equal('', @") |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1192 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1193 " Test for right click in block-wise visual mode inside the selection |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1194 let @" = '' |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1195 call cursor(1, 16) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1196 call feedkeys("\<C-V>j3l" .. MouseRightClickCode(2, 17) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1197 \ .. MouseRightReleaseCode(2, 17) .. "\<Down>\<CR>", "x") |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1198 call assert_equal([1, 16], [line('.'), col('.')]) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1199 call assert_equal("\<C-V>4", getregtype('"')) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1200 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1201 " Test for right click in block-wise visual mode outside the selection |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1202 let @" = '' |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1203 call cursor(1, 16) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1204 call feedkeys("\<C-V>j3l" .. MouseRightClickCode(2, 2) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1205 \ .. MouseRightReleaseCode(2, 2) .. "\<Down>\<CR>", "x") |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1206 call assert_equal([2, 2], [line('.'), col('.')]) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1207 call assert_equal('v', getregtype('"')) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1208 call assert_equal('', @") |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1209 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1210 " Try clicking on the status line |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1211 let @" = '' |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1212 call cursor(1, 10) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1213 call feedkeys('vee' .. MouseRightClickCode(6, 2) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1214 \ .. MouseRightReleaseCode(6, 2) .. "\<Down>\<CR>", "x") |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1215 call assert_equal([1, 10], [line('.'), col('.')]) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1216 call assert_equal('ran away', @") |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1217 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1218 " Try clicking outside the window |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1219 let @" = '' |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1220 call cursor(7, 2) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1221 call feedkeys('vee' .. MouseRightClickCode(7, 2) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1222 \ .. MouseRightReleaseCode(7, 2) .. "\<Down>\<CR>", "x") |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1223 call assert_equal(2, winnr()) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1224 call assert_equal('', @") |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1225 wincmd w |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1226 endfor |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1227 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1228 unmenu PopUp |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1229 let &mouse = save_mouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1230 let &term = save_term |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1231 let &ttymouse = save_ttymouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1232 let &mousemodel = save_mousemodel |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1233 call test_override('no_query_mouse', 0) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1234 close! |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1235 endfunc |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1236 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1237 " Test for searching for the word under the cursor using Shift-Right or |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1238 " Shift-Left click. |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1239 func Test_term_mouse_search() |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1240 new |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1241 let save_mouse = &mouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1242 let save_term = &term |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1243 let save_ttymouse = &ttymouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1244 call test_override('no_query_mouse', 1) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1245 set mouse=a term=xterm ttymouse=xterm2 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1246 set mousemodel= |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1247 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1248 " In normal mode, Shift-Left or Shift-Right click should search for the word |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1249 " under the cursor. |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1250 call setline(1, ['one two three four', 'four three two one']) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1251 call test_setmouse(1, 4) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1252 exe "normal \<S-LeftMouse>" |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1253 call assert_equal([2, 12], [line('.'), col('.')]) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1254 call test_setmouse(2, 16) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1255 exe "normal \<S-RightMouse>" |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1256 call assert_equal([1, 1], [line('.'), col('.')]) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1257 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1258 " In visual mode, Shift-Left or Shift-Right click should search for the word |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1259 " under the cursor and extend the selection. |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1260 call test_setmouse(1, 4) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1261 exe "normal 4|ve\<S-LeftMouse>y" |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1262 call assert_equal([2, 12], [line("'>"), col("'>")]) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1263 call test_setmouse(2, 16) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1264 exe "normal 2G16|ve\<S-RightMouse>y" |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1265 call assert_equal([1, 1], [line("'<"), col("'<")]) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1266 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1267 set mousemodel& |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1268 let &mouse = save_mouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1269 let &term = save_term |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1270 let &ttymouse = save_ttymouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1271 call test_override('no_query_mouse', 0) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1272 close! |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1273 endfunc |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1274 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1275 " Test for selecting an entry in the quickfix/location list window using the |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1276 " mouse. |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1277 func Test_term_mouse_quickfix_window() |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1278 let save_mouse = &mouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1279 let save_term = &term |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1280 let save_ttymouse = &ttymouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1281 call test_override('no_query_mouse', 1) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1282 set mouse=a term=xterm ttymouse=xterm2 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1283 set mousemodel= |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1284 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1285 cgetexpr "Xfile1:1:L1" |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1286 copen 5 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1287 call test_setmouse(&lines - 7, 1) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1288 exe "normal \<2-LeftMouse>" |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1289 call assert_equal('Xfile1', @%) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1290 %bw! |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1291 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1292 lgetexpr "Xfile2:1:L1" |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1293 lopen 5 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1294 call test_setmouse(&lines - 7, 1) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1295 exe "normal \<2-LeftMouse>" |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1296 call assert_equal('Xfile2', @%) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1297 %bw! |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1298 |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1299 set mousemodel& |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1300 let &mouse = save_mouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1301 let &term = save_term |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1302 let &ttymouse = save_ttymouse |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1303 call test_override('no_query_mouse', 0) |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1304 endfunc |
f68b121daa47
patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents:
21114
diff
changeset
|
1305 |
16936
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1306 " 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
|
1307 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
|
1308 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
|
1309 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
|
1310 |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1311 " 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
|
1312 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
|
1313 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
|
1314 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
|
1315 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
|
1316 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
|
1317 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
|
1318 |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1319 " 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
|
1320 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
|
1321 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
|
1322 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
|
1323 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
|
1324 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
|
1325 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
|
1326 |
16940
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1327 " 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
|
1328 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
|
1329 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
|
1330 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
|
1331 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
|
1332 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
|
1333 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
|
1334 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
|
1335 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
|
1336 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
|
1337 |
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1338 " 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
|
1339 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
|
1340 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
|
1341 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
|
1342 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
|
1343 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
|
1344 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
|
1345 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
|
1346 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
|
1347 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
|
1348 |
16940
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1349 " 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
|
1350 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
|
1351 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
|
1352 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
|
1353 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
|
1354 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
|
1355 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
|
1356 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
|
1357 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
|
1358 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
|
1359 |
16940
1c264ca8f2e8
patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents:
16936
diff
changeset
|
1360 " 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
|
1361 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
|
1362 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
|
1363 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
|
1364 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
|
1365 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
|
1366 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
|
1367 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
|
1368 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
|
1369 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
|
1370 |
16936
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1371 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
|
1372 endfunc |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1373 |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1374 " 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
|
1375 " 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
|
1376 " properties. |
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1377 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
|
1378 " 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
|
1379 set t_RV=x |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1380 call test_override('term_props', 1) |
16936
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1381 |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1382 " 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
|
1383 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
|
1384 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
|
1385 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
|
1386 |
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1387 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
|
1388 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
|
1389 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
|
1390 |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1391 call assert_equal(#{ |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1392 \ cursor_style: 'u', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1393 \ cursor_blink_mode: 'u', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1394 \ underline_rgb: 'u', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1395 \ mouse: 's' |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1396 \ }, terminalprops()) |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1397 |
16936
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1398 set t_RV= |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1399 call test_override('term_props', 0) |
16936
73e6ed2f69a2
patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents:
16493
diff
changeset
|
1400 endfunc |
16942
5f3e960ce76d
patch 8.1.1472: add_termcap_entry() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16940
diff
changeset
|
1401 |
18360
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1402 " 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
|
1403 " 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
|
1404 " properties. |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1405 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
|
1406 " 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
|
1407 set t_RV=x |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1408 call test_override('term_props', 1) |
18360
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1409 |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1410 " 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
|
1411 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
|
1412 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
|
1413 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
|
1414 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
|
1415 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
|
1416 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
|
1417 |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1418 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
|
1419 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
|
1420 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
|
1421 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
|
1422 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
|
1423 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
|
1424 |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1425 call assert_equal(#{ |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1426 \ cursor_style: 'n', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1427 \ cursor_blink_mode: 'u', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1428 \ underline_rgb: 'u', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1429 \ mouse: 's' |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1430 \ }, terminalprops()) |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1431 |
18360
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1432 set t_RV= |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1433 call test_override('term_props', 0) |
18360
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1434 endfunc |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1435 |
18285
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1436 " 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
|
1437 " 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
|
1438 " properties. |
18360
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1439 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
|
1440 " 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
|
1441 set t_RV=x |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1442 call test_override('term_props', 1) |
18311
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1443 |
18285
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1444 set ttymouse=xterm |
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1445 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
|
1446 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
|
1447 call feedkeys(seq, 'Lx!') |
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1448 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
|
1449 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
|
1450 |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1451 call assert_equal(#{ |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1452 \ cursor_style: 'n', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1453 \ cursor_blink_mode: 'u', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1454 \ underline_rgb: 'u', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1455 \ mouse: 's' |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1456 \ }, terminalprops()) |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1457 |
18285
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1458 set t_RV= |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1459 call test_override('term_props', 0) |
18285
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1460 endfunc |
db8cd5e56586
patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents:
18247
diff
changeset
|
1461 |
18360
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1462 " 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
|
1463 " 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
|
1464 " properties. |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1465 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
|
1466 " 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
|
1467 set t_RV=x |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1468 call test_override('term_props', 1) |
18360
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1469 |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1470 set ttymouse=xterm |
20850
bf7453768034
patch 8.2.0977: t_8u is made empty for the wrong terminals
Bram Moolenaar <Bram@vim.org>
parents:
20836
diff
changeset
|
1471 " t_8u is not reset |
bf7453768034
patch 8.2.0977: t_8u is made empty for the wrong terminals
Bram Moolenaar <Bram@vim.org>
parents:
20836
diff
changeset
|
1472 let &t_8u = "\<Esc>[58;2;%lu;%lu;%lum" |
18360
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1473 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
|
1474 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
|
1475 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
|
1476 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
|
1477 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
|
1478 |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1479 call assert_equal(#{ |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1480 \ cursor_style: 'n', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1481 \ cursor_blink_mode: 'u', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1482 \ underline_rgb: 'y', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1483 \ mouse: 's' |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1484 \ }, terminalprops()) |
20850
bf7453768034
patch 8.2.0977: t_8u is made empty for the wrong terminals
Bram Moolenaar <Bram@vim.org>
parents:
20836
diff
changeset
|
1485 call assert_equal("\<Esc>[58;2;%lu;%lu;%lum", &t_8u) |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1486 |
18360
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1487 " 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
|
1488 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
|
1489 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
|
1490 set t_RV=x |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1491 call test_override('term_props', 0) |
18360
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1492 endfunc |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1493 |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1494 " 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
|
1495 " 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
|
1496 " properties. |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1497 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
|
1498 " 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
|
1499 set t_RV=x |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1500 call test_override('term_props', 1) |
18360
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1501 |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1502 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
|
1503 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
|
1504 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
|
1505 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
|
1506 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
|
1507 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
|
1508 |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1509 call assert_equal(#{ |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1510 \ cursor_style: 'n', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1511 \ cursor_blink_mode: 'u', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1512 \ underline_rgb: 'y', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1513 \ mouse: 's' |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1514 \ }, terminalprops()) |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1515 |
18360
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1516 set t_RV= |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1517 call test_override('term_props', 0) |
18360
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1518 endfunc |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1519 |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1520 " 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
|
1521 " 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
|
1522 " properties. |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1523 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
|
1524 " 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
|
1525 set t_RV=x |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1526 call test_override('term_props', 1) |
18360
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1527 |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1528 " 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
|
1529 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
|
1530 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
|
1531 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
|
1532 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
|
1533 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
|
1534 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
|
1535 |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1536 " 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
|
1537 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
|
1538 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
|
1539 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
|
1540 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
|
1541 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
|
1542 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
|
1543 |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1544 call assert_equal(#{ |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1545 \ cursor_style: 'n', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1546 \ cursor_blink_mode: 'n', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1547 \ underline_rgb: 'y', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1548 \ mouse: 's' |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1549 \ }, terminalprops()) |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1550 |
18360
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1551 set t_RV= |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1552 call test_override('term_props', 0) |
18360
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1553 endfunc |
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1554 |
18311
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1555 " 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
|
1556 " 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
|
1557 " properties. |
18360
e460e6878406
patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents:
18350
diff
changeset
|
1558 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
|
1559 " 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
|
1560 set t_RV=x |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1561 call test_override('term_props', 1) |
18311
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1562 |
18350
b1796f1b28fa
patch 8.1.2169: terminal flags are never reset
Bram Moolenaar <Bram@vim.org>
parents:
18311
diff
changeset
|
1563 " 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
|
1564 set ttymouse=xterm |
b1796f1b28fa
patch 8.1.2169: terminal flags are never reset
Bram Moolenaar <Bram@vim.org>
parents:
18311
diff
changeset
|
1565 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
|
1566 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
|
1567 call feedkeys(seq, 'Lx!') |
b1796f1b28fa
patch 8.1.2169: terminal flags are never reset
Bram Moolenaar <Bram@vim.org>
parents:
18311
diff
changeset
|
1568 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
|
1569 call assert_equal('sgr', &ttymouse) |
b1796f1b28fa
patch 8.1.2169: terminal flags are never reset
Bram Moolenaar <Bram@vim.org>
parents:
18311
diff
changeset
|
1570 |
18311
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1571 " 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
|
1572 set t_RV= |
b1796f1b28fa
patch 8.1.2169: terminal flags are never reset
Bram Moolenaar <Bram@vim.org>
parents:
18311
diff
changeset
|
1573 set term=xterm |
b1796f1b28fa
patch 8.1.2169: terminal flags are never reset
Bram Moolenaar <Bram@vim.org>
parents:
18311
diff
changeset
|
1574 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
|
1575 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
|
1576 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
|
1577 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
|
1578 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
|
1579 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
|
1580 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
|
1581 |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1582 call assert_equal(#{ |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1583 \ cursor_style: 'n', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1584 \ cursor_blink_mode: 'u', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1585 \ underline_rgb: 'y', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1586 \ mouse: 'u' |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1587 \ }, terminalprops()) |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1588 |
18311
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1589 " 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
|
1590 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
|
1591 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
|
1592 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
|
1593 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
|
1594 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
|
1595 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
|
1596 |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1597 call assert_equal(#{ |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1598 \ cursor_style: 'n', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1599 \ cursor_blink_mode: 'u', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1600 \ underline_rgb: 'u', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1601 \ mouse: '2' |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1602 \ }, terminalprops()) |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1603 |
18311
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1604 " 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
|
1605 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
|
1606 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
|
1607 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
|
1608 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
|
1609 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
|
1610 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
|
1611 |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1612 call assert_equal(#{ |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1613 \ cursor_style: 'n', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1614 \ cursor_blink_mode: 'u', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1615 \ underline_rgb: 'u', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1616 \ mouse: 's' |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1617 \ }, terminalprops()) |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1618 |
20850
bf7453768034
patch 8.2.0977: t_8u is made empty for the wrong terminals
Bram Moolenaar <Bram@vim.org>
parents:
20836
diff
changeset
|
1619 " xterm >= 279: "sgr" and cursor_style not reset; also check t_8u reset |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1620 set ttymouse=xterm |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1621 call test_option_not_set('ttymouse') |
20850
bf7453768034
patch 8.2.0977: t_8u is made empty for the wrong terminals
Bram Moolenaar <Bram@vim.org>
parents:
20836
diff
changeset
|
1622 let &t_8u = "\<Esc>[58;2;%lu;%lu;%lum" |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1623 let seq = "\<Esc>[>0;279;0c" |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1624 call feedkeys(seq, 'Lx!') |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1625 call assert_equal(seq, v:termresponse) |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1626 call assert_equal('sgr', &ttymouse) |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1627 |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1628 call assert_equal(#{ |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1629 \ cursor_style: 'u', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1630 \ cursor_blink_mode: 'u', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1631 \ underline_rgb: 'u', |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1632 \ mouse: 's' |
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1633 \ }, terminalprops()) |
20850
bf7453768034
patch 8.2.0977: t_8u is made empty for the wrong terminals
Bram Moolenaar <Bram@vim.org>
parents:
20836
diff
changeset
|
1634 call assert_equal('', &t_8u) |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1635 |
18311
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1636 set t_RV= |
20836
2616c5a337e0
patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents:
20727
diff
changeset
|
1637 call test_override('term_props', 0) |
18311
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1638 endfunc |
60fce48438e2
patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents:
18307
diff
changeset
|
1639 |
16942
5f3e960ce76d
patch 8.1.1472: add_termcap_entry() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16940
diff
changeset
|
1640 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
|
1641 try |
eda5b2cb1dc4
patch 8.1.2118: termcodes test fails when $TERM is "dumb"
Bram Moolenaar <Bram@vim.org>
parents:
18223
diff
changeset
|
1642 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
|
1643 catch /E113/ |
eda5b2cb1dc4
patch 8.1.2118: termcodes test fails when $TERM is "dumb"
Bram Moolenaar <Bram@vim.org>
parents:
18223
diff
changeset
|
1644 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
|
1645 endtry |
16942
5f3e960ce76d
patch 8.1.1472: add_termcap_entry() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16940
diff
changeset
|
1646 set t_k1= |
5f3e960ce76d
patch 8.1.1472: add_termcap_entry() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16940
diff
changeset
|
1647 set t_k1& |
5f3e960ce76d
patch 8.1.1472: add_termcap_entry() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16940
diff
changeset
|
1648 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
|
1649 |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1650 " use external termcap first |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1651 set nottybuiltin |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1652 set t_k1= |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1653 set t_k1& |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1654 " 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
|
1655 " 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
|
1656 call assert_notequal('', &t_k1) |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1657 |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1658 if &term =~ 'xterm' |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1659 " use internal termcap first |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1660 let term_save = &term |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1661 let &term = 'builtin_' .. &term |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1662 set t_k1= |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1663 set t_k1& |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1664 call assert_equal(k1, &t_k1) |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1665 let &term = term_save |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1666 endif |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1667 |
b2179cf1a0a5
patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16942
diff
changeset
|
1668 set ttybuiltin |
16942
5f3e960ce76d
patch 8.1.1472: add_termcap_entry() is not tested
Bram Moolenaar <Bram@vim.org>
parents:
16940
diff
changeset
|
1669 endfunc |
18289
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1670 |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1671 func GetEscCodeCSI27(key, modifier) |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1672 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
|
1673 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
|
1674 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
|
1675 endfunc |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1676 |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1677 func GetEscCodeCSIu(key, modifier) |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1678 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
|
1679 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
|
1680 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
|
1681 endfunc |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1682 |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1683 " 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
|
1684 " 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
|
1685 func RunTest_modifyOtherKeys(func) |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1686 new |
18301
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1687 set timeoutlen=10 |
18289
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1688 |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
1689 " 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
|
1690 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
|
1691 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
|
1692 |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1693 " Ctrl-i is Tab |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1694 call setline(1, '') |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1695 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
|
1696 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
|
1697 |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1698 " 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
|
1699 call setline(1, '') |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1700 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
|
1701 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
|
1702 |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1703 " Alt-x is ø |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1704 call setline(1, '') |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1705 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
|
1706 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
|
1707 |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1708 " Meta-x is also ø |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1709 call setline(1, '') |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1710 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
|
1711 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
|
1712 |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1713 " Alt-X is Ø |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1714 call setline(1, '') |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1715 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
|
1716 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
|
1717 |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1718 " Meta-X is ø |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1719 call setline(1, '') |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1720 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
|
1721 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
|
1722 |
18683
5ed740336224
patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work
Bram Moolenaar <Bram@vim.org>
parents:
18627
diff
changeset
|
1723 " Ctrl-6 is Ctrl-^ |
5ed740336224
patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work
Bram Moolenaar <Bram@vim.org>
parents:
18627
diff
changeset
|
1724 split aaa |
5ed740336224
patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work
Bram Moolenaar <Bram@vim.org>
parents:
18627
diff
changeset
|
1725 edit bbb |
5ed740336224
patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work
Bram Moolenaar <Bram@vim.org>
parents:
18627
diff
changeset
|
1726 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
|
1727 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
|
1728 bwipe aaa |
5ed740336224
patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work
Bram Moolenaar <Bram@vim.org>
parents:
18627
diff
changeset
|
1729 bwipe bbb |
5ed740336224
patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work
Bram Moolenaar <Bram@vim.org>
parents:
18627
diff
changeset
|
1730 |
18289
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1731 bwipe! |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1732 set timeoutlen& |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1733 endfunc |
16dd8ebc2339
patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents:
18285
diff
changeset
|
1734 |
18301
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1735 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
|
1736 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
|
1737 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
|
1738 endfunc |
18295
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1739 |
18709
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1740 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
|
1741 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
|
1742 |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1743 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
|
1744 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
|
1745 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
|
1746 |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1747 new |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1748 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
|
1749 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
|
1750 bwipe! |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1751 |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1752 new |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1753 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
|
1754 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
|
1755 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
|
1756 bwipe! |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1757 |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1758 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
|
1759 endfunc |
ac08c7ad9d37
patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18683
diff
changeset
|
1760 |
18295
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1761 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
|
1762 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
|
1763 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
|
1764 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
|
1765 else |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1766 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
|
1767 endif |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1768 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
|
1769 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
|
1770 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
|
1771 exe 'iunmap \|' |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1772 else |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1773 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
|
1774 endif |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1775 endfunc |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1776 |
20727
5ffe112b1afd
patch 8.2.0916: mapping with partly modifyOtherKeys code does not work
Bram Moolenaar <Bram@vim.org>
parents:
20313
diff
changeset
|
1777 func Test_modifyOtherKeys_mapped() |
5ffe112b1afd
patch 8.2.0916: mapping with partly modifyOtherKeys code does not work
Bram Moolenaar <Bram@vim.org>
parents:
20313
diff
changeset
|
1778 set timeoutlen=10 |
5ffe112b1afd
patch 8.2.0916: mapping with partly modifyOtherKeys code does not work
Bram Moolenaar <Bram@vim.org>
parents:
20313
diff
changeset
|
1779 imap ' <C-W> |
5ffe112b1afd
patch 8.2.0916: mapping with partly modifyOtherKeys code does not work
Bram Moolenaar <Bram@vim.org>
parents:
20313
diff
changeset
|
1780 imap <C-W><C-A> c-a |
5ffe112b1afd
patch 8.2.0916: mapping with partly modifyOtherKeys code does not work
Bram Moolenaar <Bram@vim.org>
parents:
20313
diff
changeset
|
1781 call setline(1, '') |
5ffe112b1afd
patch 8.2.0916: mapping with partly modifyOtherKeys code does not work
Bram Moolenaar <Bram@vim.org>
parents:
20313
diff
changeset
|
1782 |
5ffe112b1afd
patch 8.2.0916: mapping with partly modifyOtherKeys code does not work
Bram Moolenaar <Bram@vim.org>
parents:
20313
diff
changeset
|
1783 " single quote is turned into single byte CTRL-W |
5ffe112b1afd
patch 8.2.0916: mapping with partly modifyOtherKeys code does not work
Bram Moolenaar <Bram@vim.org>
parents:
20313
diff
changeset
|
1784 " CTRL-A is added with a separate modifier, and needs to be simplified before |
5ffe112b1afd
patch 8.2.0916: mapping with partly modifyOtherKeys code does not work
Bram Moolenaar <Bram@vim.org>
parents:
20313
diff
changeset
|
1785 " the mapping can match. |
5ffe112b1afd
patch 8.2.0916: mapping with partly modifyOtherKeys code does not work
Bram Moolenaar <Bram@vim.org>
parents:
20313
diff
changeset
|
1786 call feedkeys("a'" .. GetEscCodeCSI27('A', 5) .. "\<Esc>", 'Lx!') |
5ffe112b1afd
patch 8.2.0916: mapping with partly modifyOtherKeys code does not work
Bram Moolenaar <Bram@vim.org>
parents:
20313
diff
changeset
|
1787 call assert_equal('c-a', getline(1)) |
5ffe112b1afd
patch 8.2.0916: mapping with partly modifyOtherKeys code does not work
Bram Moolenaar <Bram@vim.org>
parents:
20313
diff
changeset
|
1788 |
5ffe112b1afd
patch 8.2.0916: mapping with partly modifyOtherKeys code does not work
Bram Moolenaar <Bram@vim.org>
parents:
20313
diff
changeset
|
1789 iunmap ' |
5ffe112b1afd
patch 8.2.0916: mapping with partly modifyOtherKeys code does not work
Bram Moolenaar <Bram@vim.org>
parents:
20313
diff
changeset
|
1790 iunmap <C-W><C-A> |
5ffe112b1afd
patch 8.2.0916: mapping with partly modifyOtherKeys code does not work
Bram Moolenaar <Bram@vim.org>
parents:
20313
diff
changeset
|
1791 set timeoutlen& |
5ffe112b1afd
patch 8.2.0916: mapping with partly modifyOtherKeys code does not work
Bram Moolenaar <Bram@vim.org>
parents:
20313
diff
changeset
|
1792 endfunc |
5ffe112b1afd
patch 8.2.0916: mapping with partly modifyOtherKeys code does not work
Bram Moolenaar <Bram@vim.org>
parents:
20313
diff
changeset
|
1793 |
18295
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1794 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
|
1795 new |
18301
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1796 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
|
1797 |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1798 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
|
1799 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
|
1800 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
|
1801 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
|
1802 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
|
1803 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
|
1804 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
|
1805 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
|
1806 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
|
1807 |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1808 bwipe! |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1809 set timeoutlen& |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1810 endfunc |
43e9523f6d84
patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18289
diff
changeset
|
1811 |
18301
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1812 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
|
1813 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
|
1814 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
|
1815 endfunc |
18301
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1816 |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1817 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
|
1818 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
|
1819 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
|
1820 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
|
1821 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
|
1822 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
|
1823 endfunc |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1824 |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1825 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
|
1826 new |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1827 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
|
1828 |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1829 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
|
1830 " 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
|
1831 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
|
1832 endif |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1833 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
|
1834 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
|
1835 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
|
1836 " 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
|
1837 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
|
1838 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
|
1839 endif |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1840 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
|
1841 " 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
|
1842 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
|
1843 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
|
1844 endif |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1845 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
|
1846 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
|
1847 " 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
|
1848 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
|
1849 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
|
1850 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
|
1851 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
|
1852 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
|
1853 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
|
1854 endif |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1855 |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1856 bwipe! |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1857 set timeoutlen& |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1858 endfunc |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1859 |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1860 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
|
1861 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
|
1862 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
|
1863 endfunc |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
1864 |
18301
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1865 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
|
1866 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
|
1867 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
|
1868 endfunc |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1869 |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1870 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
|
1871 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
|
1872 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
|
1873 endfunc |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1874 |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1875 " 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
|
1876 " 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
|
1877 |
18301
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1878 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
|
1879 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
|
1880 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
|
1881 endfunc |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1882 |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1883 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
|
1884 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
|
1885 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
|
1886 endfunc |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1887 |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1888 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
|
1889 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
|
1890 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
|
1891 endfunc |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1892 |
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18295
diff
changeset
|
1893 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
|
1894 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
|
1895 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
|
1896 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
|
1897 |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1898 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
|
1899 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
|
1900 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
|
1901 " 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
|
1902 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
|
1903 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
|
1904 |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1905 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
|
1906 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
|
1907 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
|
1908 |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
1909 " 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
|
1910 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
|
1911 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
|
1912 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
|
1913 |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1914 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
|
1915 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
|
1916 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
|
1917 |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1918 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
|
1919 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
|
1920 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
|
1921 |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1922 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
|
1923 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
|
1924 |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1925 " 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
|
1926 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
|
1927 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
|
1928 |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1929 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
|
1930 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
|
1931 |
18918
5c256866b837
patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents:
18717
diff
changeset
|
1932 " 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
|
1933 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
|
1934 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
|
1935 |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1936 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
|
1937 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
|
1938 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
|
1939 |
14d2a210fab1
patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents:
18709
diff
changeset
|
1940 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
|
1941 endfunc |
19657
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1942 |
20313
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1943 " Test for translation of special key codes (<xF1>, <xF2>, etc.) |
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1944 func Test_Keycode_Tranlsation() |
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1945 let keycodes = [ |
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1946 \ ["<xUp>", "<Up>"], |
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1947 \ ["<xDown>", "<Down>"], |
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1948 \ ["<xLeft>", "<Left>"], |
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1949 \ ["<xRight>", "<Right>"], |
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1950 \ ["<xHome>", "<Home>"], |
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1951 \ ["<xEnd>", "<End>"], |
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1952 \ ["<zHome>", "<Home>"], |
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1953 \ ["<zEnd>", "<End>"], |
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1954 \ ["<xF1>", "<F1>"], |
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1955 \ ["<xF2>", "<F2>"], |
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1956 \ ["<xF3>", "<F3>"], |
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1957 \ ["<xF4>", "<F4>"], |
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1958 \ ["<S-xF1>", "<S-F1>"], |
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1959 \ ["<S-xF2>", "<S-F2>"], |
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1960 \ ["<S-xF3>", "<S-F3>"], |
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1961 \ ["<S-xF4>", "<S-F4>"]] |
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1962 for [k1, k2] in keycodes |
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1963 exe "nnoremap " .. k1 .. " 2wx" |
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1964 call assert_true(maparg(k1, 'n', 0, 1).lhs == k2) |
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1965 exe "nunmap " .. k1 |
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1966 endfor |
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1967 endfunc |
244eb8d8d100
patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents:
19752
diff
changeset
|
1968 |
19657
da791e5c0139
patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18918
diff
changeset
|
1969 " vim: shiftwidth=2 sts=2 expandtab |