Mercurial > vim
view src/testdir/test_termcodes.vim @ 16271:243cdc183ec9 v8.1.1140
patch 8.1.1140: not easy to find out what neighbors a window has
commit https://github.com/vim/vim/commit/46ad288b9b2a6eb0430cf802ff5ce68a58629897
Author: Bram Moolenaar <Bram@vim.org>
Date: Mon Apr 8 20:01:47 2019 +0200
patch 8.1.1140: not easy to find out what neighbors a window has
Problem: Not easy to find out what neighbors a window has.
Solution: Add more arguments to winnr(). (Yegappan Lakshmanan, closes https://github.com/vim/vim/issues/3993)
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Mon, 08 Apr 2019 20:15:05 +0200 |
parents | 7feb5b90be5f |
children | ed5172ae1c32 |
line wrap: on
line source
" 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