annotate src/testdir/test_gui.vim @ 30535:04df44c52d65 v9.0.0603

patch 9.0.0603: with 'nosplitscroll' folds are not handled correctly Commit: https://github.com/vim/vim/commit/7c1cbb6cd437c6e0c3ccc05840cc931108b4a60a Author: Luuk van Baal <luukvbaal@gmail.com> Date: Tue Sep 27 12:31:15 2022 +0100 patch 9.0.0603: with 'nosplitscroll' folds are not handled correctly Problem: With 'nosplitscroll' folds are not handled correctly. Solution: Take care of closed folds when moving the cursor. (Luuk van Baal, closes #11234)
author Bram Moolenaar <Bram@vim.org>
date Tue, 27 Sep 2022 13:45:04 +0200
parents d9768ddc26fd
children bcd204e28fed
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
9756
00d753ea19a9 commit https://github.com/vim/vim/commit/877e95779869c5426102aa491f67d99904c8534c
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1 " Tests specifically for the GUI
00d753ea19a9 commit https://github.com/vim/vim/commit/877e95779869c5426102aa491f67d99904c8534c
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
2
12106
d2c20ec4b95a patch 8.0.0933: terminal test tries to start GUI when it's not possible
Christian Brabandt <cb@256bit.org>
parents: 11183
diff changeset
3 source shared.vim
17657
0da9bc55c31a patch 8.1.1826: tests use hand coded feature and option checks
Bram Moolenaar <Bram@vim.org>
parents: 17172
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: 17172
diff changeset
5 CheckCanRunGui
9756
00d753ea19a9 commit https://github.com/vim/vim/commit/877e95779869c5426102aa491f67d99904c8534c
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6
10944
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents: 10885
diff changeset
7 source setup_gui.vim
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
8
10944
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents: 10885
diff changeset
9 func Setup()
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents: 10885
diff changeset
10 call GUISetUpCommon()
9830
6049c1f01391 commit https://github.com/vim/vim/commit/50fa8dd00c241fa0786fe92ecc02fee4e5d28e06
Christian Brabandt <cb@256bit.org>
parents: 9760
diff changeset
11 endfunc
6049c1f01391 commit https://github.com/vim/vim/commit/50fa8dd00c241fa0786fe92ecc02fee4e5d28e06
Christian Brabandt <cb@256bit.org>
parents: 9760
diff changeset
12
6049c1f01391 commit https://github.com/vim/vim/commit/50fa8dd00c241fa0786fe92ecc02fee4e5d28e06
Christian Brabandt <cb@256bit.org>
parents: 9760
diff changeset
13 func TearDown()
10944
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents: 10885
diff changeset
14 call GUITearDownCommon()
9756
00d753ea19a9 commit https://github.com/vim/vim/commit/877e95779869c5426102aa491f67d99904c8534c
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
15 endfunc
00d753ea19a9 commit https://github.com/vim/vim/commit/877e95779869c5426102aa491f67d99904c8534c
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
16
00d753ea19a9 commit https://github.com/vim/vim/commit/877e95779869c5426102aa491f67d99904c8534c
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
17 " Test for resetting "secure" flag after GUI has started.
13351
33a2277b8d4d patch 8.0.1549: various small problems in test files
Christian Brabandt <cb@256bit.org>
parents: 12106
diff changeset
18 " Must be run first, since it starts the GUI on Unix.
9756
00d753ea19a9 commit https://github.com/vim/vim/commit/877e95779869c5426102aa491f67d99904c8534c
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
19 func Test_1_set_secure()
00d753ea19a9 commit https://github.com/vim/vim/commit/877e95779869c5426102aa491f67d99904c8534c
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
20 set exrc secure
00d753ea19a9 commit https://github.com/vim/vim/commit/877e95779869c5426102aa491f67d99904c8534c
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
21 gui -f
00d753ea19a9 commit https://github.com/vim/vim/commit/877e95779869c5426102aa491f67d99904c8534c
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
22 call assert_equal(1, has('gui_running'))
00d753ea19a9 commit https://github.com/vim/vim/commit/877e95779869c5426102aa491f67d99904c8534c
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
23 endfunc
00d753ea19a9 commit https://github.com/vim/vim/commit/877e95779869c5426102aa491f67d99904c8534c
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
24
11050
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
25 " As for non-GUI, a balloon_show() test was already added with patch 8.0.0401
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
26 func Test_balloon_show()
21765
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 20701
diff changeset
27 CheckFeature balloon_eval
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 20701
diff changeset
28 " This won't do anything but must not crash either.
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 20701
diff changeset
29 call balloon_show('hi!')
11050
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
30 endfunc
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
31
11119
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
32 func Test_colorscheme()
19997
3d1de9093c01 patch 8.2.0554: the GUI doesn't set t_Co
Bram Moolenaar <Bram@vim.org>
parents: 19932
diff changeset
33 call assert_equal('16777216', &t_Co)
3d1de9093c01 patch 8.2.0554: the GUI doesn't set t_Co
Bram Moolenaar <Bram@vim.org>
parents: 19932
diff changeset
34
11119
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
35 let colorscheme_saved = exists('g:colors_name') ? g:colors_name : 'default'
13810
cad480bac9e1 patch 8.0.1777: cannot cleanup before loading another colorscheme
Christian Brabandt <cb@256bit.org>
parents: 13351
diff changeset
36 let g:color_count = 0
cad480bac9e1 patch 8.0.1777: cannot cleanup before loading another colorscheme
Christian Brabandt <cb@256bit.org>
parents: 13351
diff changeset
37 augroup TestColors
cad480bac9e1 patch 8.0.1777: cannot cleanup before loading another colorscheme
Christian Brabandt <cb@256bit.org>
parents: 13351
diff changeset
38 au!
30011
b8abb8908801 patch 9.0.0343: ColorScheme autocommand triggered when colorscheme not found
Bram Moolenaar <Bram@vim.org>
parents: 29970
diff changeset
39 au ColorScheme * let g:color_count += 1
b8abb8908801 patch 9.0.0343: ColorScheme autocommand triggered when colorscheme not found
Bram Moolenaar <Bram@vim.org>
parents: 29970
diff changeset
40 \ | let g:after_colors = g:color_count
b8abb8908801 patch 9.0.0343: ColorScheme autocommand triggered when colorscheme not found
Bram Moolenaar <Bram@vim.org>
parents: 29970
diff changeset
41 \ | let g:color_after = expand('<amatch>')
b8abb8908801 patch 9.0.0343: ColorScheme autocommand triggered when colorscheme not found
Bram Moolenaar <Bram@vim.org>
parents: 29970
diff changeset
42 au ColorSchemePre * let g:color_count += 1
b8abb8908801 patch 9.0.0343: ColorScheme autocommand triggered when colorscheme not found
Bram Moolenaar <Bram@vim.org>
parents: 29970
diff changeset
43 \ | let g:before_colors = g:color_count
b8abb8908801 patch 9.0.0343: ColorScheme autocommand triggered when colorscheme not found
Bram Moolenaar <Bram@vim.org>
parents: 29970
diff changeset
44 \ | let g:color_pre = expand('<amatch>')
13810
cad480bac9e1 patch 8.0.1777: cannot cleanup before loading another colorscheme
Christian Brabandt <cb@256bit.org>
parents: 13351
diff changeset
45 augroup END
11119
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
46
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
47 colorscheme torte
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
48 redraw!
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
49 call assert_equal('dark', &background)
13810
cad480bac9e1 patch 8.0.1777: cannot cleanup before loading another colorscheme
Christian Brabandt <cb@256bit.org>
parents: 13351
diff changeset
50 call assert_equal(1, g:before_colors)
cad480bac9e1 patch 8.0.1777: cannot cleanup before loading another colorscheme
Christian Brabandt <cb@256bit.org>
parents: 13351
diff changeset
51 call assert_equal(2, g:after_colors)
30011
b8abb8908801 patch 9.0.0343: ColorScheme autocommand triggered when colorscheme not found
Bram Moolenaar <Bram@vim.org>
parents: 29970
diff changeset
52 call assert_equal('torte', g:color_pre)
b8abb8908801 patch 9.0.0343: ColorScheme autocommand triggered when colorscheme not found
Bram Moolenaar <Bram@vim.org>
parents: 29970
diff changeset
53 call assert_equal('torte', g:color_after)
15394
f20d90aeecaa patch 8.1.0705: :colorscheme isn't tested enough
Bram Moolenaar <Bram@vim.org>
parents: 14756
diff changeset
54 call assert_equal("\ntorte", execute('colorscheme'))
f20d90aeecaa patch 8.1.0705: :colorscheme isn't tested enough
Bram Moolenaar <Bram@vim.org>
parents: 14756
diff changeset
55
f20d90aeecaa patch 8.1.0705: :colorscheme isn't tested enough
Bram Moolenaar <Bram@vim.org>
parents: 14756
diff changeset
56 let a = substitute(execute('hi Search'), "\n\\s\\+", ' ', 'g')
28858
7f1a48f095be patch 8.2.4952: GUI test will fail if color scheme changes
Bram Moolenaar <Bram@vim.org>
parents: 28755
diff changeset
57 " FIXME: temporarily check less while the colorscheme changes
7f1a48f095be patch 8.2.4952: GUI test will fail if color scheme changes
Bram Moolenaar <Bram@vim.org>
parents: 28755
diff changeset
58 " call assert_match("\nSearch xxx term=reverse cterm=reverse ctermfg=196 ctermbg=16 gui=reverse guifg=#ff0000 guibg=#000000", a)
7f1a48f095be patch 8.2.4952: GUI test will fail if color scheme changes
Bram Moolenaar <Bram@vim.org>
parents: 28755
diff changeset
59 call assert_match("\nSearch xxx term=reverse ", a)
15394
f20d90aeecaa patch 8.1.0705: :colorscheme isn't tested enough
Bram Moolenaar <Bram@vim.org>
parents: 14756
diff changeset
60
f20d90aeecaa patch 8.1.0705: :colorscheme isn't tested enough
Bram Moolenaar <Bram@vim.org>
parents: 14756
diff changeset
61 call assert_fails('colorscheme does_not_exist', 'E185:')
30011
b8abb8908801 patch 9.0.0343: ColorScheme autocommand triggered when colorscheme not found
Bram Moolenaar <Bram@vim.org>
parents: 29970
diff changeset
62 call assert_equal('does_not_exist', g:color_pre)
b8abb8908801 patch 9.0.0343: ColorScheme autocommand triggered when colorscheme not found
Bram Moolenaar <Bram@vim.org>
parents: 29970
diff changeset
63 call assert_equal('torte', g:color_after)
11119
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
64
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
65 exec 'colorscheme' colorscheme_saved
13810
cad480bac9e1 patch 8.0.1777: cannot cleanup before loading another colorscheme
Christian Brabandt <cb@256bit.org>
parents: 13351
diff changeset
66 augroup TestColors
cad480bac9e1 patch 8.0.1777: cannot cleanup before loading another colorscheme
Christian Brabandt <cb@256bit.org>
parents: 13351
diff changeset
67 au!
cad480bac9e1 patch 8.0.1777: cannot cleanup before loading another colorscheme
Christian Brabandt <cb@256bit.org>
parents: 13351
diff changeset
68 augroup END
cad480bac9e1 patch 8.0.1777: cannot cleanup before loading another colorscheme
Christian Brabandt <cb@256bit.org>
parents: 13351
diff changeset
69 unlet g:color_count g:after_colors g:before_colors
11119
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
70 redraw!
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
71 endfunc
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
72
10847
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10841
diff changeset
73 func Test_getfontname_with_arg()
25986
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
74 CheckX11BasedGui
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
75
28303
9849df834f1d patch 8.2.4677: the Athena GUI support is outdated
Bram Moolenaar <Bram@vim.org>
parents: 28297
diff changeset
76 if has('gui_motif')
10847
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10841
diff changeset
77 " Invalid font name. The result should be an empty string.
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10841
diff changeset
78 call assert_equal('', getfontname('notexist'))
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10841
diff changeset
79
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10841
diff changeset
80 " Valid font name. This is usually the real name of 7x13 by default.
11119
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
81 let fname = '-Misc-Fixed-Medium-R-Normal--13-120-75-75-C-70-ISO8859-1'
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
82 call assert_match(fname, getfontname(fname))
10847
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10841
diff changeset
83
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10841
diff changeset
84 elseif has('gui_gtk2') || has('gui_gnome') || has('gui_gtk3')
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10841
diff changeset
85 " Invalid font name. The result should be the name plus the default size.
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10841
diff changeset
86 call assert_equal('notexist 10', getfontname('notexist'))
19783
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 18767
diff changeset
87 call assert_equal('', getfontname('*'))
10847
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10841
diff changeset
88
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10841
diff changeset
89 " Valid font name. This is usually the real name of Monospace by default.
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
90 let fname = 'Bitstream Vera Sans Mono 12'
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
91 call assert_equal(fname, getfontname(fname))
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
92 endif
10847
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10841
diff changeset
93 endfunc
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10841
diff changeset
94
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10841
diff changeset
95 func Test_getfontname_without_arg()
25986
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
96 CheckX11BasedGui
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
97
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
98 let fname = getfontname()
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
99
25986
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
100 if has('gui_kde')
10847
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10841
diff changeset
101 " 'expected' is the value specified by SetUp() above.
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
102 call assert_equal('Courier 10 Pitch/8/-1/5/50/0/0/0/0/0', fname)
28303
9849df834f1d patch 8.2.4677: the Athena GUI support is outdated
Bram Moolenaar <Bram@vim.org>
parents: 28297
diff changeset
103 elseif has('gui_motif')
11119
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
104 " 'expected' is DFLT_FONT of gui_x11.c or its real name.
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
105 let pat = '\(7x13\)\|\(\c-Misc-Fixed-Medium-R-Normal--13-120-75-75-C-70-ISO8859-1\)'
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
106 call assert_match(pat, fname)
10847
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10841
diff changeset
107 elseif has('gui_gtk2') || has('gui_gnome') || has('gui_gtk3')
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10841
diff changeset
108 " 'expected' is DEFAULT_FONT of gui_gtk_x11.c.
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
109 call assert_equal('Monospace 10', fname)
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
110 endif
10847
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10841
diff changeset
111 endfunc
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10841
diff changeset
112
11119
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
113 func Test_getwinpos()
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
114 call assert_match('Window position: X \d\+, Y \d\+', execute('winpos'))
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
115 call assert_true(getwinposx() >= 0)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
116 call assert_true(getwinposy() >= 0)
13940
70e36e1ca442 patch 8.0.1840: getwinpos() is not tested
Christian Brabandt <cb@256bit.org>
parents: 13843
diff changeset
117 call assert_equal([getwinposx(), getwinposy()], getwinpos())
11119
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
118 endfunc
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
119
10972
488cda29455b patch 8.0.0375: the "+ register is not tested
Christian Brabandt <cb@256bit.org>
parents: 10944
diff changeset
120 func Test_quoteplus()
25986
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
121 CheckX11BasedGui
10972
488cda29455b patch 8.0.0375: the "+ register is not tested
Christian Brabandt <cb@256bit.org>
parents: 10944
diff changeset
122
25986
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
123 let g:test_is_flaky = 1
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
124
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
125 let quoteplus_saved = @+
10972
488cda29455b patch 8.0.0375: the "+ register is not tested
Christian Brabandt <cb@256bit.org>
parents: 10944
diff changeset
126
25986
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
127 let test_call = 'Can you hear me?'
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
128 let test_response = 'Yes, I can.'
29183
8f6b850bb8c3 patch 8.2.5111: no test for --gui-dialog-file
Bram Moolenaar <Bram@vim.org>
parents: 29052
diff changeset
129 let testee = 'VIMRUNTIME=' .. $VIMRUNTIME .. '; export VIMRUNTIME;'
8f6b850bb8c3 patch 8.2.5111: no test for --gui-dialog-file
Bram Moolenaar <Bram@vim.org>
parents: 29052
diff changeset
130 \ .. GetVimCommand() .. ' --noplugin --not-a-term -c ''%s'''
25986
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
131 " Ignore the "failed to create input context" error.
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
132 let cmd = 'call test_ignore_error("E285") | '
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
133 \ . 'gui -f | '
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
134 \ . 'call feedkeys("'
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
135 \ . '\"+p'
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
136 \ . ':s/' . test_call . '/' . test_response . '/\<CR>'
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
137 \ . '\"+yis'
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
138 \ . ':q!\<CR>", "tx")'
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
139 let run_vimtest = printf(testee, cmd)
10972
488cda29455b patch 8.0.0375: the "+ register is not tested
Christian Brabandt <cb@256bit.org>
parents: 10944
diff changeset
140
25986
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
141 " Set the quoteplus register to test_call, and another gvim will launched.
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
142 " Then, it first tries to paste the content of its own quotedplus register
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
143 " onto it. Second, it tries to substitute test_response for the pasted
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
144 " sentence. If the sentence is identical to test_call, the substitution
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
145 " should succeed. Third, it tries to yank the result of the substitution
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
146 " to its own quoteplus register, and last it quits. When system()
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
147 " returns, the content of the quoteplus register should be identical to
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
148 " test_response if those quoteplus registers are synchronized properly
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
149 " with/through the X11 clipboard.
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
150 let @+ = test_call
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
151 call system(run_vimtest)
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
152 call assert_equal(test_response, @+)
10972
488cda29455b patch 8.0.0375: the "+ register is not tested
Christian Brabandt <cb@256bit.org>
parents: 10944
diff changeset
153
25986
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
154 let @+ = quoteplus_saved
10972
488cda29455b patch 8.0.0375: the "+ register is not tested
Christian Brabandt <cb@256bit.org>
parents: 10944
diff changeset
155 endfunc
488cda29455b patch 8.0.0375: the "+ register is not tested
Christian Brabandt <cb@256bit.org>
parents: 10944
diff changeset
156
26028
be2d004247e1 patch 8.2.3548: GTK GUI crashen when reading from stdin
Bram Moolenaar <Bram@vim.org>
parents: 25986
diff changeset
157 func Test_gui_read_stdin()
be2d004247e1 patch 8.2.3548: GTK GUI crashen when reading from stdin
Bram Moolenaar <Bram@vim.org>
parents: 25986
diff changeset
158 CheckUnix
be2d004247e1 patch 8.2.3548: GTK GUI crashen when reading from stdin
Bram Moolenaar <Bram@vim.org>
parents: 25986
diff changeset
159
be2d004247e1 patch 8.2.3548: GTK GUI crashen when reading from stdin
Bram Moolenaar <Bram@vim.org>
parents: 25986
diff changeset
160 call writefile(['some', 'lines'], 'Xstdin')
be2d004247e1 patch 8.2.3548: GTK GUI crashen when reading from stdin
Bram Moolenaar <Bram@vim.org>
parents: 25986
diff changeset
161 let script =<< trim END
be2d004247e1 patch 8.2.3548: GTK GUI crashen when reading from stdin
Bram Moolenaar <Bram@vim.org>
parents: 25986
diff changeset
162 call writefile(getline(1, '$'), 'XstdinOK')
be2d004247e1 patch 8.2.3548: GTK GUI crashen when reading from stdin
Bram Moolenaar <Bram@vim.org>
parents: 25986
diff changeset
163 qa!
be2d004247e1 patch 8.2.3548: GTK GUI crashen when reading from stdin
Bram Moolenaar <Bram@vim.org>
parents: 25986
diff changeset
164 END
be2d004247e1 patch 8.2.3548: GTK GUI crashen when reading from stdin
Bram Moolenaar <Bram@vim.org>
parents: 25986
diff changeset
165 call writefile(script, 'Xscript')
be2d004247e1 patch 8.2.3548: GTK GUI crashen when reading from stdin
Bram Moolenaar <Bram@vim.org>
parents: 25986
diff changeset
166
be2d004247e1 patch 8.2.3548: GTK GUI crashen when reading from stdin
Bram Moolenaar <Bram@vim.org>
parents: 25986
diff changeset
167 " Cannot use --not-a-term here, the "reading from stdin" message would not be
be2d004247e1 patch 8.2.3548: GTK GUI crashen when reading from stdin
Bram Moolenaar <Bram@vim.org>
parents: 25986
diff changeset
168 " displayed.
29052
e91e749ac101 patch 8.2.5048: when using XIM the gui test may fail
Bram Moolenaar <Bram@vim.org>
parents: 28889
diff changeset
169 " However, when using XIM we might get E285, do use it then.
e91e749ac101 patch 8.2.5048: when using XIM the gui test may fail
Bram Moolenaar <Bram@vim.org>
parents: 28889
diff changeset
170 if has('xim')
e91e749ac101 patch 8.2.5048: when using XIM the gui test may fail
Bram Moolenaar <Bram@vim.org>
parents: 28889
diff changeset
171 let vimcmd = GetVimCommand()
e91e749ac101 patch 8.2.5048: when using XIM the gui test may fail
Bram Moolenaar <Bram@vim.org>
parents: 28889
diff changeset
172 else
e91e749ac101 patch 8.2.5048: when using XIM the gui test may fail
Bram Moolenaar <Bram@vim.org>
parents: 28889
diff changeset
173 let vimcmd = substitute(GetVimCommand(), '--not-a-term', '', '')
e91e749ac101 patch 8.2.5048: when using XIM the gui test may fail
Bram Moolenaar <Bram@vim.org>
parents: 28889
diff changeset
174 endif
26028
be2d004247e1 patch 8.2.3548: GTK GUI crashen when reading from stdin
Bram Moolenaar <Bram@vim.org>
parents: 25986
diff changeset
175
be2d004247e1 patch 8.2.3548: GTK GUI crashen when reading from stdin
Bram Moolenaar <Bram@vim.org>
parents: 25986
diff changeset
176 call system('cat Xstdin | ' .. vimcmd .. ' -f -g -S Xscript -')
be2d004247e1 patch 8.2.3548: GTK GUI crashen when reading from stdin
Bram Moolenaar <Bram@vim.org>
parents: 25986
diff changeset
177 call assert_equal(['some', 'lines'], readfile('XstdinOK'))
be2d004247e1 patch 8.2.3548: GTK GUI crashen when reading from stdin
Bram Moolenaar <Bram@vim.org>
parents: 25986
diff changeset
178
be2d004247e1 patch 8.2.3548: GTK GUI crashen when reading from stdin
Bram Moolenaar <Bram@vim.org>
parents: 25986
diff changeset
179 call delete('Xstdin')
be2d004247e1 patch 8.2.3548: GTK GUI crashen when reading from stdin
Bram Moolenaar <Bram@vim.org>
parents: 25986
diff changeset
180 call delete('XstdinOK')
be2d004247e1 patch 8.2.3548: GTK GUI crashen when reading from stdin
Bram Moolenaar <Bram@vim.org>
parents: 25986
diff changeset
181 call delete('Xscript')
be2d004247e1 patch 8.2.3548: GTK GUI crashen when reading from stdin
Bram Moolenaar <Bram@vim.org>
parents: 25986
diff changeset
182 endfunc
be2d004247e1 patch 8.2.3548: GTK GUI crashen when reading from stdin
Bram Moolenaar <Bram@vim.org>
parents: 25986
diff changeset
183
11119
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
184 func Test_set_background()
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
185 let background_saved = &background
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
186
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
187 set background&
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
188 call assert_equal('light', &background)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
189
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
190 set background=dark
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
191 call assert_equal('dark', &background)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
192
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
193 let &background = background_saved
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
194 endfunc
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
195
11050
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
196 func Test_set_balloondelay()
21765
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 20701
diff changeset
197 CheckOption balloondelay
11050
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
198
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
199 let balloondelay_saved = &balloondelay
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
200
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
201 " Check if the default value is identical to that described in the manual.
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
202 set balloondelay&
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
203 call assert_equal(600, &balloondelay)
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
204
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
205 " Edge cases
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
206
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
207 " XXX This fact should be hidden so that people won't be tempted to write
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
208 " plugin/TimeMachine.vim. TODO Add reasonable range checks to the source
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
209 " code.
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
210 set balloondelay=-1
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
211 call assert_equal(-1, &balloondelay)
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
212
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
213 " Though it's possible to interpret the zero delay to be 'as soon as
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
214 " possible' or even 'indefinite', its actual meaning depends on the GUI
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
215 " toolkit in use after all.
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
216 set balloondelay=0
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
217 call assert_equal(0, &balloondelay)
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
218
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
219 set balloondelay=1
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
220 call assert_equal(1, &balloondelay)
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
221
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
222 " Since p_bdelay is of type long currently, the upper bound can be
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
223 " impractically huge and machine-dependent. Practically, it's sufficient
11052
975f54a391ec patch 8.0.0415: balloon test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 11050
diff changeset
224 " to check if balloondelay works with 0x7fffffff (32 bits) for now.
975f54a391ec patch 8.0.0415: balloon test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 11050
diff changeset
225 set balloondelay=2147483647
975f54a391ec patch 8.0.0415: balloon test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 11050
diff changeset
226 call assert_equal(2147483647, &balloondelay)
11050
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
227
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
228 let &balloondelay = balloondelay_saved
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
229 endfunc
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
230
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
231 func Test_set_ballooneval()
21765
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 20701
diff changeset
232 CheckOption ballooneval
11050
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
233
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
234 let ballooneval_saved = &ballooneval
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
235
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
236 set ballooneval&
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
237 call assert_equal(0, &ballooneval)
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
238
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
239 set ballooneval
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
240 call assert_notequal(0, &ballooneval)
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
241
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
242 set noballooneval
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
243 call assert_equal(0, &ballooneval)
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
244
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
245 let &ballooneval = ballooneval_saved
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
246 endfunc
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
247
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
248 func Test_set_balloonexpr()
21765
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 20701
diff changeset
249 CheckOption balloonexpr
11050
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
250
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
251 let balloonexpr_saved = &balloonexpr
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
252
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
253 " Default value
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
254 set balloonexpr&
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
255 call assert_equal('', &balloonexpr)
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
256
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
257 " User-defined function
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
258 new
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
259 func MyBalloonExpr()
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
260 return 'Cursor is at line ' . v:beval_lnum .
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
261 \', column ' . v:beval_col .
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
262 \ ' of file ' . bufname(v:beval_bufnr) .
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
263 \ ' on word "' . v:beval_text . '"' .
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
264 \ ' in window ' . v:beval_winid . ' (#' . v:beval_winnr . ')'
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
265 endfunc
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
266 setl balloonexpr=MyBalloonExpr()
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
267 setl ballooneval
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
268 call assert_equal('MyBalloonExpr()', &balloonexpr)
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
269 " TODO Read non-empty text, place the pointer at a character of a word,
13940
70e36e1ca442 patch 8.0.1840: getwinpos() is not tested
Christian Brabandt <cb@256bit.org>
parents: 13843
diff changeset
270 " and check if the content of the balloon is the same as what is expected.
11050
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
271 " Also, check if textlock works as expected.
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
272 setl balloonexpr&
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
273 call assert_equal('', &balloonexpr)
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
274 delfunc MyBalloonExpr
26743
c2c40cefc17b patch 8.2.3900: it is not easy to use a script-local function for an option
Bram Moolenaar <Bram@vim.org>
parents: 26028
diff changeset
275
c2c40cefc17b patch 8.2.3900: it is not easy to use a script-local function for an option
Bram Moolenaar <Bram@vim.org>
parents: 26028
diff changeset
276 " Using a script-local function
c2c40cefc17b patch 8.2.3900: it is not easy to use a script-local function for an option
Bram Moolenaar <Bram@vim.org>
parents: 26028
diff changeset
277 func s:NewBalloonExpr()
c2c40cefc17b patch 8.2.3900: it is not easy to use a script-local function for an option
Bram Moolenaar <Bram@vim.org>
parents: 26028
diff changeset
278 endfunc
c2c40cefc17b patch 8.2.3900: it is not easy to use a script-local function for an option
Bram Moolenaar <Bram@vim.org>
parents: 26028
diff changeset
279 set balloonexpr=s:NewBalloonExpr()
c2c40cefc17b patch 8.2.3900: it is not easy to use a script-local function for an option
Bram Moolenaar <Bram@vim.org>
parents: 26028
diff changeset
280 call assert_equal(expand('<SID>') .. 'NewBalloonExpr()', &balloonexpr)
c2c40cefc17b patch 8.2.3900: it is not easy to use a script-local function for an option
Bram Moolenaar <Bram@vim.org>
parents: 26028
diff changeset
281 set balloonexpr=<SID>NewBalloonExpr()
c2c40cefc17b patch 8.2.3900: it is not easy to use a script-local function for an option
Bram Moolenaar <Bram@vim.org>
parents: 26028
diff changeset
282 call assert_equal(expand('<SID>') .. 'NewBalloonExpr()', &balloonexpr)
c2c40cefc17b patch 8.2.3900: it is not easy to use a script-local function for an option
Bram Moolenaar <Bram@vim.org>
parents: 26028
diff changeset
283 delfunc s:NewBalloonExpr
11050
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
284 bwipe!
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
285
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
286 " Multiline support
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
287 if has('balloon_multiline')
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
288 " Multiline balloon using NL
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
289 new
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
290 func MyBalloonFuncForMultilineUsingNL()
28171
b4c111ea83b1 patch 8.2.4611: typos in tests; one lua line not covered by test
Bram Moolenaar <Bram@vim.org>
parents: 28000
diff changeset
291 return "Multiline\nSupported\nBalloon\nusing NL"
11050
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
292 endfunc
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
293 setl balloonexpr=MyBalloonFuncForMultilineUsingNL()
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
294 setl ballooneval
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
295 call assert_equal('MyBalloonFuncForMultilineUsingNL()', &balloonexpr)
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
296 " TODO Read non-empty text, place the pointer at a character of a word,
13940
70e36e1ca442 patch 8.0.1840: getwinpos() is not tested
Christian Brabandt <cb@256bit.org>
parents: 13843
diff changeset
297 " and check if the content of the balloon is the same as what is
11050
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
298 " expected. Also, check if textlock works as expected.
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
299 setl balloonexpr&
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
300 delfunc MyBalloonFuncForMultilineUsingNL
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
301 bwipe!
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
302
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
303 " Multiline balloon using List
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
304 new
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
305 func MyBalloonFuncForMultilineUsingList()
28171
b4c111ea83b1 patch 8.2.4611: typos in tests; one lua line not covered by test
Bram Moolenaar <Bram@vim.org>
parents: 28000
diff changeset
306 return [ 'Multiline', 'Supported', 'Balloon', 'using List' ]
11050
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
307 endfunc
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
308 setl balloonexpr=MyBalloonFuncForMultilineUsingList()
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
309 setl ballooneval
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
310 call assert_equal('MyBalloonFuncForMultilineUsingList()', &balloonexpr)
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
311 " TODO Read non-empty text, place the pointer at a character of a word,
13940
70e36e1ca442 patch 8.0.1840: getwinpos() is not tested
Christian Brabandt <cb@256bit.org>
parents: 13843
diff changeset
312 " and check if the content of the balloon is the same as what is
11050
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
313 " expected. Also, check if textlock works as expected.
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
314 setl balloonexpr&
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
315 delfunc MyBalloonFuncForMultilineUsingList
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
316 bwipe!
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
317 endif
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
318
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
319 let &balloonexpr = balloonexpr_saved
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
320 endfunc
622ed5a4925f patch 8.0.0414: balloon eval is not tested
Christian Brabandt <cb@256bit.org>
parents: 11028
diff changeset
321
11119
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
322 " Invalid arguments are tested with test_options in conjunction with segfaults
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
323 " caused by them (Patch 8.0.0357, 24922ec233).
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
324 func Test_set_guicursor()
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
325 let guicursor_saved = &guicursor
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
326
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
327 let default = [
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
328 \ "n-v-c:block-Cursor/lCursor",
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
329 \ "ve:ver35-Cursor",
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
330 \ "o:hor50-Cursor",
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
331 \ "i-ci:ver25-Cursor/lCursor",
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
332 \ "r-cr:hor20-Cursor/lCursor",
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
333 \ "sm:block-Cursor-blinkwait175-blinkoff150-blinkon175"
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
334 \ ]
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
335
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
336 " Default Value
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
337 set guicursor&
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
338 call assert_equal(join(default, ','), &guicursor)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
339
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
340 " Argument List Example 1
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
341 let opt_list = copy(default)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
342 let opt_list[0] = "n-c-v:block-nCursor"
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
343 exec "set guicursor=" . join(opt_list, ',')
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
344 call assert_equal(join(opt_list, ','), &guicursor)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
345 unlet opt_list
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
346
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
347 " Argument List Example 2
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
348 let opt_list = copy(default)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
349 let opt_list[3] = "i-ci:ver30-iCursor-blinkwait300-blinkon200-blinkoff150"
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
350 exec "set guicursor=" . join(opt_list, ',')
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
351 call assert_equal(join(opt_list, ','), &guicursor)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
352 unlet opt_list
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
353
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
354 " 'a' Mode
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
355 set guicursor&
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
356 let &guicursor .= ',a:blinkon0'
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
357 call assert_equal(join(default, ',') . ",a:blinkon0", &guicursor)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
358
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
359 let &guicursor = guicursor_saved
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
360 endfunc
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
361
25986
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
362 func Test_set_guifont_errors()
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
363 if has('win32')
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
364 " Invalid font names are accepted in GTK GUI
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
365 call assert_fails('set guifont=xa1bc23d7f', 'E596:')
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
366 endif
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
367
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
368 " This only works if 'renderoptions' exists and does not work for Windows XP
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
369 " and older.
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
370 if exists('+renderoptions') && windowsversion() !~ '^[345]\.'
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
371 " doing this four times used to cause a crash
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
372 set renderoptions=type:directx
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
373 for i in range(5)
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
374 set guifont=
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
375 endfor
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
376 set renderoptions=
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
377 for i in range(5)
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
378 set guifont=
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
379 endfor
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
380 endif
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
381 endfunc
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
382
10855
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
383 func Test_set_guifont()
25986
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
384 CheckX11BasedGui
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
385
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
386 let guifont_saved = &guifont
10855
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
387 if has('xfontset')
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
388 " Prevent 'guifontset' from canceling 'guifont'.
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
389 let guifontset_saved = &guifontset
10855
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
390 set guifontset=
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
391 endif
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
392
28303
9849df834f1d patch 8.2.4677: the Athena GUI support is outdated
Bram Moolenaar <Bram@vim.org>
parents: 28297
diff changeset
393 if has('gui_motif')
10855
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
394 " Non-empty font list with invalid font names.
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
395 "
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
396 " This test is twofold: (1) It checks if the command fails as expected
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
397 " when there are no loadable fonts found in the list. (2) It checks if
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
398 " 'guifont' remains the same after the command loads none of the fonts
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
399 " listed.
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
400 let flist = &guifont
10855
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
401 call assert_fails('set guifont=-notexist1-*,-notexist2-*')
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
402 call assert_equal(flist, &guifont)
10855
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
403
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
404 " Non-empty font list with a valid font name. Should pick up the first
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
405 " valid font.
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
406 set guifont=-notexist1-*,fixed,-notexist2-*
11119
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
407 let pat = '\(fixed\)\|\(\c-Misc-Fixed-Medium-R-SemiCondensed--13-120-75-75-C-60-ISO8859-1\)'
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
408 call assert_match(pat, getfontname())
10855
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
409
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
410 " Empty list. Should fallback to the built-in default.
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
411 set guifont=
11119
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
412 let pat = '\(7x13\)\|\(\c-Misc-Fixed-Medium-R-Normal--13-120-75-75-C-70-ISO8859-1\)'
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
413 call assert_match(pat, getfontname())
10855
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
414
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
415 elseif has('gui_gtk2') || has('gui_gnome') || has('gui_gtk3')
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
416 " For GTK, what we refer to as 'font names' in our manual are actually
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
417 " 'initial font patterns'. A valid font which matches the 'canonical font
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
418 " pattern' constructed from a given 'initial pattern' is to be looked up
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
419 " and loaded. That explains why the GTK GUIs appear to accept 'invalid
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
420 " font names'.
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
421 "
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
422 " Non-empty list. Should always pick up the first element, no matter how
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
423 " strange it is, as explained above.
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
424 set guifont=(´・ω・`)\ 12,Courier\ 12
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
425 call assert_equal('(´・ω・`) 12', getfontname())
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
426
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
427 " Empty list. Should fallback to the built-in default.
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
428 set guifont=
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
429 call assert_equal('Monospace 10', getfontname())
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
430 endif
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
431
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
432 if has('xfontset')
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
433 let &guifontset = guifontset_saved
10855
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
434 endif
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
435 let &guifont = guifont_saved
10855
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
436 endfunc
0beffabed338 patch 8.0.0317: no test for setting 'guifont'
Christian Brabandt <cb@256bit.org>
parents: 10847
diff changeset
437
10879
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
438 func Test_set_guifontset()
18031
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
439 CheckFeature xfontset
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
440 let skipped = ''
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
441
19932
2c4d9ca33769 patch 8.2.0522: several errors are not tested for
Bram Moolenaar <Bram@vim.org>
parents: 19783
diff changeset
442 call assert_fails('set guifontset=*', 'E597:')
2c4d9ca33769 patch 8.2.0522: several errors are not tested for
Bram Moolenaar <Bram@vim.org>
parents: 19783
diff changeset
443
18031
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
444 let ctype_saved = v:ctype
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
445
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
446 " First, since XCreateFontSet(3) is very sensitive to locale, fonts must
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
447 " be chosen meticulously.
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
448 let font_head = '-misc-fixed-medium-r-normal--14'
10879
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
449
18031
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
450 let font_aw70 = font_head . '-130-75-75-c-70'
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
451 let font_aw140 = font_head . '-130-75-75-c-140'
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
452
18031
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
453 let font_jisx0201 = font_aw70 . '-jisx0201.1976-0'
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
454 let font_jisx0208 = font_aw140 . '-jisx0208.1983-0'
10879
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
455
18031
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
456 let full_XLFDs = join([ font_jisx0208, font_jisx0201 ], ',')
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
457 let short_XLFDs = join([ font_aw140, font_aw70 ], ',')
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
458 let singleton = font_head . '-*'
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
459 let aliases = 'k14,r14'
10879
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
460
18031
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
461 " Second, among 'locales', look up such a locale that gets 'set
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
462 " guifontset=' to work successfully with every fontset specified with
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
463 " 'fontsets'.
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
464 let locales = [ 'ja_JP.UTF-8', 'ja_JP.eucJP', 'ja_JP.SJIS' ]
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
465 let fontsets = [ full_XLFDs, short_XLFDs, singleton, aliases ]
10879
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
466
18031
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
467 let feasible = 0
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
468 for locale in locales
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
469 try
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
470 exec 'language ctype' locale
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
471 catch /^Vim\%((\a\+)\)\=:E197/
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
472 continue
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
473 endtry
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
474 let done = 0
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
475 for fontset in fontsets
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
476 try
18031
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
477 exec 'set guifontset=' . fontset
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
478 catch /^Vim\%((\a\+)\)\=:E\%(250\|252\|234\|597\|598\)/
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
479 break
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
480 endtry
18031
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
481 let done += 1
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
482 endfor
18031
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
483 if done == len(fontsets)
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
484 let feasible = 1
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
485 break
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
486 endif
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
487 endfor
10879
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
488
18031
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
489 " Third, give a set of tests if it is found feasible.
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
490 if !feasible
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
491 let skipped = g:not_hosted
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
492 else
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
493 " N.B. 'v:ctype' has already been set to an appropriate value in the
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
494 " previous loop.
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
495 for fontset in fontsets
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
496 exec 'set guifontset=' . fontset
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
497 call assert_equal(fontset, &guifontset)
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
498 endfor
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
499 endif
10879
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
500
18031
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
501 " Finally, restore ctype.
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
502 exec 'language ctype' ctype_saved
10879
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
503
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
504 if !empty(skipped)
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
505 throw skipped
10879
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
506 endif
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
507 endfunc
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
508
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
509 func Test_set_guifontwide()
25986
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
510 CheckX11BasedGui
10879
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
511
25986
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
512 call assert_fails('set guifontwide=*', 'E533:')
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
513
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
514 if has('gui_gtk')
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
515 let guifont_saved = &guifont
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
516 let guifontwide_saved = &guifontwide
10879
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
517
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
518 let fc_match = exepath('fc-match')
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
519 if empty(fc_match)
10944
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents: 10885
diff changeset
520 let skipped = g:not_hosted
10879
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
521 else
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
522 let &guifont = system('fc-match -f "%{family[0]} %{size}" monospace:size=10:lang=en')
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
523 let wide = system('fc-match -f "%{family[0]} %{size}" monospace:size=10:lang=ja')
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
524 exec 'set guifontwide=' . fnameescape(wide)
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
525 call assert_equal(wide, &guifontwide)
10879
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
526 endif
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
527
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
528 let &guifontwide = guifontwide_saved
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
529 let &guifont = guifont_saved
10879
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
530
28303
9849df834f1d patch 8.2.4677: the Athena GUI support is outdated
Bram Moolenaar <Bram@vim.org>
parents: 28297
diff changeset
531 elseif has('gui_motif')
10879
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
532 " guifontwide is premised upon the xfontset feature.
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
533 if !has('xfontset')
10944
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents: 10885
diff changeset
534 let skipped = g:not_supported . 'xfontset'
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
535 else
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
536 let encoding_saved = &encoding
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
537 let guifont_saved = &guifont
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
538 let guifontset_saved = &guifontset
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
539 let guifontwide_saved = &guifontwide
10879
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
540
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
541 let nfont = '-misc-fixed-medium-r-normal-*-18-120-100-100-c-90-iso10646-1'
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
542 let wfont = '-misc-fixed-medium-r-normal-*-18-120-100-100-c-180-iso10646-1'
10879
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
543
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
544 set encoding=utf-8
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
545
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
546 " Case 1: guifontset is empty
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
547 set guifontset=
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
548
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
549 " Case 1-1: Automatic selection
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
550 set guifontwide=
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
551 exec 'set guifont=' . nfont
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
552 call assert_equal(wfont, &guifontwide)
10879
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
553
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
554 " Case 1-2: Manual selection
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
555 exec 'set guifontwide=' . wfont
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
556 exec 'set guifont=' . nfont
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
557 call assert_equal(wfont, &guifontwide)
10879
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
558
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
559 " Case 2: guifontset is invalid
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
560 try
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
561 set guifontset=-*-notexist-*
11183
1c4ebbae41d2 patch 8.0.0478: tests use assert_true(0) and assert_false(1) to report errors
Christian Brabandt <cb@256bit.org>
parents: 11119
diff changeset
562 call assert_report("'set guifontset=-*-notexist-*' should have failed")
10879
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
563 catch
22087
ff21e2962490 patch 8.2.1593: tests do not check the error number properly
Bram Moolenaar <Bram@vim.org>
parents: 21765
diff changeset
564 call assert_exception('E598:')
10879
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
565 endtry
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
566
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
567 " Case 2-1: Automatic selection
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
568 set guifontwide=
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
569 exec 'set guifont=' . nfont
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
570 call assert_equal(wfont, &guifontwide)
10879
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
571
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
572 " Case 2-2: Manual selection
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
573 exec 'set guifontwide=' . wfont
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
574 exec 'set guifont=' . nfont
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
575 call assert_equal(wfont, &guifontwide)
10879
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
576
10885
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
577 let &guifontwide = guifontwide_saved
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
578 let &guifontset = guifontset_saved
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
579 let &guifont = guifont_saved
310834b0256a patch 8.0.0332: GUI test fails on some systems
Christian Brabandt <cb@256bit.org>
parents: 10879
diff changeset
580 let &encoding = encoding_saved
10879
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
581 endif
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
582 endif
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
583 endfunc
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested
Christian Brabandt <cb@256bit.org>
parents: 10857
diff changeset
584
25982
aade8ef975d5 patch 8.2.3524: GUI: ligatures are not used
Bram Moolenaar <Bram@vim.org>
parents: 25969
diff changeset
585 func Test_set_guiligatures()
25986
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
586 CheckX11BasedGui
25982
aade8ef975d5 patch 8.2.3524: GUI: ligatures are not used
Bram Moolenaar <Bram@vim.org>
parents: 25969
diff changeset
587
25986
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
588 if has('gui_gtk') || has('gui_gtk2') || has('gui_gnome') || has('gui_gtk3')
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
589 " Try correct value
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
590 set guiligatures=<>=ab
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
591 call assert_equal("<>=ab", &guiligatures)
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
592 " Try to throw error
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
593 try
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
594 set guiligatures=<>=Å¡ab
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
595 call assert_report("'set guiligatures=<>=Å¡ab should have failed")
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
596 catch
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
597 call assert_exception('E1243:')
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
598 endtry
25982
aade8ef975d5 patch 8.2.3524: GUI: ligatures are not used
Bram Moolenaar <Bram@vim.org>
parents: 25969
diff changeset
599 endif
aade8ef975d5 patch 8.2.3524: GUI: ligatures are not used
Bram Moolenaar <Bram@vim.org>
parents: 25969
diff changeset
600 endfunc
aade8ef975d5 patch 8.2.3524: GUI: ligatures are not used
Bram Moolenaar <Bram@vim.org>
parents: 25969
diff changeset
601
10944
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents: 10885
diff changeset
602 func Test_set_guiheadroom()
25986
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
603 CheckX11BasedGui
10944
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents: 10885
diff changeset
604
25986
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
605 " Since this script is to be read together with '-U NONE', the default
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
606 " value must be preserved.
34b75c77a7bd patch 8.2.3526: tests have clumsy check for X11 based GUI
Bram Moolenaar <Bram@vim.org>
parents: 25982
diff changeset
607 call assert_equal(50, &guiheadroom)
10944
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents: 10885
diff changeset
608 endfunc
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents: 10885
diff changeset
609
11119
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
610 func Test_set_guioptions()
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
611 let guioptions_saved = &guioptions
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
612 let duration = '200m'
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
613
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
614 if has('win32')
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
615 " Default Value
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
616 set guioptions&
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
617 call assert_equal('egmrLtT', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
618
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
619 else
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
620 " Default Value
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
621 set guioptions&
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
622 call assert_equal('aegimrLtT', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
623
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
624 " To activate scrollbars of type 'L' or 'R'.
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
625 wincmd v
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
626 redraw!
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
627
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
628 " Remove all default GUI ornaments
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
629 set guioptions-=T
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
630 exec 'sleep' . duration
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
631 call assert_equal('aegimrLt', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
632 set guioptions-=t
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
633 exec 'sleep' . duration
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
634 call assert_equal('aegimrL', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
635 set guioptions-=L
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
636 exec 'sleep' . duration
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
637 call assert_equal('aegimr', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
638 set guioptions-=r
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
639 exec 'sleep' . duration
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
640 call assert_equal('aegim', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
641 set guioptions-=m
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
642 exec 'sleep' . duration
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
643 call assert_equal('aegi', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
644
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
645 " Try non-default GUI ornaments
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
646 set guioptions+=l
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
647 exec 'sleep' . duration
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
648 call assert_equal('aegil', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
649 set guioptions-=l
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
650 exec 'sleep' . duration
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
651 call assert_equal('aegi', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
652
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
653 set guioptions+=R
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
654 exec 'sleep' . duration
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
655 call assert_equal('aegiR', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
656 set guioptions-=R
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
657 exec 'sleep' . duration
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
658 call assert_equal('aegi', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
659
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
660 set guioptions+=b
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
661 exec 'sleep' . duration
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
662 call assert_equal('aegib', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
663 set guioptions+=h
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
664 exec 'sleep' . duration
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
665 call assert_equal('aegibh', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
666 set guioptions-=h
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
667 exec 'sleep' . duration
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
668 call assert_equal('aegib', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
669 set guioptions-=b
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
670 exec 'sleep' . duration
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
671 call assert_equal('aegi', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
672
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
673 set guioptions+=v
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
674 exec 'sleep' . duration
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
675 call assert_equal('aegiv', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
676 set guioptions-=v
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
677 exec 'sleep' . duration
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
678 call assert_equal('aegi', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
679
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
680 if has('gui_motif')
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
681 set guioptions+=F
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
682 exec 'sleep' . duration
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
683 call assert_equal('aegiF', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
684 set guioptions-=F
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
685 exec 'sleep' . duration
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
686 call assert_equal('aegi', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
687 endif
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
688
18078
5ae41d0ea397 patch 8.1.2034: dark them of GTK 3 not supported
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
689 if has('gui_gtk3')
5ae41d0ea397 patch 8.1.2034: dark them of GTK 3 not supported
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
690 set guioptions+=d
5ae41d0ea397 patch 8.1.2034: dark them of GTK 3 not supported
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
691 exec 'sleep' . duration
5ae41d0ea397 patch 8.1.2034: dark them of GTK 3 not supported
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
692 call assert_equal('aegid', &guioptions)
5ae41d0ea397 patch 8.1.2034: dark them of GTK 3 not supported
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
693 set guioptions-=d
5ae41d0ea397 patch 8.1.2034: dark them of GTK 3 not supported
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
694 exec 'sleep' . duration
5ae41d0ea397 patch 8.1.2034: dark them of GTK 3 not supported
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
695 call assert_equal('aegi', &guioptions)
5ae41d0ea397 patch 8.1.2034: dark them of GTK 3 not supported
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
696 endif
5ae41d0ea397 patch 8.1.2034: dark them of GTK 3 not supported
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
697
11119
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
698 " Restore GUI ornaments to the default state.
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
699 set guioptions+=m
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
700 exec 'sleep' . duration
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
701 call assert_equal('aegim', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
702 set guioptions+=r
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
703 exec 'sleep' . duration
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
704 call assert_equal('aegimr', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
705 set guioptions+=L
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
706 exec 'sleep' . duration
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
707 call assert_equal('aegimrL', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
708 set guioptions+=t
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
709 exec 'sleep' . duration
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
710 call assert_equal('aegimrLt', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
711 set guioptions+=T
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
712 exec 'sleep' . duration
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
713 call assert_equal("aegimrLtT", &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
714
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
715 wincmd o
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
716 redraw!
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
717 endif
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
718
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
719 let &guioptions = guioptions_saved
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
720 endfunc
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
721
14756
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
722 func Test_scrollbars()
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
723 new
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
724 " buffer with 200 lines
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
725 call setline(1, repeat(['one', 'two'], 100))
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
726 set guioptions+=rlb
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
727
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
728 " scroll to move line 11 at top, moves the cursor there
27497
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
729 let args = #{which: 'left', value: 10, dragging: 0}
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
730 call test_gui_event('scrollbar', args)
14756
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
731 redraw
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
732 call assert_equal(1, winline())
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
733 call assert_equal(11, line('.'))
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
734
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
735 " scroll to move line 1 at top, cursor stays in line 11
27497
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
736 let args = #{which: 'right', value: 0, dragging: 0}
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
737 call test_gui_event('scrollbar', args)
14756
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
738 redraw
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
739 call assert_equal(11, winline())
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
740 call assert_equal(11, line('.'))
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
741
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
742 set nowrap
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
743 call setline(11, repeat('x', 150))
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
744 redraw
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
745 call assert_equal(1, wincol())
16963
1fbb0a33b074 patch 8.1.1482: no test for wincol() depending on the 'number' option
Bram Moolenaar <Bram@vim.org>
parents: 16121
diff changeset
746 set number
1fbb0a33b074 patch 8.1.1482: no test for wincol() depending on the 'number' option
Bram Moolenaar <Bram@vim.org>
parents: 16121
diff changeset
747 redraw
1fbb0a33b074 patch 8.1.1482: no test for wincol() depending on the 'number' option
Bram Moolenaar <Bram@vim.org>
parents: 16121
diff changeset
748 call assert_equal(5, wincol())
1fbb0a33b074 patch 8.1.1482: no test for wincol() depending on the 'number' option
Bram Moolenaar <Bram@vim.org>
parents: 16121
diff changeset
749 set nonumber
1fbb0a33b074 patch 8.1.1482: no test for wincol() depending on the 'number' option
Bram Moolenaar <Bram@vim.org>
parents: 16121
diff changeset
750 redraw
14756
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
751 call assert_equal(1, col('.'))
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
752
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
753 " scroll to character 11, cursor is moved
27497
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
754 let args = #{which: 'hor', value: 10, dragging: 0}
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
755 call test_gui_event('scrollbar', args)
14756
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
756 redraw
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
757 call assert_equal(1, wincol())
16963
1fbb0a33b074 patch 8.1.1482: no test for wincol() depending on the 'number' option
Bram Moolenaar <Bram@vim.org>
parents: 16121
diff changeset
758 set number
1fbb0a33b074 patch 8.1.1482: no test for wincol() depending on the 'number' option
Bram Moolenaar <Bram@vim.org>
parents: 16121
diff changeset
759 redraw
1fbb0a33b074 patch 8.1.1482: no test for wincol() depending on the 'number' option
Bram Moolenaar <Bram@vim.org>
parents: 16121
diff changeset
760 call assert_equal(5, wincol())
1fbb0a33b074 patch 8.1.1482: no test for wincol() depending on the 'number' option
Bram Moolenaar <Bram@vim.org>
parents: 16121
diff changeset
761 set nonumber
1fbb0a33b074 patch 8.1.1482: no test for wincol() depending on the 'number' option
Bram Moolenaar <Bram@vim.org>
parents: 16121
diff changeset
762 redraw
14756
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
763 call assert_equal(11, col('.'))
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
764
27497
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
765 " Invalid arguments
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
766 call assert_false(test_gui_event('scrollbar', {}))
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
767 call assert_false(test_gui_event('scrollbar', #{value: 10, dragging: 0}))
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
768 call assert_false(test_gui_event('scrollbar', #{which: 'hor', dragging: 0}))
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
769 call assert_false(test_gui_event('scrollbar', #{which: 'hor', value: 1}))
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
770 call assert_fails("call test_gui_event('scrollbar', #{which: 'a', value: 1, dragging: 0})", 'E475:')
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
771
14756
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
772 set guioptions&
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
773 set wrap&
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
774 bwipe!
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
775 endfunc
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested
Christian Brabandt <cb@256bit.org>
parents: 13940
diff changeset
776
16121
060b58b492a5 patch 8.1.1065: no test for using and deleting menu in the GUI
Bram Moolenaar <Bram@vim.org>
parents: 16119
diff changeset
777 func Test_menu()
18767
068337e86133 patch 8.1.2373: cannot build with +popupwin but without +quickfix
Bram Moolenaar <Bram@vim.org>
parents: 18078
diff changeset
778 CheckFeature quickfix
068337e86133 patch 8.1.2373: cannot build with +popupwin but without +quickfix
Bram Moolenaar <Bram@vim.org>
parents: 18078
diff changeset
779
16121
060b58b492a5 patch 8.1.1065: no test for using and deleting menu in the GUI
Bram Moolenaar <Bram@vim.org>
parents: 16119
diff changeset
780 " Check Help menu exists
060b58b492a5 patch 8.1.1065: no test for using and deleting menu in the GUI
Bram Moolenaar <Bram@vim.org>
parents: 16119
diff changeset
781 let help_menu = execute('menu Help')
060b58b492a5 patch 8.1.1065: no test for using and deleting menu in the GUI
Bram Moolenaar <Bram@vim.org>
parents: 16119
diff changeset
782 call assert_match('Overview', help_menu)
060b58b492a5 patch 8.1.1065: no test for using and deleting menu in the GUI
Bram Moolenaar <Bram@vim.org>
parents: 16119
diff changeset
783
060b58b492a5 patch 8.1.1065: no test for using and deleting menu in the GUI
Bram Moolenaar <Bram@vim.org>
parents: 16119
diff changeset
784 " Check Help menu works
060b58b492a5 patch 8.1.1065: no test for using and deleting menu in the GUI
Bram Moolenaar <Bram@vim.org>
parents: 16119
diff changeset
785 emenu Help.Overview
060b58b492a5 patch 8.1.1065: no test for using and deleting menu in the GUI
Bram Moolenaar <Bram@vim.org>
parents: 16119
diff changeset
786 call assert_equal('help', &buftype)
060b58b492a5 patch 8.1.1065: no test for using and deleting menu in the GUI
Bram Moolenaar <Bram@vim.org>
parents: 16119
diff changeset
787 close
060b58b492a5 patch 8.1.1065: no test for using and deleting menu in the GUI
Bram Moolenaar <Bram@vim.org>
parents: 16119
diff changeset
788
060b58b492a5 patch 8.1.1065: no test for using and deleting menu in the GUI
Bram Moolenaar <Bram@vim.org>
parents: 16119
diff changeset
789 " Check deleting menu doesn't cause trouble.
060b58b492a5 patch 8.1.1065: no test for using and deleting menu in the GUI
Bram Moolenaar <Bram@vim.org>
parents: 16119
diff changeset
790 aunmenu Help
22439
445799159195 patch 8.2.1768: cannot use the help menu from a terminal window
Bram Moolenaar <Bram@vim.org>
parents: 22087
diff changeset
791 if exists(':tlmenu')
445799159195 patch 8.2.1768: cannot use the help menu from a terminal window
Bram Moolenaar <Bram@vim.org>
parents: 22087
diff changeset
792 tlunmenu Help
445799159195 patch 8.2.1768: cannot use the help menu from a terminal window
Bram Moolenaar <Bram@vim.org>
parents: 22087
diff changeset
793 endif
16121
060b58b492a5 patch 8.1.1065: no test for using and deleting menu in the GUI
Bram Moolenaar <Bram@vim.org>
parents: 16119
diff changeset
794 call assert_fails('menu Help', 'E329:')
060b58b492a5 patch 8.1.1065: no test for using and deleting menu in the GUI
Bram Moolenaar <Bram@vim.org>
parents: 16119
diff changeset
795 endfunc
060b58b492a5 patch 8.1.1065: no test for using and deleting menu in the GUI
Bram Moolenaar <Bram@vim.org>
parents: 16119
diff changeset
796
11119
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
797 func Test_set_guipty()
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
798 let guipty_saved = &guipty
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
799
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
800 " Default Value
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
801 set guipty&
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
802 call assert_equal(1, &guipty)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
803
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
804 set noguipty
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
805 call assert_equal(0, &guipty)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
806
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
807 let &guipty = guipty_saved
10847
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10841
diff changeset
808 endfunc
10841
5c0415a8b96e patch 8.0.0310: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10777
diff changeset
809
16119
4fac64b51d74 patch 8.1.1064: no test for output conversion in the GTK GUI
Bram Moolenaar <Bram@vim.org>
parents: 15394
diff changeset
810 func Test_encoding_conversion()
4fac64b51d74 patch 8.1.1064: no test for output conversion in the GTK GUI
Bram Moolenaar <Bram@vim.org>
parents: 15394
diff changeset
811 " GTK supports conversion between 'encoding' and "utf-8"
21765
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 20701
diff changeset
812 CheckFeature gui_gtk
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 20701
diff changeset
813 let encoding_saved = &encoding
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 20701
diff changeset
814 set encoding=latin1
16119
4fac64b51d74 patch 8.1.1064: no test for output conversion in the GTK GUI
Bram Moolenaar <Bram@vim.org>
parents: 15394
diff changeset
815
21765
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 20701
diff changeset
816 " would be nice if we could take a screenshot
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 20701
diff changeset
817 intro
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 20701
diff changeset
818 " sets the window title
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 20701
diff changeset
819 edit SomeFile
16119
4fac64b51d74 patch 8.1.1064: no test for output conversion in the GTK GUI
Bram Moolenaar <Bram@vim.org>
parents: 15394
diff changeset
820
21765
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 20701
diff changeset
821 let &encoding = encoding_saved
16119
4fac64b51d74 patch 8.1.1064: no test for output conversion in the GTK GUI
Bram Moolenaar <Bram@vim.org>
parents: 15394
diff changeset
822 endfunc
4fac64b51d74 patch 8.1.1064: no test for output conversion in the GTK GUI
Bram Moolenaar <Bram@vim.org>
parents: 15394
diff changeset
823
9756
00d753ea19a9 commit https://github.com/vim/vim/commit/877e95779869c5426102aa491f67d99904c8534c
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
824 func Test_shell_command()
00d753ea19a9 commit https://github.com/vim/vim/commit/877e95779869c5426102aa491f67d99904c8534c
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
825 new
9760
96667173293d commit https://github.com/vim/vim/commit/9d5b876d458e242b8b5e44da10c5cdc6bbb7f57c
Christian Brabandt <cb@256bit.org>
parents: 9756
diff changeset
826 r !echo hello
96667173293d commit https://github.com/vim/vim/commit/9d5b876d458e242b8b5e44da10c5cdc6bbb7f57c
Christian Brabandt <cb@256bit.org>
parents: 9756
diff changeset
827 call assert_equal('hello', substitute(getline(2), '\W', '', 'g'))
9756
00d753ea19a9 commit https://github.com/vim/vim/commit/877e95779869c5426102aa491f67d99904c8534c
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
828 bwipe!
00d753ea19a9 commit https://github.com/vim/vim/commit/877e95779869c5426102aa491f67d99904c8534c
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
829 endfunc
10841
5c0415a8b96e patch 8.0.0310: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10777
diff changeset
830
11119
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
831 func Test_syntax_colortest()
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
832 runtime syntax/colortest.vim
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
833 redraw!
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
834 sleep 200m
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
835 bwipe!
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
836 endfunc
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
837
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
838 func Test_set_term()
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
839 " It's enough to check the current value since setting 'term' to anything
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
840 " other than builtin_gui makes no sense at all.
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
841 call assert_equal('builtin_gui', &term)
19932
2c4d9ca33769 patch 8.2.0522: several errors are not tested for
Bram Moolenaar <Bram@vim.org>
parents: 19783
diff changeset
842 call assert_fails('set term=xterm', 'E530:')
11119
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
843 endfunc
d8a550329a97 patch 8.0.0447: getting font name does not work on X11
Christian Brabandt <cb@256bit.org>
parents: 11052
diff changeset
844
10841
5c0415a8b96e patch 8.0.0310: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10777
diff changeset
845 func Test_windowid_variable()
10944
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents: 10885
diff changeset
846 if g:x11_based_gui || has('win32')
10841
5c0415a8b96e patch 8.0.0310: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10777
diff changeset
847 call assert_true(v:windowid > 0)
5c0415a8b96e patch 8.0.0310: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10777
diff changeset
848 else
5c0415a8b96e patch 8.0.0310: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10777
diff changeset
849 call assert_equal(0, v:windowid)
5c0415a8b96e patch 8.0.0310: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10777
diff changeset
850 endif
10847
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality
Christian Brabandt <cb@256bit.org>
parents: 10841
diff changeset
851 endfunc
13843
619730d0d864 patch 8.0.1793: no test for "vim -g"
Christian Brabandt <cb@256bit.org>
parents: 13810
diff changeset
852
619730d0d864 patch 8.0.1793: no test for "vim -g"
Christian Brabandt <cb@256bit.org>
parents: 13810
diff changeset
853 " Test "vim -g" and also the GUIEnter autocommand.
619730d0d864 patch 8.0.1793: no test for "vim -g"
Christian Brabandt <cb@256bit.org>
parents: 13810
diff changeset
854 func Test_gui_dash_g()
619730d0d864 patch 8.0.1793: no test for "vim -g"
Christian Brabandt <cb@256bit.org>
parents: 13810
diff changeset
855 let cmd = GetVimCommand('Xscriptgui')
619730d0d864 patch 8.0.1793: no test for "vim -g"
Christian Brabandt <cb@256bit.org>
parents: 13810
diff changeset
856 call writefile([""], "Xtestgui")
17172
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents: 17089
diff changeset
857 let lines =<< trim END
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents: 17089
diff changeset
858 au GUIEnter * call writefile(["insertmode: " . &insertmode], "Xtestgui")
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents: 17089
diff changeset
859 au GUIEnter * qall
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents: 17089
diff changeset
860 END
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents: 17089
diff changeset
861 call writefile(lines, 'Xscriptgui')
13843
619730d0d864 patch 8.0.1793: no test for "vim -g"
Christian Brabandt <cb@256bit.org>
parents: 13810
diff changeset
862 call system(cmd . ' -g')
619730d0d864 patch 8.0.1793: no test for "vim -g"
Christian Brabandt <cb@256bit.org>
parents: 13810
diff changeset
863 call WaitForAssert({-> assert_equal(['insertmode: 0'], readfile('Xtestgui'))})
619730d0d864 patch 8.0.1793: no test for "vim -g"
Christian Brabandt <cb@256bit.org>
parents: 13810
diff changeset
864
619730d0d864 patch 8.0.1793: no test for "vim -g"
Christian Brabandt <cb@256bit.org>
parents: 13810
diff changeset
865 call delete('Xscriptgui')
619730d0d864 patch 8.0.1793: no test for "vim -g"
Christian Brabandt <cb@256bit.org>
parents: 13810
diff changeset
866 call delete('Xtestgui')
619730d0d864 patch 8.0.1793: no test for "vim -g"
Christian Brabandt <cb@256bit.org>
parents: 13810
diff changeset
867 endfunc
619730d0d864 patch 8.0.1793: no test for "vim -g"
Christian Brabandt <cb@256bit.org>
parents: 13810
diff changeset
868
619730d0d864 patch 8.0.1793: no test for "vim -g"
Christian Brabandt <cb@256bit.org>
parents: 13810
diff changeset
869 " Test "vim -7" and also the GUIEnter autocommand.
619730d0d864 patch 8.0.1793: no test for "vim -g"
Christian Brabandt <cb@256bit.org>
parents: 13810
diff changeset
870 func Test_gui_dash_y()
619730d0d864 patch 8.0.1793: no test for "vim -g"
Christian Brabandt <cb@256bit.org>
parents: 13810
diff changeset
871 let cmd = GetVimCommand('Xscriptgui')
619730d0d864 patch 8.0.1793: no test for "vim -g"
Christian Brabandt <cb@256bit.org>
parents: 13810
diff changeset
872 call writefile([""], "Xtestgui")
17172
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents: 17089
diff changeset
873 let lines =<< trim END
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents: 17089
diff changeset
874 au GUIEnter * call writefile(["insertmode: " . &insertmode], "Xtestgui")
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents: 17089
diff changeset
875 au GUIEnter * qall
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents: 17089
diff changeset
876 END
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents: 17089
diff changeset
877 call writefile(lines, 'Xscriptgui')
13843
619730d0d864 patch 8.0.1793: no test for "vim -g"
Christian Brabandt <cb@256bit.org>
parents: 13810
diff changeset
878 call system(cmd . ' -y')
619730d0d864 patch 8.0.1793: no test for "vim -g"
Christian Brabandt <cb@256bit.org>
parents: 13810
diff changeset
879 call WaitForAssert({-> assert_equal(['insertmode: 1'], readfile('Xtestgui'))})
619730d0d864 patch 8.0.1793: no test for "vim -g"
Christian Brabandt <cb@256bit.org>
parents: 13810
diff changeset
880
619730d0d864 patch 8.0.1793: no test for "vim -g"
Christian Brabandt <cb@256bit.org>
parents: 13810
diff changeset
881 call delete('Xscriptgui')
619730d0d864 patch 8.0.1793: no test for "vim -g"
Christian Brabandt <cb@256bit.org>
parents: 13810
diff changeset
882 call delete('Xtestgui')
619730d0d864 patch 8.0.1793: no test for "vim -g"
Christian Brabandt <cb@256bit.org>
parents: 13810
diff changeset
883 endfunc
19783
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 18767
diff changeset
884
20365
6bcd12791bf1 patch 8.2.0738: mouse handling in a terminal window not well tested
Bram Moolenaar <Bram@vim.org>
parents: 19997
diff changeset
885 " Test for "!" option in 'guioptions'. Use a terminal for running external
6bcd12791bf1 patch 8.2.0738: mouse handling in a terminal window not well tested
Bram Moolenaar <Bram@vim.org>
parents: 19997
diff changeset
886 " commands
6bcd12791bf1 patch 8.2.0738: mouse handling in a terminal window not well tested
Bram Moolenaar <Bram@vim.org>
parents: 19997
diff changeset
887 func Test_gui_run_cmd_in_terminal()
20417
86333cdb8cf8 patch 8.2.0763: GUI test fails without the terminal feature
Bram Moolenaar <Bram@vim.org>
parents: 20365
diff changeset
888 CheckFeature terminal
20365
6bcd12791bf1 patch 8.2.0738: mouse handling in a terminal window not well tested
Bram Moolenaar <Bram@vim.org>
parents: 19997
diff changeset
889 let save_guioptions = &guioptions
6bcd12791bf1 patch 8.2.0738: mouse handling in a terminal window not well tested
Bram Moolenaar <Bram@vim.org>
parents: 19997
diff changeset
890 set guioptions+=!
6bcd12791bf1 patch 8.2.0738: mouse handling in a terminal window not well tested
Bram Moolenaar <Bram@vim.org>
parents: 19997
diff changeset
891 if has('win32')
6bcd12791bf1 patch 8.2.0738: mouse handling in a terminal window not well tested
Bram Moolenaar <Bram@vim.org>
parents: 19997
diff changeset
892 let cmd = 'type'
6bcd12791bf1 patch 8.2.0738: mouse handling in a terminal window not well tested
Bram Moolenaar <Bram@vim.org>
parents: 19997
diff changeset
893 else
6bcd12791bf1 patch 8.2.0738: mouse handling in a terminal window not well tested
Bram Moolenaar <Bram@vim.org>
parents: 19997
diff changeset
894 " assume all the other systems have a cat command
6bcd12791bf1 patch 8.2.0738: mouse handling in a terminal window not well tested
Bram Moolenaar <Bram@vim.org>
parents: 19997
diff changeset
895 let cmd = 'cat'
6bcd12791bf1 patch 8.2.0738: mouse handling in a terminal window not well tested
Bram Moolenaar <Bram@vim.org>
parents: 19997
diff changeset
896 endif
20508
357dea6b9fde patch 8.2.0808: not enough testing for the terminal window
Bram Moolenaar <Bram@vim.org>
parents: 20417
diff changeset
897 exe "silent !" . cmd . " test_gui.vim"
20365
6bcd12791bf1 patch 8.2.0738: mouse handling in a terminal window not well tested
Bram Moolenaar <Bram@vim.org>
parents: 19997
diff changeset
898 " TODO: how to check that the command ran in a separate terminal?
6bcd12791bf1 patch 8.2.0738: mouse handling in a terminal window not well tested
Bram Moolenaar <Bram@vim.org>
parents: 19997
diff changeset
899 " Maybe check for $TERM (dumb vs xterm) in the spawned shell?
6bcd12791bf1 patch 8.2.0738: mouse handling in a terminal window not well tested
Bram Moolenaar <Bram@vim.org>
parents: 19997
diff changeset
900 let &guioptions = save_guioptions
6bcd12791bf1 patch 8.2.0738: mouse handling in a terminal window not well tested
Bram Moolenaar <Bram@vim.org>
parents: 19997
diff changeset
901 endfunc
6bcd12791bf1 patch 8.2.0738: mouse handling in a terminal window not well tested
Bram Moolenaar <Bram@vim.org>
parents: 19997
diff changeset
902
20701
fbee68c6aab1 patch 8.2.0904: assuming modifyOtherKeys for rhs of mapping
Bram Moolenaar <Bram@vim.org>
parents: 20508
diff changeset
903 func Test_gui_recursive_mapping()
fbee68c6aab1 patch 8.2.0904: assuming modifyOtherKeys for rhs of mapping
Bram Moolenaar <Bram@vim.org>
parents: 20508
diff changeset
904 nmap ' <C-W>
fbee68c6aab1 patch 8.2.0904: assuming modifyOtherKeys for rhs of mapping
Bram Moolenaar <Bram@vim.org>
parents: 20508
diff changeset
905 nmap <C-W>a :let didit = 1<CR>
fbee68c6aab1 patch 8.2.0904: assuming modifyOtherKeys for rhs of mapping
Bram Moolenaar <Bram@vim.org>
parents: 20508
diff changeset
906 call feedkeys("'a", 'xt')
fbee68c6aab1 patch 8.2.0904: assuming modifyOtherKeys for rhs of mapping
Bram Moolenaar <Bram@vim.org>
parents: 20508
diff changeset
907 call assert_equal(1, didit)
fbee68c6aab1 patch 8.2.0904: assuming modifyOtherKeys for rhs of mapping
Bram Moolenaar <Bram@vim.org>
parents: 20508
diff changeset
908
fbee68c6aab1 patch 8.2.0904: assuming modifyOtherKeys for rhs of mapping
Bram Moolenaar <Bram@vim.org>
parents: 20508
diff changeset
909 nunmap '
fbee68c6aab1 patch 8.2.0904: assuming modifyOtherKeys for rhs of mapping
Bram Moolenaar <Bram@vim.org>
parents: 20508
diff changeset
910 nunmap <C-W>a
fbee68c6aab1 patch 8.2.0904: assuming modifyOtherKeys for rhs of mapping
Bram Moolenaar <Bram@vim.org>
parents: 20508
diff changeset
911 endfunc
fbee68c6aab1 patch 8.2.0904: assuming modifyOtherKeys for rhs of mapping
Bram Moolenaar <Bram@vim.org>
parents: 20508
diff changeset
912
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
913 " Test GUI mouse events
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
914 func Test_gui_mouse_event()
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
915 set mousemodel=extend
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
916 call test_override('no_query_mouse', 1)
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
917 new
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
918 call setline(1, ['one two three', 'four five six'])
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
919
24998
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
920 " place the cursor using left click in normal mode
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
921 call cursor(1, 1)
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
922 let args = #{button: 0, row: 2, col: 4, multiclick: 0, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
923 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
924 let args.button = 3
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
925 eval 'mouse'->test_gui_event(args)
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
926 call feedkeys("\<Esc>", 'Lx!')
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
927 call assert_equal([0, 2, 4, 0], getpos('.'))
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
928
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
929 " select and yank a word
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
930 let @" = ''
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
931 let args = #{button: 0, row: 1, col: 9, multiclick: 0, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
932 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
933 let args.multiclick = 1
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
934 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
935 let args.button = 3
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
936 let args.multiclick = 0
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
937 call test_gui_event('mouse', args)
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
938 call feedkeys("y", 'Lx!')
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
939 call assert_equal('three', @")
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
940
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
941 " create visual selection using right click
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
942 let @" = ''
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
943 let args = #{button: 0, row: 2, col: 6, multiclick: 0, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
944 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
945 let args.button = 3
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
946 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
947 let args = #{button: 2, row: 2, col: 13, multiclick: 0, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
948 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
949 let args.button = 3
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
950 call test_gui_event('mouse', args)
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
951 call feedkeys("y", 'Lx!')
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
952 call assert_equal('five six', @")
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
953
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
954 " paste using middle mouse button
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
955 let @* = 'abc '
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
956 call feedkeys('""', 'Lx!')
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
957 let args = #{button: 1, row: 1, col: 9, multiclick: 0, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
958 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
959 let args.button = 3
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
960 call test_gui_event('mouse', args)
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
961 call feedkeys("\<Esc>", 'Lx!')
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
962 call assert_equal(['one two abc three', 'four five six'], getline(1, '$'))
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
963
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
964 " extend visual selection using right click in visual mode
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
965 let @" = ''
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
966 call cursor(1, 1)
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
967 call feedkeys('v', 'Lx!')
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
968 let args = #{button: 2, row: 1, col: 17, multiclick: 0, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
969 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
970 let args.button = 3
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
971 call test_gui_event('mouse', args)
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
972 call feedkeys("y", 'Lx!')
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
973 call assert_equal('one two abc three', @")
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
974
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
975 " extend visual selection using mouse drag
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
976 let @" = ''
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
977 call cursor(1, 1)
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
978 let args = #{button: 0, row: 2, col: 1, multiclick: 0, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
979 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
980 let args = #{button: 0x43, row: 2, col: 9, multiclick: 0, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
981 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
982 let args.button = 0x3
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
983 call test_gui_event('mouse', args)
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
984 call feedkeys("y", 'Lx!')
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
985 call assert_equal('four five', @")
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
986
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
987 " select text by moving the mouse
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
988 let @" = ''
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
989 call cursor(1, 1)
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
990 redraw!
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
991 let args = #{button: 0, row: 1, col: 4, multiclick: 0, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
992 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
993 let args.button = 0x700
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
994 let args.col = 9
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
995 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
996 let args.col = 13
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
997 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
998 let args.button = 3
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
999 call test_gui_event('mouse', args)
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1000 call feedkeys("y", 'Lx!')
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1001 call assert_equal(' two abc t', @")
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1002
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1003 " Using mouse in insert mode
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1004 call cursor(1, 1)
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1005 call feedkeys('i', 't')
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1006 let args = #{button: 0, row: 2, col: 11, multiclick: 0, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1007 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1008 let args.button = 3
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1009 call test_gui_event('mouse', args)
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1010 call feedkeys("po\<Esc>", 'Lx!')
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1011 call assert_equal(['one two abc three', 'four five posix'], getline(1, '$'))
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1012
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1013 %d _
28755
26a2836923d6 patch 8.2.4902: mouse wheel scrolling is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 28644
diff changeset
1014 set scrolloff=0
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1015 call setline(1, range(1, 100))
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1016 " scroll up
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1017 let args = #{button: 0x200, row: 2, col: 1, multiclick: 0, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1018 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1019 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1020 call test_gui_event('mouse', args)
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1021 call feedkeys("H", 'Lx!')
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1022 call assert_equal(10, line('.'))
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1023
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1024 " scroll down
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1025 let args = #{button: 0x100, row: 2, col: 1, multiclick: 0, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1026 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1027 call test_gui_event('mouse', args)
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1028 call feedkeys("H", 'Lx!')
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1029 call assert_equal(4, line('.'))
28755
26a2836923d6 patch 8.2.4902: mouse wheel scrolling is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 28644
diff changeset
1030 set scrolloff&
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1031
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1032 %d _
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1033 set nowrap
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1034 call setline(1, range(10)->join('')->repeat(10))
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1035 " scroll left
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1036 let args = #{button: 0x500, row: 1, col: 5, multiclick: 0, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1037 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1038 let args.col = 10
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1039 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1040 let args.col = 15
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1041 call test_gui_event('mouse', args)
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1042 call feedkeys('g0', 'Lx!')
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1043 call assert_equal(19, col('.'))
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1044
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1045 " scroll right
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1046 let args = #{button: 0x600, row: 1, col: 15, multiclick: 0, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1047 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1048 let args.col = 10
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1049 call test_gui_event('mouse', args)
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1050 call feedkeys('g0', 'Lx!')
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1051 call assert_equal(7, col('.'))
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1052 set wrap&
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1053
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1054 %d _
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1055 call setline(1, repeat([repeat('a', 60)], 10))
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1056
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1057 " record various mouse events
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1058 let mouseEventNames = [
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1059 \ 'LeftMouse', 'LeftRelease', '2-LeftMouse', '3-LeftMouse',
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1060 \ 'S-LeftMouse', 'A-LeftMouse', 'C-LeftMouse', 'MiddleMouse',
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1061 \ 'MiddleRelease', '2-MiddleMouse', '3-MiddleMouse',
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1062 \ 'S-MiddleMouse', 'A-MiddleMouse', 'C-MiddleMouse',
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1063 \ 'RightMouse', 'RightRelease', '2-RightMouse',
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1064 \ '3-RightMouse', 'S-RightMouse', 'A-RightMouse', 'C-RightMouse',
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1065 \ 'X1Mouse', 'S-X1Mouse', 'A-X1Mouse', 'C-X1Mouse', 'X2Mouse',
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1066 \ 'S-X2Mouse', 'A-X2Mouse', 'C-X2Mouse'
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1067 \ ]
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1068 let mouseEventCodes = map(copy(mouseEventNames), "'<' .. v:val .. '>'")
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1069 let g:events = []
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1070 for e in mouseEventCodes
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1071 exe 'nnoremap ' .. e .. ' <Cmd>call add(g:events, "' ..
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1072 \ substitute(e, '[<>]', '', 'g') .. '")<CR>'
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1073 endfor
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1074
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1075 " Test various mouse buttons (0 - Left, 1 - Middle, 2 - Right, 0x300 - X1,
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1076 " 0x300- X2)
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1077 for button in [0, 1, 2, 0x300, 0x400]
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1078 " Single click
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1079 let args = #{button: button, row: 2, col: 5, multiclick: 0, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1080 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1081 let args.button = 3
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1082 call test_gui_event('mouse', args)
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1083
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1084 " Double/Triple click is supported by only the Left/Middle/Right mouse
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1085 " buttons
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1086 if button <= 2
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1087 " Double Click
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1088 let args.button = button
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1089 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1090 let args.multiclick = 1
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1091 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1092 let args.button = 3
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1093 let args.multiclick = 0
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1094 call test_gui_event('mouse', args)
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1095
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1096 " Triple Click
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1097 let args.button = button
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1098 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1099 let args.multiclick = 1
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1100 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1101 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1102 let args.button = 3
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1103 let args.multiclick = 0
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1104 call test_gui_event('mouse', args)
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1105 endif
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1106
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1107 " Shift click
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1108 let args = #{button: button, row: 3, col: 7, multiclick: 0, modifiers: 4}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1109 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1110 let args.button = 3
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1111 call test_gui_event('mouse', args)
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1112
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1113 " Alt click
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1114 let args.button = button
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1115 let args.modifiers = 8
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1116 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1117 let args.button = 3
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1118 call test_gui_event('mouse', args)
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1119
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1120 " Ctrl click
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1121 let args.button = button
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1122 let args.modifiers = 16
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1123 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1124 let args.button = 3
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1125 call test_gui_event('mouse', args)
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1126
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1127 call feedkeys("\<Esc>", 'Lx!')
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1128 endfor
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1129
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1130 call assert_equal(['LeftMouse', 'LeftRelease', 'LeftMouse', '2-LeftMouse',
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1131 \ 'LeftMouse', '2-LeftMouse', '3-LeftMouse', 'S-LeftMouse',
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1132 \ 'A-LeftMouse', 'C-LeftMouse', 'MiddleMouse', 'MiddleRelease',
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1133 \ 'MiddleMouse', '2-MiddleMouse', 'MiddleMouse', '2-MiddleMouse',
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1134 \ '3-MiddleMouse', 'S-MiddleMouse', 'A-MiddleMouse', 'C-MiddleMouse',
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1135 \ 'RightMouse', 'RightRelease', 'RightMouse', '2-RightMouse',
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1136 \ 'RightMouse', '2-RightMouse', '3-RightMouse', 'S-RightMouse',
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1137 \ 'A-RightMouse', 'C-RightMouse', 'X1Mouse', 'S-X1Mouse', 'A-X1Mouse',
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1138 \ 'C-X1Mouse', 'X2Mouse', 'S-X2Mouse', 'A-X2Mouse', 'C-X2Mouse'],
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1139 \ g:events)
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1140
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1141 for e in mouseEventCodes
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1142 exe 'nunmap ' .. e
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1143 endfor
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1144
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1145 " modeless selection
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1146 set mouse=
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1147 let save_guioptions = &guioptions
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1148 set guioptions+=A
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1149 %d _
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1150 call setline(1, ['one two three', 'four five sixteen'])
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1151 call cursor(1, 1)
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1152 redraw!
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1153 " Double click should select the word and copy it to clipboard
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1154 let @* = ''
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1155 let args = #{button: 0, row: 2, col: 11, multiclick: 0, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1156 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1157 let args.multiclick = 1
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1158 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1159 let args.button = 3
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1160 let args.multiclick = 0
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1161 call test_gui_event('mouse', args)
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1162 call feedkeys("\<Esc>", 'Lx!')
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1163 call assert_equal([0, 1, 1, 0], getpos('.'))
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1164 call assert_equal('sixteen', @*)
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1165 " Right click should extend the selection from cursor
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1166 call cursor(1, 6)
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1167 redraw!
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1168 let @* = ''
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1169 let args = #{button: 2, row: 1, col: 11, multiclick: 0, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1170 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1171 let args.button = 3
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1172 call test_gui_event('mouse', args)
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1173 call feedkeys("\<Esc>", 'Lx!')
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1174 call assert_equal([0, 1, 6, 0], getpos('.'))
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1175 call assert_equal('wo thr', @*)
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1176 " Middle click should paste the clipboard contents
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1177 call cursor(2, 1)
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1178 redraw!
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1179 let args = #{button: 1, row: 1, col: 11, multiclick: 0, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1180 call test_gui_event('mouse', args)
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1181 let args.button = 3
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1182 call test_gui_event('mouse', args)
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1183 call feedkeys("\<Esc>", 'Lx!')
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1184 call assert_equal([0, 2, 7, 0], getpos('.'))
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1185 call assert_equal('wo thrfour five sixteen', getline(2))
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1186 set mouse&
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1187 let &guioptions = save_guioptions
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1188
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1189 " Test invalid parameters for test_gui_event()
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1190 let args = #{row: 2, col: 4, multiclick: 0, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1191 call assert_false(test_gui_event('mouse', args))
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1192 let args = #{button: 0, col: 4, multiclick: 0, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1193 call assert_false(test_gui_event('mouse', args))
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1194 let args = #{button: 0, row: 2, multiclick: 0, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1195 call assert_false(test_gui_event('mouse', args))
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1196 let args = #{button: 0, row: 2, col: 4, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1197 call assert_false(test_gui_event('mouse', args))
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1198 let args = #{button: 0, row: 2, col: 4, multiclick: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1199 call assert_false(test_gui_event('mouse', args))
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1200
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1201 " Error cases for test_gui_event()
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1202 call assert_fails("call test_gui_event('a1b2c3', args)", 'E475:')
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1203 call assert_fails("call test_gui_event([], args)", 'E1174:')
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1204 call assert_fails("call test_gui_event('abc', [])", 'E1206:')
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1205 call assert_fails("call test_gui_event(test_null_string(), {})", 'E475:')
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1206 call assert_false(test_gui_event('mouse', test_null_dict()))
24998
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1207
24982
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1208 bw!
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1209 call test_override('no_query_mouse', 0)
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1210 set mousemodel&
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1211 endfunc
4cb423b9250d patch 8.2.3028: GUI mouse events not tested
Bram Moolenaar <Bram@vim.org>
parents: 24035
diff changeset
1212
28883
d5436dbdd082 patch 8.2.4964: MS-Windows GUI: mouse event test is flaky
Bram Moolenaar <Bram@vim.org>
parents: 28858
diff changeset
1213 " Move the mouse to the top-left in preparation for mouse events
d5436dbdd082 patch 8.2.4964: MS-Windows GUI: mouse event test is flaky
Bram Moolenaar <Bram@vim.org>
parents: 28858
diff changeset
1214 func PrepareForMouseEvent(args)
30021
9735b6186254 patch 9.0.0348: MS-Windows: GUI mouse move event test is flaky
Bram Moolenaar <Bram@vim.org>
parents: 30011
diff changeset
1215 call extend(a:args, #{row: 1, col: 1})
28883
d5436dbdd082 patch 8.2.4964: MS-Windows GUI: mouse event test is flaky
Bram Moolenaar <Bram@vim.org>
parents: 28858
diff changeset
1216 call test_gui_event('mouse', a:args)
30021
9735b6186254 patch 9.0.0348: MS-Windows: GUI mouse move event test is flaky
Bram Moolenaar <Bram@vim.org>
parents: 30011
diff changeset
1217 let g:eventlist = []
28883
d5436dbdd082 patch 8.2.4964: MS-Windows GUI: mouse event test is flaky
Bram Moolenaar <Bram@vim.org>
parents: 28858
diff changeset
1218 call feedkeys('', 'Lx!')
30021
9735b6186254 patch 9.0.0348: MS-Windows: GUI mouse move event test is flaky
Bram Moolenaar <Bram@vim.org>
parents: 30011
diff changeset
1219
9735b6186254 patch 9.0.0348: MS-Windows: GUI mouse move event test is flaky
Bram Moolenaar <Bram@vim.org>
parents: 30011
diff changeset
1220 " Wait a bit for the event. I may not come if the mouse didn't move, wait up
9735b6186254 patch 9.0.0348: MS-Windows: GUI mouse move event test is flaky
Bram Moolenaar <Bram@vim.org>
parents: 30011
diff changeset
1221 " to 100 msec.
9735b6186254 patch 9.0.0348: MS-Windows: GUI mouse move event test is flaky
Bram Moolenaar <Bram@vim.org>
parents: 30011
diff changeset
1222 for n in range(10)
9735b6186254 patch 9.0.0348: MS-Windows: GUI mouse move event test is flaky
Bram Moolenaar <Bram@vim.org>
parents: 30011
diff changeset
1223 if len(g:eventlist) > 0
9735b6186254 patch 9.0.0348: MS-Windows: GUI mouse move event test is flaky
Bram Moolenaar <Bram@vim.org>
parents: 30011
diff changeset
1224 break
9735b6186254 patch 9.0.0348: MS-Windows: GUI mouse move event test is flaky
Bram Moolenaar <Bram@vim.org>
parents: 30011
diff changeset
1225 endif
9735b6186254 patch 9.0.0348: MS-Windows: GUI mouse move event test is flaky
Bram Moolenaar <Bram@vim.org>
parents: 30011
diff changeset
1226 sleep 10m
9735b6186254 patch 9.0.0348: MS-Windows: GUI mouse move event test is flaky
Bram Moolenaar <Bram@vim.org>
parents: 30011
diff changeset
1227 endfor
9735b6186254 patch 9.0.0348: MS-Windows: GUI mouse move event test is flaky
Bram Moolenaar <Bram@vim.org>
parents: 30011
diff changeset
1228 let g:eventlist = []
28883
d5436dbdd082 patch 8.2.4964: MS-Windows GUI: mouse event test is flaky
Bram Moolenaar <Bram@vim.org>
parents: 28858
diff changeset
1229 endfunc
d5436dbdd082 patch 8.2.4964: MS-Windows GUI: mouse event test is flaky
Bram Moolenaar <Bram@vim.org>
parents: 28858
diff changeset
1230
28885
947b7d061b07 patch 8.2.4965: GUI: testing mouse move event depends on screen cell size
Bram Moolenaar <Bram@vim.org>
parents: 28883
diff changeset
1231 func MouseWasMoved()
947b7d061b07 patch 8.2.4965: GUI: testing mouse move event depends on screen cell size
Bram Moolenaar <Bram@vim.org>
parents: 28883
diff changeset
1232 let pos = getmousepos()
947b7d061b07 patch 8.2.4965: GUI: testing mouse move event depends on screen cell size
Bram Moolenaar <Bram@vim.org>
parents: 28883
diff changeset
1233 call add(g:eventlist, #{row: pos.screenrow, col: pos.screencol})
947b7d061b07 patch 8.2.4965: GUI: testing mouse move event depends on screen cell size
Bram Moolenaar <Bram@vim.org>
parents: 28883
diff changeset
1234 endfunc
947b7d061b07 patch 8.2.4965: GUI: testing mouse move event depends on screen cell size
Bram Moolenaar <Bram@vim.org>
parents: 28883
diff changeset
1235
28297
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1236 func Test_gui_mouse_move_event()
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1237 let args = #{move: 1, button: 0, multiclick: 0, modifiers: 0}
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1238
30021
9735b6186254 patch 9.0.0348: MS-Windows: GUI mouse move event test is flaky
Bram Moolenaar <Bram@vim.org>
parents: 30011
diff changeset
1239 " by default, no mouse move events are generated
28297
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1240 set mousemev&
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1241 call assert_false(&mousemev)
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1242
28885
947b7d061b07 patch 8.2.4965: GUI: testing mouse move event depends on screen cell size
Bram Moolenaar <Bram@vim.org>
parents: 28883
diff changeset
1243 let g:eventlist = []
947b7d061b07 patch 8.2.4965: GUI: testing mouse move event depends on screen cell size
Bram Moolenaar <Bram@vim.org>
parents: 28883
diff changeset
1244 nnoremap <special> <silent> <MouseMove> :call MouseWasMoved()<CR>
28297
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1245
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1246 " start at mouse pos (1,1), clear counter
28883
d5436dbdd082 patch 8.2.4964: MS-Windows GUI: mouse event test is flaky
Bram Moolenaar <Bram@vim.org>
parents: 28858
diff changeset
1247 call PrepareForMouseEvent(args)
28297
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1248
28885
947b7d061b07 patch 8.2.4965: GUI: testing mouse move event depends on screen cell size
Bram Moolenaar <Bram@vim.org>
parents: 28883
diff changeset
1249 call extend(args, #{row: 3, col: 30, cell: v:true})
28297
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1250 call test_gui_event('mouse', args)
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1251 call feedkeys('', 'Lx!')
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1252
28885
947b7d061b07 patch 8.2.4965: GUI: testing mouse move event depends on screen cell size
Bram Moolenaar <Bram@vim.org>
parents: 28883
diff changeset
1253 call extend(args, #{row: 10, col: 30, cell: v:true})
28297
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1254 call test_gui_event('mouse', args)
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1255 call feedkeys('', 'Lx!')
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1256
30021
9735b6186254 patch 9.0.0348: MS-Windows: GUI mouse move event test is flaky
Bram Moolenaar <Bram@vim.org>
parents: 30011
diff changeset
1257 " no events since 'mousemev' is off
28885
947b7d061b07 patch 8.2.4965: GUI: testing mouse move event depends on screen cell size
Bram Moolenaar <Bram@vim.org>
parents: 28883
diff changeset
1258 call assert_equal([], g:eventlist)
28297
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1259
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1260 " turn on mouse events and try the same thing
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1261 set mousemev
28883
d5436dbdd082 patch 8.2.4964: MS-Windows GUI: mouse event test is flaky
Bram Moolenaar <Bram@vim.org>
parents: 28858
diff changeset
1262 call PrepareForMouseEvent(args)
28297
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1263
28885
947b7d061b07 patch 8.2.4965: GUI: testing mouse move event depends on screen cell size
Bram Moolenaar <Bram@vim.org>
parents: 28883
diff changeset
1264 call extend(args, #{row: 3, col: 30, cell: v:true})
28297
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1265 call test_gui_event('mouse', args)
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1266 call feedkeys('', 'Lx!')
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1267
28885
947b7d061b07 patch 8.2.4965: GUI: testing mouse move event depends on screen cell size
Bram Moolenaar <Bram@vim.org>
parents: 28883
diff changeset
1268 call extend(args, #{row: 10, col: 30, cell: v:true})
28297
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1269 call test_gui_event('mouse', args)
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1270 call feedkeys('', 'Lx!')
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1271
28889
d401ff43cd5f patch 8.2.4967: MS-Windows GUI: mouse event test sometimes fails
Bram Moolenaar <Bram@vim.org>
parents: 28887
diff changeset
1272 " FIXME: on MS-Windows we get a stray event first
d401ff43cd5f patch 8.2.4967: MS-Windows GUI: mouse event test sometimes fails
Bram Moolenaar <Bram@vim.org>
parents: 28887
diff changeset
1273 if has('win32') && len(g:eventlist) == 3
28887
0e207ddd939d patch 8.2.4966: MS-Windows GUI: mouse event test gets extra event
Bram Moolenaar <Bram@vim.org>
parents: 28885
diff changeset
1274 let g:eventlist = g:eventlist[1 : ]
0e207ddd939d patch 8.2.4966: MS-Windows GUI: mouse event test gets extra event
Bram Moolenaar <Bram@vim.org>
parents: 28885
diff changeset
1275 endif
0e207ddd939d patch 8.2.4966: MS-Windows GUI: mouse event test gets extra event
Bram Moolenaar <Bram@vim.org>
parents: 28885
diff changeset
1276
28885
947b7d061b07 patch 8.2.4965: GUI: testing mouse move event depends on screen cell size
Bram Moolenaar <Bram@vim.org>
parents: 28883
diff changeset
1277 call assert_equal([#{row: 4, col: 31}, #{row: 11, col: 31}], g:eventlist)
28297
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1278
28885
947b7d061b07 patch 8.2.4965: GUI: testing mouse move event depends on screen cell size
Bram Moolenaar <Bram@vim.org>
parents: 28883
diff changeset
1279 " wiggle the mouse around within a screen cell, shouldn't trigger events
947b7d061b07 patch 8.2.4965: GUI: testing mouse move event depends on screen cell size
Bram Moolenaar <Bram@vim.org>
parents: 28883
diff changeset
1280 call extend(args, #{cell: v:false})
28883
d5436dbdd082 patch 8.2.4964: MS-Windows GUI: mouse event test is flaky
Bram Moolenaar <Bram@vim.org>
parents: 28858
diff changeset
1281 call PrepareForMouseEvent(args)
28297
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1282
28885
947b7d061b07 patch 8.2.4965: GUI: testing mouse move event depends on screen cell size
Bram Moolenaar <Bram@vim.org>
parents: 28883
diff changeset
1283 call extend(args, #{row: 1, col: 2, cell: v:false})
28297
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1284 call test_gui_event('mouse', args)
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1285 call feedkeys('', 'Lx!')
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1286
28885
947b7d061b07 patch 8.2.4965: GUI: testing mouse move event depends on screen cell size
Bram Moolenaar <Bram@vim.org>
parents: 28883
diff changeset
1287 call extend(args, #{row: 2, col: 2, cell: v:false})
28297
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1288 call test_gui_event('mouse', args)
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1289 call feedkeys('', 'Lx!')
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1290
28885
947b7d061b07 patch 8.2.4965: GUI: testing mouse move event depends on screen cell size
Bram Moolenaar <Bram@vim.org>
parents: 28883
diff changeset
1291 call extend(args, #{row: 2, col: 1, cell: v:false})
28297
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1292 call test_gui_event('mouse', args)
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1293 call feedkeys('', 'Lx!')
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1294
28885
947b7d061b07 patch 8.2.4965: GUI: testing mouse move event depends on screen cell size
Bram Moolenaar <Bram@vim.org>
parents: 28883
diff changeset
1295 call assert_equal([], g:eventlist)
28297
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1296
28885
947b7d061b07 patch 8.2.4965: GUI: testing mouse move event depends on screen cell size
Bram Moolenaar <Bram@vim.org>
parents: 28883
diff changeset
1297 unlet g:eventlist
28297
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1298 unmap <MouseMove>
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1299 set mousemev&
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1300 endfunc
4190b932e6ca patch 8.2.4674: cannot force getting MouseMove events
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
1301
24998
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1302 " Test for 'guitablabel' and 'guitabtooltip' options
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1303 func TestGuiTabLabel()
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1304 call add(g:TabLabels, v:lnum + 100)
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1305 let bufnrlist = tabpagebuflist(v:lnum)
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1306 return bufname(bufnrlist[tabpagewinnr(v:lnum) - 1])
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1307 endfunc
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1308
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1309 func TestGuiTabToolTip()
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1310 call add(g:TabToolTips, v:lnum + 200)
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1311 let bufnrlist = tabpagebuflist(v:lnum)
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1312 return bufname(bufnrlist[tabpagewinnr(v:lnum) - 1])
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1313 endfunc
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1314
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1315 func Test_gui_tablabel_tooltip()
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1316 %bw!
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1317 " Removing the tabline at the end of this test, reduces the window height by
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1318 " one. Save and restore it after the test.
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1319 let save_lines = &lines
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1320 edit one
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1321 set modified
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1322 tabnew two
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1323 set modified
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1324 tabnew three
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1325 set modified
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1326 let g:TabLabels = []
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1327 set guitablabel=%{TestGuiTabLabel()}
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1328 call test_override('starting', 1)
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1329 redrawtabline
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1330 call test_override('starting', 0)
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1331 call assert_true(index(g:TabLabels, 101) != -1)
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1332 call assert_true(index(g:TabLabels, 102) != -1)
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1333 call assert_true(index(g:TabLabels, 103) != -1)
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1334 set guitablabel&
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1335 unlet g:TabLabels
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1336
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1337 if has('gui_gtk')
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1338 " Only on GTK+, the tooltip function is called even if the mouse is not
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1339 " on the tabline. on Win32 and Motif, the tooltip function is called only
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1340 " when the mouse pointer is over the tabline.
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1341 let g:TabToolTips = []
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1342 set guitabtooltip=%{TestGuiTabToolTip()}
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1343 call test_override('starting', 1)
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1344 redrawtabline
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1345 call test_override('starting', 0)
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1346 call assert_true(index(g:TabToolTips, 201) != -1)
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1347 call assert_true(index(g:TabToolTips, 202) != -1)
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1348 call assert_true(index(g:TabToolTips, 203) != -1)
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1349 set guitabtooltip&
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1350 unlet g:TabToolTips
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1351 endif
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1352 %bw!
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1353 let &lines = save_lines
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1354 endfunc
3b1770226f85 patch 8.2.3036: Vim9: builtin function arguments not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 24982
diff changeset
1355
25006
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1356 " Test for dropping files into a window in GUI
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1357 func DropFilesInCmdLine()
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1358 call feedkeys(":\"", 'L')
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1359 let d = #{files: ['a.c', 'b.c'], row: &lines, col: 1, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1360 call test_gui_event('dropfiles', d)
25006
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1361 call feedkeys("\<CR>", 'L')
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1362 endfunc
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1363
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1364 func Test_gui_drop_files()
25060
54c0cb81e6a7 patch 8.2.3067: building fails with Athena
Bram Moolenaar <Bram@vim.org>
parents: 25006
diff changeset
1365 CheckFeature drop_file
54c0cb81e6a7 patch 8.2.3067: building fails with Athena
Bram Moolenaar <Bram@vim.org>
parents: 25006
diff changeset
1366
25006
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1367 %bw!
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1368 %argdelete
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1369 let d = #{files: [], row: 1, col: 1, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1370 call test_gui_event('dropfiles', d)
25006
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1371 call assert_equal([], argv())
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1372 let d = #{files: [1, 2], row: 1, col: 1, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1373 call test_gui_event('dropfiles', d)
25006
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1374 call assert_equal([], argv())
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1375
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1376 let d = #{files: ['a.c', 'b.c'], row: 1, col: 1, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1377 call test_gui_event('dropfiles', d)
25006
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1378 call assert_equal(['a.c', 'b.c'], argv())
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1379 %bw!
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1380 %argdelete
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1381 let d = #{files: [], row: 1, col: 1, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1382 call test_gui_event('dropfiles', d)
25006
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1383 call assert_equal([], argv())
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1384 %bw!
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1385 " if the buffer in the window is modified, then the file should be opened in
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1386 " a new window
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1387 set modified
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1388 let d = #{files: ['x.c', 'y.c'], row: 1, col: 1, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1389 call test_gui_event('dropfiles', d)
25006
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1390 call assert_equal(['x.c', 'y.c'], argv())
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1391 call assert_equal(2, winnr('$'))
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1392 call assert_equal('x.c', bufname(winbufnr(1)))
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1393 %bw!
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1394 %argdelete
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1395 " if Ctrl is pressed, then the file should be opened in a new window
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1396 let d = #{files: ['s.py', 't.py'], row: 1, col: 1, modifiers: 0x10}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1397 eval 'dropfiles'->test_gui_event(d)
25006
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1398 call assert_equal(['s.py', 't.py'], argv())
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1399 call assert_equal(2, winnr('$'))
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1400 call assert_equal('s.py', bufname(winbufnr(1)))
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1401 %bw!
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1402 %argdelete
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1403 " drop the files in a non-current window
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1404 belowright new
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1405 let d = #{files: ['a.py', 'b.py'], row: 1, col: 1, modifiers: 0}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1406 call test_gui_event('dropfiles', d)
25006
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1407 call assert_equal(['a.py', 'b.py'], argv())
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1408 call assert_equal(2, winnr('$'))
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1409 call assert_equal(1, winnr())
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1410 call assert_equal('a.py', bufname(winbufnr(1)))
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1411 %bw!
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1412 %argdelete
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1413 " pressing shift when dropping files should change directory
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1414 let save_cwd = getcwd()
29970
d891115c0aea patch 9.0.0323: using common name in tests leads to flaky tests
Bram Moolenaar <Bram@vim.org>
parents: 29914
diff changeset
1415 call mkdir('Xdropdir1')
d891115c0aea patch 9.0.0323: using common name in tests leads to flaky tests
Bram Moolenaar <Bram@vim.org>
parents: 29914
diff changeset
1416 call writefile([], 'Xdropdir1/Xfile1')
d891115c0aea patch 9.0.0323: using common name in tests leads to flaky tests
Bram Moolenaar <Bram@vim.org>
parents: 29914
diff changeset
1417 call writefile([], 'Xdropdir1/Xfile2')
d891115c0aea patch 9.0.0323: using common name in tests leads to flaky tests
Bram Moolenaar <Bram@vim.org>
parents: 29914
diff changeset
1418 let d = #{files: ['Xdropdir1/Xfile1', 'Xdropdir1/Xfile2'], row: 1, col: 1,
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1419 \ modifiers: 0x4}
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1420 call test_gui_event('dropfiles', d)
29970
d891115c0aea patch 9.0.0323: using common name in tests leads to flaky tests
Bram Moolenaar <Bram@vim.org>
parents: 29914
diff changeset
1421 call assert_equal('Xdropdir1', fnamemodify(getcwd(), ':t'))
25006
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1422 call assert_equal('Xfile1', @%)
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1423 call chdir(save_cwd)
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1424 " pressing shift when dropping directory and files should change directory
29970
d891115c0aea patch 9.0.0323: using common name in tests leads to flaky tests
Bram Moolenaar <Bram@vim.org>
parents: 29914
diff changeset
1425 let d = #{files: ['Xdropdir1', 'Xdropdir1/Xfile2'], row: 1, col: 1, modifiers: 0x4}
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1426 call test_gui_event('dropfiles', d)
29970
d891115c0aea patch 9.0.0323: using common name in tests leads to flaky tests
Bram Moolenaar <Bram@vim.org>
parents: 29914
diff changeset
1427 call assert_equal('Xdropdir1', fnamemodify(getcwd(), ':t'))
d891115c0aea patch 9.0.0323: using common name in tests leads to flaky tests
Bram Moolenaar <Bram@vim.org>
parents: 29914
diff changeset
1428 call assert_equal('Xdropdir1', fnamemodify(@%, ':t'))
25006
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1429 call chdir(save_cwd)
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1430 %bw!
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1431 %argdelete
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1432 " dropping a directory should edit it
29970
d891115c0aea patch 9.0.0323: using common name in tests leads to flaky tests
Bram Moolenaar <Bram@vim.org>
parents: 29914
diff changeset
1433 let d = #{files: ['Xdropdir1'], row: 1, col: 1, modifiers: 0}
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1434 call test_gui_event('dropfiles', d)
29970
d891115c0aea patch 9.0.0323: using common name in tests leads to flaky tests
Bram Moolenaar <Bram@vim.org>
parents: 29914
diff changeset
1435 call assert_equal('Xdropdir1', @%)
25006
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1436 %bw!
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1437 %argdelete
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1438 " dropping only a directory name with Shift should ignore it
29970
d891115c0aea patch 9.0.0323: using common name in tests leads to flaky tests
Bram Moolenaar <Bram@vim.org>
parents: 29914
diff changeset
1439 let d = #{files: ['Xdropdir1'], row: 1, col: 1, modifiers: 0x4}
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1440 call test_gui_event('dropfiles', d)
25006
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1441 call assert_equal('', @%)
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1442 %bw!
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1443 %argdelete
29970
d891115c0aea patch 9.0.0323: using common name in tests leads to flaky tests
Bram Moolenaar <Bram@vim.org>
parents: 29914
diff changeset
1444 call delete('Xdropdir1', 'rf')
29914
6d44e5e9e0ce patch 9.0.0295: GUI drop files test sometimes fails
Bram Moolenaar <Bram@vim.org>
parents: 29432
diff changeset
1445
25006
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1446 " drop files in the command line. The GUI drop files adds the file names to
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1447 " the low level input buffer. So need to use a cmdline map and feedkeys()
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1448 " with 'Lx!' to process it in this function itself.
29914
6d44e5e9e0ce patch 9.0.0295: GUI drop files test sometimes fails
Bram Moolenaar <Bram@vim.org>
parents: 29432
diff changeset
1449 " This sometimes fails, e.g. when using valgrind.
6d44e5e9e0ce patch 9.0.0295: GUI drop files test sometimes fails
Bram Moolenaar <Bram@vim.org>
parents: 29432
diff changeset
1450 let g:test_is_flaky = 1
25006
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1451 cnoremap <expr> <buffer> <F4> DropFilesInCmdLine()
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1452 call feedkeys(":\"\<F4>\<CR>", 'xt')
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1453 call feedkeys('k', 'Lx!')
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1454 call assert_equal('"a.c b.c', @:)
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1455 cunmap <buffer> <F4>
27470
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1456
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1457 " Invalid arguments
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1458 call assert_false(test_gui_event("dropfiles", {}))
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1459 let d = #{row: 1, col: 1, modifiers: 0}
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1460 call assert_false(test_gui_event("dropfiles", d))
27497
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
1461 let d = #{files: 1, row: 1, col: 1, modifiers: 0}
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
1462 call assert_false(test_gui_event("dropfiles", d))
27470
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1463 let d = #{files: test_null_list(), row: 1, col: 1, modifiers: 0}
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1464 call assert_false(test_gui_event("dropfiles", d))
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1465 let d = #{files: [test_null_string()], row: 1, col: 1, modifiers: 0}
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1466 call assert_true(test_gui_event("dropfiles", d))
25006
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1467 endfunc
496221916885 patch 8.2.3040: GUI: dropping files not tested
Bram Moolenaar <Bram@vim.org>
parents: 24998
diff changeset
1468
27400
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1469 " Test for generating a GUI tabline event to select a tab page
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1470 func Test_gui_tabline_event()
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1471 %bw!
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1472 edit Xfile1
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1473 tabedit Xfile2
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1474 tabedit Xfile3
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1475
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1476 tabfirst
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1477 call assert_equal(v:true, test_gui_event('tabline', #{tabnr: 2}))
27400
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1478 call feedkeys("y", "Lx!")
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1479 call assert_equal(2, tabpagenr())
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1480 call assert_equal(v:true, test_gui_event('tabline', #{tabnr: 3}))
27400
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1481 call feedkeys("y", "Lx!")
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1482 call assert_equal(3, tabpagenr())
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1483 call assert_equal(v:false, 'tabline'->test_gui_event(#{tabnr: 3}))
27400
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1484
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1485 " From the cmdline window, tabline event should not be handled
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1486 call feedkeys("q::let t = test_gui_event('tabline', #{tabnr: 2})\<CR>:q\<CR>", 'x!')
27400
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1487 call assert_equal(v:false, t)
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1488
27470
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1489 " Invalid arguments
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1490 call assert_false(test_gui_event('tabline', {}))
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1491 call assert_false(test_gui_event('tabline', #{abc: 1}))
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1492
27400
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1493 %bw!
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1494 endfunc
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1495
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1496 " Test for generating a GUI tabline menu event to execute an action
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1497 func Test_gui_tabmenu_event()
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1498 %bw!
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1499
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1500 " Try to close the last tab page
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1501 call test_gui_event('tabmenu', #{tabnr: 1, item: 1})
27400
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1502 call feedkeys("y", "Lx!")
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1503
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1504 edit Xfile1
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1505 tabedit Xfile2
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1506 call test_gui_event('tabmenu', #{tabnr: 1, item: 1})
27400
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1507 call feedkeys("y", "Lx!")
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1508 call assert_equal(1, tabpagenr('$'))
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1509 call assert_equal('Xfile2', bufname())
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1510
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1511 eval 'tabmenu'->test_gui_event(#{tabnr: 1, item: 2})
27400
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1512 call feedkeys("y", "Lx!")
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1513 call assert_equal(2, tabpagenr('$'))
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1514
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1515 " If tabnr is 0, then the current tabpage should be used.
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1516 call test_gui_event('tabmenu', #{tabnr: 0, item: 2})
27400
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1517 call feedkeys("y", "Lx!")
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1518 call assert_equal(3, tabpagenr('$'))
27462
b43f6c879d52 patch 8.2.4259: number of test functions for GUI events is growing
Bram Moolenaar <Bram@vim.org>
parents: 27400
diff changeset
1519 call test_gui_event('tabmenu', #{tabnr: 0, item: 1})
27400
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1520 call feedkeys("y", "Lx!")
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1521 call assert_equal(2, tabpagenr('$'))
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1522
27470
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1523 " Invalid arguments
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1524 call assert_false(test_gui_event('tabmenu', {}))
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1525 call assert_false(test_gui_event('tabmenu', #{tabnr: 1}))
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1526 call assert_false(test_gui_event('tabmenu', #{item: 1}))
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1527 call assert_false(test_gui_event('tabmenu', #{abc: 1}))
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1528
27400
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1529 %bw!
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1530 endfunc
722db0819111 patch 8.2.4228: no tests for clicking in the GUI tabline
Bram Moolenaar <Bram@vim.org>
parents: 26743
diff changeset
1531
27470
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1532 " Test for find/replace text dialog event
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1533 func Test_gui_findrepl()
28000
fc34d6c4a42c patch 8.2.4525: some GUI tests don't work on Athena
Bram Moolenaar <Bram@vim.org>
parents: 27994
diff changeset
1534 " Find/Replace dialog is supported only on GTK, Motif and MS-Windows.
fc34d6c4a42c patch 8.2.4525: some GUI tests don't work on Athena
Bram Moolenaar <Bram@vim.org>
parents: 27994
diff changeset
1535 if !has('gui_gtk') && !has('gui_motif') && !has('gui_win32')
fc34d6c4a42c patch 8.2.4525: some GUI tests don't work on Athena
Bram Moolenaar <Bram@vim.org>
parents: 27994
diff changeset
1536 return
fc34d6c4a42c patch 8.2.4525: some GUI tests don't work on Athena
Bram Moolenaar <Bram@vim.org>
parents: 27994
diff changeset
1537 endif
fc34d6c4a42c patch 8.2.4525: some GUI tests don't work on Athena
Bram Moolenaar <Bram@vim.org>
parents: 27994
diff changeset
1538
27470
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1539 new
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1540 call setline(1, ['one two one', 'Twoo One two oneo'])
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1541
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1542 " Replace all instances of a string with another
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1543 let args = #{find_text: 'one', repl_text: 'ONE', flags: 0x4, forward: 1}
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1544 call test_gui_event('findrepl', args)
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1545 call assert_equal(['ONE two ONE', 'Twoo ONE two ONEo'], getline(1, '$'))
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1546
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1547 " Replace all instances of a whole string with another
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1548 call cursor(1, 1)
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1549 let args = #{find_text: 'two', repl_text: 'TWO', flags: 0xC, forward: 1}
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1550 call test_gui_event('findrepl', args)
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1551 call assert_equal(['ONE TWO ONE', 'Twoo ONE TWO ONEo'], getline(1, '$'))
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1552
28171
b4c111ea83b1 patch 8.2.4611: typos in tests; one lua line not covered by test
Bram Moolenaar <Bram@vim.org>
parents: 28000
diff changeset
1553 " Find next occurrence of a string (in a find dialog)
27470
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1554 call cursor(1, 11)
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1555 let args = #{find_text: 'TWO', repl_text: '', flags: 0x11, forward: 1}
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1556 call test_gui_event('findrepl', args)
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1557 call assert_equal([2, 10], [line('.'), col('.')])
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1558
28171
b4c111ea83b1 patch 8.2.4611: typos in tests; one lua line not covered by test
Bram Moolenaar <Bram@vim.org>
parents: 28000
diff changeset
1559 " Find previous occurrences of a string (in a find dialog)
27470
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1560 call cursor(1, 11)
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1561 let args = #{find_text: 'TWO', repl_text: '', flags: 0x11, forward: 0}
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1562 call test_gui_event('findrepl', args)
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1563 call assert_equal([1, 5], [line('.'), col('.')])
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1564
28171
b4c111ea83b1 patch 8.2.4611: typos in tests; one lua line not covered by test
Bram Moolenaar <Bram@vim.org>
parents: 28000
diff changeset
1565 " Find next occurrence of a string (in a replace dialog)
27470
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1566 call cursor(1, 1)
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1567 let args = #{find_text: 'Twoo', repl_text: '', flags: 0x2, forward: 1}
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1568 call test_gui_event('findrepl', args)
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1569 call assert_equal([2, 1], [line('.'), col('.')])
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1570
28171
b4c111ea83b1 patch 8.2.4611: typos in tests; one lua line not covered by test
Bram Moolenaar <Bram@vim.org>
parents: 28000
diff changeset
1571 " Replace only the next occurrence of a string (once)
27470
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1572 call cursor(1, 5)
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1573 let args = #{find_text: 'TWO', repl_text: 'two', flags: 0x3, forward: 1}
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1574 call test_gui_event('findrepl', args)
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1575 call assert_equal(['ONE two ONE', 'Twoo ONE TWO ONEo'], getline(1, '$'))
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1576
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1577 " Replace all instances of a whole string with another matching case
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1578 call cursor(1, 1)
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1579 let args = #{find_text: 'TWO', repl_text: 'two', flags: 0x1C, forward: 1}
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1580 call test_gui_event('findrepl', args)
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1581 call assert_equal(['ONE two ONE', 'Twoo ONE two ONEo'], getline(1, '$'))
27497
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
1582
30120
eb534258bdaf patch 9.0.0396: :findrepl does not escape '&' and '~' properly
Bram Moolenaar <Bram@vim.org>
parents: 30051
diff changeset
1583 " Replace all instances with sub-replace specials
eb534258bdaf patch 9.0.0396: :findrepl does not escape '&' and '~' properly
Bram Moolenaar <Bram@vim.org>
parents: 30051
diff changeset
1584 call cursor(1, 1)
eb534258bdaf patch 9.0.0396: :findrepl does not escape '&' and '~' properly
Bram Moolenaar <Bram@vim.org>
parents: 30051
diff changeset
1585 let args = #{find_text: 'ONE', repl_text: '&~&', flags: 0x4, forward: 1}
eb534258bdaf patch 9.0.0396: :findrepl does not escape '&' and '~' properly
Bram Moolenaar <Bram@vim.org>
parents: 30051
diff changeset
1586 call test_gui_event('findrepl', args)
eb534258bdaf patch 9.0.0396: :findrepl does not escape '&' and '~' properly
Bram Moolenaar <Bram@vim.org>
parents: 30051
diff changeset
1587 call assert_equal(['&~& two &~&', 'Twoo &~& two &~&o'], getline(1, '$'))
eb534258bdaf patch 9.0.0396: :findrepl does not escape '&' and '~' properly
Bram Moolenaar <Bram@vim.org>
parents: 30051
diff changeset
1588
27497
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
1589 " Invalid arguments
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
1590 call assert_false(test_gui_event('findrepl', {}))
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
1591 let args = #{repl_text: 'a', flags: 1, forward: 1}
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
1592 call assert_false(test_gui_event('findrepl', args))
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
1593 let args = #{find_text: 'a', flags: 1, forward: 1}
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
1594 call assert_false(test_gui_event('findrepl', args))
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
1595 let args = #{find_text: 'a', repl_text: 'b', forward: 1}
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
1596 call assert_false(test_gui_event('findrepl', args))
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
1597 let args = #{find_text: 'a', repl_text: 'b', flags: 1}
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
1598 call assert_false(test_gui_event('findrepl', args))
7480a2e2ca0f patch 8.2.4276: separate test function for the GUI scrollbar
Bram Moolenaar <Bram@vim.org>
parents: 27470
diff changeset
1599
27470
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1600 bw!
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1601 endfunc
f0096e5b3df9 patch 8.2.4263: no test for the GUI find/replace dialog
Bram Moolenaar <Bram@vim.org>
parents: 27462
diff changeset
1602
28644
0c63014c2513 patch 8.2.4846: termcodes test fails
Bram Moolenaar <Bram@vim.org>
parents: 28641
diff changeset
1603 func Test_gui_CTRL_SHIFT_V()
0c63014c2513 patch 8.2.4846: termcodes test fails
Bram Moolenaar <Bram@vim.org>
parents: 28641
diff changeset
1604 call feedkeys(":let g:str = '\<*C-S-V>\<*C-S-I>\<*C-S-V>\<*C-S-@>'\<CR>", 'tx')
28641
fdb18b1122f7 patch 8.2.4844: <C-S-I> is simplified to <S-Tab>
Bram Moolenaar <Bram@vim.org>
parents: 28303
diff changeset
1605 call assert_equal('<C-S-I><C-S-@>', g:str)
fdb18b1122f7 patch 8.2.4844: <C-S-I> is simplified to <S-Tab>
Bram Moolenaar <Bram@vim.org>
parents: 28303
diff changeset
1606 unlet g:str
fdb18b1122f7 patch 8.2.4844: <C-S-I> is simplified to <S-Tab>
Bram Moolenaar <Bram@vim.org>
parents: 28303
diff changeset
1607 endfunc
fdb18b1122f7 patch 8.2.4844: <C-S-I> is simplified to <S-Tab>
Bram Moolenaar <Bram@vim.org>
parents: 28303
diff changeset
1608
29183
8f6b850bb8c3 patch 8.2.5111: no test for --gui-dialog-file
Bram Moolenaar <Bram@vim.org>
parents: 29052
diff changeset
1609 func Test_gui_dialog_file()
30128
6d0056cc21a0 patch 9.0.0400: GUI test sometimes hangs on CI
Bram Moolenaar <Bram@vim.org>
parents: 30120
diff changeset
1610 " make sure the file does not exist, otherwise a dialog makes Vim hang
6d0056cc21a0 patch 9.0.0400: GUI test sometimes hangs on CI
Bram Moolenaar <Bram@vim.org>
parents: 30120
diff changeset
1611 call delete('Xdialfile')
6d0056cc21a0 patch 9.0.0400: GUI test sometimes hangs on CI
Bram Moolenaar <Bram@vim.org>
parents: 30120
diff changeset
1612
29183
8f6b850bb8c3 patch 8.2.5111: no test for --gui-dialog-file
Bram Moolenaar <Bram@vim.org>
parents: 29052
diff changeset
1613 let lines =<< trim END
30051
13b02c1ea0f7 patch 9.0.0363: common names in test files causes tests to be flaky
Bram Moolenaar <Bram@vim.org>
parents: 30021
diff changeset
1614 file Xdialfile
29183
8f6b850bb8c3 patch 8.2.5111: no test for --gui-dialog-file
Bram Moolenaar <Bram@vim.org>
parents: 29052
diff changeset
1615 normal axxx
8f6b850bb8c3 patch 8.2.5111: no test for --gui-dialog-file
Bram Moolenaar <Bram@vim.org>
parents: 29052
diff changeset
1616 confirm qa
8f6b850bb8c3 patch 8.2.5111: no test for --gui-dialog-file
Bram Moolenaar <Bram@vim.org>
parents: 29052
diff changeset
1617 END
30128
6d0056cc21a0 patch 9.0.0400: GUI test sometimes hangs on CI
Bram Moolenaar <Bram@vim.org>
parents: 30120
diff changeset
1618 call writefile(lines, 'Xlines', 'D')
29185
523a97eab139 patch 8.2.5112: gui test hangs on MS-Windows
Bram Moolenaar <Bram@vim.org>
parents: 29183
diff changeset
1619 let prefix = '!'
523a97eab139 patch 8.2.5112: gui test hangs on MS-Windows
Bram Moolenaar <Bram@vim.org>
parents: 29183
diff changeset
1620 if has('win32')
523a97eab139 patch 8.2.5112: gui test hangs on MS-Windows
Bram Moolenaar <Bram@vim.org>
parents: 29183
diff changeset
1621 let prefix = '!start '
523a97eab139 patch 8.2.5112: gui test hangs on MS-Windows
Bram Moolenaar <Bram@vim.org>
parents: 29183
diff changeset
1622 endif
523a97eab139 patch 8.2.5112: gui test hangs on MS-Windows
Bram Moolenaar <Bram@vim.org>
parents: 29183
diff changeset
1623 execute prefix .. GetVimCommand() .. ' -g -f --clean --gui-dialog-file Xdialog -S Xlines'
29183
8f6b850bb8c3 patch 8.2.5111: no test for --gui-dialog-file
Bram Moolenaar <Bram@vim.org>
parents: 29052
diff changeset
1624
8f6b850bb8c3 patch 8.2.5111: no test for --gui-dialog-file
Bram Moolenaar <Bram@vim.org>
parents: 29052
diff changeset
1625 call WaitForAssert({-> assert_true(filereadable('Xdialog'))})
30051
13b02c1ea0f7 patch 9.0.0363: common names in test files causes tests to be flaky
Bram Moolenaar <Bram@vim.org>
parents: 30021
diff changeset
1626 call assert_match('Question: Save changes to "Xdialfile"?', readfile('Xdialog')->join('<NL>'))
29183
8f6b850bb8c3 patch 8.2.5111: no test for --gui-dialog-file
Bram Moolenaar <Bram@vim.org>
parents: 29052
diff changeset
1627
8f6b850bb8c3 patch 8.2.5111: no test for --gui-dialog-file
Bram Moolenaar <Bram@vim.org>
parents: 29052
diff changeset
1628 call delete('Xdialog')
30051
13b02c1ea0f7 patch 9.0.0363: common names in test files causes tests to be flaky
Bram Moolenaar <Bram@vim.org>
parents: 30021
diff changeset
1629 call delete('Xdialfile')
29183
8f6b850bb8c3 patch 8.2.5111: no test for --gui-dialog-file
Bram Moolenaar <Bram@vim.org>
parents: 29052
diff changeset
1630 endfunc
8f6b850bb8c3 patch 8.2.5111: no test for --gui-dialog-file
Bram Moolenaar <Bram@vim.org>
parents: 29052
diff changeset
1631
29432
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1632 " Test for sending low level key presses
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1633 func SendKeys(keylist)
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1634 for k in a:keylist
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1635 call test_gui_event("sendevent", #{event: "keydown", keycode: k})
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1636 endfor
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1637 for k in reverse(a:keylist)
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1638 call test_gui_event("sendevent", #{event: "keyup", keycode: k})
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1639 endfor
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1640 endfunc
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1641
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1642 func Test_gui_lowlevel_keyevent()
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1643 CheckMSWindows
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1644 new
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1645
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1646 " Test for <Ctrl-A> to <Ctrl-Z> keys
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1647 for kc in range(65, 90)
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1648 call SendKeys([0x11, kc])
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1649 let ch = getcharstr()
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1650 call assert_equal(nr2char(kc - 64), ch)
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1651 endfor
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1652
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1653 " Test for the various Ctrl and Shift key combinations.
30186
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1654 " Refer to the following page for the virtual key codes:
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1655 " https://docs.microsoft.com/en-us/windows/win32/inputdev/virtual-key-codes
29432
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1656 let keytests = [
30186
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1657 \ [[0x10, 0x21], "S-Pageup", 2],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1658 \ [[0xA0, 0x21], "S-Pageup", 2],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1659 \ [[0xA1, 0x21], "S-Pageup", 2],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1660 \ [[0x11, 0x21], "C-Pageup", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1661 \ [[0xA2, 0x21], "C-Pageup", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1662 \ [[0xA3, 0x21], "C-Pageup", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1663 \ [[0x11, 0x10, 0x21], "C-S-Pageup", 6],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1664 \ [[0x10, 0x22], "S-PageDown", 2],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1665 \ [[0xA0, 0x22], "S-PageDown", 2],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1666 \ [[0xA1, 0x22], "S-PageDown", 2],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1667 \ [[0x11, 0x22], "C-PageDown", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1668 \ [[0xA2, 0x22], "C-PageDown", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1669 \ [[0xA3, 0x22], "C-PageDown", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1670 \ [[0x11, 0x10, 0x22], "C-S-PageDown", 6],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1671 \ [[0x10, 0x23], "S-End", 0],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1672 \ [[0x11, 0x23], "C-End", 0],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1673 \ [[0x11, 0x10, 0x23], "C-S-End", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1674 \ [[0x10, 0x24], "S-Home", 0],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1675 \ [[0x11, 0x24], "C-Home", 0],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1676 \ [[0x11, 0x10, 0x24], "C-S-Home", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1677 \ [[0x10, 0x25], "S-Left", 0],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1678 \ [[0x11, 0x25], "C-Left", 0],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1679 \ [[0x11, 0x10, 0x25], "C-S-Left", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1680 \ [[0x10, 0x26], "S-Up", 0],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1681 \ [[0x11, 0x26], "C-Up", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1682 \ [[0x11, 0x10, 0x26], "C-S-Up", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1683 \ [[0x10, 0x27], "S-Right", 0],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1684 \ [[0x11, 0x27], "C-Right", 0],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1685 \ [[0x11, 0x10, 0x27], "C-S-Right", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1686 \ [[0x10, 0x28], "S-Down", 0],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1687 \ [[0x11, 0x28], "C-Down", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1688 \ [[0x11, 0x10, 0x28], "C-S-Down", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1689 \ [[0x11, 0x30], "C-0", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1690 \ [[0x11, 0x31], "C-1", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1691 \ [[0x11, 0x32], "C-2", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1692 \ [[0x11, 0x33], "C-3", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1693 \ [[0x11, 0x34], "C-4", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1694 \ [[0x11, 0x35], "C-5", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1695 \ [[0x11, 0x36], "C-^", 0],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1696 \ [[0x11, 0x37], "C-7", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1697 \ [[0x11, 0x38], "C-8", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1698 \ [[0x11, 0x39], "C-9", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1699 \ [[0x11, 0x60], "C-0", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1700 \ [[0x11, 0x61], "C-1", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1701 \ [[0x11, 0x62], "C-2", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1702 \ [[0x11, 0x63], "C-3", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1703 \ [[0x11, 0x64], "C-4", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1704 \ [[0x11, 0x65], "C-5", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1705 \ [[0x11, 0x66], "C-6", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1706 \ [[0x11, 0x67], "C-7", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1707 \ [[0x11, 0x68], "C-8", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1708 \ [[0x11, 0x69], "C-9", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1709 \ [[0x11, 0x6A], "C-*", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1710 \ [[0x11, 0x6B], "C-+", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1711 \ [[0x11, 0x6D], "C--", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1712 \ [[0x11, 0x70], "C-F1", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1713 \ [[0x11, 0x10, 0x70], "C-S-F1", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1714 \ [[0x11, 0x71], "C-F2", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1715 \ [[0x11, 0x10, 0x71], "C-S-F2", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1716 \ [[0x11, 0x72], "C-F3", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1717 \ [[0x11, 0x10, 0x72], "C-S-F3", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1718 \ [[0x11, 0x73], "C-F4", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1719 \ [[0x11, 0x10, 0x73], "C-S-F4", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1720 \ [[0x11, 0x74], "C-F5", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1721 \ [[0x11, 0x10, 0x74], "C-S-F5", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1722 \ [[0x11, 0x75], "C-F6", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1723 \ [[0x11, 0x10, 0x75], "C-S-F6", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1724 \ [[0x11, 0x76], "C-F7", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1725 \ [[0x11, 0x10, 0x76], "C-S-F7", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1726 \ [[0x11, 0x77], "C-F8", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1727 \ [[0x11, 0x10, 0x77], "C-S-F8", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1728 \ [[0x11, 0x78], "C-F9", 4],
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1729 \ [[0x11, 0x10, 0x78], "C-S-F9", 4],
29432
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1730 \ ]
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1731
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1732 for [kcodes, kstr, kmod] in keytests
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1733 call SendKeys(kcodes)
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1734 let ch = getcharstr()
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1735 let mod = getcharmod()
30186
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1736 let keycode = eval('"\<' .. kstr .. '>"')
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1737 call assert_equal(keycode, ch, $"key = {kstr}")
d9768ddc26fd patch 9.0.0429: not all keys are tested for the MS-Windows GUI
Bram Moolenaar <Bram@vim.org>
parents: 30128
diff changeset
1738 call assert_equal(kmod, mod, $"key = {kstr}")
29432
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1739 endfor
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1740
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1741 bw!
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1742 endfunc
339fe2968690 patch 9.0.0058: Win32: cannot test low level events
Bram Moolenaar <Bram@vim.org>
parents: 29272
diff changeset
1743
19783
546bdeef35f1 patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents: 18767
diff changeset
1744 " vim: shiftwidth=2 sts=2 expandtab