1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
|
" Tests for decoding escape sequences sent by the terminal.
" This only works for Unix in a terminal
if has('gui_running') || !has('unix')
finish
endif
func Test_xterm_mouse_click()
new
let save_mouse = &mouse
let save_term = &term
let save_ttymouse = &ttymouse
set mouse=a
set term=xterm
call setline(1, ['line 1', 'line 2', 'line 3 is a bit longer'])
redraw
" Xterm mouse click
set ttymouse=xterm
let button = 0x20 " left down
let row = 2 + 32
let col = 6 + 32
call feedkeys("\<Esc>[M" .. list2str([button, col, row]), 'Lx!')
let button = 0x23 " release
call feedkeys("\<Esc>[M" .. list2str([button, col, row]), 'Lx!')
call assert_equal([0, 2, 6, 0], getpos('.'))
" SGR mouse click
set ttymouse=sgr
let button = 0 " left down
let row = 3
let col = 9
call feedkeys(printf("\<Esc>[<%d;%d;%dM", button, col, row), 'Lx!')
let button = 3 " release
call feedkeys(printf("\<Esc>[<%d;%d;%dm", button, col, row), 'Lx!')
call assert_equal([0, 3, 9, 0], getpos('.'))
let &mouse = save_mouse
let &term = save_term
let &ttymouse = save_ttymouse
bwipe!
endfunc
func Test_xterm_mouse_wheel()
new
let save_mouse = &mouse
let save_term = &term
let save_ttymouse = &ttymouse
set mouse=a
set term=xterm
call setline(1, range(1, 100))
" Test Xterm mouse wheel.
set ttymouse=xterm
let button = 0x41 " wheel down.
let row = 1 + 32 " cursor position for mouse wheel is not relevant.
let col = 1 + 32
call assert_equal(1, line('w0'))
call assert_equal([0, 1, 1, 0], getpos('.'))
call feedkeys("\<Esc>[M" .. list2str([button, col, row]), 'Lx!')
call assert_equal(4, line('w0'))
call assert_equal([0, 4, 1, 0], getpos('.'))
call feedkeys("\<Esc>[M" .. list2str([button, col, row]), 'Lx!')
call assert_equal(7, line('w0'))
call assert_equal([0, 7, 1, 0], getpos('.'))
let button = 0x40 " wheel up.
call feedkeys("\<Esc>[M" .. list2str([button, col, row]), 'Lx!')
call assert_equal(4, line('w0'))
call assert_equal([0, 7, 1, 0], getpos('.'))
call feedkeys("\<Esc>[M" .. list2str([button, col, row]), 'Lx!')
call assert_equal(1, line('w0'))
call assert_equal([0, 7, 1, 0], getpos('.'))
" Test SGR mouse wheel.
set ttymouse=sgr
go
let button = 0x41 " wheel down.
let row = 1 " cursor position for mouse wheel is not relevant.
let col = 1
call assert_equal(1, line('w0'))
call assert_equal([0, 1, 1, 0], getpos('.'))
call feedkeys(printf("\<Esc>[<%d;%d;%dM", button, col, row), 'Lx!')
call assert_equal(4, line('w0'))
call assert_equal([0, 4, 1, 0], getpos('.'))
call feedkeys(printf("\<Esc>[<%d;%d;%dM", button, col, row), 'Lx!')
call assert_equal(7, line('w0'))
call assert_equal([0, 7, 1, 0], getpos('.'))
let button = 0x40 " wheel up.
call feedkeys(printf("\<Esc>[<%d;%d;%dM", button, col, row), 'Lx!')
call assert_equal(4, line('w0'))
call assert_equal([0, 7, 1, 0], getpos('.'))
call feedkeys(printf("\<Esc>[<%d;%d;%dM", button, col, row), 'Lx!')
call assert_equal(1, line('w0'))
call assert_equal([0, 7, 1, 0], getpos('.'))
call feedkeys(printf("\<Esc>[<%d;%d;%dM", button, col, row), 'Lx!')
call assert_equal(1, line('w0'))
call assert_equal([0, 7, 1, 0], getpos('.'))
let &mouse = save_mouse
let &term = save_term
let &ttymouse = save_ttymouse
bwipe!
endfunc
func Test_xterm_mouse_drag_window_separator()
let save_mouse = &mouse
let save_term = &term
let save_ttymouse = &ttymouse
set mouse=a
set term=xterm
set ttymouse=sgr
" Split horizontally and test dragging the horizontal window separator.
split
let rowseparator = winheight(0) + 1
let button = 0 " left down.
let row = rowseparator
let col = 1
call feedkeys(printf("\<Esc>[<%d;%d;%dM", button, col, row), 'Lx!')
let drag = 32
let row -= 1
call feedkeys(printf("\<Esc>[<%d;%d;%dM", drag, col, row), 'Lx!')
call assert_equal(rowseparator - 1, winheight(0) + 1)
let row += 1
call feedkeys(printf("\<Esc>[<%d;%d;%dM", drag, col, row), 'Lx!')
call assert_equal(rowseparator, winheight(0) + 1)
let release = 3
call feedkeys(printf("\<Esc>[<%d;%d;%dm", release, col, row), 'Lx!')
call assert_equal(rowseparator, winheight(0) + 1)
bwipe!
" Split vertically and test dragging the vertical window separator.
vsplit
let colseparator = winwidth(0) + 1
let button = 0
let row = 1
let col = colseparator
call feedkeys(printf("\<Esc>[<%d;%d;%dM", button, col, row), 'Lx!')
let drag = 32
let col -= 1
call feedkeys(printf("\<Esc>[<%d;%d;%dM", drag, col, row), 'Lx!')
call assert_equal(colseparator - 1, winwidth(0) + 1)
let col += 1
call feedkeys(printf("\<Esc>[<%d;%d;%dM", drag, col, row), 'Lx!')
call assert_equal(colseparator, winwidth(0) + 1)
let release = 3
call feedkeys(printf("\<Esc>[<%d;%d;%dm", release, col, row), 'Lx!')
call assert_equal(colseparator, winwidth(0) + 1)
bwipe!
let &mouse = save_mouse
let &term = save_term
let &ttymouse = save_ttymouse
endfunc
|