aniani/vim
0
0
Fork 1
mirror of https://github.com/vim/vim.git synced 2025-07-04 23:07:33 -04:00
Code

patch 8.1.1137: xterm mouse wheel escape sequence is not tested

Browse Source 
Problem:    Xterm mouse wheel escape sequence is not tested.
Solution:   Add a test using low-level input. (Dominique Pelle, closes #4221)
This commit is contained in:
Bram Moolenaar 2019-04-07 21:55:07 +02:00
parent 905dd905de
commit 049736fa8a
2 changed files with 68 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
src/testdir/test_termcodes.vim
View File

@ -45,3 +45,69 @@ func Test_xterm_mouse_click()
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

2
src/version.c
View File

@ -771,6 +771,8 @@ static char *(features[]) =
static int included_patches[] =
{ /* Add new patch number below this line */
/**/
1137,
/**/
1136,
/**/