Mercurial > vim

annotate src/testdir/test_termcodes.vim @ 16310:5b8b849dc3aa v8.1.1160

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
patch 8.1.1160: termcodes test would fail in a very big terminal commit https://github.com/vim/vim/commit/c8b3ddab51cd2901d5946949d02c96e1035b25c0 Author: Bram Moolenaar <Bram@vim.org> Date: Fri Apr 12 21:42:52 2019 +0200 patch 8.1.1160: termcodes test would fail in a very big terminal Problem: Termcodes test would fail in a very big terminal. Solution: Bail out when the row is larger than what will work. (Dominique Pelle, closes #4246)
author Bram Moolenaar <Bram@vim.org>
date Fri, 12 Apr 2019 21:45:06 +0200
parents f3d579f009d1
children 57e0f6b4a87d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4 if has('gui_running') || !has('unix')
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5 finish
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
6 endif
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
7
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
8 " Helper function to emit a terminal escape code.
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
9 func TerminalEscapeCode(code_xterm, code_sgr, row, col, m)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
10 if &ttymouse ==# 'xterm'
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
11 " need to use byte encoding here.
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
12 let str = list2str([a:code_xterm, a:col + 0x20, a:row + 0x20])
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
13 if has('iconv')
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
14 let bytes = iconv(str, 'utf-8', 'latin1')
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
15 else
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
16 " 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
17 let bytes = str
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
18 endif
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
19 call feedkeys("\<Esc>[M" .. bytes, 'Lx!')
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
20 elseif &ttymouse ==# 'sgr'
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
21 call feedkeys(printf("\<Esc>[<%d;%d;%d%s", a:code_sgr, a:col, a:row, a:m), 'Lx!')
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
22 endif
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
23 endfunc
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
24
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
25 func MouseLeftClick(row, col)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
26 call TerminalEscapeCode(0x20, 0, a:row, a:col, 'M')
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
27 endfunc
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
28
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
29 func MouseLeftRelease(row, col)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
30 call TerminalEscapeCode(0x23, 3, a:row, a:col, 'm')
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
31 endfunc
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
32
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
33 func MouseLeftDrag(row, col)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
34 call TerminalEscapeCode(0x43, 0x20, a:row, a:col, 'M')
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
35 endfunc
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
36
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
37 func MouseWheelUp(row, col)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
38 call TerminalEscapeCode(0x40, 0x40, a:row, a:col, 'M')
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
39 endfunc
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
40
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
41 func MouseWheelDown(row, col)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
42 call TerminalEscapeCode(0x41, 0x41, a:row, a:col, 'M')
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
43 endfunc
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
44
16263
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
45 func Test_xterm_mouse_click()
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
46 new
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
47 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
48 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
49 let save_ttymouse = &ttymouse
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
50 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
51 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
52
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
53 for ttymouse_val in ['xterm', 'sgr']
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
54 exe 'set ttymouse=' . ttymouse_val
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
55 go
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
56 call assert_equal([0, 1, 1, 0], getpos('.'))
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
57 let row = 2
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
58 let col = 6
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
59 call MouseLeftClick(row, col)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
60 call MouseLeftRelease(row, col)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
61 call assert_equal([0, 2, 6, 0], getpos('.'))
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
62 endfor
16263
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
63
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
64 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
65 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
66 let &ttymouse = save_ttymouse
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
67 bwipe!
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
68 endfunc
d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
69
16265
7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16263
diff changeset
70 func Test_xterm_mouse_wheel()
7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16263
diff changeset
71 new
7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16263
diff changeset
72 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
73 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
74 let save_ttymouse = &ttymouse
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
75 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
76 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
77
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
78 for ttymouse_val in ['xterm', 'sgr']
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
79 exe 'set ttymouse=' . ttymouse_val
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
80 go
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
81 call assert_equal(1, line('w0'))
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
82 call assert_equal([0, 1, 1, 0], getpos('.'))
16265
7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16263
diff changeset
83
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
84 call MouseWheelDown(1, 1)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
85 call assert_equal(4, line('w0'))
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
86 call assert_equal([0, 4, 1, 0], getpos('.'))
16265
7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16263
diff changeset
87
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
88 call MouseWheelDown(1, 1)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
89 call assert_equal(7, line('w0'))
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
90 call assert_equal([0, 7, 1, 0], getpos('.'))
16265
7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16263
diff changeset
91
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
92 call MouseWheelUp(1, 1)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
93 call assert_equal(4, line('w0'))
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
94 call assert_equal([0, 7, 1, 0], getpos('.'))
16265
7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16263
diff changeset
95
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
96 call MouseWheelUp(1, 1)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
97 call assert_equal(1, line('w0'))
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
98 call assert_equal([0, 7, 1, 0], getpos('.'))
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
99 endfor
16265
7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16263
diff changeset
100
7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16263
diff changeset
101 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
102 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
103 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
104 bwipe!
7feb5b90be5f patch 8.1.1137: xterm mouse wheel escape sequence is not tested
Bram Moolenaar <Bram@vim.org>
parents: 16263
diff changeset
105 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
106
ed5172ae1c32 patch 8.1.1142: no test for dragging the window separators with the mouse
Bram Moolenaar <Bram@vim.org>
parents: 16265
diff changeset
107 func Test_xterm_mouse_drag_window_separator()
ed5172ae1c32 patch 8.1.1142: no test for dragging the window separators with the mouse
Bram Moolenaar <Bram@vim.org>
parents: 16265
diff changeset
108 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
109 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
110 let save_ttymouse = &ttymouse
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
111 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
112
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
113 for ttymouse_val in ['xterm', 'sgr']
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
114 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
115
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
116 " 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
117 split
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
118 let rowseparator = winheight(0) + 1
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
119 let row = rowseparator
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
120 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
121
5b8b849dc3aa patch 8.1.1160: termcodes test would fail in a very big terminal
Bram Moolenaar <Bram@vim.org>
parents: 16300
diff changeset
122 if ttymouse_val ==# 'xterm' && row > 223
5b8b849dc3aa patch 8.1.1160: termcodes test would fail in a very big terminal
Bram Moolenaar <Bram@vim.org>
parents: 16300
diff changeset
123 " When 'ttymouse' is 'xterm', row/col bigger than 223 are not supported.
5b8b849dc3aa patch 8.1.1160: termcodes test would fail in a very big terminal
Bram Moolenaar <Bram@vim.org>
parents: 16300
diff changeset
124 continue
5b8b849dc3aa patch 8.1.1160: termcodes test would fail in a very big terminal
Bram Moolenaar <Bram@vim.org>
parents: 16300
diff changeset
125 endif
5b8b849dc3aa patch 8.1.1160: termcodes test would fail in a very big terminal
Bram Moolenaar <Bram@vim.org>
parents: 16300
diff changeset
126
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
127 call MouseLeftClick(row, col)
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
128
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
129 let row -= 1
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
130 call MouseLeftDrag(row, col)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
131 call assert_equal(rowseparator - 1, winheight(0) + 1)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
132 let row += 1
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
133 call MouseLeftDrag(row, col)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
134 call assert_equal(rowseparator, winheight(0) + 1)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
135 call MouseLeftRelease(row, col)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
136 call assert_equal(rowseparator, winheight(0) + 1)
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
137
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
138 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
139
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
140 " 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
141 vsplit
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
142 let colseparator = winwidth(0) + 1
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
143
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
144 let row = 1
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
145 let col = colseparator
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
146 call MouseLeftClick(row, col)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
147 let col -= 1
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
148 call MouseLeftDrag(row, col)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
149 call assert_equal(colseparator - 1, winwidth(0) + 1)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
150 let col += 1
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
151 call MouseLeftDrag(row, col)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
152 call assert_equal(colseparator, winwidth(0) + 1)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
153 call MouseLeftRelease(row, col)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
154 call assert_equal(colseparator, winwidth(0) + 1)
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
155
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
156 bwipe!
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
157 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
158
ed5172ae1c32 patch 8.1.1142: no test for dragging the window separators with the mouse
Bram Moolenaar <Bram@vim.org>
parents: 16265
diff changeset
159 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
160 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
161 let &ttymouse = save_ttymouse
ed5172ae1c32 patch 8.1.1142: no test for dragging the window separators with the mouse
Bram Moolenaar <Bram@vim.org>
parents: 16265
diff changeset
162 endfunc
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
163
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
164 func Test_xterm_mouse_drag_statusline()
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
165 let save_mouse = &mouse
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
166 let save_term = &term
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
167 let save_ttymouse = &ttymouse
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
168 set mouse=a term=xterm
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
169
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
170 for ttymouse_val in ['xterm', 'sgr']
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
171 exe 'set ttymouse=' . ttymouse_val
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
172
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
173 call assert_equal(1, &cmdheight)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
174 let rowstatusline = winheight(0) + 1
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
175 let row = rowstatusline
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
176 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
177
5b8b849dc3aa patch 8.1.1160: termcodes test would fail in a very big terminal
Bram Moolenaar <Bram@vim.org>
parents: 16300
diff changeset
178 if ttymouse_val ==# 'xterm' && row > 223
5b8b849dc3aa patch 8.1.1160: termcodes test would fail in a very big terminal
Bram Moolenaar <Bram@vim.org>
parents: 16300
diff changeset
179 " When 'ttymouse' is 'xterm', row/col bigger than 223 are not supported.
5b8b849dc3aa patch 8.1.1160: termcodes test would fail in a very big terminal
Bram Moolenaar <Bram@vim.org>
parents: 16300
diff changeset
180 continue
5b8b849dc3aa patch 8.1.1160: termcodes test would fail in a very big terminal
Bram Moolenaar <Bram@vim.org>
parents: 16300
diff changeset
181 endif
5b8b849dc3aa patch 8.1.1160: termcodes test would fail in a very big terminal
Bram Moolenaar <Bram@vim.org>
parents: 16300
diff changeset
182
16300
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
183 call MouseLeftClick(row, col)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
184 let row -= 1
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
185 call MouseLeftDrag(row, col)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
186 call assert_equal(2, &cmdheight)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
187 call assert_equal(rowstatusline - 1, winheight(0) + 1)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
188 let row += 1
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
189 call MouseLeftDrag(row, col)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
190 call assert_equal(1, &cmdheight)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
191 call assert_equal(rowstatusline, winheight(0) + 1)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
192 call MouseLeftRelease(row, col)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
193 call assert_equal(1, &cmdheight)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
194 call assert_equal(rowstatusline, winheight(0) + 1)
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
195 endfor
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
196
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
197 let &mouse = save_mouse
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
198 let &term = save_term
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
199 let &ttymouse = save_ttymouse
f3d579f009d1 patch 8.1.1155: termcodes tests can be improved
Bram Moolenaar <Bram@vim.org>
parents: 16275
diff changeset
200 endfunc