vim: src/testdir/test_termcodes.vim annotate

annotate src/testdir/test_termcodes.vim @ 19657:da791e5c0139 v8.2.0385

patch 8.2.0385: menu functionality insufficiently tested Commit: https://github.com/vim/vim/commit/0eabd4dc8ff50658f0ea0e92c7918a42242f6b80 Author: Bram Moolenaar <Bram@vim.org> Date: Sun Mar 15 16:13:53 2020 +0100 patch 8.2.0385: menu functionality insufficiently tested Problem: Menu functionality insufficiently tested. Solution: Add tests. Add menu_info(). (Yegappan Lakshmanan, closes https://github.com/vim/vim/issues/5760)

author	Bram Moolenaar <Bram@vim.org>
date	Sun, 15 Mar 2020 16:15:04 +0100
parents	5c256866b837
children	0208534b8a84

rev	line source
16263 d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	1 " Tests for decoding escape sequences sent by the terminal.
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	2
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	3 " This only works for Unix in a terminal
17657 0da9bc55c31a patch 8.1.1826: tests use hand coded feature and option checks Bram Moolenaar <Bram@vim.org> parents: 17089 diff changeset	4 source check.vim
0da9bc55c31a patch 8.1.1826: tests use hand coded feature and option checks Bram Moolenaar <Bram@vim.org> parents: 17089 diff changeset	5 CheckNotGui
0da9bc55c31a patch 8.1.1826: tests use hand coded feature and option checks Bram Moolenaar <Bram@vim.org> parents: 17089 diff changeset	6 CheckUnix
16263 d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	7
16437 fbc0b3b38c79 patch 8.1.1223: middle mouse click test fails without a clipboard Bram Moolenaar <Bram@vim.org> parents: 16423 diff changeset	8 source shared.vim
fbc0b3b38c79 patch 8.1.1223: middle mouse click test fails without a clipboard Bram Moolenaar <Bram@vim.org> parents: 16423 diff changeset	9
16487 a4732cdcfaaf patch 8.1.1247: urxvt mouse codes are not tested Bram Moolenaar <Bram@vim.org> parents: 16481 diff changeset	10 " xterm2 and sgr always work, urxvt is optional.
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	11 let s:ttymouse_values = ['xterm2', 'sgr']
16487 a4732cdcfaaf patch 8.1.1247: urxvt mouse codes are not tested Bram Moolenaar <Bram@vim.org> parents: 16481 diff changeset	12 if has('mouse_urxvt')
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	13 call add(s:ttymouse_values, 'urxvt')
42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	14 endif
42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	15
42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	16 " dec doesn't support all the functionality
42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	17 if has('mouse_dec')
42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	18 let s:ttymouse_dec = ['dec']
42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	19 else
42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	20 let s:ttymouse_dec = []
16487 a4732cdcfaaf patch 8.1.1247: urxvt mouse codes are not tested Bram Moolenaar <Bram@vim.org> parents: 16481 diff changeset	21 endif
a4732cdcfaaf patch 8.1.1247: urxvt mouse codes are not tested Bram Moolenaar <Bram@vim.org> parents: 16481 diff changeset	22
16493 4912193bc5e7 patch 8.1.1250: no test for netterm mouse Bram Moolenaar <Bram@vim.org> parents: 16489 diff changeset	23 " netterm only supports left click
4912193bc5e7 patch 8.1.1250: no test for netterm mouse Bram Moolenaar <Bram@vim.org> parents: 16489 diff changeset	24 if has('mouse_netterm')
4912193bc5e7 patch 8.1.1250: no test for netterm mouse Bram Moolenaar <Bram@vim.org> parents: 16489 diff changeset	25 let s:ttymouse_netterm = ['netterm']
4912193bc5e7 patch 8.1.1250: no test for netterm mouse Bram Moolenaar <Bram@vim.org> parents: 16489 diff changeset	26 else
4912193bc5e7 patch 8.1.1250: no test for netterm mouse Bram Moolenaar <Bram@vim.org> parents: 16489 diff changeset	27 let s:ttymouse_netterm = []
4912193bc5e7 patch 8.1.1250: no test for netterm mouse Bram Moolenaar <Bram@vim.org> parents: 16489 diff changeset	28 endif
4912193bc5e7 patch 8.1.1250: no test for netterm mouse Bram Moolenaar <Bram@vim.org> parents: 16489 diff changeset	29
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	30 " Helper function to emit a terminal escape code.
16487 a4732cdcfaaf patch 8.1.1247: urxvt mouse codes are not tested Bram Moolenaar <Bram@vim.org> parents: 16481 diff changeset	31 func TerminalEscapeCode(code, row, col, m)
16352 c742c008953e patch 8.1.1181: tests for mouse clicks are a bit flaky Bram Moolenaar <Bram@vim.org> parents: 16348 diff changeset	32 if &ttymouse ==# 'xterm2'
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	33 " need to use byte encoding here.
16487 a4732cdcfaaf patch 8.1.1247: urxvt mouse codes are not tested Bram Moolenaar <Bram@vim.org> parents: 16481 diff changeset	34 let str = list2str([a:code + 0x20, a:col + 0x20, a:row + 0x20])
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	35 if has('iconv')
17914 af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17686 diff changeset	36 let bytes = str->iconv('utf-8', 'latin1')
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	37 else
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	38 " Hopefully the numbers are not too big.
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	39 let bytes = str
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	40 endif
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	41 return "\<Esc>[M" .. bytes
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	42 elseif &ttymouse ==# 'sgr'
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	43 return printf("\<Esc>[<%d;%d;%d%s", a:code, a:col, a:row, a:m)
16487 a4732cdcfaaf patch 8.1.1247: urxvt mouse codes are not tested Bram Moolenaar <Bram@vim.org> parents: 16481 diff changeset	44 elseif &ttymouse ==# 'urxvt'
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	45 return printf("\<Esc>[%d;%d;%dM", a:code + 0x20, a:col, a:row)
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	46 endif
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	47 endfunc
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	48
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	49 func DecEscapeCode(code, down, row, col)
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	50 return printf("\<Esc>[%d;%d;%d;%d&w", a:code, a:down, a:row, a:col)
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	51 endfunc
42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	52
16493 4912193bc5e7 patch 8.1.1250: no test for netterm mouse Bram Moolenaar <Bram@vim.org> parents: 16489 diff changeset	53 func NettermEscapeCode(row, col)
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	54 return printf("\<Esc>}%d,%d\r", a:row, a:col)
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	55 endfunc
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	56
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	57 func MouseLeftClickCode(row, col)
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	58 if &ttymouse ==# 'dec'
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	59 return DecEscapeCode(2, 4, a:row, a:col)
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	60 elseif &ttymouse ==# 'netterm'
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	61 return NettermEscapeCode(a:row, a:col)
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	62 else
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	63 return TerminalEscapeCode(0, a:row, a:col, 'M')
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	64 endif
16493 4912193bc5e7 patch 8.1.1250: no test for netterm mouse Bram Moolenaar <Bram@vim.org> parents: 16489 diff changeset	65 endfunc
4912193bc5e7 patch 8.1.1250: no test for netterm mouse Bram Moolenaar <Bram@vim.org> parents: 16489 diff changeset	66
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	67 func MouseLeftClick(row, col)
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	68 call feedkeys(MouseLeftClickCode(a:row, a:col), 'Lx!')
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	69 endfunc
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	70
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	71 func MouseMiddleClickCode(row, col)
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	72 if &ttymouse ==# 'dec'
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	73 return DecEscapeCode(4, 2, a:row, a:col)
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	74 else
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	75 return TerminalEscapeCode(1, a:row, a:col, 'M')
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	76 endif
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	77 endfunc
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	78
16423 4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	79 func MouseMiddleClick(row, col)
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	80 call feedkeys(MouseMiddleClickCode(a:row, a:col), 'Lx!')
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	81 endfunc
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	82
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	83 func MouseRightClickCode(row, col)
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	84 if &ttymouse ==# 'dec'
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	85 return DecEscapeCode(6, 1, a:row, a:col)
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	86 else
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	87 return TerminalEscapeCode(2, a:row, a:col, 'M')
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	88 endif
16423 4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	89 endfunc
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	90
18307 176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	91 func MouseRightClick(row, col)
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	92 call feedkeys(MouseRightClickCode(a:row, a:col), 'Lx!')
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	93 endfunc
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	94
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	95 func MouseCtrlLeftClickCode(row, col)
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	96 let ctrl = 0x10
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	97 return TerminalEscapeCode(0 + ctrl, a:row, a:col, 'M')
18307 176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	98 endfunc
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	99
16481 8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	100 func MouseCtrlLeftClick(row, col)
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	101 call feedkeys(MouseCtrlLeftClickCode(a:row, a:col), 'Lx!')
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	102 endfunc
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	103
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	104 func MouseCtrlRightClickCode(row, col)
16481 8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	105 let ctrl = 0x10
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	106 return TerminalEscapeCode(2 + ctrl, a:row, a:col, 'M')
16481 8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	107 endfunc
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	108
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	109 func MouseCtrlRightClick(row, col)
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	110 call feedkeys(MouseCtrlRightClickCode(a:row, a:col), 'Lx!')
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	111 endfunc
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	112
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	113 func MouseLeftReleaseCode(row, col)
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	114 if &ttymouse ==# 'dec'
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	115 return DecEscapeCode(3, 0, a:row, a:col)
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	116 elseif &ttymouse ==# 'netterm'
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	117 return ''
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	118 else
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	119 return TerminalEscapeCode(3, a:row, a:col, 'm')
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	120 endif
16481 8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	121 endfunc
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	122
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	123 func MouseLeftRelease(row, col)
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	124 call feedkeys(MouseLeftReleaseCode(a:row, a:col), 'Lx!')
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	125 endfunc
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	126
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	127 func MouseMiddleReleaseCode(row, col)
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	128 if &ttymouse ==# 'dec'
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	129 return DecEscapeCode(5, 0, a:row, a:col)
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	130 else
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	131 return TerminalEscapeCode(3, a:row, a:col, 'm')
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	132 endif
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	133 endfunc
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	134
16423 4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	135 func MouseMiddleRelease(row, col)
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	136 call feedkeys(MouseMiddleReleaseCode(a:row, a:col), 'Lx!')
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	137 endfunc
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	138
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	139 func MouseRightReleaseCode(row, col)
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	140 if &ttymouse ==# 'dec'
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	141 return DecEscapeCode(7, 0, a:row, a:col)
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	142 else
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	143 return TerminalEscapeCode(3, a:row, a:col, 'm')
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	144 endif
16423 4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	145 endfunc
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	146
16481 8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	147 func MouseRightRelease(row, col)
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	148 call feedkeys(MouseRightReleaseCode(a:row, a:col), 'Lx!')
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	149 endfunc
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	150
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	151 func MouseLeftDragCode(row, col)
18307 176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	152 if &ttymouse ==# 'dec'
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	153 return DecEscapeCode(1, 4, a:row, a:col)
18307 176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	154 else
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	155 return TerminalEscapeCode(0x20, a:row, a:col, 'M')
18307 176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	156 endif
16481 8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	157 endfunc
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	158
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	159 func MouseLeftDrag(row, col)
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	160 call feedkeys(MouseLeftDragCode(a:row, a:col), 'Lx!')
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	161 endfunc
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	162
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	163 func MouseWheelUpCode(row, col)
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	164 return TerminalEscapeCode(0x40, a:row, a:col, 'M')
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	165 endfunc
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	166
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	167 func MouseWheelUp(row, col)
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	168 call feedkeys(MouseWheelUpCode(a:row, a:col), 'Lx!')
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	169 endfunc
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	170
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	171 func MouseWheelDownCode(row, col)
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	172 return TerminalEscapeCode(0x41, a:row, a:col, 'M')
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	173 endfunc
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	174
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	175 func MouseWheelDown(row, col)
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	176 call feedkeys(MouseWheelDownCode(a:row, a:col), 'Lx!')
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	177 endfunc
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	178
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	179 func Test_term_mouse_left_click()
16263 d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	180 new
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	181 let save_mouse = &mouse
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	182 let save_term = &term
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	183 let save_ttymouse = &ttymouse
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	184 call test_override('no_query_mouse', 1)
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	185 set mouse=a term=xterm
16263 d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	186 call setline(1, ['line 1', 'line 2', 'line 3 is a bit longer'])
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	187
16493 4912193bc5e7 patch 8.1.1250: no test for netterm mouse Bram Moolenaar <Bram@vim.org> parents: 16489 diff changeset	188 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec + s:ttymouse_netterm
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	189 let msg = 'ttymouse=' .. ttymouse_val
16481 8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	190 exe 'set ttymouse=' .. ttymouse_val
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	191 go
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	192 call assert_equal([0, 1, 1, 0], getpos('.'), msg)
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	193 let row = 2
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	194 let col = 6
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	195 call MouseLeftClick(row, col)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	196 call MouseLeftRelease(row, col)
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	197 call assert_equal([0, 2, 6, 0], getpos('.'), msg)
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	198 endfor
16263 d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	199
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	200 let &mouse = save_mouse
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	201 let &term = save_term
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	202 let &ttymouse = save_ttymouse
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	203 call test_override('no_query_mouse', 0)
16263 d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	204 bwipe!
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	205 endfunc
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	206
18307 176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	207 func Test_xterm_mouse_right_click_extends_visual()
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	208 if has('mac')
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	209 throw "Skipped: test right click in visual mode does not work on macOs (why?)"
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	210 endif
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	211 let save_mouse = &mouse
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	212 let save_term = &term
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	213 let save_ttymouse = &ttymouse
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	214 call test_override('no_query_mouse', 1)
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	215 set mouse=a term=xterm
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	216
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	217 for visual_mode in ["v", "V", "\<C-V>"]
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	218 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	219 let msg = 'visual=' .. visual_mode .. ' ttymouse=' .. ttymouse_val
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	220 exe 'set ttymouse=' .. ttymouse_val
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	221
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	222 call setline(1, repeat([repeat('-', 7)], 7))
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	223 call MouseLeftClick(4, 4)
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	224 call MouseLeftRelease(4, 4)
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	225 exe "norm! " .. visual_mode
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	226
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	227 " Right click extends top left of visual area.
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	228 call MouseRightClick(2, 2)
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	229 call MouseRightRelease(2, 2)
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	230
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	231 " Right click extends bottom right of visual area.
18307 176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	232 call MouseRightClick(6, 6)
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	233 call MouseRightRelease(6, 6)
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	234 norm! r1gv
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	235
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	236 " Right click shrinks top left of visual area.
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	237 call MouseRightClick(3, 3)
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	238 call MouseRightRelease(3, 3)
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	239
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	240 " Right click shrinks bottom right of visual area.
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	241 call MouseRightClick(5, 5)
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	242 call MouseRightRelease(5, 5)
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	243 norm! r2
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	244
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	245 if visual_mode ==# 'v'
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	246 call assert_equal(['-------',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	247 \ '-111111',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	248 \ '1122222',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	249 \ '2222222',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	250 \ '2222211',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	251 \ '111111-',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	252 \ '-------'], getline(1, '$'), msg)
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	253 elseif visual_mode ==# 'V'
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	254 call assert_equal(['-------',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	255 \ '1111111',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	256 \ '2222222',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	257 \ '2222222',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	258 \ '2222222',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	259 \ '1111111',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	260 \ '-------'], getline(1, '$'), msg)
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	261 else
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	262 call assert_equal(['-------',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	263 \ '-11111-',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	264 \ '-12221-',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	265 \ '-12221-',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	266 \ '-12221-',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	267 \ '-11111-',
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	268 \ '-------'], getline(1, '$'), msg)
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	269 endif
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	270 endfor
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	271 endfor
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	272
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	273 let &mouse = save_mouse
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	274 let &term = save_term
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	275 let &ttymouse = save_ttymouse
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	276 call test_override('no_query_mouse', 0)
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	277 bwipe!
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	278 endfunc
176fa195b95d patch 8.1.2148: no test for right click extending Visual area Bram Moolenaar <Bram@vim.org> parents: 18301 diff changeset	279
16481 8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	280 " Test that <C-LeftMouse> jumps to help tag and <C-RightMouse> jumps back.
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	281 func Test_xterm_mouse_ctrl_click()
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	282 let save_mouse = &mouse
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	283 let save_term = &term
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	284 let save_ttymouse = &ttymouse
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	285 set mouse=a term=xterm
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	286
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	287 for ttymouse_val in s:ttymouse_values
16481 8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	288 let msg = 'ttymouse=' .. ttymouse_val
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	289 exe 'set ttymouse=' .. ttymouse_val
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	290 help
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	291 /usr_02.txt
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	292 norm! zt
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	293 let row = 1
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	294 let col = 1
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	295 call MouseCtrlLeftClick(row, col)
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	296 call MouseLeftRelease(row, col)
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	297 call assert_match('usr_02.txt$', bufname('%'), msg)
18223 8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	298 call assert_equal('usr_02.txt', expand('<cWORD>'), msg)
16481 8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	299
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	300 call MouseCtrlRightClick(row, col)
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	301 call MouseRightRelease(row, col)
16481 8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	302 call assert_match('help.txt$', bufname('%'), msg)
18223 8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	303 call assert_equal('\|usr_02.txt\|', expand('<cWORD>'), msg)
16481 8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	304
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	305 helpclose
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	306 endfor
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	307
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	308 let &mouse = save_mouse
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	309 let &term = save_term
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	310 let &ttymouse = save_ttymouse
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	311 endfunc
8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	312
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	313 func Test_term_mouse_middle_click()
17686 853afcc375b2 patch 8.1.1840: Testing: WorkingClipboard() is not accurate Bram Moolenaar <Bram@vim.org> parents: 17657 diff changeset	314 CheckFeature clipboard_working
16437 fbc0b3b38c79 patch 8.1.1223: middle mouse click test fails without a clipboard Bram Moolenaar <Bram@vim.org> parents: 16423 diff changeset	315
16423 4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	316 new
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	317 let save_mouse = &mouse
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	318 let save_term = &term
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	319 let save_ttymouse = &ttymouse
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	320 call test_override('no_query_mouse', 1)
16423 4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	321 let save_quotestar = @*
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	322 let @* = 'abc'
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	323 set mouse=a term=xterm
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	324
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	325 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec
16423 4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	326 let msg = 'ttymouse=' .. ttymouse_val
16481 8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	327 exe 'set ttymouse=' .. ttymouse_val
16423 4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	328 call setline(1, ['123456789', '123456789'])
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	329
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	330 " Middle-click in the middle of the line pastes text where clicked.
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	331 let row = 1
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	332 let col = 6
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	333 call MouseMiddleClick(row, col)
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	334 call MouseMiddleRelease(row, col)
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	335 call assert_equal(['12345abc6789', '123456789'], getline(1, '$'), msg)
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	336
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	337 " Middle-click beyond end of the line pastes text at the end of the line.
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	338 let col = 20
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	339 call MouseMiddleClick(row, col)
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	340 call MouseMiddleRelease(row, col)
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	341 call assert_equal(['12345abc6789abc', '123456789'], getline(1, '$'), msg)
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	342
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	343 " Middle-click beyond the last line pastes in the last line.
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	344 let row = 5
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	345 let col = 3
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	346 call MouseMiddleClick(row, col)
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	347 call MouseMiddleRelease(row, col)
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	348 call assert_equal(['12345abc6789abc', '12abc3456789'], getline(1, '$'), msg)
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	349 endfor
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	350
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	351 let &mouse = save_mouse
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	352 let &term = save_term
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	353 let &ttymouse = save_ttymouse
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	354 call test_override('no_query_mouse', 0)
16423 4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	355 let @* = save_quotestar
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	356 bwipe!
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	357 endfunc
4182fa3b9f70 patch 8.1.1216: mouse middle click is not tested Bram Moolenaar <Bram@vim.org> parents: 16352 diff changeset	358
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	359 " TODO: for unclear reasons this test fails if it comes after
42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	360 " Test_xterm_mouse_ctrl_click()
42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	361 func Test_1xterm_mouse_wheel()
16265 7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	362 new
7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	363 let save_mouse = &mouse
7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	364 let save_term = &term
7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	365 let save_ttymouse = &ttymouse
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	366 set mouse=a term=xterm
16265 7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	367 call setline(1, range(1, 100))
7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	368
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	369 for ttymouse_val in s:ttymouse_values
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	370 let msg = 'ttymouse=' .. ttymouse_val
16481 8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	371 exe 'set ttymouse=' .. ttymouse_val
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	372 go
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	373 call assert_equal(1, line('w0'), msg)
2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	374 call assert_equal([0, 1, 1, 0], getpos('.'), msg)
16265 7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	375
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	376 call MouseWheelDown(1, 1)
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	377 call assert_equal(4, line('w0'), msg)
2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	378 call assert_equal([0, 4, 1, 0], getpos('.'), msg)
16265 7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	379
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	380 call MouseWheelDown(1, 1)
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	381 call assert_equal(7, line('w0'), msg)
2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	382 call assert_equal([0, 7, 1, 0], getpos('.'), msg)
16265 7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	383
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	384 call MouseWheelUp(1, 1)
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	385 call assert_equal(4, line('w0'), msg)
2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	386 call assert_equal([0, 7, 1, 0], getpos('.'), msg)
16265 7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	387
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	388 call MouseWheelUp(1, 1)
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	389 call assert_equal(1, line('w0'), msg)
2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	390 call assert_equal([0, 7, 1, 0], getpos('.'), msg)
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	391 endfor
16265 7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	392
7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	393 let &mouse = save_mouse
7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	394 let &term = save_term
7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	395 let &ttymouse = save_ttymouse
7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	396 bwipe!
7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	397 endfunc
16275 ed5172ae1c32 patch 8.1.1142: no test for dragging the window separators with the mouse Bram Moolenaar <Bram@vim.org> parents: 16265 diff changeset	398
18223 8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	399 " Test that dragging beyond the window (at the bottom and at the top)
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	400 " scrolls window content by the number of lines beyond the window.
18223 8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	401 func Test_term_mouse_drag_beyond_window()
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	402 let save_mouse = &mouse
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	403 let save_term = &term
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	404 let save_ttymouse = &ttymouse
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	405 call test_override('no_query_mouse', 1)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	406 set mouse=a term=xterm
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	407 let col = 1
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	408 call setline(1, range(1, 100))
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	409
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	410 " Split into 3 windows, and go into the middle window
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	411 " so we test dragging mouse below and above the window.
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	412 2split
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	413 wincmd j
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	414 2split
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	415
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	416 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	417 let msg = 'ttymouse=' .. ttymouse_val
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	418 exe 'set ttymouse=' .. ttymouse_val
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	419
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	420 " Line #10 at the top.
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	421 norm! 10zt
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	422 redraw
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	423 call assert_equal(10, winsaveview().topline, msg)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	424 call assert_equal(2, winheight(0), msg)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	425
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	426 let row = 4
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	427 call MouseLeftClick(row, col)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	428 call assert_equal(10, winsaveview().topline, msg)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	429
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	430 " Drag downwards. We're still in the window so topline should
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	431 " not change yet.
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	432 let row += 1
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	433 call MouseLeftDrag(row, col)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	434 call assert_equal(10, winsaveview().topline, msg)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	435
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	436 " We now leave the window at the bottom, so the window content should
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	437 " scroll by 1 line, then 2 lines (etc) as we drag further away.
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	438 let row += 1
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	439 call MouseLeftDrag(row, col)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	440 call assert_equal(11, winsaveview().topline, msg)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	441
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	442 let row += 1
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	443 call MouseLeftDrag(row, col)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	444 call assert_equal(13, winsaveview().topline, msg)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	445
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	446 " Now drag upwards.
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	447 let row -= 1
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	448 call MouseLeftDrag(row, col)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	449 call assert_equal(14, winsaveview().topline, msg)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	450
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	451 " We're now back in the window so the topline should not change.
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	452 let row -= 1
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	453 call MouseLeftDrag(row, col)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	454 call assert_equal(14, winsaveview().topline, msg)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	455
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	456 let row -= 1
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	457 call MouseLeftDrag(row, col)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	458 call assert_equal(14, winsaveview().topline, msg)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	459
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	460 " We now leave the window at the top so the window content should
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	461 " scroll by 1 line, then 2, then 3 (etc) in the opposite direction.
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	462 let row -= 1
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	463 call MouseLeftDrag(row, col)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	464 call assert_equal(13, winsaveview().topline, msg)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	465
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	466 let row -= 1
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	467 call MouseLeftDrag(row, col)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	468 call assert_equal(11, winsaveview().topline, msg)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	469
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	470 let row -= 1
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	471 call MouseLeftDrag(row, col)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	472 call assert_equal(8, winsaveview().topline, msg)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	473
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	474 call MouseLeftRelease(row, col)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	475 call assert_equal(8, winsaveview().topline, msg)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	476 call assert_equal(2, winheight(0), msg)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	477 endfor
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	478
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	479 let &mouse = save_mouse
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	480 let &term = save_term
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	481 let &ttymouse = save_ttymouse
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	482 call test_override('no_query_mouse', 0)
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	483 bwipe!
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	484 endfunc
8a86e518fa42 patch 8.1.2106: no tests for dragging the mouse beyond the window Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	485
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	486 func Test_term_mouse_drag_window_separator()
16275 ed5172ae1c32 patch 8.1.1142: no test for dragging the window separators with the mouse Bram Moolenaar <Bram@vim.org> parents: 16265 diff changeset	487 let save_mouse = &mouse
ed5172ae1c32 patch 8.1.1142: no test for dragging the window separators with the mouse Bram Moolenaar <Bram@vim.org> parents: 16265 diff changeset	488 let save_term = &term
ed5172ae1c32 patch 8.1.1142: no test for dragging the window separators with the mouse Bram Moolenaar <Bram@vim.org> parents: 16265 diff changeset	489 let save_ttymouse = &ttymouse
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	490 call test_override('no_query_mouse', 1)
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	491 set mouse=a term=xterm
16275 ed5172ae1c32 patch 8.1.1142: no test for dragging the window separators with the mouse Bram Moolenaar <Bram@vim.org> parents: 16265 diff changeset	492
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	493 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	494 let msg = 'ttymouse=' .. ttymouse_val
16481 8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	495 exe 'set ttymouse=' .. ttymouse_val
16275 ed5172ae1c32 patch 8.1.1142: no test for dragging the window separators with the mouse Bram Moolenaar <Bram@vim.org> parents: 16265 diff changeset	496
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	497 " Split horizontally and test dragging the horizontal window separator.
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	498 split
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	499 let rowseparator = winheight(0) + 1
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	500 let row = rowseparator
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	501 let col = 1
16310 5b8b849dc3aa patch 8.1.1160: termcodes test would fail in a very big terminal Bram Moolenaar <Bram@vim.org> parents: 16300 diff changeset	502
16352 c742c008953e patch 8.1.1181: tests for mouse clicks are a bit flaky Bram Moolenaar <Bram@vim.org> parents: 16348 diff changeset	503 " When 'ttymouse' is 'xterm2', row/col bigger than 223 are not supported.
c742c008953e patch 8.1.1181: tests for mouse clicks are a bit flaky Bram Moolenaar <Bram@vim.org> parents: 16348 diff changeset	504 if ttymouse_val !=# 'xterm2' \|\| row <= 223
16324 6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	505 call MouseLeftClick(row, col)
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	506 let row -= 1
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	507 call MouseLeftDrag(row, col)
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	508 call assert_equal(rowseparator - 1, winheight(0) + 1, msg)
16324 6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	509 let row += 1
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	510 call MouseLeftDrag(row, col)
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	511 call assert_equal(rowseparator, winheight(0) + 1, msg)
16324 6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	512 call MouseLeftRelease(row, col)
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	513 call assert_equal(rowseparator, winheight(0) + 1, msg)
16310 5b8b849dc3aa patch 8.1.1160: termcodes test would fail in a very big terminal Bram Moolenaar <Bram@vim.org> parents: 16300 diff changeset	514 endif
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	515 bwipe!
16275 ed5172ae1c32 patch 8.1.1142: no test for dragging the window separators with the mouse Bram Moolenaar <Bram@vim.org> parents: 16265 diff changeset	516
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	517 " Split vertically and test dragging the vertical window separator.
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	518 vsplit
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	519 let colseparator = winwidth(0) + 1
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	520 let row = 1
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	521 let col = colseparator
16275 ed5172ae1c32 patch 8.1.1142: no test for dragging the window separators with the mouse Bram Moolenaar <Bram@vim.org> parents: 16265 diff changeset	522
16352 c742c008953e patch 8.1.1181: tests for mouse clicks are a bit flaky Bram Moolenaar <Bram@vim.org> parents: 16348 diff changeset	523 " When 'ttymouse' is 'xterm2', row/col bigger than 223 are not supported.
c742c008953e patch 8.1.1181: tests for mouse clicks are a bit flaky Bram Moolenaar <Bram@vim.org> parents: 16348 diff changeset	524 if ttymouse_val !=# 'xterm2' \|\| col <= 223
16324 6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	525 call MouseLeftClick(row, col)
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	526 let col -= 1
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	527 call MouseLeftDrag(row, col)
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	528 call assert_equal(colseparator - 1, winwidth(0) + 1, msg)
16324 6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	529 let col += 1
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	530 call MouseLeftDrag(row, col)
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	531 call assert_equal(colseparator, winwidth(0) + 1, msg)
16324 6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	532 call MouseLeftRelease(row, col)
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	533 call assert_equal(colseparator, winwidth(0) + 1, msg)
16324 6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	534 endif
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	535 bwipe!
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	536 endfor
16275 ed5172ae1c32 patch 8.1.1142: no test for dragging the window separators with the mouse Bram Moolenaar <Bram@vim.org> parents: 16265 diff changeset	537
ed5172ae1c32 patch 8.1.1142: no test for dragging the window separators with the mouse Bram Moolenaar <Bram@vim.org> parents: 16265 diff changeset	538 let &mouse = save_mouse
ed5172ae1c32 patch 8.1.1142: no test for dragging the window separators with the mouse Bram Moolenaar <Bram@vim.org> parents: 16265 diff changeset	539 let &term = save_term
ed5172ae1c32 patch 8.1.1142: no test for dragging the window separators with the mouse Bram Moolenaar <Bram@vim.org> parents: 16265 diff changeset	540 let &ttymouse = save_ttymouse
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	541 call test_override('no_query_mouse', 0)
16275 ed5172ae1c32 patch 8.1.1142: no test for dragging the window separators with the mouse Bram Moolenaar <Bram@vim.org> parents: 16265 diff changeset	542 endfunc
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	543
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	544 func Test_term_mouse_drag_statusline()
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	545 let save_mouse = &mouse
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	546 let save_term = &term
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	547 let save_ttymouse = &ttymouse
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	548 call test_override('no_query_mouse', 1)
16320 57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	549 let save_laststatus = &laststatus
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	550 set mouse=a term=xterm laststatus=2
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	551
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	552 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	553 let msg = 'ttymouse=' .. ttymouse_val
16481 8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	554 exe 'set ttymouse=' .. ttymouse_val
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	555
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	556 call assert_equal(1, &cmdheight, msg)
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	557 let rowstatusline = winheight(0) + 1
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	558 let row = rowstatusline
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	559 let col = 1
16310 5b8b849dc3aa patch 8.1.1160: termcodes test would fail in a very big terminal Bram Moolenaar <Bram@vim.org> parents: 16300 diff changeset	560
16352 c742c008953e patch 8.1.1181: tests for mouse clicks are a bit flaky Bram Moolenaar <Bram@vim.org> parents: 16348 diff changeset	561 if ttymouse_val ==# 'xterm2' && row > 223
c742c008953e patch 8.1.1181: tests for mouse clicks are a bit flaky Bram Moolenaar <Bram@vim.org> parents: 16348 diff changeset	562 " When 'ttymouse' is 'xterm2', row/col bigger than 223 are not supported.
16310 5b8b849dc3aa patch 8.1.1160: termcodes test would fail in a very big terminal Bram Moolenaar <Bram@vim.org> parents: 16300 diff changeset	563 continue
5b8b849dc3aa patch 8.1.1160: termcodes test would fail in a very big terminal Bram Moolenaar <Bram@vim.org> parents: 16300 diff changeset	564 endif
5b8b849dc3aa patch 8.1.1160: termcodes test would fail in a very big terminal Bram Moolenaar <Bram@vim.org> parents: 16300 diff changeset	565
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	566 call MouseLeftClick(row, col)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	567 let row -= 1
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	568 call MouseLeftDrag(row, col)
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	569 call assert_equal(2, &cmdheight, msg)
2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	570 call assert_equal(rowstatusline - 1, winheight(0) + 1, msg)
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	571 let row += 1
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	572 call MouseLeftDrag(row, col)
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	573 call assert_equal(1, &cmdheight, msg)
2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	574 call assert_equal(rowstatusline, winheight(0) + 1, msg)
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	575 call MouseLeftRelease(row, col)
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	576 call assert_equal(1, &cmdheight, msg)
2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	577 call assert_equal(rowstatusline, winheight(0) + 1, msg)
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	578 endfor
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	579
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	580 let &mouse = save_mouse
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	581 let &term = save_term
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	582 let &ttymouse = save_ttymouse
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	583 call test_override('no_query_mouse', 0)
16320 57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	584 let &laststatus = save_laststatus
16300 f3d579f009d1 patch 8.1.1155: termcodes tests can be improved Bram Moolenaar <Bram@vim.org> parents: 16275 diff changeset	585 endfunc
16320 57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	586
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	587 func Test_term_mouse_click_tab()
16320 57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	588 let save_mouse = &mouse
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	589 let save_term = &term
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	590 let save_ttymouse = &ttymouse
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	591 call test_override('no_query_mouse', 1)
16320 57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	592 set mouse=a term=xterm
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	593 let row = 1
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	594
16493 4912193bc5e7 patch 8.1.1250: no test for netterm mouse Bram Moolenaar <Bram@vim.org> parents: 16489 diff changeset	595 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec + s:ttymouse_netterm
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	596 let msg = 'ttymouse=' .. ttymouse_val
16481 8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	597 exe 'set ttymouse=' .. ttymouse_val
16320 57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	598 e Xfoo
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	599 tabnew Xbar
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	600
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	601 let a = split(execute(':tabs'), "\n")
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	602 call assert_equal(['Tab page 1',
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	603 \ ' Xfoo',
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	604 \ 'Tab page 2',
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	605 \ '> Xbar'], a, msg)
16320 57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	606
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	607 " Test clicking on tab names in the tabline at the top.
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	608 let col = 2
16324 6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	609 redraw
16320 57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	610 call MouseLeftClick(row, col)
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	611 call MouseLeftRelease(row, col)
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	612 let a = split(execute(':tabs'), "\n")
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	613 call assert_equal(['Tab page 1',
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	614 \ '> Xfoo',
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	615 \ 'Tab page 2',
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	616 \ ' Xbar'], a, msg)
16320 57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	617
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	618 let col = 9
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	619 call MouseLeftClick(row, col)
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	620 call MouseLeftRelease(row, col)
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	621 let a = split(execute(':tabs'), "\n")
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	622 call assert_equal(['Tab page 1',
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	623 \ ' Xfoo',
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	624 \ 'Tab page 2',
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	625 \ '> Xbar'], a, msg)
16320 57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	626
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	627 %bwipe!
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	628 endfor
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	629
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	630 let &mouse = save_mouse
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	631 let &term = save_term
57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	632 let &ttymouse = save_ttymouse
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	633 call test_override('no_query_mouse', 0)
16320 57e0f6b4a87d patch 8.1.1165: no test for mouse clicks in the terminal tabpage line Bram Moolenaar <Bram@vim.org> parents: 16310 diff changeset	634 endfunc
16324 6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	635
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	636 func Test_term_mouse_click_X_to_close_tab()
16324 6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	637 let save_mouse = &mouse
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	638 let save_term = &term
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	639 let save_ttymouse = &ttymouse
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	640 call test_override('no_query_mouse', 1)
16324 6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	641 set mouse=a term=xterm
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	642 let row = 1
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	643 let col = &columns
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	644
16493 4912193bc5e7 patch 8.1.1250: no test for netterm mouse Bram Moolenaar <Bram@vim.org> parents: 16489 diff changeset	645 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec + s:ttymouse_netterm
16352 c742c008953e patch 8.1.1181: tests for mouse clicks are a bit flaky Bram Moolenaar <Bram@vim.org> parents: 16348 diff changeset	646 if ttymouse_val ==# 'xterm2' && col > 223
c742c008953e patch 8.1.1181: tests for mouse clicks are a bit flaky Bram Moolenaar <Bram@vim.org> parents: 16348 diff changeset	647 " When 'ttymouse' is 'xterm2', row/col bigger than 223 are not supported.
16324 6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	648 continue
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	649 endif
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	650 let msg = 'ttymouse=' .. ttymouse_val
16481 8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	651 exe 'set ttymouse=' .. ttymouse_val
16324 6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	652 e Xtab1
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	653 tabnew Xtab2
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	654 tabnew Xtab3
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	655 tabn 2
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	656
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	657 let a = split(execute(':tabs'), "\n")
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	658 call assert_equal(['Tab page 1',
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	659 \ ' Xtab1',
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	660 \ 'Tab page 2',
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	661 \ '> Xtab2',
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	662 \ 'Tab page 3',
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	663 \ ' Xtab3'], a, msg)
16324 6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	664
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	665 " Click on "X" in tabline to close current tab i.e. Xtab2.
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	666 redraw
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	667 call MouseLeftClick(row, col)
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	668 call MouseLeftRelease(row, col)
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	669 let a = split(execute(':tabs'), "\n")
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	670 call assert_equal(['Tab page 1',
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	671 \ ' Xtab1',
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	672 \ 'Tab page 2',
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	673 \ '> Xtab3'], a, msg)
16324 6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	674
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	675 %bwipe!
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	676 endfor
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	677
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	678 let &mouse = save_mouse
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	679 let &term = save_term
6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	680 let &ttymouse = save_ttymouse
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	681 call test_override('no_query_mouse', 0)
16324 6b2412d0509f patch 8.1.1167: no test for closing tab by click in tabline Bram Moolenaar <Bram@vim.org> parents: 16320 diff changeset	682 endfunc
16340 2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	683
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	684 func Test_term_mouse_drag_to_move_tab()
16340 2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	685 let save_mouse = &mouse
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	686 let save_term = &term
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	687 let save_ttymouse = &ttymouse
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	688 call test_override('no_query_mouse', 1)
16340 2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	689 " Set 'mousetime' to 1 to avoid recognizing a double-click in the loop
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	690 set mouse=a term=xterm mousetime=1
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	691 let row = 1
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	692
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	693 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	694 let msg = 'ttymouse=' .. ttymouse_val
16481 8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	695 exe 'set ttymouse=' .. ttymouse_val
16340 2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	696 e Xtab1
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	697 tabnew Xtab2
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	698
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	699 let a = split(execute(':tabs'), "\n")
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	700 call assert_equal(['Tab page 1',
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	701 \ ' Xtab1',
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	702 \ 'Tab page 2',
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	703 \ '> Xtab2'], a, msg)
16340 2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	704 redraw
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	705
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	706 " Click in tab2 and drag it to tab1.
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	707 " Check getcharmod() to verify that click is not
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	708 " interpreted as a spurious double-click.
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	709 call MouseLeftClick(row, 10)
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	710 call assert_equal(0, getcharmod(), msg)
16340 2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	711 for col in [9, 8, 7, 6]
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	712 call MouseLeftDrag(row, col)
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	713 endfor
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	714 call MouseLeftRelease(row, col)
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	715 let a = split(execute(':tabs'), "\n")
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	716 call assert_equal(['Tab page 1',
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	717 \ '> Xtab2',
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	718 \ 'Tab page 2',
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	719 \ ' Xtab1'], a, msg)
16340 2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	720
18627 169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	721 " Click elsewhere so that click in next iteration is not
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	722 " interpreted as unwanted double-click.
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	723 call MouseLeftClick(row, 11)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	724 call MouseLeftRelease(row, 11)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	725
16340 2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	726 %bwipe!
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	727 endfor
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	728
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	729 let &mouse = save_mouse
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	730 let &term = save_term
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	731 let &ttymouse = save_ttymouse
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	732 call test_override('no_query_mouse', 0)
16340 2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	733 set mousetime&
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	734 endfunc
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	735
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	736 func Test_term_mouse_double_click_to_create_tab()
16340 2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	737 let save_mouse = &mouse
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	738 let save_term = &term
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	739 let save_ttymouse = &ttymouse
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	740 call test_override('no_query_mouse', 1)
16340 2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	741 " Set 'mousetime' to a small value, so that double-click works but we don't
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	742 " have to wait long to avoid a triple-click.
18627 169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	743 set mouse=a term=xterm mousetime=200
16340 2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	744 let row = 1
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	745 let col = 10
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	746
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	747 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	748 let msg = 'ttymouse=' .. ttymouse_val
16481 8428e0edba1b patch 8.1.1244: no tests for CTRL-mouse-click Bram Moolenaar <Bram@vim.org> parents: 16437 diff changeset	749 exe 'set ttymouse=' .. ttymouse_val
16340 2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	750 e Xtab1
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	751 tabnew Xtab2
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	752
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	753 let a = split(execute(':tabs'), "\n")
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	754 call assert_equal(['Tab page 1',
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	755 \ ' Xtab1',
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	756 \ 'Tab page 2',
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	757 \ '> Xtab2'], a, msg)
16340 2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	758
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	759 redraw
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	760 call MouseLeftClick(row, col)
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	761 " Check getcharmod() to verify that first click is not
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	762 " interpreted as a spurious double-click.
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	763 call assert_equal(0, getcharmod(), msg)
16340 2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	764 call MouseLeftRelease(row, col)
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	765 call MouseLeftClick(row, col)
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	766 call assert_equal(32, getcharmod(), msg) " double-click
16340 2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	767 call MouseLeftRelease(row, col)
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	768 let a = split(execute(':tabs'), "\n")
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	769 call assert_equal(['Tab page 1',
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	770 \ ' Xtab1',
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	771 \ 'Tab page 2',
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	772 \ '> [No Name]',
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	773 \ 'Tab page 3',
16346 2fb516abde42 patch 8.1.1178: when mouse click tests fails value of 'ttytype' is unknown Bram Moolenaar <Bram@vim.org> parents: 16342 diff changeset	774 \ ' Xtab2'], a, msg)
16340 2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	775
18627 169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	776 " Click elsewhere so that click in next iteration is not
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	777 " interpreted as unwanted double click.
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	778 call MouseLeftClick(row, col + 1)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	779 call MouseLeftRelease(row, col + 1)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	780
16340 2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	781 %bwipe!
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	782 endfor
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	783
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	784 let &mouse = save_mouse
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	785 let &term = save_term
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	786 let &ttymouse = save_ttymouse
16489 42910f306377 patch 8.1.1248: no test for dec mouse Bram Moolenaar <Bram@vim.org> parents: 16487 diff changeset	787 call test_override('no_query_mouse', 0)
16340 2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	788 set mousetime&
2f70fc41ff7e patch 8.1.1175: no test for dragging a tab and double click for new tab Bram Moolenaar <Bram@vim.org> parents: 16324 diff changeset	789 endfunc
16348 5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	790
18627 169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	791 " Test double/triple/quadruple click in normal mode to visually select.
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	792 func Test_term_mouse_multiple_clicks_to_visually_select()
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	793 let save_mouse = &mouse
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	794 let save_term = &term
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	795 let save_ttymouse = &ttymouse
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	796 call test_override('no_query_mouse', 1)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	797 set mouse=a term=xterm mousetime=200
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	798 new
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	799
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	800 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	801 let msg = 'ttymouse=' .. ttymouse_val
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	802 exe 'set ttymouse=' .. ttymouse_val
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	803 call setline(1, ['foo [foo bar] foo', 'foo'])
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	804
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	805 " Double-click on word should visually select the word.
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	806 call MouseLeftClick(1, 2)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	807 call assert_equal(0, getcharmod(), msg)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	808 call MouseLeftRelease(1, 2)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	809 call MouseLeftClick(1, 2)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	810 call assert_equal(32, getcharmod(), msg) " double-click
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	811 call MouseLeftRelease(1, 2)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	812 call assert_equal('v', mode(), msg)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	813 norm! r1
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	814 call assert_equal(['111 [foo bar] foo', 'foo'], getline(1, '$'), msg)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	815
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	816 " Double-click on opening square bracket should visually
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	817 " select the whole [foo bar].
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	818 call MouseLeftClick(1, 5)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	819 call assert_equal(0, getcharmod(), msg)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	820 call MouseLeftRelease(1, 5)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	821 call MouseLeftClick(1, 5)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	822 call assert_equal(32, getcharmod(), msg) " double-click
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	823 call MouseLeftRelease(1, 5)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	824 call assert_equal('v', mode(), msg)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	825 norm! r2
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	826 call assert_equal(['111 222222222 foo', 'foo'], getline(1, '$'), msg)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	827
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	828 " Triple-click should visually select the whole line.
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	829 call MouseLeftClick(1, 3)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	830 call assert_equal(0, getcharmod(), msg)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	831 call MouseLeftRelease(1, 3)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	832 call MouseLeftClick(1, 3)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	833 call assert_equal(32, getcharmod(), msg) " double-click
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	834 call MouseLeftRelease(1, 3)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	835 call MouseLeftClick(1, 3)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	836 call assert_equal(64, getcharmod(), msg) " triple-click
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	837 call MouseLeftRelease(1, 3)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	838 call assert_equal('V', mode(), msg)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	839 norm! r3
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	840 call assert_equal(['33333333333333333', 'foo'], getline(1, '$'), msg)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	841
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	842 " Quadruple-click should start visual block select.
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	843 call MouseLeftClick(1, 2)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	844 call assert_equal(0, getcharmod(), msg)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	845 call MouseLeftRelease(1, 2)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	846 call MouseLeftClick(1, 2)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	847 call assert_equal(32, getcharmod(), msg) " double-click
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	848 call MouseLeftRelease(1, 2)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	849 call MouseLeftClick(1, 2)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	850 call assert_equal(64, getcharmod(), msg) " triple-click
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	851 call MouseLeftRelease(1, 2)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	852 call MouseLeftClick(1, 2)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	853 call assert_equal(96, getcharmod(), msg) " quadruple-click
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	854 call MouseLeftRelease(1, 2)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	855 call assert_equal("\<c-v>", mode(), msg)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	856 norm! r4
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	857 call assert_equal(['34333333333333333', 'foo'], getline(1, '$'), msg)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	858 endfor
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	859
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	860 let &mouse = save_mouse
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	861 let &term = save_term
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	862 let &ttymouse = save_ttymouse
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	863 set mousetime&
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	864 call test_override('no_query_mouse', 0)
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	865 bwipe!
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	866 endfunc
169c810d4e51 patch 8.1.2306: double and triple clicks are not tested Bram Moolenaar <Bram@vim.org> parents: 18360 diff changeset	867
16348 5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	868 func Test_xterm_mouse_click_in_fold_columns()
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	869 new
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	870 let save_mouse = &mouse
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	871 let save_term = &term
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	872 let save_ttymouse = &ttymouse
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	873 let save_foldcolumn = &foldcolumn
16352 c742c008953e patch 8.1.1181: tests for mouse clicks are a bit flaky Bram Moolenaar <Bram@vim.org> parents: 16348 diff changeset	874 set mouse=a term=xterm foldcolumn=3 ttymouse=xterm2
16348 5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	875
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	876 " Create 2 nested folds.
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	877 call setline(1, range(1, 7))
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	878 2,6fold
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	879 norm! zR
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	880 4,5fold
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	881 call assert_equal([-1, -1, -1, 4, 4, -1, -1],
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	882 \ map(range(1, 7), 'foldclosed(v:val)'))
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	883
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	884 " Click in "+" of inner fold in foldcolumn should open it.
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	885 redraw
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	886 let row = 4
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	887 let col = 2
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	888 call MouseLeftClick(row, col)
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	889 call MouseLeftRelease(row, col)
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	890 call assert_equal([-1, -1, -1, -1, -1, -1, -1],
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	891 \ map(range(1, 7), 'foldclosed(v:val)'))
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	892
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	893 " Click in "-" of outer fold in foldcolumn should close it.
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	894 redraw
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	895 let row = 2
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	896 let col = 1
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	897 call MouseLeftClick(row, col)
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	898 call MouseLeftRelease(row, col)
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	899 call assert_equal([-1, 2, 2, 2, 2, 2, -1],
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	900 \ map(range(1, 7), 'foldclosed(v:val)'))
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	901 norm! zR
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	902
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	903 " Click in "\|" of inner fold in foldcolumn should close it.
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	904 redraw
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	905 let row = 5
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	906 let col = 2
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	907 call MouseLeftClick(row, col)
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	908 call MouseLeftRelease(row, col)
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	909 call assert_equal([-1, -1, -1, 4, 4, -1, -1],
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	910 \ map(range(1, 7), 'foldclosed(v:val)'))
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	911
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	912 let &foldcolumn = save_foldcolumn
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	913 let &ttymouse = save_ttymouse
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	914 let &term = save_term
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	915 let &mouse = save_mouse
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	916 bwipe!
5f3a86ba4261 patch 8.1.1179: no test for mouse clicks in the fold column Bram Moolenaar <Bram@vim.org> parents: 16346 diff changeset	917 endfunc
16936 73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	918
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	919 " Left or right click in Ex command line sets position of the cursor.
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	920 func Test_term_mouse_click_in_cmdline_to_set_pos()
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	921 let save_mouse = &mouse
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	922 let save_term = &term
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	923 let save_ttymouse = &ttymouse
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	924 call test_override('no_query_mouse', 1)
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	925 set mouse=a term=xterm
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	926 let row = &lines
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	927
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	928 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	929 let msg = 'ttymouse=' .. ttymouse_val
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	930 exe 'set ttymouse=' .. ttymouse_val
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	931
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	932 call feedkeys(':"3456789'
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	933 \ .. MouseLeftClickCode(row, 7)
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	934 \ .. MouseLeftReleaseCode(row, 7) .. 'L'
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	935 \ .. MouseRightClickCode(row, 4)
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	936 \ .. MouseRightReleaseCode(row, 4) .. 'R'
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	937 \ .. "\<CR>", 'Lx!')
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	938 call assert_equal('"3R456L789', @:, msg)
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	939 endfor
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	940
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	941 let &mouse = save_mouse
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	942 let &term = save_term
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	943 let &ttymouse = save_ttymouse
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	944 set mousetime&
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	945 call test_override('no_query_mouse', 0)
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	946 endfunc
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	947
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	948 " Middle click in command line pastes at position of cursor.
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	949 func Test_term_mouse_middle_click_in_cmdline_to_paste()
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	950 CheckFeature clipboard_working
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	951 let save_mouse = &mouse
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	952 let save_term = &term
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	953 let save_ttymouse = &ttymouse
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	954 call test_override('no_query_mouse', 1)
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	955 set mouse=a term=xterm
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	956 let row = &lines
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	957 " Column values does not matter, paste is done at position of cursor.
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	958 let col = 1
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	959 let @* = 'paste'
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	960
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	961 for ttymouse_val in s:ttymouse_values + s:ttymouse_dec
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	962 let msg = 'ttymouse=' .. ttymouse_val
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	963 exe 'set ttymouse=' .. ttymouse_val
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	964
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	965 call feedkeys(":\"->"
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	966 \ .. MouseMiddleReleaseCode(row, col)
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	967 \ .. MouseMiddleClickCode(row, col)
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	968 \ .. "<-"
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	969 \ .. MouseMiddleReleaseCode(row, col)
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	970 \ .. MouseMiddleClickCode(row, col)
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	971 \ .. "\<CR>", 'Lx!')
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	972 call assert_equal('"->paste<-paste', @:, msg)
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	973 endfor
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	974
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	975 let &mouse = save_mouse
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	976 let &term = save_term
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	977 let &ttymouse = save_ttymouse
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	978 let @* = ''
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	979 call test_override('no_query_mouse', 0)
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	980 endfunc
5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	981
19657 da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	982 " Test for displaying the popup menu using the right mouse click
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	983 func Test_mouse_popup_menu()
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	984 CheckFeature menu
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	985 new
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	986 call setline(1, 'popup menu test')
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	987 let save_mouse = &mouse
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	988 let save_term = &term
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	989 let save_ttymouse = &ttymouse
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	990 let save_mousemodel = &mousemodel
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	991 call test_override('no_query_mouse', 1)
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	992 set mouse=a term=xterm mousemodel=popup
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	993
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	994 menu PopUp.foo :let g:menustr = 'foo'<CR>
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	995 menu PopUp.bar :let g:menustr = 'bar'<CR>
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	996 menu PopUp.baz :let g:menustr = 'baz'<CR>
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	997
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	998 for ttymouse_val in s:ttymouse_values
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	999 exe 'set ttymouse=' .. ttymouse_val
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	1000 let g:menustr = ''
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	1001 call feedkeys(MouseRightClickCode(1, 4)
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	1002 \ .. MouseRightReleaseCode(1, 4) .. "\<Down>\<Down>\<CR>", "x")
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	1003 call assert_equal('bar', g:menustr)
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	1004 endfor
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	1005
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	1006 unmenu PopUp
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	1007 let &mouse = save_mouse
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	1008 let &term = save_term
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	1009 let &ttymouse = save_ttymouse
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	1010 let &mousemodel = save_mousemodel
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	1011 call test_override('no_query_mouse', 0)
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	1012 close!
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	1013 endfunc
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	1014
16936 73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1015 " This only checks if the sequence is recognized.
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1016 func Test_term_rgb_response()
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1017 set t_RF=x
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1018 set t_RB=y
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1019
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1020 " response to t_RF, 4 digits
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1021 let red = 0x12
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1022 let green = 0x34
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1023 let blue = 0x56
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1024 let seq = printf("\<Esc>]10;rgb:%02x00/%02x00/%02x00\x07", red, green, blue)
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1025 call feedkeys(seq, 'Lx!')
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1026 call assert_equal(seq, v:termrfgresp)
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1027
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1028 " response to t_RF, 2 digits
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1029 let red = 0x78
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1030 let green = 0x9a
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1031 let blue = 0xbc
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1032 let seq = printf("\<Esc>]10;rgb:%02x/%02x/%02x\x07", red, green, blue)
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1033 call feedkeys(seq, 'Lx!')
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1034 call assert_equal(seq, v:termrfgresp)
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1035
16940 1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1036 " response to t_RB, 4 digits, dark
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1037 set background=light
18031 8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17914 diff changeset	1038 eval 'background'->test_option_not_set()
16940 1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1039 let red = 0x29
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1040 let green = 0x4a
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1041 let blue = 0x6b
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1042 let seq = printf("\<Esc>]11;rgb:%02x00/%02x00/%02x00\x07", red, green, blue)
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1043 call feedkeys(seq, 'Lx!')
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1044 call assert_equal(seq, v:termrbgresp)
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1045 call assert_equal('dark', &background)
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1046
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1047 " response to t_RB, 4 digits, light
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1048 set background=dark
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1049 call test_option_not_set('background')
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1050 let red = 0x81
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1051 let green = 0x63
16936 73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1052 let blue = 0x65
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1053 let seq = printf("\<Esc>]11;rgb:%02x00/%02x00/%02x00\x07", red, green, blue)
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1054 call feedkeys(seq, 'Lx!')
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1055 call assert_equal(seq, v:termrbgresp)
16940 1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1056 call assert_equal('light', &background)
16936 73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1057
16940 1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1058 " response to t_RB, 2 digits, dark
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1059 set background=light
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1060 call test_option_not_set('background')
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1061 let red = 0x47
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1062 let green = 0x59
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1063 let blue = 0x5b
16936 73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1064 let seq = printf("\<Esc>]11;rgb:%02x/%02x/%02x\x07", red, green, blue)
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1065 call feedkeys(seq, 'Lx!')
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1066 call assert_equal(seq, v:termrbgresp)
16940 1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1067 call assert_equal('dark', &background)
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	1068
16940 1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1069 " response to t_RB, 2 digits, light
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1070 set background=dark
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1071 call test_option_not_set('background')
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1072 let red = 0x83
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1073 let green = 0xa4
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1074 let blue = 0xc2
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1075 let seq = printf("\<Esc>]11;rgb:%02x/%02x/%02x\x07", red, green, blue)
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1076 call feedkeys(seq, 'Lx!')
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1077 call assert_equal(seq, v:termrbgresp)
1c264ca8f2e8 patch 8.1.1471: 'background' not correctly set for 2-digit rgb termresponse Bram Moolenaar <Bram@vim.org> parents: 16936 diff changeset	1078 call assert_equal('light', &background)
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	1079
16936 73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1080 set t_RF= t_RB=
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1081 endfunc
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1082
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1083 " This only checks if the sequence is recognized.
18285 db8cd5e56586 patch 8.1.2137: parsing the termresponse is not tested Bram Moolenaar <Bram@vim.org> parents: 18247 diff changeset	1084 " This must be after other tests, because it has side effects to xterm
db8cd5e56586 patch 8.1.2137: parsing the termresponse is not tested Bram Moolenaar <Bram@vim.org> parents: 18247 diff changeset	1085 " properties.
db8cd5e56586 patch 8.1.2137: parsing the termresponse is not tested Bram Moolenaar <Bram@vim.org> parents: 18247 diff changeset	1086 func Test_xx01_term_style_response()
16936 73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1087 " Termresponse is only parsed when t_RV is not empty.
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1088 set t_RV=x
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1089
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1090 " send the termresponse to trigger requesting the XT codes
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1091 let seq = "\<Esc>[>41;337;0c"
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1092 call feedkeys(seq, 'Lx!')
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1093 call assert_equal(seq, v:termresponse)
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1094
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1095 let seq = "\<Esc>P1$r2 q\<Esc>\\"
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1096 call feedkeys(seq, 'Lx!')
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1097 call assert_equal(seq, v:termstyleresp)
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1098
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1099 set t_RV=
73e6ed2f69a2 patch 8.1.1469: no test for checking the cursor style response Bram Moolenaar <Bram@vim.org> parents: 16493 diff changeset	1100 endfunc
16942 5f3e960ce76d patch 8.1.1472: add_termcap_entry() is not tested Bram Moolenaar <Bram@vim.org> parents: 16940 diff changeset	1101
18360 e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1102 " This checks the iTerm2 version response.
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1103 " This must be after other tests, because it has side effects to xterm
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1104 " properties.
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1105 func Test_xx02_iTerm2_response()
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1106 " Termresponse is only parsed when t_RV is not empty.
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1107 set t_RV=x
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1108
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1109 " Old versions of iTerm2 used a different style term response.
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1110 set ttymouse=xterm
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1111 call test_option_not_set('ttymouse')
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1112 let seq = "\<Esc>[>0;95;c"
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1113 call feedkeys(seq, 'Lx!')
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1114 call assert_equal(seq, v:termresponse)
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1115 call assert_equal('xterm', &ttymouse)
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1116
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1117 set ttymouse=xterm
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1118 call test_option_not_set('ttymouse')
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1119 let seq = "\<Esc>[>0;95;0c"
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1120 call feedkeys(seq, 'Lx!')
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1121 call assert_equal(seq, v:termresponse)
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1122 call assert_equal('sgr', &ttymouse)
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1123
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1124 set t_RV=
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1125 endfunc
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1126
18285 db8cd5e56586 patch 8.1.2137: parsing the termresponse is not tested Bram Moolenaar <Bram@vim.org> parents: 18247 diff changeset	1127 " This checks the libvterm version response.
db8cd5e56586 patch 8.1.2137: parsing the termresponse is not tested Bram Moolenaar <Bram@vim.org> parents: 18247 diff changeset	1128 " This must be after other tests, because it has side effects to xterm
db8cd5e56586 patch 8.1.2137: parsing the termresponse is not tested Bram Moolenaar <Bram@vim.org> parents: 18247 diff changeset	1129 " properties.
18360 e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1130 func Test_xx03_libvterm_response()
18285 db8cd5e56586 patch 8.1.2137: parsing the termresponse is not tested Bram Moolenaar <Bram@vim.org> parents: 18247 diff changeset	1131 " Termresponse is only parsed when t_RV is not empty.
db8cd5e56586 patch 8.1.2137: parsing the termresponse is not tested Bram Moolenaar <Bram@vim.org> parents: 18247 diff changeset	1132 set t_RV=x
18311 60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1133
18285 db8cd5e56586 patch 8.1.2137: parsing the termresponse is not tested Bram Moolenaar <Bram@vim.org> parents: 18247 diff changeset	1134 set ttymouse=xterm
db8cd5e56586 patch 8.1.2137: parsing the termresponse is not tested Bram Moolenaar <Bram@vim.org> parents: 18247 diff changeset	1135 call test_option_not_set('ttymouse')
db8cd5e56586 patch 8.1.2137: parsing the termresponse is not tested Bram Moolenaar <Bram@vim.org> parents: 18247 diff changeset	1136 let seq = "\<Esc>[>0;100;0c"
db8cd5e56586 patch 8.1.2137: parsing the termresponse is not tested Bram Moolenaar <Bram@vim.org> parents: 18247 diff changeset	1137 call feedkeys(seq, 'Lx!')
db8cd5e56586 patch 8.1.2137: parsing the termresponse is not tested Bram Moolenaar <Bram@vim.org> parents: 18247 diff changeset	1138 call assert_equal(seq, v:termresponse)
db8cd5e56586 patch 8.1.2137: parsing the termresponse is not tested Bram Moolenaar <Bram@vim.org> parents: 18247 diff changeset	1139 call assert_equal('sgr', &ttymouse)
db8cd5e56586 patch 8.1.2137: parsing the termresponse is not tested Bram Moolenaar <Bram@vim.org> parents: 18247 diff changeset	1140
db8cd5e56586 patch 8.1.2137: parsing the termresponse is not tested Bram Moolenaar <Bram@vim.org> parents: 18247 diff changeset	1141 set t_RV=
db8cd5e56586 patch 8.1.2137: parsing the termresponse is not tested Bram Moolenaar <Bram@vim.org> parents: 18247 diff changeset	1142 endfunc
db8cd5e56586 patch 8.1.2137: parsing the termresponse is not tested Bram Moolenaar <Bram@vim.org> parents: 18247 diff changeset	1143
18360 e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1144 " This checks the Mac Terminal.app version response.
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1145 " This must be after other tests, because it has side effects to xterm
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1146 " properties.
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1147 func Test_xx04_Mac_Terminal_response()
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1148 " Termresponse is only parsed when t_RV is not empty.
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1149 set t_RV=x
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1150
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1151 set ttymouse=xterm
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1152 call test_option_not_set('ttymouse')
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1153 let seq = "\<Esc>[>1;95;0c"
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1154 call feedkeys(seq, 'Lx!')
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1155 call assert_equal(seq, v:termresponse)
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1156 call assert_equal('sgr', &ttymouse)
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1157
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1158 " Reset is_not_xterm and is_mac_terminal.
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1159 set t_RV=
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1160 set term=xterm
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1161 set t_RV=x
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1162 endfunc
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1163
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1164 " This checks the mintty version response.
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1165 " This must be after other tests, because it has side effects to xterm
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1166 " properties.
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1167 func Test_xx05_mintty_response()
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1168 " Termresponse is only parsed when t_RV is not empty.
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1169 set t_RV=x
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1170
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1171 set ttymouse=xterm
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1172 call test_option_not_set('ttymouse')
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1173 let seq = "\<Esc>[>77;20905;0c"
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1174 call feedkeys(seq, 'Lx!')
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1175 call assert_equal(seq, v:termresponse)
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1176 call assert_equal('sgr', &ttymouse)
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1177
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1178 set t_RV=
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1179 endfunc
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1180
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1181 " This checks the screen version response.
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1182 " This must be after other tests, because it has side effects to xterm
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1183 " properties.
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1184 func Test_xx06_screen_response()
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1185 " Termresponse is only parsed when t_RV is not empty.
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1186 set t_RV=x
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1187
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1188 " Old versions of screen don't support SGR mouse mode.
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1189 set ttymouse=xterm
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1190 call test_option_not_set('ttymouse')
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1191 let seq = "\<Esc>[>83;40500;0c"
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1192 call feedkeys(seq, 'Lx!')
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1193 call assert_equal(seq, v:termresponse)
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1194 call assert_equal('xterm', &ttymouse)
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1195
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1196 " screen supports SGR mouse mode starting in version 4.7.
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1197 set ttymouse=xterm
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1198 call test_option_not_set('ttymouse')
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1199 let seq = "\<Esc>[>83;40700;0c"
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1200 call feedkeys(seq, 'Lx!')
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1201 call assert_equal(seq, v:termresponse)
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1202 call assert_equal('sgr', &ttymouse)
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1203
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1204 set t_RV=
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1205 endfunc
e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1206
18311 60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1207 " This checks the xterm version response.
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1208 " This must be after other tests, because it has side effects to xterm
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1209 " properties.
18360 e460e6878406 patch 8.1.2174: screen not recognized as supporting "sgr" mouse codes Bram Moolenaar <Bram@vim.org> parents: 18350 diff changeset	1210 func Test_xx07_xterm_response()
18311 60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1211 " Termresponse is only parsed when t_RV is not empty.
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1212 set t_RV=x
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1213
18350 b1796f1b28fa patch 8.1.2169: terminal flags are never reset Bram Moolenaar <Bram@vim.org> parents: 18311 diff changeset	1214 " Do Terminal.app first to check that is_mac_terminal is reset.
b1796f1b28fa patch 8.1.2169: terminal flags are never reset Bram Moolenaar <Bram@vim.org> parents: 18311 diff changeset	1215 set ttymouse=xterm
b1796f1b28fa patch 8.1.2169: terminal flags are never reset Bram Moolenaar <Bram@vim.org> parents: 18311 diff changeset	1216 call test_option_not_set('ttymouse')
b1796f1b28fa patch 8.1.2169: terminal flags are never reset Bram Moolenaar <Bram@vim.org> parents: 18311 diff changeset	1217 let seq = "\<Esc>[>1;95;0c"
b1796f1b28fa patch 8.1.2169: terminal flags are never reset Bram Moolenaar <Bram@vim.org> parents: 18311 diff changeset	1218 call feedkeys(seq, 'Lx!')
b1796f1b28fa patch 8.1.2169: terminal flags are never reset Bram Moolenaar <Bram@vim.org> parents: 18311 diff changeset	1219 call assert_equal(seq, v:termresponse)
b1796f1b28fa patch 8.1.2169: terminal flags are never reset Bram Moolenaar <Bram@vim.org> parents: 18311 diff changeset	1220 call assert_equal('sgr', &ttymouse)
b1796f1b28fa patch 8.1.2169: terminal flags are never reset Bram Moolenaar <Bram@vim.org> parents: 18311 diff changeset	1221
18311 60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1222 " xterm < 95: "xterm" (actually unmodified)
18350 b1796f1b28fa patch 8.1.2169: terminal flags are never reset Bram Moolenaar <Bram@vim.org> parents: 18311 diff changeset	1223 set t_RV=
b1796f1b28fa patch 8.1.2169: terminal flags are never reset Bram Moolenaar <Bram@vim.org> parents: 18311 diff changeset	1224 set term=xterm
b1796f1b28fa patch 8.1.2169: terminal flags are never reset Bram Moolenaar <Bram@vim.org> parents: 18311 diff changeset	1225 set t_RV=x
18311 60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1226 set ttymouse=xterm
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1227 call test_option_not_set('ttymouse')
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1228 let seq = "\<Esc>[>0;94;0c"
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1229 call feedkeys(seq, 'Lx!')
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1230 call assert_equal(seq, v:termresponse)
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1231 call assert_equal('xterm', &ttymouse)
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1232
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1233 " xterm >= 95 < 277 "xterm2"
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1234 set ttymouse=xterm
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1235 call test_option_not_set('ttymouse')
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1236 let seq = "\<Esc>[>0;267;0c"
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1237 call feedkeys(seq, 'Lx!')
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1238 call assert_equal(seq, v:termresponse)
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1239 call assert_equal('xterm2', &ttymouse)
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1240
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1241 " xterm >= 277: "sgr"
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1242 set ttymouse=xterm
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1243 call test_option_not_set('ttymouse')
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1244 let seq = "\<Esc>[>0;277;0c"
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1245 call feedkeys(seq, 'Lx!')
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1246 call assert_equal(seq, v:termresponse)
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1247 call assert_equal('sgr', &ttymouse)
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1248
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1249 set t_RV=
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1250 endfunc
60fce48438e2 patch 8.1.2150: no test for 'ttymouse' set from xterm version response Bram Moolenaar <Bram@vim.org> parents: 18307 diff changeset	1251
16942 5f3e960ce76d patch 8.1.1472: add_termcap_entry() is not tested Bram Moolenaar <Bram@vim.org> parents: 16940 diff changeset	1252 func Test_get_termcode()
18247 eda5b2cb1dc4 patch 8.1.2118: termcodes test fails when $TERM is "dumb" Bram Moolenaar <Bram@vim.org> parents: 18223 diff changeset	1253 try
eda5b2cb1dc4 patch 8.1.2118: termcodes test fails when $TERM is "dumb" Bram Moolenaar <Bram@vim.org> parents: 18223 diff changeset	1254 let k1 = &t_k1
eda5b2cb1dc4 patch 8.1.2118: termcodes test fails when $TERM is "dumb" Bram Moolenaar <Bram@vim.org> parents: 18223 diff changeset	1255 catch /E113/
eda5b2cb1dc4 patch 8.1.2118: termcodes test fails when $TERM is "dumb" Bram Moolenaar <Bram@vim.org> parents: 18223 diff changeset	1256 throw 'Skipped: Unable to query termcodes'
eda5b2cb1dc4 patch 8.1.2118: termcodes test fails when $TERM is "dumb" Bram Moolenaar <Bram@vim.org> parents: 18223 diff changeset	1257 endtry
16942 5f3e960ce76d patch 8.1.1472: add_termcap_entry() is not tested Bram Moolenaar <Bram@vim.org> parents: 16940 diff changeset	1258 set t_k1=
5f3e960ce76d patch 8.1.1472: add_termcap_entry() is not tested Bram Moolenaar <Bram@vim.org> parents: 16940 diff changeset	1259 set t_k1&
5f3e960ce76d patch 8.1.1472: add_termcap_entry() is not tested Bram Moolenaar <Bram@vim.org> parents: 16940 diff changeset	1260 call assert_equal(k1, &t_k1)
16947 b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested Bram Moolenaar <Bram@vim.org> parents: 16942 diff changeset	1261
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested Bram Moolenaar <Bram@vim.org> parents: 16942 diff changeset	1262 " use external termcap first
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested Bram Moolenaar <Bram@vim.org> parents: 16942 diff changeset	1263 set nottybuiltin
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested Bram Moolenaar <Bram@vim.org> parents: 16942 diff changeset	1264 set t_k1=
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested Bram Moolenaar <Bram@vim.org> parents: 16942 diff changeset	1265 set t_k1&
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested Bram Moolenaar <Bram@vim.org> parents: 16942 diff changeset	1266 " when using external termcap may get something else, but it must not be
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested Bram Moolenaar <Bram@vim.org> parents: 16942 diff changeset	1267 " empty, since we would fallback to the builtin one.
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested Bram Moolenaar <Bram@vim.org> parents: 16942 diff changeset	1268 call assert_notequal('', &t_k1)
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested Bram Moolenaar <Bram@vim.org> parents: 16942 diff changeset	1269
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested Bram Moolenaar <Bram@vim.org> parents: 16942 diff changeset	1270 if &term =~ 'xterm'
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested Bram Moolenaar <Bram@vim.org> parents: 16942 diff changeset	1271 " use internal termcap first
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested Bram Moolenaar <Bram@vim.org> parents: 16942 diff changeset	1272 let term_save = &term
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested Bram Moolenaar <Bram@vim.org> parents: 16942 diff changeset	1273 let &term = 'builtin_' .. &term
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested Bram Moolenaar <Bram@vim.org> parents: 16942 diff changeset	1274 set t_k1=
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested Bram Moolenaar <Bram@vim.org> parents: 16942 diff changeset	1275 set t_k1&
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested Bram Moolenaar <Bram@vim.org> parents: 16942 diff changeset	1276 call assert_equal(k1, &t_k1)
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested Bram Moolenaar <Bram@vim.org> parents: 16942 diff changeset	1277 let &term = term_save
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested Bram Moolenaar <Bram@vim.org> parents: 16942 diff changeset	1278 endif
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested Bram Moolenaar <Bram@vim.org> parents: 16942 diff changeset	1279
b2179cf1a0a5 patch 8.1.1474: 'ttybuiltin' is not tested Bram Moolenaar <Bram@vim.org> parents: 16942 diff changeset	1280 set ttybuiltin
16942 5f3e960ce76d patch 8.1.1472: add_termcap_entry() is not tested Bram Moolenaar <Bram@vim.org> parents: 16940 diff changeset	1281 endfunc
18289 16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1282
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1283 func GetEscCodeCSI27(key, modifier)
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1284 let key = printf("%d", char2nr(a:key))
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1285 let mod = printf("%d", a:modifier)
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1286 return "\<Esc>[27;" .. mod .. ';' .. key .. '~'
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1287 endfunc
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1288
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1289 func GetEscCodeCSIu(key, modifier)
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1290 let key = printf("%d", char2nr(a:key))
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1291 let mod = printf("%d", a:modifier)
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1292 return "\<Esc>[" .. key .. ';' .. mod .. 'u'
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1293 endfunc
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1294
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1295 " This checks the CSI sequences when in modifyOtherKeys mode.
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1296 " The mode doesn't need to be enabled, the codes are always detected.
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1297 func RunTest_modifyOtherKeys(func)
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1298 new
18301 506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1299 set timeoutlen=10
18289 16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1300
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	1301 " Shift-X is sent as 'X' with the shift modifier
18289 16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1302 call feedkeys('a' .. a:func('X', 2) .. "\<Esc>", 'Lx!')
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1303 call assert_equal('X', getline(1))
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1304
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1305 " Ctrl-i is Tab
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1306 call setline(1, '')
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1307 call feedkeys('a' .. a:func('i', 5) .. "\<Esc>", 'Lx!')
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1308 call assert_equal("\t", getline(1))
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1309
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1310 " Ctrl-I is also Tab
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1311 call setline(1, '')
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1312 call feedkeys('a' .. a:func('I', 5) .. "\<Esc>", 'Lx!')
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1313 call assert_equal("\t", getline(1))
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1314
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1315 " Alt-x is ø
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1316 call setline(1, '')
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1317 call feedkeys('a' .. a:func('x', 3) .. "\<Esc>", 'Lx!')
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1318 call assert_equal("ø", getline(1))
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1319
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1320 " Meta-x is also ø
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1321 call setline(1, '')
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1322 call feedkeys('a' .. a:func('x', 9) .. "\<Esc>", 'Lx!')
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1323 call assert_equal("ø", getline(1))
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1324
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1325 " Alt-X is Ø
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1326 call setline(1, '')
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1327 call feedkeys('a' .. a:func('X', 3) .. "\<Esc>", 'Lx!')
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1328 call assert_equal("Ø", getline(1))
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1329
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1330 " Meta-X is ø
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1331 call setline(1, '')
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1332 call feedkeys('a' .. a:func('X', 9) .. "\<Esc>", 'Lx!')
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1333 call assert_equal("Ø", getline(1))
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1334
18683 5ed740336224 patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work Bram Moolenaar <Bram@vim.org> parents: 18627 diff changeset	1335 " Ctrl-6 is Ctrl-^
5ed740336224 patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work Bram Moolenaar <Bram@vim.org> parents: 18627 diff changeset	1336 split aaa
5ed740336224 patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work Bram Moolenaar <Bram@vim.org> parents: 18627 diff changeset	1337 edit bbb
5ed740336224 patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work Bram Moolenaar <Bram@vim.org> parents: 18627 diff changeset	1338 call feedkeys(a:func('6', 5), 'Lx!')
5ed740336224 patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work Bram Moolenaar <Bram@vim.org> parents: 18627 diff changeset	1339 call assert_equal("aaa", bufname())
5ed740336224 patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work Bram Moolenaar <Bram@vim.org> parents: 18627 diff changeset	1340 bwipe aaa
5ed740336224 patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work Bram Moolenaar <Bram@vim.org> parents: 18627 diff changeset	1341 bwipe bbb
5ed740336224 patch 8.1.2333: with modifyOtherKeys CTRL-^ doesn't work Bram Moolenaar <Bram@vim.org> parents: 18627 diff changeset	1342
18289 16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1343 bwipe!
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1344 set timeoutlen&
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1345 endfunc
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1346
18301 506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1347 func Test_modifyOtherKeys_basic()
18289 16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1348 call RunTest_modifyOtherKeys(function('GetEscCodeCSI27'))
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1349 call RunTest_modifyOtherKeys(function('GetEscCodeCSIu'))
16dd8ebc2339 patch 8.1.2139: the modifyOtherKeys codes are not tested Bram Moolenaar <Bram@vim.org> parents: 18285 diff changeset	1350 endfunc
18295 43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1351
18709 ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18683 diff changeset	1352 func Test_modifyOtherKeys_no_mapping()
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18683 diff changeset	1353 set timeoutlen=10
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18683 diff changeset	1354
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18683 diff changeset	1355 let @a = 'aaa'
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18683 diff changeset	1356 call feedkeys(":let x = '" .. GetEscCodeCSI27('R', 5) .. GetEscCodeCSI27('R', 5) .. "a'\<CR>", 'Lx!')
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18683 diff changeset	1357 call assert_equal("let x = 'aaa'", @:)
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18683 diff changeset	1358
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18683 diff changeset	1359 new
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18683 diff changeset	1360 call feedkeys("a" .. GetEscCodeCSI27('R', 5) .. GetEscCodeCSI27('R', 5) .. "a\<Esc>", 'Lx!')
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18683 diff changeset	1361 call assert_equal("aaa", getline(1))
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18683 diff changeset	1362 bwipe!
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18683 diff changeset	1363
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18683 diff changeset	1364 new
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18683 diff changeset	1365 call feedkeys("axx\<CR>yy" .. GetEscCodeCSI27('G', 5) .. GetEscCodeCSI27('K', 5) .. "a\<Esc>", 'Lx!')
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18683 diff changeset	1366 call assert_equal("axx", getline(1))
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18683 diff changeset	1367 call assert_equal("yy", getline(2))
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18683 diff changeset	1368 bwipe!
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18683 diff changeset	1369
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18683 diff changeset	1370 set timeoutlen&
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18683 diff changeset	1371 endfunc
ac08c7ad9d37 patch 8.1.2346: CTRL-R CTRL-R doesn't work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18683 diff changeset	1372
18295 43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1373 func RunTest_mapping_shift(key, func)
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1374 call setline(1, '')
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1375 if a:key == '\|'
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1376 exe 'inoremap \\| xyz'
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1377 else
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1378 exe 'inoremap ' .. a:key .. ' xyz'
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1379 endif
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1380 call feedkeys('a' .. a:func(a:key, 2) .. "\<Esc>", 'Lx!')
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1381 call assert_equal("xyz", getline(1))
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1382 if a:key == '\|'
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1383 exe 'iunmap \\|'
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1384 else
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1385 exe 'iunmap ' .. a:key
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1386 endif
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1387 endfunc
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1388
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1389 func RunTest_mapping_works_with_shift(func)
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1390 new
18301 506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1391 set timeoutlen=10
18295 43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1392
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1393 call RunTest_mapping_shift('@', a:func)
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1394 call RunTest_mapping_shift('A', a:func)
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1395 call RunTest_mapping_shift('Z', a:func)
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1396 call RunTest_mapping_shift('^', a:func)
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1397 call RunTest_mapping_shift('_', a:func)
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1398 call RunTest_mapping_shift('{', a:func)
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1399 call RunTest_mapping_shift('\|', a:func)
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1400 call RunTest_mapping_shift('}', a:func)
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1401 call RunTest_mapping_shift('~', a:func)
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1402
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1403 bwipe!
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1404 set timeoutlen&
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1405 endfunc
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1406
18301 506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1407 func Test_mapping_works_with_shift_plain()
18295 43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1408 call RunTest_mapping_works_with_shift(function('GetEscCodeCSI27'))
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1409 call RunTest_mapping_works_with_shift(function('GetEscCodeCSIu'))
43e9523f6d84 patch 8.1.2142: some key mappings do not work with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18289 diff changeset	1410 endfunc
18301 506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1411
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1412 func RunTest_mapping_mods(map, key, func, code)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1413 call setline(1, '')
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1414 exe 'inoremap ' .. a:map .. ' xyz'
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1415 call feedkeys('a' .. a:func(a:key, a:code) .. "\<Esc>", 'Lx!')
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1416 call assert_equal("xyz", getline(1))
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1417 exe 'iunmap ' .. a:map
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1418 endfunc
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1419
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1420 func RunTest_mapping_works_with_mods(func, mods, code)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1421 new
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1422 set timeoutlen=10
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1423
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1424 if a:mods !~ 'S'
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1425 " Shift by itself has no effect
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1426 call RunTest_mapping_mods('<' .. a:mods .. '-@>', '@', a:func, a:code)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1427 endif
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1428 call RunTest_mapping_mods('<' .. a:mods .. '-A>', 'A', a:func, a:code)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1429 call RunTest_mapping_mods('<' .. a:mods .. '-Z>', 'Z', a:func, a:code)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1430 if a:mods !~ 'S'
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1431 " with Shift code is always upper case
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1432 call RunTest_mapping_mods('<' .. a:mods .. '-a>', 'a', a:func, a:code)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1433 call RunTest_mapping_mods('<' .. a:mods .. '-z>', 'z', a:func, a:code)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1434 endif
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1435 if a:mods != 'A'
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1436 " with Alt code is not in upper case
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1437 call RunTest_mapping_mods('<' .. a:mods .. '-a>', 'A', a:func, a:code)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1438 call RunTest_mapping_mods('<' .. a:mods .. '-z>', 'Z', a:func, a:code)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1439 endif
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1440 call RunTest_mapping_mods('<' .. a:mods .. '-á>', 'á', a:func, a:code)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1441 if a:mods !~ 'S'
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1442 " Shift by itself has no effect
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1443 call RunTest_mapping_mods('<' .. a:mods .. '-^>', '^', a:func, a:code)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1444 call RunTest_mapping_mods('<' .. a:mods .. '-_>', '_', a:func, a:code)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1445 call RunTest_mapping_mods('<' .. a:mods .. '-{>', '{', a:func, a:code)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1446 call RunTest_mapping_mods('<' .. a:mods .. '-\\|>', '\|', a:func, a:code)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1447 call RunTest_mapping_mods('<' .. a:mods .. '-}>', '}', a:func, a:code)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1448 call RunTest_mapping_mods('<' .. a:mods .. '-~>', '~', a:func, a:code)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1449 endif
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1450
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1451 bwipe!
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1452 set timeoutlen&
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1453 endfunc
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1454
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1455 func Test_mapping_works_with_shift()
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1456 call RunTest_mapping_works_with_mods(function('GetEscCodeCSI27'), 'S', 2)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1457 call RunTest_mapping_works_with_mods(function('GetEscCodeCSIu'), 'S', 2)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1458 endfunc
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	1459
18301 506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1460 func Test_mapping_works_with_ctrl()
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1461 call RunTest_mapping_works_with_mods(function('GetEscCodeCSI27'), 'C', 5)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1462 call RunTest_mapping_works_with_mods(function('GetEscCodeCSIu'), 'C', 5)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1463 endfunc
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1464
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1465 func Test_mapping_works_with_shift_ctrl()
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1466 call RunTest_mapping_works_with_mods(function('GetEscCodeCSI27'), 'C-S', 6)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1467 call RunTest_mapping_works_with_mods(function('GetEscCodeCSIu'), 'C-S', 6)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1468 endfunc
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1469
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1470 " Below we also test the "u" code with Alt, This works, but libvterm would not
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1471 " send the Alt key like this but by prefixing an Esc.
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	1472
18301 506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1473 func Test_mapping_works_with_alt()
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1474 call RunTest_mapping_works_with_mods(function('GetEscCodeCSI27'), 'A', 3)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1475 call RunTest_mapping_works_with_mods(function('GetEscCodeCSIu'), 'A', 3)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1476 endfunc
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1477
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1478 func Test_mapping_works_with_shift_alt()
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1479 call RunTest_mapping_works_with_mods(function('GetEscCodeCSI27'), 'S-A', 4)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1480 call RunTest_mapping_works_with_mods(function('GetEscCodeCSIu'), 'S-A', 4)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1481 endfunc
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1482
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1483 func Test_mapping_works_with_ctrl_alt()
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1484 call RunTest_mapping_works_with_mods(function('GetEscCodeCSI27'), 'C-A', 7)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1485 call RunTest_mapping_works_with_mods(function('GetEscCodeCSIu'), 'C-A', 7)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1486 endfunc
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1487
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1488 func Test_mapping_works_with_shift_ctrl_alt()
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1489 call RunTest_mapping_works_with_mods(function('GetEscCodeCSI27'), 'C-S-A', 8)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1490 call RunTest_mapping_works_with_mods(function('GetEscCodeCSIu'), 'C-S-A', 8)
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled Bram Moolenaar <Bram@vim.org> parents: 18295 diff changeset	1491 endfunc
18717 14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1492
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1493 func Test_insert_literal()
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1494 set timeoutlen=10
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1495 new
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1496 " CTRL-V CTRL-X inserts a ^X
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1497 call feedkeys('a' .. GetEscCodeCSIu('V', '5') .. GetEscCodeCSIu('X', '5') .. "\<Esc>", 'Lx!')
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1498 call assert_equal("\<C-X>", getline(1))
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1499
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1500 call setline(1, '')
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1501 call feedkeys('a' .. GetEscCodeCSI27('V', '5') .. GetEscCodeCSI27('X', '5') .. "\<Esc>", 'Lx!')
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1502 call assert_equal("\<C-X>", getline(1))
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1503
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	1504 " CTRL-SHIFT-V CTRL-X inserts escape sequence
18717 14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1505 call setline(1, '')
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1506 call feedkeys('a' .. GetEscCodeCSIu('V', '6') .. GetEscCodeCSIu('X', '5') .. "\<Esc>", 'Lx!')
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1507 call assert_equal("\<Esc>[88;5u", getline(1))
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1508
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1509 call setline(1, '')
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1510 call feedkeys('a' .. GetEscCodeCSI27('V', '6') .. GetEscCodeCSI27('X', '5') .. "\<Esc>", 'Lx!')
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1511 call assert_equal("\<Esc>[27;5;88~", getline(1))
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1512
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1513 bwipe!
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1514 set timeoutlen&
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1515 endfunc
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1516
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1517 func Test_cmdline_literal()
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1518 set timeoutlen=10
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1519
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1520 " CTRL-V CTRL-Y inserts a ^Y
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1521 call feedkeys(':' .. GetEscCodeCSIu('V', '5') .. GetEscCodeCSIu('Y', '5') .. "\<C-B>\"\<CR>", 'Lx!')
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1522 call assert_equal("\"\<C-Y>", @:)
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1523
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1524 call feedkeys(':' .. GetEscCodeCSI27('V', '5') .. GetEscCodeCSI27('Y', '5') .. "\<C-B>\"\<CR>", 'Lx!')
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1525 call assert_equal("\"\<C-Y>", @:)
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1526
18918 5c256866b837 patch 8.2.0020: mouse clicks in the command line not tested Bram Moolenaar <Bram@vim.org> parents: 18717 diff changeset	1527 " CTRL-SHIFT-V CTRL-Y inserts escape sequence
18717 14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1528 call feedkeys(':' .. GetEscCodeCSIu('V', '6') .. GetEscCodeCSIu('Y', '5') .. "\<C-B>\"\<CR>", 'Lx!')
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1529 call assert_equal("\"\<Esc>[89;5u", @:)
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1530
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1531 call setline(1, '')
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1532 call feedkeys(':' .. GetEscCodeCSI27('V', '6') .. GetEscCodeCSI27('Y', '5') .. "\<C-B>\"\<CR>", 'Lx!')
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1533 call assert_equal("\"\<Esc>[27;5;89~", @:)
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1534
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1535 set timeoutlen&
14d2a210fab1 patch 8.1.2350: other text for CTRL-V in Insert mode with modifyOtherKeys Bram Moolenaar <Bram@vim.org> parents: 18709 diff changeset	1536 endfunc
19657 da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	1537
da791e5c0139 patch 8.2.0385: menu functionality insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 18918 diff changeset	1538 " vim: shiftwidth=2 sts=2 expandtab

Mercurial > vim

annotate src/testdir/test_termcodes.vim @ 19657:da791e5c0139 v8.2.0385