Mercurial > vim
changeset 10855:0beffabed338 v8.0.0317
patch 8.0.0317: no test for setting 'guifont'
commit https://github.com/vim/vim/commit/43dded8c59c0647a70dd52c3125783945d90ae5a
Author: Bram Moolenaar <Bram@vim.org>
Date: Thu Feb 9 16:06:17 2017 +0100
patch 8.0.0317: no test for setting 'guifont'
Problem: No test for setting 'guifont'.
Solution: Add a test for X11 GUIs. (Kazunobu Kuriyama)
| author | Christian Brabandt <cb@256bit.org> |
|---|---|
| date | Thu, 09 Feb 2017 16:15:05 +0100 |
| parents | 1bb9b7c33b3e |
| children | 0679b8261115 |
| files | src/testdir/test_gui.vim src/version.c |
| diffstat | 2 files changed, 61 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/testdir/test_gui.vim +++ b/src/testdir/test_gui.vim @@ -72,6 +72,65 @@ func Test_getfontname_without_arg() endif endfunc +func Test_set_guifont() + let l:guifont_saved = &guifont + if has('xfontset') + " Prevent 'guifontset' from canceling 'guifont'. + let l:guifontset_saved = &guifontset + set guifontset= + endif + + let skipped = 0 + if has('gui_athena') || has('gui_motif') + " Non-empty font list with invalid font names. + " + " This test is twofold: (1) It checks if the command fails as expected + " when there are no loadable fonts found in the list. (2) It checks if + " 'guifont' remains the same after the command loads none of the fonts + " listed. + let l:flist = &guifont + call assert_fails('set guifont=-notexist1-*,-notexist2-*') + call assert_equal(l:flist, &guifont) + + " Non-empty font list with a valid font name. Should pick up the first + " valid font. + set guifont=-notexist1-*,fixed,-notexist2-* + call assert_equal('fixed', getfontname()) + + " Empty list. Should fallback to the built-in default. + set guifont= + call assert_equal('7x13', getfontname()) + + elseif has('gui_gtk2') || has('gui_gnome') || has('gui_gtk3') + " For GTK, what we refer to as 'font names' in our manual are actually + " 'initial font patterns'. A valid font which matches the 'canonical font + " pattern' constructed from a given 'initial pattern' is to be looked up + " and loaded. That explains why the GTK GUIs appear to accept 'invalid + " font names'. + " + " Non-empty list. Should always pick up the first element, no matter how + " strange it is, as explained above. + set guifont=(´・ω・｀)\ 12,Courier\ 12 + call assert_equal('(´・ω・｀) 12', getfontname()) + + " Empty list. Should fallback to the built-in default. + set guifont= + call assert_equal('Monospace 10', getfontname()) + + else + let skipped = 1 + endif + + if has('xfontset') + let &guifontset = l:guifontset_saved + endif + let &guifont = l:guifont_saved + + if skipped + throw "Skipped: Test not implemented yet for this GUI" + endif +endfunc + func Test_getwinpos() call assert_match('Window position: X \d\+, Y \d\+', execute('winpos')) call assert_true(getwinposx() >= 0)