Mercurial > vim
changeset 28784:faf3acb2509b v8.2.4916
patch 8.2.4916: mouse in Insert mode test fails
Commit: https://github.com/vim/vim/commit/8e8dc9b32326c6fbd37671b6072296404b481d4a
Author: Bram Moolenaar <Bram@vim.org>
Date: Sun May 8 20:38:06 2022 +0100
patch 8.2.4916: mouse in Insert mode test fails
Problem: Mouse in Insert mode test fails.
Solution: Fix the text and check relevant positions.
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Sun, 08 May 2022 21:45:04 +0200 |
parents | a41900b88895 |
children | cf6469422b92 |
files | src/testdir/test_edit.vim src/version.c |
diffstat | 2 files changed, 18 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/src/testdir/test_edit.vim +++ b/src/testdir/test_edit.vim @@ -1213,20 +1213,28 @@ func Test_edit_MOUSE() 10new call setline(1, range(1, 100)) call cursor(1, 1) + call assert_equal(1, line('w0')) + call assert_equal(10, line('w$')) set mouse=a + " One scroll event moves three lines. call feedkeys("A\<ScrollWheelDown>\<esc>", 'tnix') - call assert_equal([0, 4, 1, 0], getpos('.')) - " This should move by one pageDown, but only moves - " by one line when the test is run... + call assert_equal(4, line('w0')) + call assert_equal(13, line('w$')) + " This should move by one page down. call feedkeys("A\<S-ScrollWheelDown>\<esc>", 'tnix') - call assert_equal([0, 5, 1, 0], getpos('.')) + call assert_equal(14, line('w0')) set nostartofline + " Another page down. call feedkeys("A\<C-ScrollWheelDown>\<esc>", 'tnix') - call assert_equal([0, 6, 1, 0], getpos('.')) + call assert_equal(24, line('w0')) + + call assert_equal([0, 24, 2, 0], getpos('.')) + call test_setmouse(4, 3) call feedkeys("A\<LeftMouse>\<esc>", 'tnix') - call assert_equal([0, 6, 1, 0], getpos('.')) - call feedkeys("A\<RightMouse>\<esc>", 'tnix') - call assert_equal([0, 6, 1, 0], getpos('.')) + call assert_equal([0, 27, 2, 0], getpos('.')) + call test_setmouse(5, 3) + call feedkeys("A\<RightMouse>\<esc>\<esc>", 'tnix') + call assert_equal([0, 28, 2, 0], getpos('.')) call cursor(1, 100) norm! zt " this should move by a screen up, but when the test