vim: src/testdir/test_gui.vim annotate

annotate src/testdir/test_gui.vim @ 20508:357dea6b9fde v8.2.0808

patch 8.2.0808: not enough testing for the terminal window Commit: https://github.com/vim/vim/commit/98f1671cc0ab0ad6139cb9c6ce5262e7f646bc0a Author: Bram Moolenaar <Bram@vim.org> Date: Fri May 22 13:34:01 2020 +0200 patch 8.2.0808: not enough testing for the terminal window Problem: Not enough testing for the terminal window. Solution: Add more tests. (Yegappan Lakshmanan, closes https://github.com/vim/vim/issues/6069) Fix memory leak.

author	Bram Moolenaar <Bram@vim.org>
date	Fri, 22 May 2020 13:45:03 +0200
parents	86333cdb8cf8
children	fbee68c6aab1

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()
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	27 if has('balloon_eval')
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	28 " This won't do anything but must not crash either.
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	29 call balloon_show('hi!')
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	30 endif
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	31 endfunc
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	32
11119 d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	33 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	34 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	35
11119 d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	36 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	37 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	38 augroup TestColors
cad480bac9e1 patch 8.0.1777: cannot cleanup before loading another colorscheme Christian Brabandt <cb@256bit.org> parents: 13351 diff changeset	39 au!
cad480bac9e1 patch 8.0.1777: cannot cleanup before loading another colorscheme Christian Brabandt <cb@256bit.org> parents: 13351 diff changeset	40 au ColorScheme * let g:color_count += 1\| let g:after_colors = g:color_count
cad480bac9e1 patch 8.0.1777: cannot cleanup before loading another colorscheme Christian Brabandt <cb@256bit.org> parents: 13351 diff changeset	41 au ColorSchemePre * let g:color_count += 1 \|let g:before_colors = g:color_count
cad480bac9e1 patch 8.0.1777: cannot cleanup before loading another colorscheme Christian Brabandt <cb@256bit.org> parents: 13351 diff changeset	42 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	43
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	44 colorscheme torte
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	45 redraw!
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	46 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	47 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	48 call assert_equal(2, g:after_colors)
15394 f20d90aeecaa patch 8.1.0705: :colorscheme isn't tested enough Bram Moolenaar <Bram@vim.org> parents: 14756 diff changeset	49 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	50
f20d90aeecaa patch 8.1.0705: :colorscheme isn't tested enough Bram Moolenaar <Bram@vim.org> parents: 14756 diff changeset	51 let a = substitute(execute('hi Search'), "\n\\s\\+", ' ', 'g')
f20d90aeecaa patch 8.1.0705: :colorscheme isn't tested enough Bram Moolenaar <Bram@vim.org> parents: 14756 diff changeset	52 call assert_match("\nSearch xxx term=reverse ctermfg=0 ctermbg=12 gui=bold guifg=Black guibg=Red", a)
f20d90aeecaa patch 8.1.0705: :colorscheme isn't tested enough Bram Moolenaar <Bram@vim.org> parents: 14756 diff changeset	53
f20d90aeecaa patch 8.1.0705: :colorscheme isn't tested enough Bram Moolenaar <Bram@vim.org> parents: 14756 diff changeset	54 call assert_fails('colorscheme does_not_exist', 'E185:')
11119 d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	55
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	56 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	57 augroup TestColors
cad480bac9e1 patch 8.0.1777: cannot cleanup before loading another colorscheme Christian Brabandt <cb@256bit.org> parents: 13351 diff changeset	58 au!
cad480bac9e1 patch 8.0.1777: cannot cleanup before loading another colorscheme Christian Brabandt <cb@256bit.org> parents: 13351 diff changeset	59 augroup END
cad480bac9e1 patch 8.0.1777: cannot cleanup before loading another colorscheme Christian Brabandt <cb@256bit.org> parents: 13351 diff changeset	60 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	61 redraw!
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	62 endfunc
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	63
10847 881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality Christian Brabandt <cb@256bit.org> parents: 10841 diff changeset	64 func Test_getfontname_with_arg()
10885 310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	65 let skipped = ''
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	66
10944 4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10885 diff changeset	67 if !g:x11_based_gui
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10885 diff changeset	68 let skipped = g:not_implemented
10885 310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	69 elseif has('gui_athena') \|\| has('gui_motif')
10847 881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality Christian Brabandt <cb@256bit.org> parents: 10841 diff changeset	70 " 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	71 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	72
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality Christian Brabandt <cb@256bit.org> parents: 10841 diff changeset	73 " 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	74 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	75 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	76
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality Christian Brabandt <cb@256bit.org> parents: 10841 diff changeset	77 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	78 " 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	79 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	80 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	81
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality Christian Brabandt <cb@256bit.org> parents: 10841 diff changeset	82 " 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	83 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	84 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	85 endif
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	86
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	87 if !empty(skipped)
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	88 throw skipped
10847 881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality Christian Brabandt <cb@256bit.org> parents: 10841 diff changeset	89 endif
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality Christian Brabandt <cb@256bit.org> parents: 10841 diff changeset	90 endfunc
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality Christian Brabandt <cb@256bit.org> parents: 10841 diff changeset	91
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality Christian Brabandt <cb@256bit.org> parents: 10841 diff changeset	92 func Test_getfontname_without_arg()
10885 310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	93 let skipped = ''
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	94
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	95 let fname = getfontname()
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	96
10944 4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10885 diff changeset	97 if !g:x11_based_gui
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10885 diff changeset	98 let skipped = g:not_implemented
10885 310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	99 elseif has('gui_kde')
10847 881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality Christian Brabandt <cb@256bit.org> parents: 10841 diff changeset	100 " '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	101 call assert_equal('Courier 10 Pitch/8/-1/5/50/0/0/0/0/0', fname)
10847 881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality Christian Brabandt <cb@256bit.org> parents: 10841 diff changeset	102 elseif has('gui_athena') \|\| 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	103 " '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	104 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	105 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	106 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	107 " '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	108 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	109 endif
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	110
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	111 if !empty(skipped)
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	112 throw skipped
10847 881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality Christian Brabandt <cb@256bit.org> parents: 10841 diff changeset	113 endif
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality Christian Brabandt <cb@256bit.org> parents: 10841 diff changeset	114 endfunc
881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality Christian Brabandt <cb@256bit.org> parents: 10841 diff changeset	115
11119 d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	116 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	117 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	118 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	119 call assert_true(getwinposy() >= 0)
13940 70e36e1ca442 patch 8.0.1840: getwinpos() is not tested Christian Brabandt <cb@256bit.org> parents: 13843 diff changeset	120 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	121 endfunc
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	122
10972 488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	123 func Test_quoteplus()
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	124 let skipped = ''
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	125
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	126 if !g:x11_based_gui
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	127 let skipped = g:not_supported . 'quoteplus'
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	128 else
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	129 let quoteplus_saved = @+
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	130
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	131 let test_call = 'Can you hear me?'
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	132 let test_response = 'Yes, I can.'
17698 131f1d8c5860 patch 8.1.1846: inconsistently using GetVimCommand() and v:progpath Bram Moolenaar <Bram@vim.org> parents: 17657 diff changeset	133 let vim_exe = GetVimCommand()
10972 488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	134 let testee = 'VIMRUNTIME=' . $VIMRUNTIME . '; export VIMRUNTIME;'
17698 131f1d8c5860 patch 8.1.1846: inconsistently using GetVimCommand() and v:progpath Bram Moolenaar <Bram@vim.org> parents: 17657 diff changeset	135 \ . vim_exe . ' --noplugin --not-a-term -c ''%s'''
11012 ae2de10e8398 patch 8.0.0395: testing the + register fails with Motif Christian Brabandt <cb@256bit.org> parents: 11006 diff changeset	136 " Ignore the "failed to create input context" error.
11028 4df1647531a6 patch 8.0.0403: GUI tests may fail Christian Brabandt <cb@256bit.org> parents: 11012 diff changeset	137 let cmd = 'call test_ignore_error("E285") \| '
4df1647531a6 patch 8.0.0403: GUI tests may fail Christian Brabandt <cb@256bit.org> parents: 11012 diff changeset	138 \ . 'gui -f \| '
4df1647531a6 patch 8.0.0403: GUI tests may fail Christian Brabandt <cb@256bit.org> parents: 11012 diff changeset	139 \ . 'call feedkeys("'
10972 488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	140 \ . '\"+p'
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	141 \ . ':s/' . test_call . '/' . test_response . '/\<CR>'
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	142 \ . '\"+yis'
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	143 \ . ':q!\<CR>", "tx")'
11028 4df1647531a6 patch 8.0.0403: GUI tests may fail Christian Brabandt <cb@256bit.org> parents: 11012 diff changeset	144 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	145
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	146 " Set the quoteplus register to test_call, and another gvim will launched.
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	147 " Then, it first tries to paste the content of its own quotedplus register
13940 70e36e1ca442 patch 8.0.1840: getwinpos() is not tested Christian Brabandt <cb@256bit.org> parents: 13843 diff changeset	148 " onto it. Second, it tries to substitute test_response for the pasted
10972 488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	149 " sentence. If the sentence is identical to test_call, the substitution
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	150 " should succeed. Third, it tries to yank the result of the substitution
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	151 " to its own quoteplus register, and last it quits. When system()
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	152 " returns, the content of the quoteplus register should be identical to
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	153 " test_response if those quoteplus registers are synchronized properly
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	154 " with/through the X11 clipboard.
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	155 let @+ = test_call
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	156 call system(run_vimtest)
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	157 call assert_equal(test_response, @+)
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	158
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	159 let @+ = quoteplus_saved
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	160 endif
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	161
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	162 if !empty(skipped)
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	163 throw skipped
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	164 endif
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	165 endfunc
488cda29455b patch 8.0.0375: the "+ register is not tested Christian Brabandt <cb@256bit.org> parents: 10944 diff changeset	166
11119 d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	167 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	168 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	169
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	170 set background&
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	171 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	172
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	173 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	174 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	175
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	176 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	177 endfunc
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	178
11050 622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	179 func Test_set_balloondelay()
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	180 if !exists('+balloondelay')
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	181 return
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	182 endif
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	183
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	184 let balloondelay_saved = &balloondelay
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	185
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	186 " 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	187 set balloondelay&
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	188 call assert_equal(600, &balloondelay)
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	189
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	190 " Edge cases
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	191
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	192 " 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	193 " 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	194 " code.
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	195 set balloondelay=-1
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	196 call assert_equal(-1, &balloondelay)
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	197
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	198 " 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	199 " 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	200 " toolkit in use after all.
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	201 set balloondelay=0
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	202 call assert_equal(0, &balloondelay)
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	203
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	204 set balloondelay=1
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	205 call assert_equal(1, &balloondelay)
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 " 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	208 " 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	209 " 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	210 set balloondelay=2147483647
975f54a391ec patch 8.0.0415: balloon test fails on MS-Windows Christian Brabandt <cb@256bit.org> parents: 11050 diff changeset	211 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	212
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	213 let &balloondelay = balloondelay_saved
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	214 endfunc
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	215
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	216 func Test_set_ballooneval()
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	217 if !exists('+ballooneval')
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	218 return
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	219 endif
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	220
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	221 let ballooneval_saved = &ballooneval
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	222
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	223 set ballooneval&
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	224 call assert_equal(0, &ballooneval)
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	225
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	226 set ballooneval
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	227 call assert_notequal(0, &ballooneval)
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	228
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	229 set noballooneval
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	230 call assert_equal(0, &ballooneval)
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	231
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	232 let &ballooneval = ballooneval_saved
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	233 endfunc
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	234
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	235 func Test_set_balloonexpr()
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	236 if !exists('+balloonexpr')
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	237 return
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	238 endif
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	239
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	240 let balloonexpr_saved = &balloonexpr
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 " Default value
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	243 set balloonexpr&
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	244 call assert_equal('', &balloonexpr)
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	245
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	246 " User-defined function
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	247 new
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	248 func MyBalloonExpr()
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	249 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	250 \', column ' . v:beval_col .
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	251 \ ' 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	252 \ ' on word "' . v:beval_text . '"' .
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	253 \ ' 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	254 endfunc
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	255 setl balloonexpr=MyBalloonExpr()
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	256 setl ballooneval
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	257 call assert_equal('MyBalloonExpr()', &balloonexpr)
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	258 " 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	259 " 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	260 " 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	261 setl balloonexpr&
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	262 call assert_equal('', &balloonexpr)
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	263 delfunc MyBalloonExpr
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	264 bwipe!
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	265
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	266 " Multiline support
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	267 if has('balloon_multiline')
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	268 " Multiline balloon using NL
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	269 new
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	270 func MyBalloonFuncForMultilineUsingNL()
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	271 return "Multiline\nSuppported\nBalloon\nusing NL"
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	272 endfunc
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	273 setl balloonexpr=MyBalloonFuncForMultilineUsingNL()
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	274 setl ballooneval
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	275 call assert_equal('MyBalloonFuncForMultilineUsingNL()', &balloonexpr)
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	276 " 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	277 " 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	278 " 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	279 setl balloonexpr&
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	280 delfunc MyBalloonFuncForMultilineUsingNL
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	281 bwipe!
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	282
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	283 " Multiline balloon using List
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	284 new
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	285 func MyBalloonFuncForMultilineUsingList()
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	286 return [ 'Multiline', 'Suppported', 'Balloon', 'using List' ]
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	287 endfunc
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	288 setl balloonexpr=MyBalloonFuncForMultilineUsingList()
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	289 setl ballooneval
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	290 call assert_equal('MyBalloonFuncForMultilineUsingList()', &balloonexpr)
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	291 " 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	292 " 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	293 " 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	294 setl balloonexpr&
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	295 delfunc MyBalloonFuncForMultilineUsingList
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	296 bwipe!
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	297 endif
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	298
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	299 let &balloonexpr = balloonexpr_saved
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	300 endfunc
622ed5a4925f patch 8.0.0414: balloon eval is not tested Christian Brabandt <cb@256bit.org> parents: 11028 diff changeset	301
11119 d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	302 " 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	303 " 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	304 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	305 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	306
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	307 let default = [
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	308 \ "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	309 \ "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	310 \ "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	311 \ "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	312 \ "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	313 \ "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	314 \ ]
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	315
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	316 " Default Value
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	317 set guicursor&
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	318 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	319
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	320 " 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	321 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	322 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	323 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	324 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	325 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	326
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	327 " 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	328 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	329 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	330 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	331 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	332 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	333
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	334 " 'a' Mode
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	335 set guicursor&
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	336 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	337 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	338
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	339 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	340 endfunc
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	341
10855 0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	342 func Test_set_guifont()
10885 310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	343 let skipped = ''
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	344
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	345 let guifont_saved = &guifont
10855 0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	346 if has('xfontset')
0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	347 " 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	348 let guifontset_saved = &guifontset
10855 0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	349 set guifontset=
0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	350 endif
0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	351
10944 4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10885 diff changeset	352 if !g:x11_based_gui
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10885 diff changeset	353 let skipped = g:not_implemented
10885 310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	354 elseif has('gui_athena') \|\| has('gui_motif')
10855 0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	355 " 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	356 "
0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	357 " 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	358 " 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	359 " '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	360 " listed.
10885 310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	361 let flist = &guifont
10855 0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	362 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	363 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	364
0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	365 " 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	366 " valid font.
0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	367 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	368 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	369 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	370
0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	371 " 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	372 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	373 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	374 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	375
0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	376 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	377 " 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	378 " '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	379 " 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	380 " 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	381 " font names'.
0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	382 "
0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	383 " 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	384 " 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	385 set guifont=(´・ω・｀)\ 12,Courier\ 12
0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	386 call assert_equal('(´・ω・｀) 12', getfontname())
0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	387
0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	388 " 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	389 set guifont=
0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	390 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	391 endif
0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	392
19932 2c4d9ca33769 patch 8.2.0522: several errors are not tested for Bram Moolenaar <Bram@vim.org> parents: 19783 diff changeset	393 if has('win32')
2c4d9ca33769 patch 8.2.0522: several errors are not tested for Bram Moolenaar <Bram@vim.org> parents: 19783 diff changeset	394 " Invalid font names are accepted in GTK GUI
2c4d9ca33769 patch 8.2.0522: several errors are not tested for Bram Moolenaar <Bram@vim.org> parents: 19783 diff changeset	395 call assert_fails('set guifont=xa1bc23d7f', 'E596:')
2c4d9ca33769 patch 8.2.0522: several errors are not tested for Bram Moolenaar <Bram@vim.org> parents: 19783 diff changeset	396 endif
2c4d9ca33769 patch 8.2.0522: several errors are not tested for Bram Moolenaar <Bram@vim.org> parents: 19783 diff changeset	397
10855 0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	398 if has('xfontset')
10885 310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	399 let &guifontset = guifontset_saved
10855 0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	400 endif
10885 310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	401 let &guifont = guifont_saved
10855 0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	402
10885 310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	403 if !empty(skipped)
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	404 throw skipped
10855 0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	405 endif
0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	406 endfunc
0beffabed338 patch 8.0.0317: no test for setting 'guifont' Christian Brabandt <cb@256bit.org> parents: 10847 diff changeset	407
10879 1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	408 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	409 CheckFeature xfontset
10885 310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	410 let skipped = ''
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	411
19932 2c4d9ca33769 patch 8.2.0522: several errors are not tested for Bram Moolenaar <Bram@vim.org> parents: 19783 diff changeset	412 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	413
18031 8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	414 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	415
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	416 " 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	417 " be chosen meticulously.
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	418 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	419
18031 8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	420 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	421 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	422
18031 8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	423 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	424 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	425
18031 8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	426 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	427 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	428 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	429 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	430
18031 8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	431 " 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	432 " 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	433 " 'fontsets'.
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	434 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	435 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	436
18031 8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	437 let feasible = 0
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	438 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	439 try
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	440 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	441 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	442 continue
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	443 endtry
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	444 let done = 0
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	445 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	446 try
18031 8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	447 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	448 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	449 break
10885 310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	450 endtry
18031 8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	451 let done += 1
10885 310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	452 endfor
18031 8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	453 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	454 let feasible = 1
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	455 break
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	456 endif
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	457 endfor
10879 1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	458
18031 8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	459 " 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	460 if !feasible
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	461 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	462 else
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	463 " 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	464 " previous loop.
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	465 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	466 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	467 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	468 endfor
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	469 endif
10879 1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	470
18031 8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	471 " Finally, restore ctype.
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	472 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	473
10885 310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	474 if !empty(skipped)
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	475 throw skipped
10879 1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	476 endif
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	477 endfunc
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	478
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	479 func Test_set_guifontwide()
19932 2c4d9ca33769 patch 8.2.0522: several errors are not tested for Bram Moolenaar <Bram@vim.org> parents: 19783 diff changeset	480 call assert_fails('set guifontwide=*', 'E533:')
10885 310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	481 let skipped = ''
10879 1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	482
10944 4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10885 diff changeset	483 if !g:x11_based_gui
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10885 diff changeset	484 let skipped = g:not_implemented
10885 310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	485 elseif has('gui_gtk')
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	486 let guifont_saved = &guifont
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	487 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	488
10885 310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	489 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	490 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	491 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	492 else
10885 310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	493 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	494 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	495 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	496 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	497 endif
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	498
10885 310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	499 let &guifontwide = guifontwide_saved
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	500 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	501
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	502 elseif has('gui_athena') \|\| has('gui_motif')
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	503 " 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	504 if !has('xfontset')
10944 4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10885 diff changeset	505 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	506 else
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	507 let encoding_saved = &encoding
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	508 let guifont_saved = &guifont
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	509 let guifontset_saved = &guifontset
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	510 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	511
10885 310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	512 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	513 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	514
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	515 set encoding=utf-8
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	516
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	517 " 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	518 set guifontset=
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	519
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	520 " 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	521 set guifontwide=
10885 310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	522 exec 'set guifont=' . nfont
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	523 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	524
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	525 " 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	526 exec 'set guifontwide=' . wfont
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	527 exec 'set guifont=' . nfont
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	528 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	529
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	530 " 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	531 try
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	532 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	533 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	534 catch
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	535 call assert_exception('E598')
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	536 endtry
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	537 " Set it to an invalid value brutally for preparation.
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	538 let &guifontset = '--notexist-'
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	539
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	540 " 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	541 set guifontwide=
10885 310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	542 exec 'set guifont=' . nfont
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	543 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	544
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	545 " 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	546 exec 'set guifontwide=' . wfont
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	547 exec 'set guifont=' . nfont
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	548 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	549
10885 310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	550 let &guifontwide = guifontwide_saved
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	551 let &guifontset = guifontset_saved
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	552 let &guifont = guifont_saved
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	553 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	554 endif
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	555 endif
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	556
10885 310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	557 if !empty(skipped)
310834b0256a patch 8.0.0332: GUI test fails on some systems Christian Brabandt <cb@256bit.org> parents: 10879 diff changeset	558 throw skipped
10879 1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	559 endif
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	560 endfunc
1fce74a5a628 patch 8.0.0329: xfontset and guifontwide are not tested Christian Brabandt <cb@256bit.org> parents: 10857 diff changeset	561
10944 4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10885 diff changeset	562 func Test_set_guiheadroom()
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10885 diff changeset	563 let skipped = ''
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10885 diff changeset	564
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10885 diff changeset	565 if !g:x11_based_gui
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10885 diff changeset	566 let skipped = g:not_supported . 'guiheadroom'
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10885 diff changeset	567 else
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10885 diff changeset	568 " Since this script is to be read together with '-U NONE', the default
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10885 diff changeset	569 " value must be preserved.
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10885 diff changeset	570 call assert_equal(50, &guiheadroom)
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10885 diff changeset	571 endif
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10885 diff changeset	572
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10885 diff changeset	573 if !empty(skipped)
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10885 diff changeset	574 throw skipped
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10885 diff changeset	575 endif
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10885 diff changeset	576 endfunc
4e2cdce4576c patch 8.0.0361: GUI initialisation is not sufficiently tested Christian Brabandt <cb@256bit.org> parents: 10885 diff changeset	577
11119 d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	578 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	579 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	580 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	581
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	582 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	583 " Default Value
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	584 set guioptions&
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	585 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	586
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	587 else
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	588 " Default Value
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	589 set guioptions&
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	590 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	591
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	592 " 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	593 wincmd v
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	594 redraw!
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	595
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	596 " 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	597 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	598 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	599 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	600 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	601 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	602 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	603 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	604 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	605 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	606 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	607 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	608 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	609 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	610 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	611 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	612
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	613 " 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	614 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	615 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	616 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	617 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	618 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	619 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	620
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+=R
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	622 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	623 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	624 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	625 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	626 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	627
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	628 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	629 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	630 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	631 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	632 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	633 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	634 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	635 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	636 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	637 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	638 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	639 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	640
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+=v
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('aegiv', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	644 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	645 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	646 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	647
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	648 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	649 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	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('aegiF', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	652 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	653 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	654 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	655 endif
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	656
18078 5ae41d0ea397 patch 8.1.2034: dark them of GTK 3 not supported Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	657 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	658 set guioptions+=d
5ae41d0ea397 patch 8.1.2034: dark them of GTK 3 not supported Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	659 exec 'sleep' . duration
5ae41d0ea397 patch 8.1.2034: dark them of GTK 3 not supported Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	660 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	661 set guioptions-=d
5ae41d0ea397 patch 8.1.2034: dark them of GTK 3 not supported Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	662 exec 'sleep' . duration
5ae41d0ea397 patch 8.1.2034: dark them of GTK 3 not supported Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	663 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	664 endif
5ae41d0ea397 patch 8.1.2034: dark them of GTK 3 not supported Bram Moolenaar <Bram@vim.org> parents: 18031 diff changeset	665
11119 d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	666 " 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	667 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	668 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	669 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	670 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	671 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	672 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	673 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	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('aegimrL', &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+=t
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('aegimrLt', &guioptions)
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	679 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	680 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	681 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	682
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	683 wincmd o
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	684 redraw!
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	685 endif
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	686
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	687 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	688 endfunc
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	689
14756 a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	690 func Test_scrollbars()
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	691 new
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	692 " buffer with 200 lines
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	693 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	694 set guioptions+=rlb
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	695
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	696 " scroll to move line 11 at top, moves the cursor there
18031 8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17698 diff changeset	697 eval 10->test_scrollbar('left', 0)
14756 a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	698 redraw
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	699 call assert_equal(1, winline())
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	700 call assert_equal(11, line('.'))
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	701
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	702 " scroll to move line 1 at top, cursor stays in line 11
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	703 call test_scrollbar('right', 0, 0)
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	704 redraw
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	705 call assert_equal(11, winline())
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	706 call assert_equal(11, line('.'))
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	707
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	708 set nowrap
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	709 call setline(11, repeat('x', 150))
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	710 redraw
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	711 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	712 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	713 redraw
1fbb0a33b074 patch 8.1.1482: no test for wincol() depending on the 'number' option Bram Moolenaar <Bram@vim.org> parents: 16121 diff changeset	714 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	715 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	716 redraw
14756 a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	717 call assert_equal(1, col('.'))
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	718
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	719 " scroll to character 11, cursor is moved
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	720 call test_scrollbar('hor', 10, 0)
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	721 redraw
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	722 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	723 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	724 redraw
1fbb0a33b074 patch 8.1.1482: no test for wincol() depending on the 'number' option Bram Moolenaar <Bram@vim.org> parents: 16121 diff changeset	725 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	726 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	727 redraw
14756 a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	728 call assert_equal(11, col('.'))
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	729
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	730 set guioptions&
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	731 set wrap&
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	732 bwipe!
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	733 endfunc
a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 13940 diff changeset	734
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	735 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	736 CheckFeature quickfix
068337e86133 patch 8.1.2373: cannot build with +popupwin but without +quickfix Bram Moolenaar <Bram@vim.org> parents: 18078 diff changeset	737
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	738 " 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	739 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	740 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	741
060b58b492a5 patch 8.1.1065: no test for using and deleting menu in the GUI Bram Moolenaar <Bram@vim.org> parents: 16119 diff changeset	742 " 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	743 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	744 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	745 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	746
060b58b492a5 patch 8.1.1065: no test for using and deleting menu in the GUI Bram Moolenaar <Bram@vim.org> parents: 16119 diff changeset	747 " 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	748 aunmenu 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	749 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	750 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	751
11119 d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	752 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	753 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	754
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	755 " Default Value
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	756 set guipty&
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	757 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	758
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	759 set noguipty
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	760 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	761
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	762 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	763 endfunc
10841 5c0415a8b96e patch 8.0.0310: not enough testing for GUI functionality Christian Brabandt <cb@256bit.org> parents: 10777 diff changeset	764
16119 4fac64b51d74 patch 8.1.1064: no test for output conversion in the GTK GUI Bram Moolenaar <Bram@vim.org> parents: 15394 diff changeset	765 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	766 " GTK supports conversion between 'encoding' and "utf-8"
4fac64b51d74 patch 8.1.1064: no test for output conversion in the GTK GUI Bram Moolenaar <Bram@vim.org> parents: 15394 diff changeset	767 if has('gui_gtk')
4fac64b51d74 patch 8.1.1064: no test for output conversion in the GTK GUI Bram Moolenaar <Bram@vim.org> parents: 15394 diff changeset	768 let encoding_saved = &encoding
4fac64b51d74 patch 8.1.1064: no test for output conversion in the GTK GUI Bram Moolenaar <Bram@vim.org> parents: 15394 diff changeset	769 set encoding=latin1
4fac64b51d74 patch 8.1.1064: no test for output conversion in the GTK GUI Bram Moolenaar <Bram@vim.org> parents: 15394 diff changeset	770
4fac64b51d74 patch 8.1.1064: no test for output conversion in the GTK GUI Bram Moolenaar <Bram@vim.org> parents: 15394 diff changeset	771 " would be nice if we could take a screenshot
4fac64b51d74 patch 8.1.1064: no test for output conversion in the GTK GUI Bram Moolenaar <Bram@vim.org> parents: 15394 diff changeset	772 intro
4fac64b51d74 patch 8.1.1064: no test for output conversion in the GTK GUI Bram Moolenaar <Bram@vim.org> parents: 15394 diff changeset	773 " sets the window title
4fac64b51d74 patch 8.1.1064: no test for output conversion in the GTK GUI Bram Moolenaar <Bram@vim.org> parents: 15394 diff changeset	774 edit SomeFile
4fac64b51d74 patch 8.1.1064: no test for output conversion in the GTK GUI Bram Moolenaar <Bram@vim.org> parents: 15394 diff changeset	775
4fac64b51d74 patch 8.1.1064: no test for output conversion in the GTK GUI Bram Moolenaar <Bram@vim.org> parents: 15394 diff changeset	776 let &encoding = encoding_saved
4fac64b51d74 patch 8.1.1064: no test for output conversion in the GTK GUI Bram Moolenaar <Bram@vim.org> parents: 15394 diff changeset	777 endif
4fac64b51d74 patch 8.1.1064: no test for output conversion in the GTK GUI Bram Moolenaar <Bram@vim.org> parents: 15394 diff changeset	778 endfunc
4fac64b51d74 patch 8.1.1064: no test for output conversion in the GTK GUI Bram Moolenaar <Bram@vim.org> parents: 15394 diff changeset	779
9756 00d753ea19a9 commit https://github.com/vim/vim/commit/877e95779869c5426102aa491f67d99904c8534c Christian Brabandt <cb@256bit.org> parents: diff changeset	780 func Test_shell_command()
00d753ea19a9 commit https://github.com/vim/vim/commit/877e95779869c5426102aa491f67d99904c8534c Christian Brabandt <cb@256bit.org> parents: diff changeset	781 new
9760 96667173293d commit https://github.com/vim/vim/commit/9d5b876d458e242b8b5e44da10c5cdc6bbb7f57c Christian Brabandt <cb@256bit.org> parents: 9756 diff changeset	782 r !echo hello
96667173293d commit https://github.com/vim/vim/commit/9d5b876d458e242b8b5e44da10c5cdc6bbb7f57c Christian Brabandt <cb@256bit.org> parents: 9756 diff changeset	783 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	784 bwipe!
00d753ea19a9 commit https://github.com/vim/vim/commit/877e95779869c5426102aa491f67d99904c8534c Christian Brabandt <cb@256bit.org> parents: diff changeset	785 endfunc
10841 5c0415a8b96e patch 8.0.0310: not enough testing for GUI functionality Christian Brabandt <cb@256bit.org> parents: 10777 diff changeset	786
11119 d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	787 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	788 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	789 redraw!
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	790 sleep 200m
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	791 bwipe!
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	792 endfunc
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	793
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	794 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	795 " 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	796 " 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	797 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	798 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	799 endfunc
d8a550329a97 patch 8.0.0447: getting font name does not work on X11 Christian Brabandt <cb@256bit.org> parents: 11052 diff changeset	800
10841 5c0415a8b96e patch 8.0.0310: not enough testing for GUI functionality Christian Brabandt <cb@256bit.org> parents: 10777 diff changeset	801 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	802 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	803 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	804 else
5c0415a8b96e patch 8.0.0310: not enough testing for GUI functionality Christian Brabandt <cb@256bit.org> parents: 10777 diff changeset	805 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	806 endif
10847 881194ae47a1 patch 8.0.0313: not enough testing for GUI functionality Christian Brabandt <cb@256bit.org> parents: 10841 diff changeset	807 endfunc
13843 619730d0d864 patch 8.0.1793: no test for "vim -g" Christian Brabandt <cb@256bit.org> parents: 13810 diff changeset	808
619730d0d864 patch 8.0.1793: no test for "vim -g" Christian Brabandt <cb@256bit.org> parents: 13810 diff changeset	809 " 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	810 func Test_gui_dash_g()
619730d0d864 patch 8.0.1793: no test for "vim -g" Christian Brabandt <cb@256bit.org> parents: 13810 diff changeset	811 let cmd = GetVimCommand('Xscriptgui')
619730d0d864 patch 8.0.1793: no test for "vim -g" Christian Brabandt <cb@256bit.org> parents: 13810 diff changeset	812 call writefile([""], "Xtestgui")
17172 6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough Bram Moolenaar <Bram@vim.org> parents: 17089 diff changeset	813 let lines =<< trim END
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough Bram Moolenaar <Bram@vim.org> parents: 17089 diff changeset	814 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	815 au GUIEnter * qall
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough Bram Moolenaar <Bram@vim.org> parents: 17089 diff changeset	816 END
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough Bram Moolenaar <Bram@vim.org> parents: 17089 diff changeset	817 call writefile(lines, 'Xscriptgui')
13843 619730d0d864 patch 8.0.1793: no test for "vim -g" Christian Brabandt <cb@256bit.org> parents: 13810 diff changeset	818 call system(cmd . ' -g')
619730d0d864 patch 8.0.1793: no test for "vim -g" Christian Brabandt <cb@256bit.org> parents: 13810 diff changeset	819 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	820
619730d0d864 patch 8.0.1793: no test for "vim -g" Christian Brabandt <cb@256bit.org> parents: 13810 diff changeset	821 call delete('Xscriptgui')
619730d0d864 patch 8.0.1793: no test for "vim -g" Christian Brabandt <cb@256bit.org> parents: 13810 diff changeset	822 call delete('Xtestgui')
619730d0d864 patch 8.0.1793: no test for "vim -g" Christian Brabandt <cb@256bit.org> parents: 13810 diff changeset	823 endfunc
619730d0d864 patch 8.0.1793: no test for "vim -g" Christian Brabandt <cb@256bit.org> parents: 13810 diff changeset	824
619730d0d864 patch 8.0.1793: no test for "vim -g" Christian Brabandt <cb@256bit.org> parents: 13810 diff changeset	825 " 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	826 func Test_gui_dash_y()
619730d0d864 patch 8.0.1793: no test for "vim -g" Christian Brabandt <cb@256bit.org> parents: 13810 diff changeset	827 let cmd = GetVimCommand('Xscriptgui')
619730d0d864 patch 8.0.1793: no test for "vim -g" Christian Brabandt <cb@256bit.org> parents: 13810 diff changeset	828 call writefile([""], "Xtestgui")
17172 6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough Bram Moolenaar <Bram@vim.org> parents: 17089 diff changeset	829 let lines =<< trim END
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough Bram Moolenaar <Bram@vim.org> parents: 17089 diff changeset	830 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	831 au GUIEnter * qall
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough Bram Moolenaar <Bram@vim.org> parents: 17089 diff changeset	832 END
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough Bram Moolenaar <Bram@vim.org> parents: 17089 diff changeset	833 call writefile(lines, 'Xscriptgui')
13843 619730d0d864 patch 8.0.1793: no test for "vim -g" Christian Brabandt <cb@256bit.org> parents: 13810 diff changeset	834 call system(cmd . ' -y')
619730d0d864 patch 8.0.1793: no test for "vim -g" Christian Brabandt <cb@256bit.org> parents: 13810 diff changeset	835 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	836
619730d0d864 patch 8.0.1793: no test for "vim -g" Christian Brabandt <cb@256bit.org> parents: 13810 diff changeset	837 call delete('Xscriptgui')
619730d0d864 patch 8.0.1793: no test for "vim -g" Christian Brabandt <cb@256bit.org> parents: 13810 diff changeset	838 call delete('Xtestgui')
619730d0d864 patch 8.0.1793: no test for "vim -g" Christian Brabandt <cb@256bit.org> parents: 13810 diff changeset	839 endfunc
19783 546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 18767 diff changeset	840
20365 6bcd12791bf1 patch 8.2.0738: mouse handling in a terminal window not well tested Bram Moolenaar <Bram@vim.org> parents: 19997 diff changeset	841 " 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	842 " commands
6bcd12791bf1 patch 8.2.0738: mouse handling in a terminal window not well tested Bram Moolenaar <Bram@vim.org> parents: 19997 diff changeset	843 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	844 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	845 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	846 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	847 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	848 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	849 else
6bcd12791bf1 patch 8.2.0738: mouse handling in a terminal window not well tested Bram Moolenaar <Bram@vim.org> parents: 19997 diff changeset	850 " 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	851 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	852 endif
20508 357dea6b9fde patch 8.2.0808: not enough testing for the terminal window Bram Moolenaar <Bram@vim.org> parents: 20417 diff changeset	853 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	854 " 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	855 " 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	856 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	857 endfunc
6bcd12791bf1 patch 8.2.0738: mouse handling in a terminal window not well tested Bram Moolenaar <Bram@vim.org> parents: 19997 diff changeset	858
19783 546bdeef35f1 patch 8.2.0448: various functions not properly tested Bram Moolenaar <Bram@vim.org> parents: 18767 diff changeset	859 " vim: shiftwidth=2 sts=2 expandtab

Mercurial > vim

annotate src/testdir/test_gui.vim @ 20508:357dea6b9fde v8.2.0808