patch 9.0.1084: code handling low level MS-Windows events cannot be tested
Problem: Code handling low level MS-Windows events cannot be tested.
Solution: Add test_mswin_event() and tests using it. (Christopher Plewright,
closes #11622)
diff --git a/src/testdir/test_termcodes.vim b/src/testdir/test_termcodes.vim
index dd5280f..d3ab99c 100644
--- a/src/testdir/test_termcodes.vim
+++ b/src/testdir/test_termcodes.vim
@@ -437,25 +437,22 @@
call assert_equal(1, line('w0'), msg)
call assert_equal([0, 7, 1, 0], getpos('.'), msg)
- if has('gui')
- " Horizontal wheel scrolling currently only works when vim is
- " compiled with gui enabled.
- call MouseWheelRight(1, 1)
- call assert_equal(7, 1 + virtcol(".") - wincol(), msg)
- call assert_equal([0, 7, 7, 0], getpos('.'), msg)
+ call MouseWheelRight(1, 1)
+ call assert_equal(7, 1 + virtcol(".") - wincol(), msg)
+ call assert_equal([0, 7, 7, 0], getpos('.'), msg)
- call MouseWheelRight(1, 1)
- call assert_equal(13, 1 + virtcol(".") - wincol(), msg)
- call assert_equal([0, 7, 13, 0], getpos('.'), msg)
+ call MouseWheelRight(1, 1)
+ call assert_equal(13, 1 + virtcol(".") - wincol(), msg)
+ call assert_equal([0, 7, 13, 0], getpos('.'), msg)
- call MouseWheelLeft(1, 1)
- call assert_equal(7, 1 + virtcol(".") - wincol(), msg)
- call assert_equal([0, 7, 13, 0], getpos('.'), msg)
+ call MouseWheelLeft(1, 1)
+ call assert_equal(7, 1 + virtcol(".") - wincol(), msg)
+ call assert_equal([0, 7, 13, 0], getpos('.'), msg)
- call MouseWheelLeft(1, 1)
- call assert_equal(1, 1 + virtcol(".") - wincol(), msg)
- call assert_equal([0, 7, 13, 0], getpos('.'), msg)
- endif
+ call MouseWheelLeft(1, 1)
+ call assert_equal(1, 1 + virtcol(".") - wincol(), msg)
+ call assert_equal([0, 7, 13, 0], getpos('.'), msg)
+
endfor
let &mouse = save_mouse