annotate src/testdir/test_termcodes.vim @ 31803:7a9569aecc51

Added tag v9.0.1233 for changeset ddbc560ecc41b458d417c497737166c889707a8d
author Bram Moolenaar <Bram@vim.org>
date Sun, 22 Jan 2023 21:15:04 +0100
parents b9a4699d6a35
children dbec60b8c253
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
21624
1d75baa22d9a patch 8.2.1362: last entry of ":set term=xxx" overwritten by error message
Bram Moolenaar <Bram@vim.org>
parents: 21369
diff changeset
10 source view_util.vim
21626
ebceee9391cf patch 8.2.1363: test trying to run terminal when it is not supported
Bram Moolenaar <Bram@vim.org>
parents: 21624
diff changeset
11 source term_util.vim
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
12
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
13 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
14 new
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_mouse = &mouse
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
16 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
17 let save_ttymouse = &ttymouse
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
18 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
19 set mouse=a term=xterm
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
20 call WaitForResponses()
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
21
16263
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
22 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
23
19738
0208534b8a84 patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19657
diff changeset
24 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
25 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
26 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
27 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
28 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
29 let row = 2
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
30 let col = 6
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
31 call MouseLeftClick(row, col)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
32 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
33 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
34 endfor
16263
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
35
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
36 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
37 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
38 let &ttymouse = save_ttymouse
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
39 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
40 bwipe!
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
41 endfunc
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
42
18307
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
43 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
44 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
45 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
46 endif
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
47 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
48 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
49 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
50 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
51 set mouse=a term=xterm
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
52 call WaitForResponses()
18307
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 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
55 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
56 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
57 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
58
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
59 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
60 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
61 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
62 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
63
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
64 " 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
65 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
66 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
67
18918
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents: 18717
diff changeset
68 " 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
69 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
70 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
71 norm! r1gv
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
72
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
73 " 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
74 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
75 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
76
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
77 " 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
78 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
79 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
80 norm! r2
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
81
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
82 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
83 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
84 \ '-111111',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
85 \ '1122222',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
86 \ '2222222',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
87 \ '2222211',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
88 \ '111111-',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
89 \ '-------'], 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
90 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
91 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
92 \ '1111111',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
93 \ '2222222',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
94 \ '2222222',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
95 \ '2222222',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
96 \ '1111111',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
97 \ '-------'], 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
98 else
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
99 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
100 \ '-11111-',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
101 \ '-12221-',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
102 \ '-12221-',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
103 \ '-12221-',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
104 \ '-11111-',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
105 \ '-------'], 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
106 endif
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
107 endfor
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
108 endfor
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
109
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
110 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
111 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
112 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
113 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
114 bwipe!
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
115 endfunc
176fa195b95d patch 8.1.2148: no test for right click extending Visual area
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
116
16481
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents: 16437
diff changeset
117 " 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
118 " 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
119 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
120 let save_mouse = &mouse
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents: 16437
diff changeset
121 let save_term = &term
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents: 16437
diff changeset
122 let save_ttymouse = &ttymouse
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents: 16437
diff changeset
123 set mouse=a term=xterm
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
124 call WaitForResponses()
16481
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents: 16437
diff changeset
125
19738
0208534b8a84 patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19657
diff changeset
126 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
127 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
128 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
129 help
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents: 16437
diff changeset
130 /usr_02.txt
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents: 16437
diff changeset
131 norm! zt
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
132
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
133 " 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
134 let row = 1
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents: 16437
diff changeset
135 let col = 1
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents: 16437
diff changeset
136 call MouseCtrlLeftClick(row, col)
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents: 16437
diff changeset
137 call MouseLeftRelease(row, col)
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents: 16437
diff changeset
138 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
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 " 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
142 call MouseCtrlRightClick(row, col)
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
143 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
144 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
145 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
146
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
147 " Jump to a tag
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
148 exe "normal \<C-]>"
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
149 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
150 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
151
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
152 " 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
153 new
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
154 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
155 \ .. MouseRightReleaseCode(row, col) .. "\<C-C>"
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
156 call assert_fails('call feedkeys(str, "Lx!")', 'E37:', msg)
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
157 close!
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
158
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
159 " 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
160 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
161 \ .. MouseRightReleaseCode(row, col)
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
162 call assert_fails('call feedkeys(str, "Lx!")', 'E555:', msg)
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
163 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
164 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
165
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
166 " 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
167 /usr_02.txt
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
168 norm! zt
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\<LeftMouse>"
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
171 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
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 " 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
175 call test_setmouse(row, col)
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
176 exe "normal g\<RightMouse>"
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
177 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
178 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
179
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
180 %bw!
16481
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents: 16437
diff changeset
181 endfor
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents: 16437
diff changeset
182
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents: 16437
diff changeset
183 let &mouse = save_mouse
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents: 16437
diff changeset
184 let &term = save_term
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents: 16437
diff changeset
185 let &ttymouse = save_ttymouse
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents: 16437
diff changeset
186 endfunc
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click
Bram Moolenaar <Bram@vim.org>
parents: 16437
diff changeset
187
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
188 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
189 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
190
16423
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16352
diff changeset
191 new
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16352
diff changeset
192 let save_mouse = &mouse
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16352
diff changeset
193 let save_term = &term
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16352
diff changeset
194 let save_ttymouse = &ttymouse
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
195 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
196 let save_quotestar = @*
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
197 let save_quoteplus = @+
16423
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16352
diff changeset
198 set mouse=a term=xterm
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
199 call WaitForResponses()
16423
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16352
diff changeset
200
19738
0208534b8a84 patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19657
diff changeset
201 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
202 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
203 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
204 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
205 let @* = 'abc'
16423
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 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
208 let row = 1
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16352
diff changeset
209 let col = 6
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16352
diff changeset
210 call MouseMiddleClick(row, col)
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16352
diff changeset
211 call MouseMiddleRelease(row, col)
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16352
diff changeset
212 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
213
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16352
diff changeset
214 " 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
215 let col = 20
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', '123456789'], getline(1, '$'), msg)
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16352
diff changeset
219
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16352
diff changeset
220 " 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
221 let row = 5
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16352
diff changeset
222 let col = 3
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16352
diff changeset
223 call MouseMiddleClick(row, col)
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16352
diff changeset
224 call MouseMiddleRelease(row, col)
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16352
diff changeset
225 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
226
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
227 " 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
228 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
229
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
230 " 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
231 " clipboard contents
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
232 let save_clipboard = &clipboard
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
233 set clipboard=
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
234 let @" = ''
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
235 call cursor(1, 1)
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
236 call feedkeys("v3l" ..
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
237 \ 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
238 call assert_equal(['12345abc6789abc', '12abc3abc456789'],
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
239 \ getline(1, '$'), msg)
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
240 call assert_equal('1234', @", msg)
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
241 let &clipboard = save_clipboard
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
242
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
243 " 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
244 " the clipboard contents
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
245 let @+ = 'xyz'
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
246 call cursor(1, 3)
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
247 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
248 call assert_equal(['12xyzabc6789abc', '12abc3abc456789'],
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
249 \ getline(1, '$'), msg)
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
250
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
251 " Prefixing middle click with [ or ] fixes the indent after pasting.
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
252 %d
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
253 call setline(1, " one two")
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
254 call setreg('r', 'red blue', 'l')
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
255 call test_setmouse(1, 5)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
256 exe "normal \"r[\<MiddleMouse>"
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
257 call assert_equal(' red blue', getline(1), msg)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
258 call test_setmouse(2, 5)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
259 exe "normal \"r]\<MiddleMouse>"
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
260 call assert_equal(' red blue', getline(3), msg)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
261 %d
16423
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16352
diff changeset
262 endfor
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16352
diff changeset
263
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16352
diff changeset
264 let &mouse = save_mouse
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16352
diff changeset
265 let &term = save_term
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16352
diff changeset
266 let &ttymouse = save_ttymouse
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
267 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
268 let @* = save_quotestar
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
269 let @+ = save_quotestar
16423
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16352
diff changeset
270 bwipe!
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16352
diff changeset
271 endfunc
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16352
diff changeset
272
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
273 " 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
274 " 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
275 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
276 if has('clipboard_working')
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
277 throw 'Skipped: clipboard support works'
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
278 endif
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
279 new
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
280 let save_mouse = &mouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
281 let save_term = &term
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
282 let save_ttymouse = &ttymouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
283 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
284 set mouse=a term=xterm
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
285 call WaitForResponses()
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
286
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
287 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
288 let msg = 'ttymouse=' .. ttymouse_val
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
289 exe 'set ttymouse=' .. ttymouse_val
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
290 call setline(1, ['123456789', '123456789'])
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
291
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
292 " 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
293 call cursor(1, 1)
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
294 call feedkeys("v3l" ..
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
295 \ 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
296 call assert_equal(['123456789', '1234561234789'],
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
297 \ getline(1, '$'), msg)
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
298 endfor
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
299
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
300 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
301 let &ttymouse = save_ttymouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
302 let &term = save_term
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
303 let &mouse = save_mouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
304 close!
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
305 endfunc
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
306
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
307 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
308 CheckFeature clipboard_working
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
309
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
310 new
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
311 let save_mouse = &mouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
312 let save_term = &term
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
313 let save_ttymouse = &ttymouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
314 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
315 set mouse=a term=xterm
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
316 call WaitForResponses()
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
317
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
318 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
319 let msg = 'ttymouse=' .. ttymouse_val
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
320 exe 'set ttymouse=' .. ttymouse_val
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
321 call setline(1, ['123456789', '123456789'])
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
322 let @* = 'abc'
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
323
26211
485c7c4afeb7 patch 8.2.3637: typos in test files
Bram Moolenaar <Bram@vim.org>
parents: 25429
diff changeset
324 " Middle-click in insert mode doesn't move the cursor but inserts the
485c7c4afeb7 patch 8.2.3637: typos in test files
Bram Moolenaar <Bram@vim.org>
parents: 25429
diff changeset
325 " contents of a register
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
326 call cursor(1, 4)
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
327 call feedkeys('i' ..
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
328 \ 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
329 \ "\<C-C>", 'Lx!')
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
330 call assert_equal(['123abc456789', '123456789'],
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
331 \ getline(1, '$'), msg)
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
332 call assert_equal([1, 6], [line('.'), col('.')], msg)
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
333
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
334 " Middle-click in replace mode
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
335 call cursor(1, 1)
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
336 call feedkeys('$R' ..
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
337 \ 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
338 \ "\<C-C>", 'Lx!')
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
339 call assert_equal(['123abc45678abc', '123456789'],
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
340 \ getline(1, '$'), msg)
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
341 call assert_equal([1, 14], [line('.'), col('.')], msg)
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
342 endfor
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
343
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
344 let &mouse = save_mouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
345 let &term = save_term
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
346 let &ttymouse = save_ttymouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
347 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
348 close!
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
349 endfunc
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
350
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
351 " 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
352 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
353 5new
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
354 let save_mouse = &mouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
355 let save_term = &term
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
356 let save_ttymouse = &ttymouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
357 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
358 set mouse=a term=xterm ttymouse=xterm2
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
359 call WaitForResponses()
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
360
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
361 call feedkeys('ivim' ..
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
362 \ 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
363 \ "\<C-C>", 'Lx!')
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
364 call assert_equal(2, winnr())
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
365 wincmd w
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
366 call assert_equal('n', mode())
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
367 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
368
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
369 let &mouse = save_mouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
370 let &term = save_term
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
371 let &ttymouse = save_ttymouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
372 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
373 close!
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
374 endfunc
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
375
26211
485c7c4afeb7 patch 8.2.3637: typos in test files
Bram Moolenaar <Bram@vim.org>
parents: 25429
diff changeset
376 " Test for using the mouse to increase the height of the cmdline window
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
377 func Test_mouse_cmdwin_resize()
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
378 let save_mouse = &mouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
379 let save_term = &term
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
380 let save_ttymouse = &ttymouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
381 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
382 set mouse=a term=xterm ttymouse=xterm2
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
383 call WaitForResponses()
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
384
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
385 5new
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
386 redraw!
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
387
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
388 let h = 0
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
389 let row = &lines - &cmdwinheight - 2
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
390 call feedkeys("q:" ..
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
391 \ MouseLeftClickCode(row, 1) ..
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
392 \ MouseLeftDragCode(row - 1, 1) ..
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
393 \ MouseLeftReleaseCode(row - 2, 1) ..
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
394 \ "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
395 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
396
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
397 let &mouse = save_mouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
398 let &term = save_term
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
399 let &ttymouse = save_ttymouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
400 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
401 close!
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
402 endfunc
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
403
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
404 " 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
405 " Test_xterm_mouse_ctrl_click()
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
406 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
407 new
7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16263
diff changeset
408 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
409 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
410 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
411 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
412 set mouse=a term=xterm nowrap
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
413 call WaitForResponses()
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
414
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
415 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
416
19738
0208534b8a84 patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19657
diff changeset
417 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
418 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
419 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
420 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
421 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
422 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
423
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
424 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
425 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
426 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
427
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
428 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
429 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
430 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
431
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
432 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
433 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
434 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
435
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
436 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
437 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
438 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
439
31503
b9a4699d6a35 patch 9.0.1084: code handling low level MS-Windows events cannot be tested
Bram Moolenaar <Bram@vim.org>
parents: 31347
diff changeset
440 call MouseWheelRight(1, 1)
b9a4699d6a35 patch 9.0.1084: code handling low level MS-Windows events cannot be tested
Bram Moolenaar <Bram@vim.org>
parents: 31347
diff changeset
441 call assert_equal(7, 1 + virtcol(".") - wincol(), msg)
b9a4699d6a35 patch 9.0.1084: code handling low level MS-Windows events cannot be tested
Bram Moolenaar <Bram@vim.org>
parents: 31347
diff changeset
442 call assert_equal([0, 7, 7, 0], getpos('.'), msg)
b9a4699d6a35 patch 9.0.1084: code handling low level MS-Windows events cannot be tested
Bram Moolenaar <Bram@vim.org>
parents: 31347
diff changeset
443
b9a4699d6a35 patch 9.0.1084: code handling low level MS-Windows events cannot be tested
Bram Moolenaar <Bram@vim.org>
parents: 31347
diff changeset
444 call MouseWheelRight(1, 1)
b9a4699d6a35 patch 9.0.1084: code handling low level MS-Windows events cannot be tested
Bram Moolenaar <Bram@vim.org>
parents: 31347
diff changeset
445 call assert_equal(13, 1 + virtcol(".") - wincol(), msg)
b9a4699d6a35 patch 9.0.1084: code handling low level MS-Windows events cannot be tested
Bram Moolenaar <Bram@vim.org>
parents: 31347
diff changeset
446 call assert_equal([0, 7, 13, 0], getpos('.'), msg)
b9a4699d6a35 patch 9.0.1084: code handling low level MS-Windows events cannot be tested
Bram Moolenaar <Bram@vim.org>
parents: 31347
diff changeset
447
b9a4699d6a35 patch 9.0.1084: code handling low level MS-Windows events cannot be tested
Bram Moolenaar <Bram@vim.org>
parents: 31347
diff changeset
448 call MouseWheelLeft(1, 1)
b9a4699d6a35 patch 9.0.1084: code handling low level MS-Windows events cannot be tested
Bram Moolenaar <Bram@vim.org>
parents: 31347
diff changeset
449 call assert_equal(7, 1 + virtcol(".") - wincol(), msg)
b9a4699d6a35 patch 9.0.1084: code handling low level MS-Windows events cannot be tested
Bram Moolenaar <Bram@vim.org>
parents: 31347
diff changeset
450 call assert_equal([0, 7, 13, 0], getpos('.'), msg)
b9a4699d6a35 patch 9.0.1084: code handling low level MS-Windows events cannot be tested
Bram Moolenaar <Bram@vim.org>
parents: 31347
diff changeset
451
b9a4699d6a35 patch 9.0.1084: code handling low level MS-Windows events cannot be tested
Bram Moolenaar <Bram@vim.org>
parents: 31347
diff changeset
452 call MouseWheelLeft(1, 1)
b9a4699d6a35 patch 9.0.1084: code handling low level MS-Windows events cannot be tested
Bram Moolenaar <Bram@vim.org>
parents: 31347
diff changeset
453 call assert_equal(1, 1 + virtcol(".") - wincol(), msg)
b9a4699d6a35 patch 9.0.1084: code handling low level MS-Windows events cannot be tested
Bram Moolenaar <Bram@vim.org>
parents: 31347
diff changeset
454 call assert_equal([0, 7, 13, 0], getpos('.'), msg)
b9a4699d6a35 patch 9.0.1084: code handling low level MS-Windows events cannot be tested
Bram Moolenaar <Bram@vim.org>
parents: 31347
diff changeset
455
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
456 endfor
16265
7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16263
diff changeset
457
7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16263
diff changeset
458 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
459 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
460 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
461 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
462 bwipe!
7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16263
diff changeset
463 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
464
18223
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
465 " 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
466 " 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
467 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
468 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
469 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
470 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
471 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
472 set mouse=a term=xterm
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
473 call WaitForResponses()
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
474
18223
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
475 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
476 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
477
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
478 " 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
479 " 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
480 2split
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
481 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
482 2split
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
483
19738
0208534b8a84 patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19657
diff changeset
484 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
485 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
486 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
487
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
488 " 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
489 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
490 redraw
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
491 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
492 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
493
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
494 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
495 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
496 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
497
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
498 " 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
499 " 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
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(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
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 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
505 " 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
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(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
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(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
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 " 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
515 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
516 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
517 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
518
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
519 " 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
520 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
521 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
522 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
523
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 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
525 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
526 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
527
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
528 " 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
529 " 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
530 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
531 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
532 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
533
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
534 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
535 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
536 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
537
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
538 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
539 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
540 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
541
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
542 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
543 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
544 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
545 endfor
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
546
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
547 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
548 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
549 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
550 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
551 bwipe!
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
552 endfunc
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
553
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
554 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
555 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
556 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
557 let save_ttymouse = &ttymouse
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
558 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
559 set mouse=a term=xterm
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
560 call WaitForResponses()
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
561
19738
0208534b8a84 patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19657
diff changeset
562 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
563 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
564 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
565
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
566 " 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
567 split
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
568 let rowseparator = winheight(0) + 1
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
569 let row = rowseparator
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
570 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
571
16352
c742c008953e patch 8.1.1181: tests for mouse clicks are a bit flaky
Bram Moolenaar <Bram@vim.org>
parents: 16348
diff changeset
572 " 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
573 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
574 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
575 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
576 call MouseLeftDrag(row, col)
30980
eb51299c4bfc patch 9.0.0825: cannot drag an entry in the tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 30976
diff changeset
577 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
578 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
579 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
580 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
581 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
582 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
583 endif
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
584 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
585
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
586 " 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
587 vsplit
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
588 let colseparator = winwidth(0) + 1
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
589 let row = 1
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
590 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
591
16352
c742c008953e patch 8.1.1181: tests for mouse clicks are a bit flaky
Bram Moolenaar <Bram@vim.org>
parents: 16348
diff changeset
592 " 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
593 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
594 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
595 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
596 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
597 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
598 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
599 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
600 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
601 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
602 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
603 endif
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
604 bwipe!
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
605 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
606
ed5172ae1c32 patch 8.1.1142: no test for dragging the window separators with the mouse
Bram Moolenaar <Bram@vim.org>
parents: 16265
diff changeset
607 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
608 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
609 let &ttymouse = save_ttymouse
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
610 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
611 endfunc
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
612
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
613 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
614 let save_mouse = &mouse
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
615 let save_term = &term
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
616 let save_ttymouse = &ttymouse
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
617 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
618 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
619 set mouse=a term=xterm laststatus=2
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
620 call WaitForResponses()
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
621
19738
0208534b8a84 patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19657
diff changeset
622 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
623 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
624 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
625
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
626 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
627 let rowstatusline = winheight(0) + 1
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
628 let row = rowstatusline
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
629 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
630
16352
c742c008953e patch 8.1.1181: tests for mouse clicks are a bit flaky
Bram Moolenaar <Bram@vim.org>
parents: 16348
diff changeset
631 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
632 " 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
633 continue
5b8b849dc3aa patch 8.1.1160: termcodes test would fail in a very big terminal
Bram Moolenaar <Bram@vim.org>
parents: 16300
diff changeset
634 endif
5b8b849dc3aa patch 8.1.1160: termcodes test would fail in a very big terminal
Bram Moolenaar <Bram@vim.org>
parents: 16300
diff changeset
635
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
636 call MouseLeftClick(row, col)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
637 let row -= 1
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
638 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
639 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
640 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
641 let row += 1
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
642 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
643 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
644 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
645 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
646 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
647 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
648 endfor
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
649
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
650 let &mouse = save_mouse
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
651 let &term = save_term
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
652 let &ttymouse = save_ttymouse
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
653 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
654 let &laststatus = save_laststatus
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
655 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
656
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
657 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
658 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
659 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
660 let save_ttymouse = &ttymouse
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
661 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
662 set mouse=a term=xterm
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
663 call WaitForResponses()
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
664
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
665 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
666
19738
0208534b8a84 patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19657
diff changeset
667 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
668 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
669 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
670 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
671 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
672
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 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
674 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
675 \ ' 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
676 \ '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
677 \ '> 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
678
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 16310
diff changeset
679 " 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
680 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
681 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
682 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
683 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
684 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
685 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
686 \ '> 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
687 \ '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
688 \ ' 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
689
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 16310
diff changeset
690 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
691 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
692 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
693 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
694 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
695 \ ' 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
696 \ '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
697 \ '> 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
698
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 16310
diff changeset
699 %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
700 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
701
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 16310
diff changeset
702 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
703 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
704 let &ttymouse = save_ttymouse
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
705 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
706 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
707
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
708 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
709 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
710 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
711 let save_ttymouse = &ttymouse
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
712 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
713 set mouse=a term=xterm
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
714 call WaitForResponses()
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
715
16324
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents: 16320
diff changeset
716 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
717 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
718
19738
0208534b8a84 patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19657
diff changeset
719 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
720 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
721 " 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
722 continue
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents: 16320
diff changeset
723 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
724 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
725 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
726 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
727 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
728 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
729 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
730
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents: 16320
diff changeset
731 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
732 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
733 \ ' Xtab1',
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents: 16320
diff changeset
734 \ '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
735 \ '> Xtab2',
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents: 16320
diff changeset
736 \ '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
737 \ ' 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
738
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents: 16320
diff changeset
739 " 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
740 redraw
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents: 16320
diff changeset
741 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
742 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
743 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
744 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
745 \ ' Xtab1',
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents: 16320
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 \ '> 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
748
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents: 16320
diff changeset
749 %bwipe!
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents: 16320
diff changeset
750 endfor
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents: 16320
diff changeset
751
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline
Bram Moolenaar <Bram@vim.org>
parents: 16320
diff changeset
752 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
753 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
754 let &ttymouse = save_ttymouse
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
755 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
756 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
757
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
758 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
759 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
760 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
761 let save_ttymouse = &ttymouse
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
762 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
763 " 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
764 set mouse=a term=xterm mousetime=1
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
765 call WaitForResponses()
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
766
16340
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab
Bram Moolenaar <Bram@vim.org>
parents: 16324
diff changeset
767 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
768
19738
0208534b8a84 patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19657
diff changeset
769 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
770 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
771 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
772 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
773 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
774
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 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
776 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
777 \ ' 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
778 \ '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
779 \ '> 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
780 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
781
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 " 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
783 " 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
784 " 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
785 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
786 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
787 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
788 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
789 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
790 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
791 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
792 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
793 \ '> 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
794 \ '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
795 \ ' 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
796
30980
eb51299c4bfc patch 9.0.0825: cannot drag an entry in the tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 30976
diff changeset
797 " Switch to tab1
eb51299c4bfc patch 9.0.0825: cannot drag an entry in the tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 30976
diff changeset
798 tabnext
eb51299c4bfc patch 9.0.0825: cannot drag an entry in the tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 30976
diff changeset
799 let a = split(execute(':tabs'), "\n")
eb51299c4bfc patch 9.0.0825: cannot drag an entry in the tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 30976
diff changeset
800 call assert_equal(['Tab page 1',
eb51299c4bfc patch 9.0.0825: cannot drag an entry in the tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 30976
diff changeset
801 \ ' Xtab2',
eb51299c4bfc patch 9.0.0825: cannot drag an entry in the tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 30976
diff changeset
802 \ 'Tab page 2',
eb51299c4bfc patch 9.0.0825: cannot drag an entry in the tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 30976
diff changeset
803 \ '> Xtab1'], a, msg)
eb51299c4bfc patch 9.0.0825: cannot drag an entry in the tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 30976
diff changeset
804
eb51299c4bfc patch 9.0.0825: cannot drag an entry in the tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 30976
diff changeset
805 " Click in tab2 and drag it to tab1.
eb51299c4bfc patch 9.0.0825: cannot drag an entry in the tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 30976
diff changeset
806 " This time it is non-current tab.
eb51299c4bfc patch 9.0.0825: cannot drag an entry in the tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 30976
diff changeset
807 call MouseLeftClick(row, 6)
eb51299c4bfc patch 9.0.0825: cannot drag an entry in the tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 30976
diff changeset
808 call assert_equal(0, getcharmod(), msg)
eb51299c4bfc patch 9.0.0825: cannot drag an entry in the tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 30976
diff changeset
809 for col in [7, 8, 9, 10]
eb51299c4bfc patch 9.0.0825: cannot drag an entry in the tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 30976
diff changeset
810 call MouseLeftDrag(row, col)
eb51299c4bfc patch 9.0.0825: cannot drag an entry in the tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 30976
diff changeset
811 endfor
eb51299c4bfc patch 9.0.0825: cannot drag an entry in the tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 30976
diff changeset
812 call MouseLeftRelease(row, col)
eb51299c4bfc patch 9.0.0825: cannot drag an entry in the tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 30976
diff changeset
813 let a = split(execute(':tabs'), "\n")
eb51299c4bfc patch 9.0.0825: cannot drag an entry in the tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 30976
diff changeset
814 call assert_equal(['Tab page 1',
eb51299c4bfc patch 9.0.0825: cannot drag an entry in the tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 30976
diff changeset
815 \ ' Xtab1',
eb51299c4bfc patch 9.0.0825: cannot drag an entry in the tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 30976
diff changeset
816 \ 'Tab page 2',
eb51299c4bfc patch 9.0.0825: cannot drag an entry in the tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 30976
diff changeset
817 \ '> Xtab2'], a, msg)
eb51299c4bfc patch 9.0.0825: cannot drag an entry in the tabpage line
Bram Moolenaar <Bram@vim.org>
parents: 30976
diff changeset
818
18627
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18360
diff changeset
819 " 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
820 " 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
821 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
822 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
823
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
824 %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
825 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
826
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 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
828 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
829 let &ttymouse = save_ttymouse
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
830 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
831 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
832 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
833
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
834 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
835 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
836 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
837 let save_ttymouse = &ttymouse
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
838 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
839 " 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
840 " 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
841 set mouse=a term=xterm mousetime=200
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
842 call WaitForResponses()
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
843
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
844 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
845 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
846
19738
0208534b8a84 patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19657
diff changeset
847 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
848 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
849 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
850 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
851 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
852
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
853 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
854 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
855 \ ' 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
856 \ '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
857 \ '> 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
858
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
859 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
860 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
861 " 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
862 " 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
863 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
864 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
865 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
866 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
867 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
868 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
869 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
870 \ ' 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
871 \ '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
872 \ '> [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
873 \ '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
874 \ ' 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
875
18627
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18360
diff changeset
876 " 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
877 " 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
878 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
879 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
880
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
881 %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
882 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
883
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
884 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
885 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
886 let &ttymouse = save_ttymouse
16489
42910f306377 patch 8.1.1248: no test for dec mouse
Bram Moolenaar <Bram@vim.org>
parents: 16487
diff changeset
887 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
888 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
889 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
890
18627
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18360
diff changeset
891 " 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
892 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
893 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
894 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
895 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
896 call test_override('no_query_mouse', 1)
23412
d2c23042bb0e patch 8.2.2249: termcodes test is flaky when used over ssh
Bram Moolenaar <Bram@vim.org>
parents: 23076
diff changeset
897
d2c23042bb0e patch 8.2.2249: termcodes test is flaky when used over ssh
Bram Moolenaar <Bram@vim.org>
parents: 23076
diff changeset
898 " 'mousetime' must be sufficiently large, or else the test is flaky when
d2c23042bb0e patch 8.2.2249: termcodes test is flaky when used over ssh
Bram Moolenaar <Bram@vim.org>
parents: 23076
diff changeset
899 " using a ssh connection with X forwarding; i.e. ssh -X (issue #7563).
d2c23042bb0e patch 8.2.2249: termcodes test is flaky when used over ssh
Bram Moolenaar <Bram@vim.org>
parents: 23076
diff changeset
900 set mouse=a term=xterm mousetime=600
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
901 call WaitForResponses()
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
902
18627
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18360
diff changeset
903 new
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18360
diff changeset
904
19738
0208534b8a84 patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19657
diff changeset
905 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
906 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
907 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
908 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
909
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18360
diff changeset
910 " 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
911 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
912 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
913 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
914 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
915 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
916 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
917 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
918 norm! r1
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18360
diff changeset
919 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
920
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18360
diff changeset
921 " 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
922 " 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
923 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
924 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
925 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
926 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
927 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
928 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
929 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
930 norm! r2
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18360
diff changeset
931 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
932
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18360
diff changeset
933 " 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
934 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
935 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
936 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
937 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
938 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
939 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
940 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
941 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
942 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
943 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
944 norm! r3
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18360
diff changeset
945 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
946
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18360
diff changeset
947 " 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
948 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
949 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
950 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
951 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
952 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
953 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
954 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
955 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
956 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
957 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
958 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
959 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
960 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
961 norm! r4
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18360
diff changeset
962 call assert_equal(['34333333333333333', 'foo'], getline(1, '$'), msg)
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
963
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
964 " Double-click on a space character should visually select all the
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
965 " consecutive space characters.
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
966 %d
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
967 call setline(1, ' one two')
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
968 call MouseLeftClick(1, 2)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
969 call MouseLeftRelease(1, 2)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
970 call MouseLeftClick(1, 2)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
971 call MouseLeftRelease(1, 2)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
972 call assert_equal('v', mode(), msg)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
973 norm! r1
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
974 call assert_equal(['1111one two'], getline(1, '$'), msg)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
975
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
976 " Double-click on a word with exclusive selection
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
977 set selection=exclusive
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
978 let @" = ''
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
979 call MouseLeftClick(1, 10)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
980 call MouseLeftRelease(1, 10)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
981 call MouseLeftClick(1, 10)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
982 call MouseLeftRelease(1, 10)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
983 norm! y
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
984 call assert_equal('two', @", msg)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
985
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
986 " Double click to select a block of text with exclusive selection
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
987 %d
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
988 call setline(1, 'one (two) three')
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
989 call MouseLeftClick(1, 5)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
990 call MouseLeftRelease(1, 5)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
991 call MouseLeftClick(1, 5)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
992 call MouseLeftRelease(1, 5)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
993 norm! y
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
994 call assert_equal(5, col("'<"), msg)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
995 call assert_equal(10, col("'>"), msg)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
996
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
997 call MouseLeftClick(1, 9)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
998 call MouseLeftRelease(1, 9)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
999 call MouseLeftClick(1, 9)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1000 call MouseLeftRelease(1, 9)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1001 norm! y
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1002 call assert_equal(5, col("'<"), msg)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1003 call assert_equal(10, col("'>"), msg)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1004 set selection&
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1005
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1006 " Click somewhere else so that the clicks above is not combined with the
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1007 " clicks in the next iteration.
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1008 call MouseRightClick(3, 10)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1009 call MouseRightRelease(3, 10)
18627
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18360
diff changeset
1010 endfor
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18360
diff changeset
1011
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18360
diff changeset
1012 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
1013 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
1014 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
1015 set mousetime&
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18360
diff changeset
1016 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
1017 bwipe!
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18360
diff changeset
1018 endfunc
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18360
diff changeset
1019
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1020 " Test for selecting text in visual blockwise mode using Alt-LeftClick
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1021 func Test_mouse_alt_leftclick()
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1022 let save_mouse = &mouse
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1023 let save_term = &term
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1024 let save_ttymouse = &ttymouse
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1025 call test_override('no_query_mouse', 1)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1026 set mouse=a term=xterm mousetime=200
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1027 set mousemodel=popup
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
1028 call WaitForResponses()
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
1029
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1030 new
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1031 call setline(1, 'one (two) three')
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1032
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1033 for ttymouse_val in g:Ttymouse_values
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1034 let msg = 'ttymouse=' .. ttymouse_val
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1035 exe 'set ttymouse=' .. ttymouse_val
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1036
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1037 " Left click with the Alt modifier key should extend the selection in
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1038 " blockwise visual mode.
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1039 let @" = ''
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1040 call MouseLeftClick(1, 3)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1041 call MouseLeftRelease(1, 3)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1042 call MouseAltLeftClick(1, 11)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1043 call MouseLeftRelease(1, 11)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1044 call assert_equal("\<C-V>", mode(), msg)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1045 normal! y
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1046 call assert_equal('e (two) t', @")
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1047 endfor
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1048
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1049 let &mouse = save_mouse
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1050 let &term = save_term
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1051 let &ttymouse = save_ttymouse
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1052 set mousetime& mousemodel&
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1053 call test_override('no_query_mouse', 0)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1054 close!
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1055 endfunc
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1056
16348
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents: 16346
diff changeset
1057 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
1058 new
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents: 16346
diff changeset
1059 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
1060 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
1061 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
1062 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
1063 set mouse=a term=xterm foldcolumn=3 ttymouse=xterm2
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
1064 call WaitForResponses()
16348
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents: 16346
diff changeset
1065
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents: 16346
diff changeset
1066 " 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
1067 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
1068 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
1069 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
1070 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
1071 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
1072 \ 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
1073
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents: 16346
diff changeset
1074 " 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
1075 redraw
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents: 16346
diff changeset
1076 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
1077 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
1078 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
1079 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
1080 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
1081 \ 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
1082
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents: 16346
diff changeset
1083 " 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
1084 redraw
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents: 16346
diff changeset
1085 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
1086 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
1087 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
1088 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
1089 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
1090 \ 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
1091 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
1092
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents: 16346
diff changeset
1093 " 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
1094 redraw
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents: 16346
diff changeset
1095 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
1096 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
1097 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
1098 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
1099 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
1100 \ 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
1101
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents: 16346
diff changeset
1102 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
1103 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
1104 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
1105 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
1106 bwipe!
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column
Bram Moolenaar <Bram@vim.org>
parents: 16346
diff changeset
1107 endfunc
16936
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents: 16493
diff changeset
1108
18918
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents: 18717
diff changeset
1109 " 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
1110 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
1111 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
1112 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
1113 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
1114 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
1115 set mouse=a term=xterm
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
1116 call WaitForResponses()
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
1117
18918
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents: 18717
diff changeset
1118 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
1119
19738
0208534b8a84 patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19657
diff changeset
1120 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
1121 " 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
1122 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
1123 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
1124 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
1125
18918
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents: 18717
diff changeset
1126
19752
0927df746554 patch 8.2.0432: a few tests fail in a huge terminal
Bram Moolenaar <Bram@vim.org>
parents: 19738
diff changeset
1127 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
1128 \ .. 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
1129 \ .. 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
1130 \ .. 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
1131 \ .. 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
1132 \ .. "\<CR>", 'Lx!')
0927df746554 patch 8.2.0432: a few tests fail in a huge terminal
Bram Moolenaar <Bram@vim.org>
parents: 19738
diff changeset
1133 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
1134 endif
18918
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents: 18717
diff changeset
1135 endfor
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents: 18717
diff changeset
1136
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents: 18717
diff changeset
1137 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
1138 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
1139 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
1140 set mousetime&
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents: 18717
diff changeset
1141 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
1142 endfunc
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents: 18717
diff changeset
1143
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents: 18717
diff changeset
1144 " 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
1145 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
1146 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
1147 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
1148 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
1149 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
1150 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
1151 set mouse=a term=xterm
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
1152 call WaitForResponses()
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
1153
18918
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents: 18717
diff changeset
1154 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
1155 " 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
1156 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
1157 let @* = 'paste'
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents: 18717
diff changeset
1158
19738
0208534b8a84 patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19657
diff changeset
1159 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
1160 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
1161 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
1162
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents: 18717
diff changeset
1163 call feedkeys(":\"->"
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents: 18717
diff changeset
1164 \ .. 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
1165 \ .. 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
1166 \ .. "<-"
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents: 18717
diff changeset
1167 \ .. 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
1168 \ .. 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
1169 \ .. "\<CR>", 'Lx!')
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents: 18717
diff changeset
1170 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
1171 endfor
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents: 18717
diff changeset
1172
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents: 18717
diff changeset
1173 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
1174 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
1175 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
1176 let @* = ''
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents: 18717
diff changeset
1177 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
1178 endfunc
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents: 18717
diff changeset
1179
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1180 " 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
1181 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
1182 new
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1183 let save_mouse = &mouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1184 let save_term = &term
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1185 let save_ttymouse = &ttymouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1186 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
1187 set mouse=a term=xterm ttymouse=xterm2 mousemodel=
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
1188 call WaitForResponses()
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1189
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1190 call test_setmouse(1, 1)
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1191 exe "normal \<S-MiddleMouse>"
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1192 call assert_equal([''], getline(1, '$'))
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1193 call assert_equal(1, winnr())
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1194
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1195 let &mouse = save_mouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1196 let &term = save_term
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1197 let &ttymouse = save_ttymouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1198 set mousemodel&
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1199 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
1200 close!
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1201 endfunc
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1202
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1203 " 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
1204 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
1205 new
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1206 let save_mouse = &mouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1207 let save_term = &term
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1208 let save_ttymouse = &ttymouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1209 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
1210 set term=xterm ttymouse=xterm2
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
1211 call WaitForResponses()
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1212
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1213 " 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
1214 " do anything in visal mode.
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1215 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
1216 set mouse=nci
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1217 call cursor(1, 5)
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1218 let @" = ''
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1219 call feedkeys("ve"
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1220 \ .. 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
1221 \ .. 'y', 'Lx!')
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1222 call assert_equal(5, col('.'))
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1223 call assert_equal('two', @")
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1224
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1225 " 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
1226 " 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
1227 " 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
1228 set mousemodel=
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1229 set mouse=a
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1230 call test_setmouse(1, 13)
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1231 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
1232 call assert_equal('two three', @")
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1233 call assert_equal(5, col('.'))
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1234
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1235 " 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
1236 call test_setmouse(1, 9)
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1237 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
1238 call assert_equal('three four', @")
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1239 call assert_equal(9, col('.'))
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1240
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1241 " Right click inside the selection closer to the start of the selection
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1242 call test_setmouse(1, 7)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1243 exe "normal 5|vee\<RightMouse>lly"
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1244 call assert_equal('three', @")
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1245 call assert_equal(9, col('.'))
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1246 call assert_equal(9, col("'<"))
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1247 call assert_equal(13, col("'>"))
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1248
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1249 " Right click inside the selection closer to the end of the selection
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1250 call test_setmouse(1, 11)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1251 exe "normal 5|vee\<RightMouse>ly"
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1252 call assert_equal('two thre', @")
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1253 call assert_equal(5, col('.'))
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1254 call assert_equal(5, col("'<"))
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1255 call assert_equal(12, col("'>"))
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1256
30986
360f286b5869 patch 9.0.0828: various typos
Bram Moolenaar <Bram@vim.org>
parents: 30980
diff changeset
1257 " Multi-line selection. Right click inside the selection.
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1258 call setline(1, repeat(['aaaaaa'], 7))
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1259 call test_setmouse(3, 1)
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1260 exe "normal ggVG\<RightMouse>y"
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1261 call assert_equal(3, line("'<"))
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1262 call test_setmouse(5, 1)
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1263 exe "normal ggVG\<RightMouse>y"
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1264 call assert_equal(5, line("'>"))
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1265
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1266 " Click right in the middle line of the selection
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1267 call test_setmouse(4, 3)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1268 exe "normal ggVG$\<RightMouse>y"
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1269 call assert_equal(4, line("'<"))
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1270 call test_setmouse(4, 4)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1271 exe "normal ggVG$\<RightMouse>y"
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1272 call assert_equal(4, line("'>"))
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1273
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1274 set mousemodel&
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1275 let &mouse = save_mouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1276 let &term = save_term
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1277 let &ttymouse = save_ttymouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1278 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
1279 close!
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1280 endfunc
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1281
19657
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
1282 " 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
1283 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
1284 CheckFeature menu
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
1285 new
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
1286 call setline(1, 'popup menu test')
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
1287 let save_mouse = &mouse
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
1288 let save_term = &term
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
1289 let save_ttymouse = &ttymouse
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
1290 let save_mousemodel = &mousemodel
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
1291 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
1292 set mouse=a term=xterm mousemodel=popup
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
1293 call WaitForResponses()
19657
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
1294
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
1295 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
1296 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
1297 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
1298
19738
0208534b8a84 patch 8.2.0425: code for modeless selection not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19657
diff changeset
1299 for ttymouse_val in g:Ttymouse_values
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1300 let msg = 'ttymouse=' .. ttymouse_val
19657
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
1301 exe 'set ttymouse=' .. ttymouse_val
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
1302 let g:menustr = ''
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
1303 call feedkeys(MouseRightClickCode(1, 4)
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
1304 \ .. MouseRightReleaseCode(1, 4) .. "\<Down>\<Down>\<CR>", "x")
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1305 call assert_equal('bar', g:menustr, msg)
19657
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
1306 endfor
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
1307
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
1308 unmenu PopUp
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
1309 let &mouse = save_mouse
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
1310 let &term = save_term
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
1311 let &ttymouse = save_ttymouse
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
1312 let &mousemodel = save_mousemodel
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
1313 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
1314 close!
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
1315 endfunc
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
1316
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1317 " 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
1318 " menu is displayed.
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1319 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
1320 CheckFeature menu
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1321 5new
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1322 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
1323 \ '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
1324 let save_mouse = &mouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1325 let save_term = &term
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1326 let save_ttymouse = &ttymouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1327 let save_mousemodel = &mousemodel
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1328 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
1329 set mouse=a term=xterm mousemodel=popup_setpos
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
1330 call WaitForResponses()
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1331
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1332 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
1333 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
1334 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
1335 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
1336 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
1337 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
1338
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1339 for ttymouse_val in g:Ttymouse_values
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1340 let msg = 'ttymouse=' .. ttymouse_val
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1341 exe 'set ttymouse=' .. ttymouse_val
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1342 let g:menustr = ''
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1343 call cursor(1, 1)
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1344 call feedkeys(MouseRightClickCode(1, 5)
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1345 \ .. MouseRightReleaseCode(1, 5) .. "\<Down>\<Down>\<CR>", "x")
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1346 call assert_equal('bar', g:menustr, msg)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1347 call assert_equal([1, 5], [line('.'), col('.')], msg)
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1348
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1349 " 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
1350 let @" = ''
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1351 call cursor(1, 10)
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1352 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
1353 \ .. MouseRightReleaseCode(1, 12) .. "\<Down>\<CR>", "x")
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1354 call assert_equal([1, 10], [line('.'), col('.')], msg)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1355 call assert_equal('ran away', @", msg)
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1356
30809
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1357 " Test for right click in visual mode right before the selection
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1358 let @" = ''
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1359 call cursor(1, 10)
30809
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1360 call feedkeys('vee' .. MouseRightClickCode(1, 9)
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1361 \ .. MouseRightReleaseCode(1, 9) .. "\<Down>\<CR>", "x")
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1362 call assert_equal([1, 9], [line('.'), col('.')], msg)
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1363 call assert_equal('', @", msg)
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1364
30809
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1365 " Test for right click in visual mode right after the selection
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1366 let @" = ''
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1367 call cursor(1, 10)
30809
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1368 call feedkeys('vee' .. MouseRightClickCode(1, 18)
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1369 \ .. MouseRightReleaseCode(1, 18) .. "\<Down>\<CR>", "x")
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1370 call assert_equal([1, 18], [line('.'), col('.')], msg)
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1371 call assert_equal('', @", msg)
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1372
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1373 " 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
1374 let @" = ''
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1375 call cursor(1, 16)
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1376 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
1377 \ .. MouseRightReleaseCode(2, 17) .. "\<Down>\<CR>", "x")
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1378 call assert_equal([1, 16], [line('.'), col('.')], msg)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1379 call assert_equal("\<C-V>4", getregtype('"'), msg)
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1380
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1381 " 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
1382 let @" = ''
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1383 call cursor(1, 16)
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1384 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
1385 \ .. MouseRightReleaseCode(2, 2) .. "\<Down>\<CR>", "x")
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1386 call assert_equal([2, 2], [line('.'), col('.')], msg)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1387 call assert_equal('v', getregtype('"'), msg)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1388 call assert_equal('', @", msg)
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1389
30809
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1390 " Test for right click in line-wise visual mode inside the selection
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1391 let @" = ''
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1392 call cursor(1, 16)
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1393 call feedkeys("V" .. MouseRightClickCode(1, 10)
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1394 \ .. MouseRightReleaseCode(1, 10) .. "\<Down>\<CR>", "x")
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1395 call assert_equal([1, 1], [line('.'), col('.')], msg) " After yanking, the cursor goes to 1,1
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1396 call assert_equal("V", getregtype('"'), msg)
30926
372b12480082 patch 9.0.0797: order of assert function arguments is reverted
Bram Moolenaar <Bram@vim.org>
parents: 30827
diff changeset
1397 call assert_equal(1, len(getreg('"', 1, v:true)), msg)
30809
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1398
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1399 " Test for right click in multi-line line-wise visual mode inside the selection
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1400 let @" = ''
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1401 call cursor(1, 16)
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1402 call feedkeys("Vj" .. MouseRightClickCode(2, 20)
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1403 \ .. MouseRightReleaseCode(2, 20) .. "\<Down>\<CR>", "x")
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1404 call assert_equal([1, 1], [line('.'), col('.')], msg) " After yanking, the cursor goes to 1,1
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1405 call assert_equal("V", getregtype('"'), msg)
30926
372b12480082 patch 9.0.0797: order of assert function arguments is reverted
Bram Moolenaar <Bram@vim.org>
parents: 30827
diff changeset
1406 call assert_equal(2, len(getreg('"', 1, v:true)), msg)
30809
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1407
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1408 " Test for right click in line-wise visual mode outside the selection
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1409 let @" = ''
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1410 call cursor(1, 16)
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1411 call feedkeys("V" .. MouseRightClickCode(2, 10)
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1412 \ .. MouseRightReleaseCode(2, 10) .. "\<Down>\<CR>", "x")
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1413 call assert_equal([2, 10], [line('.'), col('.')], msg)
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1414 call assert_equal("", @", msg)
ffdb7a6785af patch 9.0.0739: mouse column not correctly used for popup_setpos
Bram Moolenaar <Bram@vim.org>
parents: 30657
diff changeset
1415
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1416 " 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
1417 let @" = ''
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1418 call cursor(1, 10)
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1419 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
1420 \ .. MouseRightReleaseCode(6, 2) .. "\<Down>\<CR>", "x")
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1421 call assert_equal([1, 10], [line('.'), col('.')], msg)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1422 call assert_equal('ran away', @", msg)
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1423
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1424 " Try clicking outside the window
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1425 let @" = ''
30926
372b12480082 patch 9.0.0797: order of assert function arguments is reverted
Bram Moolenaar <Bram@vim.org>
parents: 30827
diff changeset
1426 call cursor(2, 2)
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1427 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
1428 \ .. MouseRightReleaseCode(7, 2) .. "\<Down>\<CR>", "x")
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1429 call assert_equal(2, winnr(), msg)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1430 call assert_equal('', @", msg)
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1431 wincmd w
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1432 endfor
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1433
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1434 unmenu PopUp
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1435 let &mouse = save_mouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1436 let &term = save_term
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1437 let &ttymouse = save_ttymouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1438 let &mousemodel = save_mousemodel
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1439 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
1440 close!
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1441 endfunc
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1442
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1443 " 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
1444 " Shift-Left click.
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1445 func Test_term_mouse_search()
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1446 new
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1447 let save_mouse = &mouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1448 let save_term = &term
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1449 let save_ttymouse = &ttymouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1450 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
1451 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
1452 set mousemodel=
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
1453 call WaitForResponses()
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1454
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1455 " 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
1456 " under the cursor.
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1457 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
1458 call test_setmouse(1, 4)
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1459 exe "normal \<S-LeftMouse>"
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1460 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
1461 call test_setmouse(2, 16)
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1462 exe "normal \<S-RightMouse>"
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1463 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
1464
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1465 " 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
1466 " 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
1467 call test_setmouse(1, 4)
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1468 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
1469 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
1470 call test_setmouse(2, 16)
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1471 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
1472 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
1473
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1474 set mousemodel&
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1475 let &mouse = save_mouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1476 let &term = save_term
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1477 let &ttymouse = save_ttymouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1478 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
1479 close!
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1480 endfunc
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1481
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1482 " 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
1483 " mouse.
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1484 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
1485 let save_mouse = &mouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1486 let save_term = &term
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1487 let save_ttymouse = &ttymouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1488 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
1489 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
1490 set mousemodel=
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
1491 call WaitForResponses()
21325
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1492
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1493 cgetexpr "Xfile1:1:L1"
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1494 copen 5
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1495 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
1496 exe "normal \<2-LeftMouse>"
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1497 call assert_equal('Xfile1', @%)
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1498 %bw!
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1499
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1500 lgetexpr "Xfile2:1:L1"
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1501 lopen 5
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1502 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
1503 exe "normal \<2-LeftMouse>"
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1504 call assert_equal('Xfile2', @%)
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1505 %bw!
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1506
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1507 set mousemodel&
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1508 let &mouse = save_mouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1509 let &term = save_term
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1510 let &ttymouse = save_ttymouse
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1511 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
1512 endfunc
f68b121daa47 patch 8.2.1213: mouse codes not tested sufficiently
Bram Moolenaar <Bram@vim.org>
parents: 21114
diff changeset
1513
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1514 " Test for the 'h' flag in the 'mouse' option. Using mouse in the help window.
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1515 func Test_term_mouse_help_window()
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1516 let save_mouse = &mouse
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1517 let save_term = &term
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1518 let save_ttymouse = &ttymouse
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1519 call test_override('no_query_mouse', 1)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1520 set mouse=h term=xterm mousetime=200
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
1521 call WaitForResponses()
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1522
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1523 for ttymouse_val in g:Ttymouse_values + g:Ttymouse_dec
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1524 let msg = 'ttymouse=' .. ttymouse_val
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1525 exe 'set ttymouse=' .. ttymouse_val
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1526 help
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1527 let @" = ''
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1528 call MouseLeftClick(2, 5)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1529 call MouseLeftRelease(2, 5)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1530 call MouseLeftClick(1, 1)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1531 call MouseLeftDrag(1, 10)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1532 call MouseLeftRelease(1, 10)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1533 norm! y
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1534 call assert_equal('*help.txt*', @", msg)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1535 helpclose
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1536
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1537 " Click somewhere else to make sure the left click above is not combined
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1538 " with the next left click and treated as a double click
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1539 call MouseRightClick(5, 10)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1540 call MouseRightRelease(5, 10)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1541 endfor
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1542
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1543 let &mouse = save_mouse
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1544 let &term = save_term
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1545 let &ttymouse = save_ttymouse
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1546 set mousetime&
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1547 call test_override('no_query_mouse', 0)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1548 %bw!
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1549 endfunc
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1550
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1551 " Test for the translation of various mouse terminal codes
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1552 func Test_mouse_termcodes()
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1553 let save_mouse = &mouse
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1554 let save_term = &term
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1555 let save_ttymouse = &ttymouse
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1556 call test_override('no_query_mouse', 1)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1557 set mouse=a term=xterm mousetime=200
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
1558 call WaitForResponses()
21369
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1559
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1560 new
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1561 for ttymouse_val in g:Ttymouse_values + g:Ttymouse_dec + g:Ttymouse_netterm
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1562 let msg = 'ttymouse=' .. ttymouse_val
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1563 exe 'set ttymouse=' .. ttymouse_val
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1564
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1565 let mouse_codes = [
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1566 \ ["\<LeftMouse>", "<LeftMouse>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1567 \ ["\<MiddleMouse>", "<MiddleMouse>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1568 \ ["\<RightMouse>", "<RightMouse>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1569 \ ["\<S-LeftMouse>", "<S-LeftMouse>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1570 \ ["\<S-MiddleMouse>", "<S-MiddleMouse>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1571 \ ["\<S-RightMouse>", "<S-RightMouse>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1572 \ ["\<C-LeftMouse>", "<C-LeftMouse>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1573 \ ["\<C-MiddleMouse>", "<C-MiddleMouse>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1574 \ ["\<C-RightMouse>", "<C-RightMouse>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1575 \ ["\<M-LeftMouse>", "<M-LeftMouse>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1576 \ ["\<M-MiddleMouse>", "<M-MiddleMouse>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1577 \ ["\<M-RightMouse>", "<M-RightMouse>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1578 \ ["\<2-LeftMouse>", "<2-LeftMouse>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1579 \ ["\<2-MiddleMouse>", "<2-MiddleMouse>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1580 \ ["\<2-RightMouse>", "<2-RightMouse>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1581 \ ["\<3-LeftMouse>", "<3-LeftMouse>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1582 \ ["\<3-MiddleMouse>", "<3-MiddleMouse>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1583 \ ["\<3-RightMouse>", "<3-RightMouse>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1584 \ ["\<4-LeftMouse>", "<4-LeftMouse>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1585 \ ["\<4-MiddleMouse>", "<4-MiddleMouse>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1586 \ ["\<4-RightMouse>", "<4-RightMouse>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1587 \ ["\<LeftDrag>", "<LeftDrag>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1588 \ ["\<MiddleDrag>", "<MiddleDrag>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1589 \ ["\<RightDrag>", "<RightDrag>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1590 \ ["\<LeftRelease>", "<LeftRelease>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1591 \ ["\<MiddleRelease>", "<MiddleRelease>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1592 \ ["\<RightRelease>", "<RightRelease>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1593 \ ["\<ScrollWheelUp>", "<ScrollWheelUp>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1594 \ ["\<S-ScrollWheelUp>", "<S-ScrollWheelUp>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1595 \ ["\<C-ScrollWheelUp>", "<C-ScrollWheelUp>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1596 \ ["\<ScrollWheelDown>", "<ScrollWheelDown>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1597 \ ["\<S-ScrollWheelDown>", "<S-ScrollWheelDown>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1598 \ ["\<C-ScrollWheelDown>", "<C-ScrollWheelDown>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1599 \ ["\<ScrollWheelLeft>", "<ScrollWheelLeft>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1600 \ ["\<S-ScrollWheelLeft>", "<S-ScrollWheelLeft>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1601 \ ["\<C-ScrollWheelLeft>", "<C-ScrollWheelLeft>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1602 \ ["\<ScrollWheelRight>", "<ScrollWheelRight>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1603 \ ["\<S-ScrollWheelRight>", "<S-ScrollWheelRight>"],
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1604 \ ["\<C-ScrollWheelRight>", "<C-ScrollWheelRight>"]
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1605 \ ]
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1606
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1607 for [code, outstr] in mouse_codes
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1608 exe "normal ggC\<C-K>" . code
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1609 call assert_equal(outstr, getline(1), msg)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1610 endfor
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1611 endfor
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1612
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1613 let &mouse = save_mouse
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1614 let &term = save_term
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1615 let &ttymouse = save_ttymouse
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1616 set mousetime&
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1617 call test_override('no_query_mouse', 0)
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1618 %bw!
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1619 endfunc
e00467b9f5de patch 8.2.1235: Not all mouse codes covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 21325
diff changeset
1620
16936
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents: 16493
diff changeset
1621 " 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
1622 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
1623 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
1624 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
1625
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents: 16493
diff changeset
1626 " 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
1627 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
1628 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
1629 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
1630 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
1631 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
1632 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
1633
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents: 16493
diff changeset
1634 " 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
1635 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
1636 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
1637 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
1638 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
1639 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
1640 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
1641
16940
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents: 16936
diff changeset
1642 " 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
1643 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
1644 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
1645 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
1646 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
1647 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
1648 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
1649 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
1650 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
1651 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
1652
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents: 16936
diff changeset
1653 " 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
1654 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
1655 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
1656 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
1657 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
1658 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
1659 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
1660 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
1661 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
1662 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
1663
16940
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents: 16936
diff changeset
1664 " 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
1665 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
1666 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
1667 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
1668 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
1669 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
1670 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
1671 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
1672 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
1673 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
1674
16940
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse
Bram Moolenaar <Bram@vim.org>
parents: 16936
diff changeset
1675 " 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
1676 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
1677 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
1678 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
1679 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
1680 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
1681 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
1682 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
1683 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
1684 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
1685
16936
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents: 16493
diff changeset
1686 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
1687 endfunc
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents: 16493
diff changeset
1688
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents: 16493
diff changeset
1689 " 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
1690 " 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
1691 " properties.
db8cd5e56586 patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents: 18247
diff changeset
1692 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
1693 " 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
1694 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
1695 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
1696
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents: 16493
diff changeset
1697 " 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
1698 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
1699 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
1700 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
1701
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents: 16493
diff changeset
1702 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
1703 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
1704 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
1705
20836
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1706 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
1707 \ 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
1708 \ 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
1709 \ underline_rgb: 'u',
30958
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1710 \ mouse: 's',
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1711 \ kitty: 'u',
20836
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1712 \ }, terminalprops())
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1713
16936
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response
Bram Moolenaar <Bram@vim.org>
parents: 16493
diff changeset
1714 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
1715 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
1716 endfunc
16942
5f3e960ce76d patch 8.1.1472: add_termcap_entry() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16940
diff changeset
1717
18360
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents: 18350
diff changeset
1718 " 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
1719 " 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
1720 " properties.
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents: 18350
diff changeset
1721 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
1722 " 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
1723 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
1724 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
1725
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents: 18350
diff changeset
1726 " 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
1727 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
1728 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
1729 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
1730 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
1731 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
1732 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
1733
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents: 18350
diff changeset
1734 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
1735 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
1736 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
1737 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
1738 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
1739 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
1740
20836
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1741 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
1742 \ 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
1743 \ 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
1744 \ underline_rgb: 'u',
30958
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1745 \ mouse: 's',
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1746 \ kitty: 'u',
20836
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1747 \ }, terminalprops())
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1748
18360
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents: 18350
diff changeset
1749 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
1750 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
1751 endfunc
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents: 18350
diff changeset
1752
29869
0eab537e9ccb patch 9.0.0273: Konsole termresponse not recognized
Bram Moolenaar <Bram@vim.org>
parents: 29434
diff changeset
1753 func Run_libvterm_konsole_response(code)
18285
db8cd5e56586 patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents: 18247
diff changeset
1754 set ttymouse=xterm
db8cd5e56586 patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents: 18247
diff changeset
1755 call test_option_not_set('ttymouse')
29869
0eab537e9ccb patch 9.0.0273: Konsole termresponse not recognized
Bram Moolenaar <Bram@vim.org>
parents: 29434
diff changeset
1756 let seq = "\<Esc>[>0;" .. a:code .. ";0c"
18285
db8cd5e56586 patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents: 18247
diff changeset
1757 call feedkeys(seq, 'Lx!')
db8cd5e56586 patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents: 18247
diff changeset
1758 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
1759 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
1760
20836
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1761 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
1762 \ 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
1763 \ 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
1764 \ underline_rgb: 'u',
30958
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1765 \ mouse: 's',
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1766 \ kitty: 'u',
20836
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1767 \ }, terminalprops())
29869
0eab537e9ccb patch 9.0.0273: Konsole termresponse not recognized
Bram Moolenaar <Bram@vim.org>
parents: 29434
diff changeset
1768 endfunc
0eab537e9ccb patch 9.0.0273: Konsole termresponse not recognized
Bram Moolenaar <Bram@vim.org>
parents: 29434
diff changeset
1769
0eab537e9ccb patch 9.0.0273: Konsole termresponse not recognized
Bram Moolenaar <Bram@vim.org>
parents: 29434
diff changeset
1770 " This checks the libvterm version response.
0eab537e9ccb patch 9.0.0273: Konsole termresponse not recognized
Bram Moolenaar <Bram@vim.org>
parents: 29434
diff changeset
1771 " This must be after other tests, because it has side effects to xterm
0eab537e9ccb patch 9.0.0273: Konsole termresponse not recognized
Bram Moolenaar <Bram@vim.org>
parents: 29434
diff changeset
1772 " properties.
0eab537e9ccb patch 9.0.0273: Konsole termresponse not recognized
Bram Moolenaar <Bram@vim.org>
parents: 29434
diff changeset
1773 func Test_xx03_libvterm_konsole_response()
0eab537e9ccb patch 9.0.0273: Konsole termresponse not recognized
Bram Moolenaar <Bram@vim.org>
parents: 29434
diff changeset
1774 " Termresponse is only parsed when t_RV is not empty.
0eab537e9ccb patch 9.0.0273: Konsole termresponse not recognized
Bram Moolenaar <Bram@vim.org>
parents: 29434
diff changeset
1775 set t_RV=x
0eab537e9ccb patch 9.0.0273: Konsole termresponse not recognized
Bram Moolenaar <Bram@vim.org>
parents: 29434
diff changeset
1776 call test_override('term_props', 1)
0eab537e9ccb patch 9.0.0273: Konsole termresponse not recognized
Bram Moolenaar <Bram@vim.org>
parents: 29434
diff changeset
1777
0eab537e9ccb patch 9.0.0273: Konsole termresponse not recognized
Bram Moolenaar <Bram@vim.org>
parents: 29434
diff changeset
1778 " libvterm
0eab537e9ccb patch 9.0.0273: Konsole termresponse not recognized
Bram Moolenaar <Bram@vim.org>
parents: 29434
diff changeset
1779 call Run_libvterm_konsole_response(100)
0eab537e9ccb patch 9.0.0273: Konsole termresponse not recognized
Bram Moolenaar <Bram@vim.org>
parents: 29434
diff changeset
1780 " Konsole
0eab537e9ccb patch 9.0.0273: Konsole termresponse not recognized
Bram Moolenaar <Bram@vim.org>
parents: 29434
diff changeset
1781 call Run_libvterm_konsole_response(115)
20836
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1782
18285
db8cd5e56586 patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents: 18247
diff changeset
1783 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
1784 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
1785 endfunc
db8cd5e56586 patch 8.1.2137: parsing the termresponse is not tested
Bram Moolenaar <Bram@vim.org>
parents: 18247
diff changeset
1786
18360
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents: 18350
diff changeset
1787 " 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
1788 " 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
1789 " properties.
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents: 18350
diff changeset
1790 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
1791 " 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
1792 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
1793 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
1794
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents: 18350
diff changeset
1795 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
1796 " 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
1797 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
1798 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
1799 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
1800 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
1801 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
1802 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
1803
20836
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1804 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
1805 \ 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
1806 \ 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
1807 \ underline_rgb: 'y',
30958
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1808 \ mouse: 's',
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1809 \ kitty: 'u',
20836
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1810 \ }, 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
1811 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
1812
18360
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents: 18350
diff changeset
1813 " 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
1814 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
1815 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
1816 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
1817 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
1818 endfunc
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents: 18350
diff changeset
1819
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents: 18350
diff changeset
1820 " 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
1821 " 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
1822 " properties.
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents: 18350
diff changeset
1823 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
1824 " 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
1825 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
1826 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
1827
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents: 18350
diff changeset
1828 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
1829 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
1830 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
1831 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
1832 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
1833 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
1834
20836
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1835 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
1836 \ 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
1837 \ 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
1838 \ underline_rgb: 'y',
30958
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1839 \ mouse: 's',
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1840 \ kitty: 'u',
20836
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1841 \ }, terminalprops())
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1842
18360
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents: 18350
diff changeset
1843 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
1844 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
1845 endfunc
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents: 18350
diff changeset
1846
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents: 18350
diff changeset
1847 " 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
1848 " 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
1849 " properties.
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents: 18350
diff changeset
1850 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
1851 " 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
1852 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
1853 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
1854
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents: 18350
diff changeset
1855 " 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
1856 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
1857 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
1858 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
1859 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
1860 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
1861 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
1862
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents: 18350
diff changeset
1863 " 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
1864 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
1865 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
1866 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
1867 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
1868 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
1869 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
1870
20836
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1871 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
1872 \ 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
1873 \ 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
1874 \ underline_rgb: 'y',
30958
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1875 \ mouse: 's',
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1876 \ kitty: 'u',
20836
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1877 \ }, terminalprops())
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1878
18360
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents: 18350
diff changeset
1879 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
1880 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
1881 endfunc
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents: 18350
diff changeset
1882
28552
90d57cd76564 patch 8.2.4800: missing test update for adjusted t_8u behavior
Bram Moolenaar <Bram@vim.org>
parents: 28127
diff changeset
1883 func Do_check_t_8u_set_reset(set_by_user)
90d57cd76564 patch 8.2.4800: missing test update for adjusted t_8u behavior
Bram Moolenaar <Bram@vim.org>
parents: 28127
diff changeset
1884 set ttymouse=xterm
90d57cd76564 patch 8.2.4800: missing test update for adjusted t_8u behavior
Bram Moolenaar <Bram@vim.org>
parents: 28127
diff changeset
1885 call test_option_not_set('ttymouse')
90d57cd76564 patch 8.2.4800: missing test update for adjusted t_8u behavior
Bram Moolenaar <Bram@vim.org>
parents: 28127
diff changeset
1886 let default_value = "\<Esc>[58;2;%lu;%lu;%lum"
90d57cd76564 patch 8.2.4800: missing test update for adjusted t_8u behavior
Bram Moolenaar <Bram@vim.org>
parents: 28127
diff changeset
1887 let &t_8u = default_value
90d57cd76564 patch 8.2.4800: missing test update for adjusted t_8u behavior
Bram Moolenaar <Bram@vim.org>
parents: 28127
diff changeset
1888 if !a:set_by_user
90d57cd76564 patch 8.2.4800: missing test update for adjusted t_8u behavior
Bram Moolenaar <Bram@vim.org>
parents: 28127
diff changeset
1889 call test_option_not_set('t_8u')
90d57cd76564 patch 8.2.4800: missing test update for adjusted t_8u behavior
Bram Moolenaar <Bram@vim.org>
parents: 28127
diff changeset
1890 endif
90d57cd76564 patch 8.2.4800: missing test update for adjusted t_8u behavior
Bram Moolenaar <Bram@vim.org>
parents: 28127
diff changeset
1891 let seq = "\<Esc>[>0;279;0c"
90d57cd76564 patch 8.2.4800: missing test update for adjusted t_8u behavior
Bram Moolenaar <Bram@vim.org>
parents: 28127
diff changeset
1892 call feedkeys(seq, 'Lx!')
90d57cd76564 patch 8.2.4800: missing test update for adjusted t_8u behavior
Bram Moolenaar <Bram@vim.org>
parents: 28127
diff changeset
1893 call assert_equal(seq, v:termresponse)
90d57cd76564 patch 8.2.4800: missing test update for adjusted t_8u behavior
Bram Moolenaar <Bram@vim.org>
parents: 28127
diff changeset
1894 call assert_equal('sgr', &ttymouse)
90d57cd76564 patch 8.2.4800: missing test update for adjusted t_8u behavior
Bram Moolenaar <Bram@vim.org>
parents: 28127
diff changeset
1895
90d57cd76564 patch 8.2.4800: missing test update for adjusted t_8u behavior
Bram Moolenaar <Bram@vim.org>
parents: 28127
diff changeset
1896 call assert_equal(#{
90d57cd76564 patch 8.2.4800: missing test update for adjusted t_8u behavior
Bram Moolenaar <Bram@vim.org>
parents: 28127
diff changeset
1897 \ cursor_style: 'u',
90d57cd76564 patch 8.2.4800: missing test update for adjusted t_8u behavior
Bram Moolenaar <Bram@vim.org>
parents: 28127
diff changeset
1898 \ cursor_blink_mode: 'u',
90d57cd76564 patch 8.2.4800: missing test update for adjusted t_8u behavior
Bram Moolenaar <Bram@vim.org>
parents: 28127
diff changeset
1899 \ underline_rgb: 'u',
30958
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1900 \ mouse: 's',
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1901 \ kitty: 'u',
28552
90d57cd76564 patch 8.2.4800: missing test update for adjusted t_8u behavior
Bram Moolenaar <Bram@vim.org>
parents: 28127
diff changeset
1902 \ }, terminalprops())
90d57cd76564 patch 8.2.4800: missing test update for adjusted t_8u behavior
Bram Moolenaar <Bram@vim.org>
parents: 28127
diff changeset
1903 call assert_equal(a:set_by_user ? default_value : '', &t_8u)
90d57cd76564 patch 8.2.4800: missing test update for adjusted t_8u behavior
Bram Moolenaar <Bram@vim.org>
parents: 28127
diff changeset
1904 endfunc
90d57cd76564 patch 8.2.4800: missing test update for adjusted t_8u behavior
Bram Moolenaar <Bram@vim.org>
parents: 28127
diff changeset
1905
18311
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents: 18307
diff changeset
1906 " 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
1907 " 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
1908 " properties.
18360
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes
Bram Moolenaar <Bram@vim.org>
parents: 18350
diff changeset
1909 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
1910 " 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
1911 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
1912 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
1913
18350
b1796f1b28fa patch 8.1.2169: terminal flags are never reset
Bram Moolenaar <Bram@vim.org>
parents: 18311
diff changeset
1914 " 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
1915 set ttymouse=xterm
b1796f1b28fa patch 8.1.2169: terminal flags are never reset
Bram Moolenaar <Bram@vim.org>
parents: 18311
diff changeset
1916 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
1917 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
1918 call feedkeys(seq, 'Lx!')
b1796f1b28fa patch 8.1.2169: terminal flags are never reset
Bram Moolenaar <Bram@vim.org>
parents: 18311
diff changeset
1919 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
1920 call assert_equal('sgr', &ttymouse)
b1796f1b28fa patch 8.1.2169: terminal flags are never reset
Bram Moolenaar <Bram@vim.org>
parents: 18311
diff changeset
1921
18311
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents: 18307
diff changeset
1922 " 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
1923 set t_RV=
b1796f1b28fa patch 8.1.2169: terminal flags are never reset
Bram Moolenaar <Bram@vim.org>
parents: 18311
diff changeset
1924 set term=xterm
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
1925 call WaitForResponses()
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
1926
18350
b1796f1b28fa patch 8.1.2169: terminal flags are never reset
Bram Moolenaar <Bram@vim.org>
parents: 18311
diff changeset
1927 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
1928 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
1929 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
1930 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
1931 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
1932 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
1933 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
1934
20836
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1935 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
1936 \ 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
1937 \ 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
1938 \ underline_rgb: 'y',
30958
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1939 \ mouse: 'u',
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1940 \ kitty: 'u',
20836
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1941 \ }, terminalprops())
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1942
18311
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents: 18307
diff changeset
1943 " 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
1944 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
1945 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
1946 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
1947 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
1948 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
1949 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
1950
20836
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1951 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
1952 \ 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
1953 \ 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
1954 \ underline_rgb: 'u',
30958
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1955 \ mouse: '2',
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1956 \ kitty: 'u',
20836
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1957 \ }, terminalprops())
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1958
18311
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents: 18307
diff changeset
1959 " 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
1960 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
1961 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
1962 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
1963 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
1964 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
1965 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
1966
20836
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1967 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
1968 \ 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
1969 \ 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
1970 \ underline_rgb: 'u',
30958
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1971 \ mouse: 's',
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1972 \ kitty: 'u',
20836
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1973 \ }, terminalprops())
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1974
28552
90d57cd76564 patch 8.2.4800: missing test update for adjusted t_8u behavior
Bram Moolenaar <Bram@vim.org>
parents: 28127
diff changeset
1975 " xterm >= 279: "sgr" and cursor_style not reset; also check t_8u reset,
90d57cd76564 patch 8.2.4800: missing test update for adjusted t_8u behavior
Bram Moolenaar <Bram@vim.org>
parents: 28127
diff changeset
1976 " except when it was set by the user
90d57cd76564 patch 8.2.4800: missing test update for adjusted t_8u behavior
Bram Moolenaar <Bram@vim.org>
parents: 28127
diff changeset
1977 call Do_check_t_8u_set_reset(0)
90d57cd76564 patch 8.2.4800: missing test update for adjusted t_8u behavior
Bram Moolenaar <Bram@vim.org>
parents: 28127
diff changeset
1978 call Do_check_t_8u_set_reset(1)
20836
2616c5a337e0 patch 8.2.0970: terminal properties are not available in Vim script
Bram Moolenaar <Bram@vim.org>
parents: 20727
diff changeset
1979
18311
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents: 18307
diff changeset
1980 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
1981 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
1982 endfunc
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response
Bram Moolenaar <Bram@vim.org>
parents: 18307
diff changeset
1983
30958
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1984 func Test_xx08_kitty_response()
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1985 " Termresponse is only parsed when t_RV is not empty.
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1986 set t_RV=x
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1987 call test_override('term_props', 1)
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1988
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1989 set ttymouse=xterm
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1990 call test_option_not_set('ttymouse')
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1991 let seq = "\<Esc>[>1;4001;12c"
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1992 call feedkeys(seq, 'Lx!')
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1993 call assert_equal(seq, v:termresponse)
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1994 call assert_equal('sgr', &ttymouse)
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1995
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1996 call assert_equal(#{
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1997 \ cursor_style: 'u',
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1998 \ cursor_blink_mode: 'u',
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
1999 \ underline_rgb: 'y',
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
2000 \ mouse: 's',
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
2001 \ kitty: 'y',
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
2002 \ }, terminalprops())
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
2003
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
2004 set t_RV=
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
2005 call test_override('term_props', 0)
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
2006 endfunc
122f883d7237 patch 9.0.0813: Kitty terminal is not recognized
Bram Moolenaar <Bram@vim.org>
parents: 30926
diff changeset
2007
23774
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2008 func Test_focus_events()
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2009 let save_term = &term
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2010 let save_ttymouse = &ttymouse
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2011 set term=xterm ttymouse=xterm2
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
2012 call WaitForResponses()
23774
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2013
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2014 au FocusGained * let g:focus_gained += 1
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2015 au FocusLost * let g:focus_lost += 1
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2016 let g:focus_gained = 0
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2017 let g:focus_lost = 0
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2018
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2019 call feedkeys("\<Esc>[O", "Lx!")
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2020 call assert_equal(1, g:focus_lost)
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2021 call feedkeys("\<Esc>[I", "Lx!")
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2022 call assert_equal(1, g:focus_gained)
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2023
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2024 " still works when 'ttymouse' is empty
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2025 set ttymouse=
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2026 call feedkeys("\<Esc>[O", "Lx!")
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2027 call assert_equal(2, g:focus_lost)
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2028 call feedkeys("\<Esc>[I", "Lx!")
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2029 call assert_equal(2, g:focus_gained)
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2030
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2031 au! FocusGained
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2032 au! FocusLost
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2033 let &term = save_term
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2034 let &ttymouse = save_ttymouse
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2035 endfunc
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2036
16942
5f3e960ce76d patch 8.1.1472: add_termcap_entry() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16940
diff changeset
2037 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
2038 try
eda5b2cb1dc4 patch 8.1.2118: termcodes test fails when $TERM is "dumb"
Bram Moolenaar <Bram@vim.org>
parents: 18223
diff changeset
2039 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
2040 catch /E113/
eda5b2cb1dc4 patch 8.1.2118: termcodes test fails when $TERM is "dumb"
Bram Moolenaar <Bram@vim.org>
parents: 18223
diff changeset
2041 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
2042 endtry
16942
5f3e960ce76d patch 8.1.1472: add_termcap_entry() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16940
diff changeset
2043 set t_k1=
5f3e960ce76d patch 8.1.1472: add_termcap_entry() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16940
diff changeset
2044 set t_k1&
5f3e960ce76d patch 8.1.1472: add_termcap_entry() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16940
diff changeset
2045 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
2046
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16942
diff changeset
2047 " use external termcap first
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16942
diff changeset
2048 set nottybuiltin
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16942
diff changeset
2049 set t_k1=
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16942
diff changeset
2050 set t_k1&
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16942
diff changeset
2051 " 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
2052 " 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
2053 call assert_notequal('', &t_k1)
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16942
diff changeset
2054
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16942
diff changeset
2055 if &term =~ 'xterm'
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16942
diff changeset
2056 " use internal termcap first
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16942
diff changeset
2057 let term_save = &term
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16942
diff changeset
2058 let &term = 'builtin_' .. &term
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16942
diff changeset
2059 set t_k1=
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16942
diff changeset
2060 set t_k1&
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16942
diff changeset
2061 call assert_equal(k1, &t_k1)
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16942
diff changeset
2062 let &term = term_save
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16942
diff changeset
2063 endif
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16942
diff changeset
2064
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16942
diff changeset
2065 set ttybuiltin
16942
5f3e960ce76d patch 8.1.1472: add_termcap_entry() is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16940
diff changeset
2066 endfunc
18289
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18285
diff changeset
2067
21624
1d75baa22d9a patch 8.2.1362: last entry of ":set term=xxx" overwritten by error message
Bram Moolenaar <Bram@vim.org>
parents: 21369
diff changeset
2068 func Test_list_builtin_terminals()
21626
ebceee9391cf patch 8.2.1363: test trying to run terminal when it is not supported
Bram Moolenaar <Bram@vim.org>
parents: 21624
diff changeset
2069 CheckRunVimInTerminal
31129
9cc7b2cec8ad patch 9.0.0899: the builtin terminals are in one long list
Bram Moolenaar <Bram@vim.org>
parents: 31123
diff changeset
2070
23029
bc3a083b50cb patch 8.2.2061: Vim9: E1030 error when using empty string for term_sendkeys()
Bram Moolenaar <Bram@vim.org>
parents: 22764
diff changeset
2071 call RunVimInTerminal('', #{rows: 14})
bc3a083b50cb patch 8.2.2061: Vim9: E1030 error when using empty string for term_sendkeys()
Bram Moolenaar <Bram@vim.org>
parents: 22764
diff changeset
2072 call term_sendkeys('', ":set cmdheight=3\<CR>")
bc3a083b50cb patch 8.2.2061: Vim9: E1030 error when using empty string for term_sendkeys()
Bram Moolenaar <Bram@vim.org>
parents: 22764
diff changeset
2073 call TermWait('', 100)
bc3a083b50cb patch 8.2.2061: Vim9: E1030 error when using empty string for term_sendkeys()
Bram Moolenaar <Bram@vim.org>
parents: 22764
diff changeset
2074 call term_sendkeys('', ":set term=xxx\<CR>")
bc3a083b50cb patch 8.2.2061: Vim9: E1030 error when using empty string for term_sendkeys()
Bram Moolenaar <Bram@vim.org>
parents: 22764
diff changeset
2075 call TermWait('', 100)
31129
9cc7b2cec8ad patch 9.0.0899: the builtin terminals are in one long list
Bram Moolenaar <Bram@vim.org>
parents: 31123
diff changeset
2076
9cc7b2cec8ad patch 9.0.0899: the builtin terminals are in one long list
Bram Moolenaar <Bram@vim.org>
parents: 31123
diff changeset
2077 " Check that the list ends in "builtin_dumb" and "builtin_debug".
9cc7b2cec8ad patch 9.0.0899: the builtin terminals are in one long list
Bram Moolenaar <Bram@vim.org>
parents: 31123
diff changeset
2078 let dumb_idx = 0
9cc7b2cec8ad patch 9.0.0899: the builtin terminals are in one long list
Bram Moolenaar <Bram@vim.org>
parents: 31123
diff changeset
2079 for n in range(8, 12)
9cc7b2cec8ad patch 9.0.0899: the builtin terminals are in one long list
Bram Moolenaar <Bram@vim.org>
parents: 31123
diff changeset
2080 if term_getline('', n) =~ 'builtin_dumb'
9cc7b2cec8ad patch 9.0.0899: the builtin terminals are in one long list
Bram Moolenaar <Bram@vim.org>
parents: 31123
diff changeset
2081 let dumb_idx = n
9cc7b2cec8ad patch 9.0.0899: the builtin terminals are in one long list
Bram Moolenaar <Bram@vim.org>
parents: 31123
diff changeset
2082 break
9cc7b2cec8ad patch 9.0.0899: the builtin terminals are in one long list
Bram Moolenaar <Bram@vim.org>
parents: 31123
diff changeset
2083 endif
9cc7b2cec8ad patch 9.0.0899: the builtin terminals are in one long list
Bram Moolenaar <Bram@vim.org>
parents: 31123
diff changeset
2084 endfor
9cc7b2cec8ad patch 9.0.0899: the builtin terminals are in one long list
Bram Moolenaar <Bram@vim.org>
parents: 31123
diff changeset
2085 call assert_notequal(0, dumb_idx, 'builtin_dumb not found')
9cc7b2cec8ad patch 9.0.0899: the builtin terminals are in one long list
Bram Moolenaar <Bram@vim.org>
parents: 31123
diff changeset
2086
9cc7b2cec8ad patch 9.0.0899: the builtin terminals are in one long list
Bram Moolenaar <Bram@vim.org>
parents: 31123
diff changeset
2087 call assert_match('builtin_dumb', term_getline('', dumb_idx))
9cc7b2cec8ad patch 9.0.0899: the builtin terminals are in one long list
Bram Moolenaar <Bram@vim.org>
parents: 31123
diff changeset
2088 call assert_match('builtin_debug', term_getline('', dumb_idx + 1))
9cc7b2cec8ad patch 9.0.0899: the builtin terminals are in one long list
Bram Moolenaar <Bram@vim.org>
parents: 31123
diff changeset
2089 call assert_match('Not found in termcap', term_getline('', dumb_idx + 2))
9cc7b2cec8ad patch 9.0.0899: the builtin terminals are in one long list
Bram Moolenaar <Bram@vim.org>
parents: 31123
diff changeset
2090
23029
bc3a083b50cb patch 8.2.2061: Vim9: E1030 error when using empty string for term_sendkeys()
Bram Moolenaar <Bram@vim.org>
parents: 22764
diff changeset
2091 call StopVimInTerminal('')
21624
1d75baa22d9a patch 8.2.1362: last entry of ":set term=xxx" overwritten by error message
Bram Moolenaar <Bram@vim.org>
parents: 21369
diff changeset
2092 endfunc
1d75baa22d9a patch 8.2.1362: last entry of ":set term=xxx" overwritten by error message
Bram Moolenaar <Bram@vim.org>
parents: 21369
diff changeset
2093
18289
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18285
diff changeset
2094 " 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
2095 " 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
2096 func RunTest_modifyOtherKeys(func)
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18285
diff changeset
2097 new
18301
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2098 set timeoutlen=10
18289
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18285
diff changeset
2099
18918
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents: 18717
diff changeset
2100 " 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
2101 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
2102 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
2103
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18285
diff changeset
2104 " Ctrl-i is Tab
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18285
diff changeset
2105 call setline(1, '')
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18285
diff changeset
2106 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
2107 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
2108
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18285
diff changeset
2109 " 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
2110 call setline(1, '')
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18285
diff changeset
2111 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
2112 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
2113
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18285
diff changeset
2114 " Alt-x is ø
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18285
diff changeset
2115 call setline(1, '')
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18285
diff changeset
2116 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
2117 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
2118
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18285
diff changeset
2119 " Meta-x is also ø
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18285
diff changeset
2120 call setline(1, '')
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18285
diff changeset
2121 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
2122 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
2123
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18285
diff changeset
2124 " Alt-X is Ø
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18285
diff changeset
2125 call setline(1, '')
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18285
diff changeset
2126 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
2127 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
2128
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18285
diff changeset
2129 " Meta-X is ø
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18285
diff changeset
2130 call setline(1, '')
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18285
diff changeset
2131 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
2132 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
2133
18683
5ed740336224 patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work
Bram Moolenaar <Bram@vim.org>
parents: 18627
diff changeset
2134 " Ctrl-6 is Ctrl-^
5ed740336224 patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work
Bram Moolenaar <Bram@vim.org>
parents: 18627
diff changeset
2135 split aaa
5ed740336224 patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work
Bram Moolenaar <Bram@vim.org>
parents: 18627
diff changeset
2136 edit bbb
5ed740336224 patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work
Bram Moolenaar <Bram@vim.org>
parents: 18627
diff changeset
2137 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
2138 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
2139 bwipe aaa
5ed740336224 patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work
Bram Moolenaar <Bram@vim.org>
parents: 18627
diff changeset
2140 bwipe bbb
5ed740336224 patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work
Bram Moolenaar <Bram@vim.org>
parents: 18627
diff changeset
2141
23076
5fbac68bda23 patch 8.2.2084: CTRL-V U doesn't work to enter a Unicode character
Bram Moolenaar <Bram@vim.org>
parents: 23029
diff changeset
2142 " Ctrl-V X 33 is 3
5fbac68bda23 patch 8.2.2084: CTRL-V U doesn't work to enter a Unicode character
Bram Moolenaar <Bram@vim.org>
parents: 23029
diff changeset
2143 call setline(1, '')
5fbac68bda23 patch 8.2.2084: CTRL-V U doesn't work to enter a Unicode character
Bram Moolenaar <Bram@vim.org>
parents: 23029
diff changeset
2144 call feedkeys("a\<C-V>" .. a:func('X', 2) .. "33\<Esc>", 'Lx!')
5fbac68bda23 patch 8.2.2084: CTRL-V U doesn't work to enter a Unicode character
Bram Moolenaar <Bram@vim.org>
parents: 23029
diff changeset
2145 call assert_equal("3", getline(1))
5fbac68bda23 patch 8.2.2084: CTRL-V U doesn't work to enter a Unicode character
Bram Moolenaar <Bram@vim.org>
parents: 23029
diff changeset
2146
5fbac68bda23 patch 8.2.2084: CTRL-V U doesn't work to enter a Unicode character
Bram Moolenaar <Bram@vim.org>
parents: 23029
diff changeset
2147 " Ctrl-V U 12345 is Unicode 12345
5fbac68bda23 patch 8.2.2084: CTRL-V U doesn't work to enter a Unicode character
Bram Moolenaar <Bram@vim.org>
parents: 23029
diff changeset
2148 call setline(1, '')
5fbac68bda23 patch 8.2.2084: CTRL-V U doesn't work to enter a Unicode character
Bram Moolenaar <Bram@vim.org>
parents: 23029
diff changeset
2149 call feedkeys("a\<C-V>" .. a:func('U', 2) .. "12345\<Esc>", 'Lx!')
5fbac68bda23 patch 8.2.2084: CTRL-V U doesn't work to enter a Unicode character
Bram Moolenaar <Bram@vim.org>
parents: 23029
diff changeset
2150 call assert_equal("\U12345", getline(1))
5fbac68bda23 patch 8.2.2084: CTRL-V U doesn't work to enter a Unicode character
Bram Moolenaar <Bram@vim.org>
parents: 23029
diff changeset
2151
18289
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18285
diff changeset
2152 bwipe!
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18285
diff changeset
2153 set timeoutlen&
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18285
diff changeset
2154 endfunc
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested
Bram Moolenaar <Bram@vim.org>
parents: 18285
diff changeset
2155
18301
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2156 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
2157 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
2158 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
2159 endfunc
18295
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18289
diff changeset
2160
18709
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18683
diff changeset
2161 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
2162 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
2163
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18683
diff changeset
2164 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
2165 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
2166 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
2167
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18683
diff changeset
2168 new
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18683
diff changeset
2169 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
2170 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
2171 bwipe!
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18683
diff changeset
2172
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18683
diff changeset
2173 new
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18683
diff changeset
2174 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
2175 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
2176 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
2177 bwipe!
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18683
diff changeset
2178
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18683
diff changeset
2179 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
2180 endfunc
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18683
diff changeset
2181
30827
0c30130f8c94 patch 9.0.0748: Kitty may send key without modifiers with CSI u code
Bram Moolenaar <Bram@vim.org>
parents: 30809
diff changeset
2182 func Test_CSIu_keys_without_modifiers()
31213
d26436d305cc patch 9.0.0940: crash when typing a letter in a terminal window
Bram Moolenaar <Bram@vim.org>
parents: 31129
diff changeset
2183 " make this execute faster
d26436d305cc patch 9.0.0940: crash when typing a letter in a terminal window
Bram Moolenaar <Bram@vim.org>
parents: 31129
diff changeset
2184 set timeoutlen=10
d26436d305cc patch 9.0.0940: crash when typing a letter in a terminal window
Bram Moolenaar <Bram@vim.org>
parents: 31129
diff changeset
2185
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
2186 call WaitForResponses()
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
2187
30827
0c30130f8c94 patch 9.0.0748: Kitty may send key without modifiers with CSI u code
Bram Moolenaar <Bram@vim.org>
parents: 30809
diff changeset
2188 " Escape sent as `CSI 27 u` should act as normal escape and not undo
0c30130f8c94 patch 9.0.0748: Kitty may send key without modifiers with CSI u code
Bram Moolenaar <Bram@vim.org>
parents: 30809
diff changeset
2189 call setline(1, 'a')
0c30130f8c94 patch 9.0.0748: Kitty may send key without modifiers with CSI u code
Bram Moolenaar <Bram@vim.org>
parents: 30809
diff changeset
2190 call feedkeys('a' .. GetEscCodeCSIuWithoutModifier("\e"), 'Lx!')
0c30130f8c94 patch 9.0.0748: Kitty may send key without modifiers with CSI u code
Bram Moolenaar <Bram@vim.org>
parents: 30809
diff changeset
2191 call assert_equal('n', mode())
0c30130f8c94 patch 9.0.0748: Kitty may send key without modifiers with CSI u code
Bram Moolenaar <Bram@vim.org>
parents: 30809
diff changeset
2192 call assert_equal('a', getline(1))
0c30130f8c94 patch 9.0.0748: Kitty may send key without modifiers with CSI u code
Bram Moolenaar <Bram@vim.org>
parents: 30809
diff changeset
2193
0c30130f8c94 patch 9.0.0748: Kitty may send key without modifiers with CSI u code
Bram Moolenaar <Bram@vim.org>
parents: 30809
diff changeset
2194 " Tab sent as `CSI 9 u` should work
0c30130f8c94 patch 9.0.0748: Kitty may send key without modifiers with CSI u code
Bram Moolenaar <Bram@vim.org>
parents: 30809
diff changeset
2195 call setline(1, '')
0c30130f8c94 patch 9.0.0748: Kitty may send key without modifiers with CSI u code
Bram Moolenaar <Bram@vim.org>
parents: 30809
diff changeset
2196 call feedkeys('a' .. GetEscCodeCSIuWithoutModifier("\t") .. "\<Esc>", 'Lx!')
0c30130f8c94 patch 9.0.0748: Kitty may send key without modifiers with CSI u code
Bram Moolenaar <Bram@vim.org>
parents: 30809
diff changeset
2197 call assert_equal("\t", getline(1))
31213
d26436d305cc patch 9.0.0940: crash when typing a letter in a terminal window
Bram Moolenaar <Bram@vim.org>
parents: 31129
diff changeset
2198
d26436d305cc patch 9.0.0940: crash when typing a letter in a terminal window
Bram Moolenaar <Bram@vim.org>
parents: 31129
diff changeset
2199 set timeoutlen&
30827
0c30130f8c94 patch 9.0.0748: Kitty may send key without modifiers with CSI u code
Bram Moolenaar <Bram@vim.org>
parents: 30809
diff changeset
2200 endfunc
0c30130f8c94 patch 9.0.0748: Kitty may send key without modifiers with CSI u code
Bram Moolenaar <Bram@vim.org>
parents: 30809
diff changeset
2201
26392
201243ceaa18 patch 8.2.3727: in a gnome terminal keys are recognized as mouse events
Bram Moolenaar <Bram@vim.org>
parents: 26211
diff changeset
2202 " Check that when DEC mouse codes are recognized a special key is handled.
201243ceaa18 patch 8.2.3727: in a gnome terminal keys are recognized as mouse events
Bram Moolenaar <Bram@vim.org>
parents: 26211
diff changeset
2203 func Test_ignore_dec_mouse()
26422
4397cc04f2b1 patch 8.2.3742: dec mouse test fails without gnome terminfo entry
Bram Moolenaar <Bram@vim.org>
parents: 26392
diff changeset
2204 silent !infocmp gnome >/dev/null 2>&1
4397cc04f2b1 patch 8.2.3742: dec mouse test fails without gnome terminfo entry
Bram Moolenaar <Bram@vim.org>
parents: 26392
diff changeset
2205 if v:shell_error != 0
4397cc04f2b1 patch 8.2.3742: dec mouse test fails without gnome terminfo entry
Bram Moolenaar <Bram@vim.org>
parents: 26392
diff changeset
2206 throw 'Skipped: gnome entry missing in the terminfo db'
4397cc04f2b1 patch 8.2.3742: dec mouse test fails without gnome terminfo entry
Bram Moolenaar <Bram@vim.org>
parents: 26392
diff changeset
2207 endif
26392
201243ceaa18 patch 8.2.3727: in a gnome terminal keys are recognized as mouse events
Bram Moolenaar <Bram@vim.org>
parents: 26211
diff changeset
2208
201243ceaa18 patch 8.2.3727: in a gnome terminal keys are recognized as mouse events
Bram Moolenaar <Bram@vim.org>
parents: 26211
diff changeset
2209 new
201243ceaa18 patch 8.2.3727: in a gnome terminal keys are recognized as mouse events
Bram Moolenaar <Bram@vim.org>
parents: 26211
diff changeset
2210 let save_mouse = &mouse
201243ceaa18 patch 8.2.3727: in a gnome terminal keys are recognized as mouse events
Bram Moolenaar <Bram@vim.org>
parents: 26211
diff changeset
2211 let save_term = &term
201243ceaa18 patch 8.2.3727: in a gnome terminal keys are recognized as mouse events
Bram Moolenaar <Bram@vim.org>
parents: 26211
diff changeset
2212 let save_ttymouse = &ttymouse
201243ceaa18 patch 8.2.3727: in a gnome terminal keys are recognized as mouse events
Bram Moolenaar <Bram@vim.org>
parents: 26211
diff changeset
2213 call test_override('no_query_mouse', 1)
201243ceaa18 patch 8.2.3727: in a gnome terminal keys are recognized as mouse events
Bram Moolenaar <Bram@vim.org>
parents: 26211
diff changeset
2214 set mouse=a term=gnome ttymouse=
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
2215 call WaitForResponses()
26392
201243ceaa18 patch 8.2.3727: in a gnome terminal keys are recognized as mouse events
Bram Moolenaar <Bram@vim.org>
parents: 26211
diff changeset
2216
201243ceaa18 patch 8.2.3727: in a gnome terminal keys are recognized as mouse events
Bram Moolenaar <Bram@vim.org>
parents: 26211
diff changeset
2217 execute "set <xF1>=\<Esc>[1;*P"
201243ceaa18 patch 8.2.3727: in a gnome terminal keys are recognized as mouse events
Bram Moolenaar <Bram@vim.org>
parents: 26211
diff changeset
2218 nnoremap <S-F1> agot it<Esc>
201243ceaa18 patch 8.2.3727: in a gnome terminal keys are recognized as mouse events
Bram Moolenaar <Bram@vim.org>
parents: 26211
diff changeset
2219 call feedkeys("\<Esc>[1;2P", 'Lx!')
201243ceaa18 patch 8.2.3727: in a gnome terminal keys are recognized as mouse events
Bram Moolenaar <Bram@vim.org>
parents: 26211
diff changeset
2220 call assert_equal('got it', getline(1))
201243ceaa18 patch 8.2.3727: in a gnome terminal keys are recognized as mouse events
Bram Moolenaar <Bram@vim.org>
parents: 26211
diff changeset
2221
201243ceaa18 patch 8.2.3727: in a gnome terminal keys are recognized as mouse events
Bram Moolenaar <Bram@vim.org>
parents: 26211
diff changeset
2222 let &mouse = save_mouse
201243ceaa18 patch 8.2.3727: in a gnome terminal keys are recognized as mouse events
Bram Moolenaar <Bram@vim.org>
parents: 26211
diff changeset
2223 let &term = save_term
201243ceaa18 patch 8.2.3727: in a gnome terminal keys are recognized as mouse events
Bram Moolenaar <Bram@vim.org>
parents: 26211
diff changeset
2224 let &ttymouse = save_ttymouse
201243ceaa18 patch 8.2.3727: in a gnome terminal keys are recognized as mouse events
Bram Moolenaar <Bram@vim.org>
parents: 26211
diff changeset
2225 call test_override('no_query_mouse', 0)
201243ceaa18 patch 8.2.3727: in a gnome terminal keys are recognized as mouse events
Bram Moolenaar <Bram@vim.org>
parents: 26211
diff changeset
2226 bwipe!
201243ceaa18 patch 8.2.3727: in a gnome terminal keys are recognized as mouse events
Bram Moolenaar <Bram@vim.org>
parents: 26211
diff changeset
2227 endfunc
201243ceaa18 patch 8.2.3727: in a gnome terminal keys are recognized as mouse events
Bram Moolenaar <Bram@vim.org>
parents: 26211
diff changeset
2228
18295
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18289
diff changeset
2229 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
2230 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
2231 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
2232 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
2233 else
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18289
diff changeset
2234 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
2235 endif
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18289
diff changeset
2236 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
2237 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
2238 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
2239 exe 'iunmap \|'
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18289
diff changeset
2240 else
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18289
diff changeset
2241 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
2242 endif
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18289
diff changeset
2243 endfunc
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18289
diff changeset
2244
20727
5ffe112b1afd patch 8.2.0916: mapping with partly modifyOtherKeys code does not work
Bram Moolenaar <Bram@vim.org>
parents: 20313
diff changeset
2245 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
2246 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
2247 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
2248 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
2249 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
2250
5ffe112b1afd patch 8.2.0916: mapping with partly modifyOtherKeys code does not work
Bram Moolenaar <Bram@vim.org>
parents: 20313
diff changeset
2251 " 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
2252 " 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
2253 " 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
2254 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
2255 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
2256
5ffe112b1afd patch 8.2.0916: mapping with partly modifyOtherKeys code does not work
Bram Moolenaar <Bram@vim.org>
parents: 20313
diff changeset
2257 iunmap '
5ffe112b1afd patch 8.2.0916: mapping with partly modifyOtherKeys code does not work
Bram Moolenaar <Bram@vim.org>
parents: 20313
diff changeset
2258 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
2259 set timeoutlen&
5ffe112b1afd patch 8.2.0916: mapping with partly modifyOtherKeys code does not work
Bram Moolenaar <Bram@vim.org>
parents: 20313
diff changeset
2260 endfunc
5ffe112b1afd patch 8.2.0916: mapping with partly modifyOtherKeys code does not work
Bram Moolenaar <Bram@vim.org>
parents: 20313
diff changeset
2261
27958
ac7db4437368 patch 8.2.4504: when there is a partially matching map full map may not work
Bram Moolenaar <Bram@vim.org>
parents: 26422
diff changeset
2262 func Test_modifyOtherKeys_ambiguous_mapping()
ac7db4437368 patch 8.2.4504: when there is a partially matching map full map may not work
Bram Moolenaar <Bram@vim.org>
parents: 26422
diff changeset
2263 new
ac7db4437368 patch 8.2.4504: when there is a partially matching map full map may not work
Bram Moolenaar <Bram@vim.org>
parents: 26422
diff changeset
2264 set timeoutlen=10
ac7db4437368 patch 8.2.4504: when there is a partially matching map full map may not work
Bram Moolenaar <Bram@vim.org>
parents: 26422
diff changeset
2265 map <C-J> a
ac7db4437368 patch 8.2.4504: when there is a partially matching map full map may not work
Bram Moolenaar <Bram@vim.org>
parents: 26422
diff changeset
2266 map <C-J>x <Nop>
ac7db4437368 patch 8.2.4504: when there is a partially matching map full map may not work
Bram Moolenaar <Bram@vim.org>
parents: 26422
diff changeset
2267 call setline(1, 'x')
ac7db4437368 patch 8.2.4504: when there is a partially matching map full map may not work
Bram Moolenaar <Bram@vim.org>
parents: 26422
diff changeset
2268
ac7db4437368 patch 8.2.4504: when there is a partially matching map full map may not work
Bram Moolenaar <Bram@vim.org>
parents: 26422
diff changeset
2269 " CTRL-J b should have trigger the <C-J> mapping and then insert "b"
ac7db4437368 patch 8.2.4504: when there is a partially matching map full map may not work
Bram Moolenaar <Bram@vim.org>
parents: 26422
diff changeset
2270 call feedkeys(GetEscCodeCSI27('J', 5) .. "b\<Esc>", 'Lx!')
ac7db4437368 patch 8.2.4504: when there is a partially matching map full map may not work
Bram Moolenaar <Bram@vim.org>
parents: 26422
diff changeset
2271 call assert_equal('xb', getline(1))
ac7db4437368 patch 8.2.4504: when there is a partially matching map full map may not work
Bram Moolenaar <Bram@vim.org>
parents: 26422
diff changeset
2272
ac7db4437368 patch 8.2.4504: when there is a partially matching map full map may not work
Bram Moolenaar <Bram@vim.org>
parents: 26422
diff changeset
2273 unmap <C-J>
ac7db4437368 patch 8.2.4504: when there is a partially matching map full map may not work
Bram Moolenaar <Bram@vim.org>
parents: 26422
diff changeset
2274 unmap <C-J>x
28127
b9e8f3674090 patch 8.2.4588: mapping with key after other matching mapping does not work
Bram Moolenaar <Bram@vim.org>
parents: 28053
diff changeset
2275
b9e8f3674090 patch 8.2.4588: mapping with key after other matching mapping does not work
Bram Moolenaar <Bram@vim.org>
parents: 28053
diff changeset
2276 " if a special character is following there should be a check for a termcode
b9e8f3674090 patch 8.2.4588: mapping with key after other matching mapping does not work
Bram Moolenaar <Bram@vim.org>
parents: 28053
diff changeset
2277 nnoremap s aX<Esc>
b9e8f3674090 patch 8.2.4588: mapping with key after other matching mapping does not work
Bram Moolenaar <Bram@vim.org>
parents: 28053
diff changeset
2278 nnoremap s<BS> aY<Esc>
b9e8f3674090 patch 8.2.4588: mapping with key after other matching mapping does not work
Bram Moolenaar <Bram@vim.org>
parents: 28053
diff changeset
2279 set t_kb=
b9e8f3674090 patch 8.2.4588: mapping with key after other matching mapping does not work
Bram Moolenaar <Bram@vim.org>
parents: 28053
diff changeset
2280 call setline(1, 'x')
b9e8f3674090 patch 8.2.4588: mapping with key after other matching mapping does not work
Bram Moolenaar <Bram@vim.org>
parents: 28053
diff changeset
2281 call feedkeys("s\x08", 'Lx!')
b9e8f3674090 patch 8.2.4588: mapping with key after other matching mapping does not work
Bram Moolenaar <Bram@vim.org>
parents: 28053
diff changeset
2282 call assert_equal('xY', getline(1))
b9e8f3674090 patch 8.2.4588: mapping with key after other matching mapping does not work
Bram Moolenaar <Bram@vim.org>
parents: 28053
diff changeset
2283
27958
ac7db4437368 patch 8.2.4504: when there is a partially matching map full map may not work
Bram Moolenaar <Bram@vim.org>
parents: 26422
diff changeset
2284 set timeoutlen&
ac7db4437368 patch 8.2.4504: when there is a partially matching map full map may not work
Bram Moolenaar <Bram@vim.org>
parents: 26422
diff changeset
2285 bwipe!
ac7db4437368 patch 8.2.4504: when there is a partially matching map full map may not work
Bram Moolenaar <Bram@vim.org>
parents: 26422
diff changeset
2286 endfunc
ac7db4437368 patch 8.2.4504: when there is a partially matching map full map may not work
Bram Moolenaar <Bram@vim.org>
parents: 26422
diff changeset
2287
22764
d03221aa54f3 patch 8.2.1930: wrong input if removing shift results in special key code
Bram Moolenaar <Bram@vim.org>
parents: 22526
diff changeset
2288 " Whether Shift-Tab sends "ESC [ Z" or "ESC [ 27 ; 2 ; 9 ~" is unpredictable,
d03221aa54f3 patch 8.2.1930: wrong input if removing shift results in special key code
Bram Moolenaar <Bram@vim.org>
parents: 22526
diff changeset
2289 " both should work.
d03221aa54f3 patch 8.2.1930: wrong input if removing shift results in special key code
Bram Moolenaar <Bram@vim.org>
parents: 22526
diff changeset
2290 func Test_modifyOtherKeys_shift_tab()
d03221aa54f3 patch 8.2.1930: wrong input if removing shift results in special key code
Bram Moolenaar <Bram@vim.org>
parents: 22526
diff changeset
2291 set timeoutlen=10
d03221aa54f3 patch 8.2.1930: wrong input if removing shift results in special key code
Bram Moolenaar <Bram@vim.org>
parents: 22526
diff changeset
2292
d03221aa54f3 patch 8.2.1930: wrong input if removing shift results in special key code
Bram Moolenaar <Bram@vim.org>
parents: 22526
diff changeset
2293 call setline(1, '')
d03221aa54f3 patch 8.2.1930: wrong input if removing shift results in special key code
Bram Moolenaar <Bram@vim.org>
parents: 22526
diff changeset
2294 call feedkeys("a\<C-K>" .. GetEscCodeCSI27("\t", '2') .. "\<Esc>", 'Lx!')
d03221aa54f3 patch 8.2.1930: wrong input if removing shift results in special key code
Bram Moolenaar <Bram@vim.org>
parents: 22526
diff changeset
2295 eval getline(1)->assert_equal('<S-Tab>')
d03221aa54f3 patch 8.2.1930: wrong input if removing shift results in special key code
Bram Moolenaar <Bram@vim.org>
parents: 22526
diff changeset
2296
d03221aa54f3 patch 8.2.1930: wrong input if removing shift results in special key code
Bram Moolenaar <Bram@vim.org>
parents: 22526
diff changeset
2297 call setline(1, '')
d03221aa54f3 patch 8.2.1930: wrong input if removing shift results in special key code
Bram Moolenaar <Bram@vim.org>
parents: 22526
diff changeset
2298 call feedkeys("a\<C-K>\<Esc>[Z\<Esc>", 'Lx!')
d03221aa54f3 patch 8.2.1930: wrong input if removing shift results in special key code
Bram Moolenaar <Bram@vim.org>
parents: 22526
diff changeset
2299 eval getline(1)->assert_equal('<S-Tab>')
d03221aa54f3 patch 8.2.1930: wrong input if removing shift results in special key code
Bram Moolenaar <Bram@vim.org>
parents: 22526
diff changeset
2300
d03221aa54f3 patch 8.2.1930: wrong input if removing shift results in special key code
Bram Moolenaar <Bram@vim.org>
parents: 22526
diff changeset
2301 set timeoutlen&
d03221aa54f3 patch 8.2.1930: wrong input if removing shift results in special key code
Bram Moolenaar <Bram@vim.org>
parents: 22526
diff changeset
2302 bwipe!
d03221aa54f3 patch 8.2.1930: wrong input if removing shift results in special key code
Bram Moolenaar <Bram@vim.org>
parents: 22526
diff changeset
2303 endfunc
d03221aa54f3 patch 8.2.1930: wrong input if removing shift results in special key code
Bram Moolenaar <Bram@vim.org>
parents: 22526
diff changeset
2304
18295
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18289
diff changeset
2305 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
2306 new
18301
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2307 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
2308
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18289
diff changeset
2309 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
2310 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
2311 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
2312 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
2313 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
2314 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
2315 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
2316 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
2317 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
2318
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18289
diff changeset
2319 bwipe!
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18289
diff changeset
2320 set timeoutlen&
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18289
diff changeset
2321 endfunc
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18289
diff changeset
2322
18301
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2323 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
2324 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
2325 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
2326 endfunc
18301
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2327
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2328 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
2329 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
2330 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
2331 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
2332 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
2333 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
2334 endfunc
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2335
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2336 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
2337 new
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2338 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
2339
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2340 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
2341 " 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
2342 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
2343 endif
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2344 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
2345 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
2346 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
2347 " 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
2348 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
2349 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
2350 endif
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2351 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
2352 " 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
2353 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
2354 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
2355 endif
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2356 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
2357 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
2358 " 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
2359 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
2360 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
2361 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
2362 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
2363 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
2364 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
2365 endif
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2366
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2367 bwipe!
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2368 set timeoutlen&
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2369 endfunc
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2370
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2371 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
2372 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
2373 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
2374 endfunc
18918
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents: 18717
diff changeset
2375
18301
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2376 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
2377 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
2378 call RunTest_mapping_works_with_mods(function('GetEscCodeCSIu'), 'C', 5)
22522
6c7e4db139a3 patch 8.2.1809: mapping some keys with Ctrl does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 22407
diff changeset
2379
6c7e4db139a3 patch 8.2.1809: mapping some keys with Ctrl does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 22407
diff changeset
2380 new
6c7e4db139a3 patch 8.2.1809: mapping some keys with Ctrl does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 22407
diff changeset
2381 set timeoutlen=10
6c7e4db139a3 patch 8.2.1809: mapping some keys with Ctrl does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 22407
diff changeset
2382
6c7e4db139a3 patch 8.2.1809: mapping some keys with Ctrl does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 22407
diff changeset
2383 " CTRL-@ actually produces the code for CTRL-2, which is converted
6c7e4db139a3 patch 8.2.1809: mapping some keys with Ctrl does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 22407
diff changeset
2384 call RunTest_mapping_mods('<C-@>', '2', function('GetEscCodeCSI27'), 5)
6c7e4db139a3 patch 8.2.1809: mapping some keys with Ctrl does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 22407
diff changeset
2385 call RunTest_mapping_mods('<C-@>', '2', function('GetEscCodeCSIu'), 5)
6c7e4db139a3 patch 8.2.1809: mapping some keys with Ctrl does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 22407
diff changeset
2386
6c7e4db139a3 patch 8.2.1809: mapping some keys with Ctrl does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 22407
diff changeset
2387 " CTRL-^ actually produces the code for CTRL-6, which is converted
6c7e4db139a3 patch 8.2.1809: mapping some keys with Ctrl does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 22407
diff changeset
2388 call RunTest_mapping_mods('<C-^>', '6', function('GetEscCodeCSI27'), 5)
6c7e4db139a3 patch 8.2.1809: mapping some keys with Ctrl does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 22407
diff changeset
2389 call RunTest_mapping_mods('<C-^>', '6', function('GetEscCodeCSIu'), 5)
6c7e4db139a3 patch 8.2.1809: mapping some keys with Ctrl does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 22407
diff changeset
2390
6c7e4db139a3 patch 8.2.1809: mapping some keys with Ctrl does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 22407
diff changeset
2391 " CTRL-_ actually produces the code for CTRL--, which is converted
6c7e4db139a3 patch 8.2.1809: mapping some keys with Ctrl does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 22407
diff changeset
2392 call RunTest_mapping_mods('<C-_>', '-', function('GetEscCodeCSI27'), 5)
6c7e4db139a3 patch 8.2.1809: mapping some keys with Ctrl does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 22407
diff changeset
2393 call RunTest_mapping_mods('<C-_>', '-', function('GetEscCodeCSIu'), 5)
6c7e4db139a3 patch 8.2.1809: mapping some keys with Ctrl does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 22407
diff changeset
2394
6c7e4db139a3 patch 8.2.1809: mapping some keys with Ctrl does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 22407
diff changeset
2395 bwipe!
6c7e4db139a3 patch 8.2.1809: mapping some keys with Ctrl does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 22407
diff changeset
2396 set timeoutlen&
18301
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2397 endfunc
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2398
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2399 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
2400 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
2401 call RunTest_mapping_works_with_mods(function('GetEscCodeCSIu'), 'C-S', 6)
22526
6325ef9143bc patch 8.2.1811: mapping Ctrl-key does not work for '{', '}' and '|'
Bram Moolenaar <Bram@vim.org>
parents: 22522
diff changeset
2402
6325ef9143bc patch 8.2.1811: mapping Ctrl-key does not work for '{', '}' and '|'
Bram Moolenaar <Bram@vim.org>
parents: 22522
diff changeset
2403 new
6325ef9143bc patch 8.2.1811: mapping Ctrl-key does not work for '{', '}' and '|'
Bram Moolenaar <Bram@vim.org>
parents: 22522
diff changeset
2404 set timeoutlen=10
6325ef9143bc patch 8.2.1811: mapping Ctrl-key does not work for '{', '}' and '|'
Bram Moolenaar <Bram@vim.org>
parents: 22522
diff changeset
2405
6325ef9143bc patch 8.2.1811: mapping Ctrl-key does not work for '{', '}' and '|'
Bram Moolenaar <Bram@vim.org>
parents: 22522
diff changeset
2406 " Ctrl-Shift-[ actually produces CTRL-Shift-{ which is mapped as <C-{>
6325ef9143bc patch 8.2.1811: mapping Ctrl-key does not work for '{', '}' and '|'
Bram Moolenaar <Bram@vim.org>
parents: 22522
diff changeset
2407 call RunTest_mapping_mods('<C-{>', '{', function('GetEscCodeCSI27'), 6)
6325ef9143bc patch 8.2.1811: mapping Ctrl-key does not work for '{', '}' and '|'
Bram Moolenaar <Bram@vim.org>
parents: 22522
diff changeset
2408 call RunTest_mapping_mods('<C-{>', '{', function('GetEscCodeCSIu'), 6)
6325ef9143bc patch 8.2.1811: mapping Ctrl-key does not work for '{', '}' and '|'
Bram Moolenaar <Bram@vim.org>
parents: 22522
diff changeset
2409
6325ef9143bc patch 8.2.1811: mapping Ctrl-key does not work for '{', '}' and '|'
Bram Moolenaar <Bram@vim.org>
parents: 22522
diff changeset
2410 " Ctrl-Shift-] actually produces CTRL-Shift-} which is mapped as <C-}>
6325ef9143bc patch 8.2.1811: mapping Ctrl-key does not work for '{', '}' and '|'
Bram Moolenaar <Bram@vim.org>
parents: 22522
diff changeset
2411 call RunTest_mapping_mods('<C-{>', '{', function('GetEscCodeCSI27'), 6)
6325ef9143bc patch 8.2.1811: mapping Ctrl-key does not work for '{', '}' and '|'
Bram Moolenaar <Bram@vim.org>
parents: 22522
diff changeset
2412 call RunTest_mapping_mods('<C-{>', '{', function('GetEscCodeCSIu'), 6)
6325ef9143bc patch 8.2.1811: mapping Ctrl-key does not work for '{', '}' and '|'
Bram Moolenaar <Bram@vim.org>
parents: 22522
diff changeset
2413
6325ef9143bc patch 8.2.1811: mapping Ctrl-key does not work for '{', '}' and '|'
Bram Moolenaar <Bram@vim.org>
parents: 22522
diff changeset
2414 " Ctrl-Shift-\ actually produces CTRL-Shift-| which is mapped as <C-|>
6325ef9143bc patch 8.2.1811: mapping Ctrl-key does not work for '{', '}' and '|'
Bram Moolenaar <Bram@vim.org>
parents: 22522
diff changeset
2415 call RunTest_mapping_mods('<C-\|>', '|', function('GetEscCodeCSI27'), 6)
6325ef9143bc patch 8.2.1811: mapping Ctrl-key does not work for '{', '}' and '|'
Bram Moolenaar <Bram@vim.org>
parents: 22522
diff changeset
2416 call RunTest_mapping_mods('<C-\|>', '|', function('GetEscCodeCSIu'), 6)
6325ef9143bc patch 8.2.1811: mapping Ctrl-key does not work for '{', '}' and '|'
Bram Moolenaar <Bram@vim.org>
parents: 22522
diff changeset
2417
6325ef9143bc patch 8.2.1811: mapping Ctrl-key does not work for '{', '}' and '|'
Bram Moolenaar <Bram@vim.org>
parents: 22522
diff changeset
2418 bwipe!
6325ef9143bc patch 8.2.1811: mapping Ctrl-key does not work for '{', '}' and '|'
Bram Moolenaar <Bram@vim.org>
parents: 22522
diff changeset
2419 set timeoutlen&
18301
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2420 endfunc
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2421
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2422 " 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
2423 " 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
2424
18301
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2425 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
2426 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
2427 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
2428 endfunc
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2429
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2430 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
2431 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
2432 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
2433 endfunc
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2434
22407
c19acd92ee83 patch 8.2.1752: GTK GUI: cannot map alt-? with <A-?>
Bram Moolenaar <Bram@vim.org>
parents: 21897
diff changeset
2435 func Test_mapping_works_with_alt_and_shift()
c19acd92ee83 patch 8.2.1752: GTK GUI: cannot map alt-? with <A-?>
Bram Moolenaar <Bram@vim.org>
parents: 21897
diff changeset
2436 new
c19acd92ee83 patch 8.2.1752: GTK GUI: cannot map alt-? with <A-?>
Bram Moolenaar <Bram@vim.org>
parents: 21897
diff changeset
2437 set timeoutlen=10
c19acd92ee83 patch 8.2.1752: GTK GUI: cannot map alt-? with <A-?>
Bram Moolenaar <Bram@vim.org>
parents: 21897
diff changeset
2438
c19acd92ee83 patch 8.2.1752: GTK GUI: cannot map alt-? with <A-?>
Bram Moolenaar <Bram@vim.org>
parents: 21897
diff changeset
2439 " mapping <A-?> works even though the code is A-S-?
c19acd92ee83 patch 8.2.1752: GTK GUI: cannot map alt-? with <A-?>
Bram Moolenaar <Bram@vim.org>
parents: 21897
diff changeset
2440 for c in ['!', '$', '+', ':', '?', '^', '~']
c19acd92ee83 patch 8.2.1752: GTK GUI: cannot map alt-? with <A-?>
Bram Moolenaar <Bram@vim.org>
parents: 21897
diff changeset
2441 call RunTest_mapping_mods('<A-' .. c .. '>', c, function('GetEscCodeCSI27'), 4)
c19acd92ee83 patch 8.2.1752: GTK GUI: cannot map alt-? with <A-?>
Bram Moolenaar <Bram@vim.org>
parents: 21897
diff changeset
2442 call RunTest_mapping_mods('<A-' .. c .. '>', c, function('GetEscCodeCSIu'), 4)
c19acd92ee83 patch 8.2.1752: GTK GUI: cannot map alt-? with <A-?>
Bram Moolenaar <Bram@vim.org>
parents: 21897
diff changeset
2443 endfor
c19acd92ee83 patch 8.2.1752: GTK GUI: cannot map alt-? with <A-?>
Bram Moolenaar <Bram@vim.org>
parents: 21897
diff changeset
2444
c19acd92ee83 patch 8.2.1752: GTK GUI: cannot map alt-? with <A-?>
Bram Moolenaar <Bram@vim.org>
parents: 21897
diff changeset
2445 bwipe!
c19acd92ee83 patch 8.2.1752: GTK GUI: cannot map alt-? with <A-?>
Bram Moolenaar <Bram@vim.org>
parents: 21897
diff changeset
2446 set timeoutlen&
c19acd92ee83 patch 8.2.1752: GTK GUI: cannot map alt-? with <A-?>
Bram Moolenaar <Bram@vim.org>
parents: 21897
diff changeset
2447 endfunc
c19acd92ee83 patch 8.2.1752: GTK GUI: cannot map alt-? with <A-?>
Bram Moolenaar <Bram@vim.org>
parents: 21897
diff changeset
2448
18301
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2449 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
2450 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
2451 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
2452 endfunc
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2453
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18295
diff changeset
2454 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
2455 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
2456 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
2457 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
2458
31279
7e51449ab768 patch 9.0.0973: Kitty keyboard protocol key with NumLock not decoded
Bram Moolenaar <Bram@vim.org>
parents: 31245
diff changeset
2459 func Test_mapping_works_with_unknown_modifiers()
7e51449ab768 patch 9.0.0973: Kitty keyboard protocol key with NumLock not decoded
Bram Moolenaar <Bram@vim.org>
parents: 31245
diff changeset
2460 new
7e51449ab768 patch 9.0.0973: Kitty keyboard protocol key with NumLock not decoded
Bram Moolenaar <Bram@vim.org>
parents: 31245
diff changeset
2461 set timeoutlen=10
7e51449ab768 patch 9.0.0973: Kitty keyboard protocol key with NumLock not decoded
Bram Moolenaar <Bram@vim.org>
parents: 31245
diff changeset
2462
7e51449ab768 patch 9.0.0973: Kitty keyboard protocol key with NumLock not decoded
Bram Moolenaar <Bram@vim.org>
parents: 31245
diff changeset
2463 for Func in [function('GetEscCodeCSI27'), function('GetEscCodeCSIu')]
7e51449ab768 patch 9.0.0973: Kitty keyboard protocol key with NumLock not decoded
Bram Moolenaar <Bram@vim.org>
parents: 31245
diff changeset
2464 call RunTest_mapping_mods('<C-z>', 'z', Func, 5)
7e51449ab768 patch 9.0.0973: Kitty keyboard protocol key with NumLock not decoded
Bram Moolenaar <Bram@vim.org>
parents: 31245
diff changeset
2465 " Add 16, 32, 64 or 128 for modifiers we currently don't support.
7e51449ab768 patch 9.0.0973: Kitty keyboard protocol key with NumLock not decoded
Bram Moolenaar <Bram@vim.org>
parents: 31245
diff changeset
2466 call RunTest_mapping_mods('<C-z>', 'z', Func, 5 + 16)
7e51449ab768 patch 9.0.0973: Kitty keyboard protocol key with NumLock not decoded
Bram Moolenaar <Bram@vim.org>
parents: 31245
diff changeset
2467 call RunTest_mapping_mods('<C-z>', 'z', Func, 5 + 32)
7e51449ab768 patch 9.0.0973: Kitty keyboard protocol key with NumLock not decoded
Bram Moolenaar <Bram@vim.org>
parents: 31245
diff changeset
2468 call RunTest_mapping_mods('<C-z>', 'z', Func, 5 + 64)
7e51449ab768 patch 9.0.0973: Kitty keyboard protocol key with NumLock not decoded
Bram Moolenaar <Bram@vim.org>
parents: 31245
diff changeset
2469 call RunTest_mapping_mods('<C-z>', 'z', Func, 5 + 128)
7e51449ab768 patch 9.0.0973: Kitty keyboard protocol key with NumLock not decoded
Bram Moolenaar <Bram@vim.org>
parents: 31245
diff changeset
2470
7e51449ab768 patch 9.0.0973: Kitty keyboard protocol key with NumLock not decoded
Bram Moolenaar <Bram@vim.org>
parents: 31245
diff changeset
2471 call RunTest_mapping_mods('<S-X>', 'X', Func, 2)
7e51449ab768 patch 9.0.0973: Kitty keyboard protocol key with NumLock not decoded
Bram Moolenaar <Bram@vim.org>
parents: 31245
diff changeset
2472 " Add 16, 32, 64 or 128 for modifiers we currently don't support.
7e51449ab768 patch 9.0.0973: Kitty keyboard protocol key with NumLock not decoded
Bram Moolenaar <Bram@vim.org>
parents: 31245
diff changeset
2473 call RunTest_mapping_mods('<S-X>', 'X', Func, 2 + 16)
7e51449ab768 patch 9.0.0973: Kitty keyboard protocol key with NumLock not decoded
Bram Moolenaar <Bram@vim.org>
parents: 31245
diff changeset
2474 call RunTest_mapping_mods('<S-X>', 'X', Func, 2 + 32)
7e51449ab768 patch 9.0.0973: Kitty keyboard protocol key with NumLock not decoded
Bram Moolenaar <Bram@vim.org>
parents: 31245
diff changeset
2475 call RunTest_mapping_mods('<S-X>', 'X', Func, 2 + 64)
7e51449ab768 patch 9.0.0973: Kitty keyboard protocol key with NumLock not decoded
Bram Moolenaar <Bram@vim.org>
parents: 31245
diff changeset
2476 call RunTest_mapping_mods('<S-X>', 'X', Func, 2 + 128)
7e51449ab768 patch 9.0.0973: Kitty keyboard protocol key with NumLock not decoded
Bram Moolenaar <Bram@vim.org>
parents: 31245
diff changeset
2477 endfor
7e51449ab768 patch 9.0.0973: Kitty keyboard protocol key with NumLock not decoded
Bram Moolenaar <Bram@vim.org>
parents: 31245
diff changeset
2478
7e51449ab768 patch 9.0.0973: Kitty keyboard protocol key with NumLock not decoded
Bram Moolenaar <Bram@vim.org>
parents: 31245
diff changeset
2479 bwipe!
7e51449ab768 patch 9.0.0973: Kitty keyboard protocol key with NumLock not decoded
Bram Moolenaar <Bram@vim.org>
parents: 31245
diff changeset
2480 set timeoutlen&
7e51449ab768 patch 9.0.0973: Kitty keyboard protocol key with NumLock not decoded
Bram Moolenaar <Bram@vim.org>
parents: 31245
diff changeset
2481 endfunc
7e51449ab768 patch 9.0.0973: Kitty keyboard protocol key with NumLock not decoded
Bram Moolenaar <Bram@vim.org>
parents: 31245
diff changeset
2482
31303
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2483 func RunTest_mapping_funckey(map, func, key, code)
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2484 call setline(1, '')
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2485 exe 'inoremap ' .. a:map .. ' xyz'
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2486 call feedkeys('a' .. a:func(a:key, a:code) .. "\<Esc>", 'Lx!')
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2487 call assert_equal("xyz", getline(1), 'mapping ' .. a:map)
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2488 exe 'iunmap ' .. a:map
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2489 endfunc
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2490
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2491 func Test_mapping_kitty_function_keys()
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2492 new
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2493 set timeoutlen=10
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2494
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2495 " Function keys made with CSI and ending in [ABCDEFHPQRS].
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2496 " 'E' is keypad BEGIN, not supported
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2497 let maps = [
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2498 \ ['<Up>', 'A', 0],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2499 \ ['<S-Up>', 'A', 2],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2500 \ ['<C-Up>', 'A', 5],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2501 \ ['<C-S-Up>', 'A', 6],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2502 \
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2503 \ ['<Down>', 'B', 0],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2504 \ ['<S-Down>', 'B', 2],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2505 \ ['<C-Down>', 'B', 5],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2506 \ ['<C-S-Down>', 'B', 6],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2507 \
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2508 \ ['<Right>', 'C', 0],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2509 \ ['<S-Right>', 'C', 2],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2510 \ ['<C-Right>', 'C', 5],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2511 \ ['<C-S-Right>', 'C', 6],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2512 \
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2513 \ ['<Left>', 'D', 0],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2514 \ ['<S-Left>', 'D', 2],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2515 \ ['<C-Left>', 'D', 5],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2516 \ ['<C-S-Left>', 'D', 6],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2517 \
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2518 \ ['<End>', 'F', 0],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2519 \ ['<S-End>', 'F', 2],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2520 \ ['<C-End>', 'F', 5],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2521 \ ['<C-S-End>', 'F', 6],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2522 \
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2523 \ ['<Home>', 'H', 0],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2524 \ ['<S-Home>', 'H', 2],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2525 \ ['<C-Home>', 'H', 5],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2526 \ ['<C-S-Home>', 'H', 6],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2527 \
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2528 \ ['<F1>', 'P', 0],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2529 \ ['<S-F1>', 'P', 2],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2530 \ ['<C-F1>', 'P', 5],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2531 \ ['<C-S-F1>', 'P', 6],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2532 \
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2533 \ ['<F2>', 'Q', 0],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2534 \ ['<S-F2>', 'Q', 2],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2535 \ ['<C-F2>', 'Q', 5],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2536 \ ['<C-S-F2>', 'Q', 6],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2537 \
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2538 \ ['<F3>', 'R', 0],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2539 \ ['<S-F3>', 'R', 2],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2540 \ ['<C-F3>', 'R', 5],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2541 \ ['<C-S-F3>', 'R', 6],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2542 \
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2543 \ ['<F4>', 'S', 0],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2544 \ ['<S-F4>', 'S', 2],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2545 \ ['<C-F4>', 'S', 5],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2546 \ ['<C-S-F4>', 'S', 6],
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2547 \ ]
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2548
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2549 for map in maps
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2550 call RunTest_mapping_funckey(map[0], function('GetEscCodeFunckey'), map[1], map[2])
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2551 endfor
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2552
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2553 bwipe!
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2554 set timeoutlen&
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2555 endfunc
d2107f7b2155 patch 9.0.0985: when using kitty keyboard protocol function keys may not work
Bram Moolenaar <Bram@vim.org>
parents: 31279
diff changeset
2556
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
2557 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
2558 set timeoutlen=10
31241
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
2559
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
2560 call WaitForResponses()
ee50174810ac patch 9.0.0954: cannot detect whether modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 31213
diff changeset
2561
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
2562 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
2563 " 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
2564 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
2565 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
2566
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18709
diff changeset
2567 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
2568 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
2569 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
2570
18918
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents: 18717
diff changeset
2571 " 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
2572 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
2573 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
2574 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
2575
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18709
diff changeset
2576 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
2577 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
2578 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
2579
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18709
diff changeset
2580 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
2581 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
2582 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
2583
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18709
diff changeset
2584 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
2585 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
2586
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18709
diff changeset
2587 " 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
2588 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
2589 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
2590
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18709
diff changeset
2591 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
2592 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
2593
18918
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested
Bram Moolenaar <Bram@vim.org>
parents: 18717
diff changeset
2594 " 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
2595 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
2596 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
2597
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18709
diff changeset
2598 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
2599 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
2600 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
2601
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys
Bram Moolenaar <Bram@vim.org>
parents: 18709
diff changeset
2602 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
2603 endfunc
19657
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
2604
28053
f615d89a5351 patch 8.2.4551: when mapping <Esc> terminal codes are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 27958
diff changeset
2605 func Test_mapping_esc()
f615d89a5351 patch 8.2.4551: when mapping <Esc> terminal codes are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 27958
diff changeset
2606 set timeoutlen=10
f615d89a5351 patch 8.2.4551: when mapping <Esc> terminal codes are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 27958
diff changeset
2607
f615d89a5351 patch 8.2.4551: when mapping <Esc> terminal codes are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 27958
diff changeset
2608 new
f615d89a5351 patch 8.2.4551: when mapping <Esc> terminal codes are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 27958
diff changeset
2609 nnoremap <Up> iHello<Esc>
f615d89a5351 patch 8.2.4551: when mapping <Esc> terminal codes are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 27958
diff changeset
2610 nnoremap <Esc> <Nop>
f615d89a5351 patch 8.2.4551: when mapping <Esc> terminal codes are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 27958
diff changeset
2611
f615d89a5351 patch 8.2.4551: when mapping <Esc> terminal codes are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 27958
diff changeset
2612 call feedkeys(substitute(&t_ku, '\*', '', 'g'), 'Lx!')
f615d89a5351 patch 8.2.4551: when mapping <Esc> terminal codes are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 27958
diff changeset
2613 call assert_equal("Hello", getline(1))
f615d89a5351 patch 8.2.4551: when mapping <Esc> terminal codes are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 27958
diff changeset
2614
f615d89a5351 patch 8.2.4551: when mapping <Esc> terminal codes are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 27958
diff changeset
2615 bwipe!
f615d89a5351 patch 8.2.4551: when mapping <Esc> terminal codes are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 27958
diff changeset
2616 nunmap <Up>
f615d89a5351 patch 8.2.4551: when mapping <Esc> terminal codes are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 27958
diff changeset
2617 nunmap <Esc>
f615d89a5351 patch 8.2.4551: when mapping <Esc> terminal codes are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 27958
diff changeset
2618 set timeoutlen&
f615d89a5351 patch 8.2.4551: when mapping <Esc> terminal codes are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 27958
diff changeset
2619 endfunc
f615d89a5351 patch 8.2.4551: when mapping <Esc> terminal codes are not recognized
Bram Moolenaar <Bram@vim.org>
parents: 27958
diff changeset
2620
20313
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 19752
diff changeset
2621 " Test for translation of special key codes (<xF1>, <xF2>, etc.)
23774
646ca2893d85 patch 8.2.2428: FocusGained does not work when 'ttymouse' is empty
Bram Moolenaar <Bram@vim.org>
parents: 23748
diff changeset
2622 func Test_Keycode_Translation()
20313
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 19752
diff changeset
2623 let keycodes = [
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 19752
diff changeset
2624 \ ["<xUp>", "<Up>"],
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 19752
diff changeset
2625 \ ["<xDown>", "<Down>"],
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 19752
diff changeset
2626 \ ["<xLeft>", "<Left>"],
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 19752
diff changeset
2627 \ ["<xRight>", "<Right>"],
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 19752
diff changeset
2628 \ ["<xHome>", "<Home>"],
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 19752
diff changeset
2629 \ ["<xEnd>", "<End>"],
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 19752
diff changeset
2630 \ ["<zHome>", "<Home>"],
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 19752
diff changeset
2631 \ ["<zEnd>", "<End>"],
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 19752
diff changeset
2632 \ ["<xF1>", "<F1>"],
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 19752
diff changeset
2633 \ ["<xF2>", "<F2>"],
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 19752
diff changeset
2634 \ ["<xF3>", "<F3>"],
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 19752
diff changeset
2635 \ ["<xF4>", "<F4>"],
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 19752
diff changeset
2636 \ ["<S-xF1>", "<S-F1>"],
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 19752
diff changeset
2637 \ ["<S-xF2>", "<S-F2>"],
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 19752
diff changeset
2638 \ ["<S-xF3>", "<S-F3>"],
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 19752
diff changeset
2639 \ ["<S-xF4>", "<S-F4>"]]
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 19752
diff changeset
2640 for [k1, k2] in keycodes
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 19752
diff changeset
2641 exe "nnoremap " .. k1 .. " 2wx"
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 19752
diff changeset
2642 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
2643 exe "nunmap " .. k1
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 19752
diff changeset
2644 endfor
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 19752
diff changeset
2645 endfunc
244eb8d8d100 patch 8.2.0712: various code not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 19752
diff changeset
2646
24204
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2647 " Test for terminal keycodes that doesn't have termcap entries
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2648 func Test_special_term_keycodes()
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2649 new
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2650 " Test for <xHome>, <S-xHome> and <C-xHome>
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2651 " send <K_SPECIAL> <KS_EXTRA> keycode
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2652 call feedkeys("i\<C-K>\x80\xfd\x3f\n", 'xt')
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2653 " send <K_SPECIAL> <KS_MODIFIER> bitmap <K_SPECIAL> <KS_EXTRA> keycode
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2654 call feedkeys("i\<C-K>\x80\xfc\x2\x80\xfd\x3f\n", 'xt')
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2655 call feedkeys("i\<C-K>\x80\xfc\x4\x80\xfd\x3f\n", 'xt')
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2656 " Test for <xEnd>, <S-xEnd> and <C-xEnd>
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2657 call feedkeys("i\<C-K>\x80\xfd\x3d\n", 'xt')
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2658 call feedkeys("i\<C-K>\x80\xfc\x2\x80\xfd\x3d\n", 'xt')
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2659 call feedkeys("i\<C-K>\x80\xfc\x4\x80\xfd\x3d\n", 'xt')
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2660 " Test for <zHome>, <S-zHome> and <C-zHome>
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2661 call feedkeys("i\<C-K>\x80\xfd\x40\n", 'xt')
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2662 call feedkeys("i\<C-K>\x80\xfc\x2\x80\xfd\x40\n", 'xt')
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2663 call feedkeys("i\<C-K>\x80\xfc\x4\x80\xfd\x40\n", 'xt')
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2664 " Test for <zEnd>, <S-zEnd> and <C-zEnd>
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2665 call feedkeys("i\<C-K>\x80\xfd\x3e\n", 'xt')
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2666 call feedkeys("i\<C-K>\x80\xfc\x2\x80\xfd\x3e\n", 'xt')
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2667 call feedkeys("i\<C-K>\x80\xfc\x4\x80\xfd\x3e\n", 'xt')
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2668 " Test for <xUp>, <xDown>, <xLeft> and <xRight>
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2669 call feedkeys("i\<C-K>\x80\xfd\x41\n", 'xt')
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2670 call feedkeys("i\<C-K>\x80\xfd\x42\n", 'xt')
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2671 call feedkeys("i\<C-K>\x80\xfd\x43\n", 'xt')
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2672 call feedkeys("i\<C-K>\x80\xfd\x44\n", 'xt')
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2673 call assert_equal(['<Home>', '<S-Home>', '<C-Home>',
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2674 \ '<End>', '<S-End>', '<C-End>',
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2675 \ '<Home>', '<S-Home>', '<C-Home>',
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2676 \ '<End>', '<S-End>', '<C-End>',
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2677 \ '<Up>', '<Down>', '<Left>', '<Right>', ''], getline(1, '$'))
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2678 bw!
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2679 endfunc
ec71c859e94c patch 8.2.2643: various code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 23774
diff changeset
2680
31111
f1cb6b4dbf72 patch 9.0.0890: no test for what patch 9.0.0827 fixes
Bram Moolenaar <Bram@vim.org>
parents: 30986
diff changeset
2681 func Test_home_key_works()
f1cb6b4dbf72 patch 9.0.0890: no test for what patch 9.0.0827 fixes
Bram Moolenaar <Bram@vim.org>
parents: 30986
diff changeset
2682 " The '@' character in K_HOME must only match "1" when followed by ";",
f1cb6b4dbf72 patch 9.0.0890: no test for what patch 9.0.0827 fixes
Bram Moolenaar <Bram@vim.org>
parents: 30986
diff changeset
2683 " otherwise this code for Home is not recognized: "<Esc>[1~"
31123
c74358443098 patch 9.0.0896: test for home key fails when 'term' is "tmux"
Bram Moolenaar <Bram@vim.org>
parents: 31111
diff changeset
2684 " Set termcap values like "xterm" uses them. Except using F2 for xHome,
c74358443098 patch 9.0.0896: test for home key fails when 'term' is "tmux"
Bram Moolenaar <Bram@vim.org>
parents: 31111
diff changeset
2685 " because that termcap entry can't be set here.
c74358443098 patch 9.0.0896: test for home key fails when 'term' is "tmux"
Bram Moolenaar <Bram@vim.org>
parents: 31111
diff changeset
2686 let save_K1 = exists('&t_K1') ? &t_K1 : ''
c74358443098 patch 9.0.0896: test for home key fails when 'term' is "tmux"
Bram Moolenaar <Bram@vim.org>
parents: 31111
diff changeset
2687 let save_kh = exists('&t_kh') ? &t_kh : ''
c74358443098 patch 9.0.0896: test for home key fails when 'term' is "tmux"
Bram Moolenaar <Bram@vim.org>
parents: 31111
diff changeset
2688 let save_k2 = exists('&t_k2') ? &t_k2 : ''
c74358443098 patch 9.0.0896: test for home key fails when 'term' is "tmux"
Bram Moolenaar <Bram@vim.org>
parents: 31111
diff changeset
2689 let save_k3 = exists('&t_k3') ? &t_k3 : ''
c74358443098 patch 9.0.0896: test for home key fails when 'term' is "tmux"
Bram Moolenaar <Bram@vim.org>
parents: 31111
diff changeset
2690 let save_end = exists('&t_@7') ? &t_@7 : ''
c74358443098 patch 9.0.0896: test for home key fails when 'term' is "tmux"
Bram Moolenaar <Bram@vim.org>
parents: 31111
diff changeset
2691
31111
f1cb6b4dbf72 patch 9.0.0890: no test for what patch 9.0.0827 fixes
Bram Moolenaar <Bram@vim.org>
parents: 30986
diff changeset
2692 let &t_K1 = "\<Esc>[1;*~" " <kHome>
f1cb6b4dbf72 patch 9.0.0890: no test for what patch 9.0.0827 fixes
Bram Moolenaar <Bram@vim.org>
parents: 30986
diff changeset
2693 let &t_kh = "\<Esc>[@;*H" " <Home>
31123
c74358443098 patch 9.0.0896: test for home key fails when 'term' is "tmux"
Bram Moolenaar <Bram@vim.org>
parents: 31111
diff changeset
2694 let &t_k2 = "\<Esc>O*H" " use <F2> for <xHome>
31111
f1cb6b4dbf72 patch 9.0.0890: no test for what patch 9.0.0827 fixes
Bram Moolenaar <Bram@vim.org>
parents: 30986
diff changeset
2695 let &t_k3 = "\<Esc>[7;*~" " use <F3> for <zHome>
f1cb6b4dbf72 patch 9.0.0890: no test for what patch 9.0.0827 fixes
Bram Moolenaar <Bram@vim.org>
parents: 30986
diff changeset
2696 let &t_@7 = "\<Esc>[@;*F" " <End>
f1cb6b4dbf72 patch 9.0.0890: no test for what patch 9.0.0827 fixes
Bram Moolenaar <Bram@vim.org>
parents: 30986
diff changeset
2697
f1cb6b4dbf72 patch 9.0.0890: no test for what patch 9.0.0827 fixes
Bram Moolenaar <Bram@vim.org>
parents: 30986
diff changeset
2698 new
f1cb6b4dbf72 patch 9.0.0890: no test for what patch 9.0.0827 fixes
Bram Moolenaar <Bram@vim.org>
parents: 30986
diff changeset
2699 call feedkeys("i\<C-K>\<Esc>OH\n\<Esc>", 'tx')
f1cb6b4dbf72 patch 9.0.0890: no test for what patch 9.0.0827 fixes
Bram Moolenaar <Bram@vim.org>
parents: 30986
diff changeset
2700 call feedkeys("i\<C-K>\<Esc>[1~\n\<Esc>", 'tx')
f1cb6b4dbf72 patch 9.0.0890: no test for what patch 9.0.0827 fixes
Bram Moolenaar <Bram@vim.org>
parents: 30986
diff changeset
2701 call assert_equal([
31123
c74358443098 patch 9.0.0896: test for home key fails when 'term' is "tmux"
Bram Moolenaar <Bram@vim.org>
parents: 31111
diff changeset
2702 \ '<F2>',
31111
f1cb6b4dbf72 patch 9.0.0890: no test for what patch 9.0.0827 fixes
Bram Moolenaar <Bram@vim.org>
parents: 30986
diff changeset
2703 \ '<kHome>',
f1cb6b4dbf72 patch 9.0.0890: no test for what patch 9.0.0827 fixes
Bram Moolenaar <Bram@vim.org>
parents: 30986
diff changeset
2704 \ ''], getline(1, '$'))
f1cb6b4dbf72 patch 9.0.0890: no test for what patch 9.0.0827 fixes
Bram Moolenaar <Bram@vim.org>
parents: 30986
diff changeset
2705
f1cb6b4dbf72 patch 9.0.0890: no test for what patch 9.0.0827 fixes
Bram Moolenaar <Bram@vim.org>
parents: 30986
diff changeset
2706 bwipe!
31123
c74358443098 patch 9.0.0896: test for home key fails when 'term' is "tmux"
Bram Moolenaar <Bram@vim.org>
parents: 31111
diff changeset
2707 let &t_K1 = save_K1
31111
f1cb6b4dbf72 patch 9.0.0890: no test for what patch 9.0.0827 fixes
Bram Moolenaar <Bram@vim.org>
parents: 30986
diff changeset
2708 let &t_kh = save_kh
f1cb6b4dbf72 patch 9.0.0890: no test for what patch 9.0.0827 fixes
Bram Moolenaar <Bram@vim.org>
parents: 30986
diff changeset
2709 let &t_k2 = save_k2
f1cb6b4dbf72 patch 9.0.0890: no test for what patch 9.0.0827 fixes
Bram Moolenaar <Bram@vim.org>
parents: 30986
diff changeset
2710 let &t_k3 = save_k3
f1cb6b4dbf72 patch 9.0.0890: no test for what patch 9.0.0827 fixes
Bram Moolenaar <Bram@vim.org>
parents: 30986
diff changeset
2711 let &t_@7 = save_end
f1cb6b4dbf72 patch 9.0.0890: no test for what patch 9.0.0827 fixes
Bram Moolenaar <Bram@vim.org>
parents: 30986
diff changeset
2712 endfunc
f1cb6b4dbf72 patch 9.0.0890: no test for what patch 9.0.0827 fixes
Bram Moolenaar <Bram@vim.org>
parents: 30986
diff changeset
2713
25429
2aefea114696 patch 8.2.3251: listing builtin_gui as an available terminal is confusing
Bram Moolenaar <Bram@vim.org>
parents: 24204
diff changeset
2714 func Test_terminal_builtin_without_gui()
2aefea114696 patch 8.2.3251: listing builtin_gui as an available terminal is confusing
Bram Moolenaar <Bram@vim.org>
parents: 24204
diff changeset
2715 CheckNotMSWindows
2aefea114696 patch 8.2.3251: listing builtin_gui as an available terminal is confusing
Bram Moolenaar <Bram@vim.org>
parents: 24204
diff changeset
2716
2aefea114696 patch 8.2.3251: listing builtin_gui as an available terminal is confusing
Bram Moolenaar <Bram@vim.org>
parents: 24204
diff changeset
2717 " builtin_gui should not be output by :set term=xxx
2aefea114696 patch 8.2.3251: listing builtin_gui as an available terminal is confusing
Bram Moolenaar <Bram@vim.org>
parents: 24204
diff changeset
2718 let output = systemlist("TERM=dumb " .. v:progpath .. " --clean -c ':set t_ti= t_te=' -c 'set term=xxx' -c ':q!'")
2aefea114696 patch 8.2.3251: listing builtin_gui as an available terminal is confusing
Bram Moolenaar <Bram@vim.org>
parents: 24204
diff changeset
2719 redraw!
2aefea114696 patch 8.2.3251: listing builtin_gui as an available terminal is confusing
Bram Moolenaar <Bram@vim.org>
parents: 24204
diff changeset
2720 call map(output, {_, val -> trim(val)})
2aefea114696 patch 8.2.3251: listing builtin_gui as an available terminal is confusing
Bram Moolenaar <Bram@vim.org>
parents: 24204
diff changeset
2721 call assert_equal(-1, index(output, 'builtin_gui'))
2aefea114696 patch 8.2.3251: listing builtin_gui as an available terminal is confusing
Bram Moolenaar <Bram@vim.org>
parents: 24204
diff changeset
2722 call assert_notequal(-1, index(output, 'builtin_dumb'))
2aefea114696 patch 8.2.3251: listing builtin_gui as an available terminal is confusing
Bram Moolenaar <Bram@vim.org>
parents: 24204
diff changeset
2723 endfunc
2aefea114696 patch 8.2.3251: listing builtin_gui as an available terminal is confusing
Bram Moolenaar <Bram@vim.org>
parents: 24204
diff changeset
2724
2aefea114696 patch 8.2.3251: listing builtin_gui as an available terminal is confusing
Bram Moolenaar <Bram@vim.org>
parents: 24204
diff changeset
2725
19657
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 18918
diff changeset
2726 " vim: shiftwidth=2 sts=2 expandtab