| " Tests specifically for the GUI |
| |
| if !has('gui') || ($DISPLAY == "" && !has('gui_running')) |
| finish |
| endif |
| |
| let s:x11_based_gui = has('gui_athena') || has('gui_motif') |
| \ || has('gui_gtk2') || has('gui_gnome') || has('gui_gtk3') |
| |
| " For KDE set a font, empty 'guifont' may cause a hang. |
| func SetUp() |
| if has("gui_kde") |
| set guifont=Courier\ 10\ Pitch/8/-1/5/50/0/0/0/0/0 |
| endif |
| |
| " Gnome insists on creating $HOME/.gnome2/, set $HOME to avoid changing the |
| " actual home directory. But avoid triggering fontconfig by setting the |
| " cache directory. Only needed for Unix. |
| if $XDG_CACHE_HOME == '' && exists('g:tester_HOME') |
| let $XDG_CACHE_HOME = g:tester_HOME . '/.cache' |
| endif |
| call mkdir('Xhome') |
| let $HOME = fnamemodify('Xhome', ':p') |
| endfunc |
| |
| func TearDown() |
| call delete('Xhome', 'rf') |
| endfunc |
| |
| " Test for resetting "secure" flag after GUI has started. |
| " Must be run first. |
| func Test_1_set_secure() |
| set exrc secure |
| gui -f |
| call assert_equal(1, has('gui_running')) |
| endfunc |
| |
| func Test_getfontname_with_arg() |
| if has('gui_athena') || has('gui_motif') |
| " Invalid font name. The result should be an empty string. |
| call assert_equal('', getfontname('notexist')) |
| |
| " Valid font name. This is usually the real name of 7x13 by default. |
| let l:fname = '-misc-fixed-medium-r-normal--13-120-75-75-c-70-iso8859-1' |
| call assert_equal(l:fname, getfontname(l:fname)) |
| |
| elseif has('gui_gtk2') || has('gui_gnome') || has('gui_gtk3') |
| " Invalid font name. The result should be the name plus the default size. |
| call assert_equal('notexist 10', getfontname('notexist')) |
| |
| " Valid font name. This is usually the real name of Monospace by default. |
| let l:fname = 'Bitstream Vera Sans Mono 12' |
| call assert_equal(l:fname, getfontname(l:fname)) |
| else |
| throw "Skipped: Matched font name unpredictable to test on this GUI" |
| endif |
| endfunc |
| |
| func Test_getfontname_without_arg() |
| let l:fname = getfontname() |
| if has('gui_kde') |
| " 'expected' is the value specified by SetUp() above. |
| call assert_equal('Courier 10 Pitch/8/-1/5/50/0/0/0/0/0', l:fname) |
| elseif has('gui_athena') || has('gui_motif') |
| " 'expected' is DFLT_FONT of gui_x11.c. |
| call assert_equal('7x13', l:fname) |
| elseif has('gui_gtk2') || has('gui_gnome') || has('gui_gtk3') |
| " 'expected' is DEFAULT_FONT of gui_gtk_x11.c. |
| call assert_equal('Monospace 10', l:fname) |
| else |
| throw "Skipped: Default font name unpredictable to test on this GUI" |
| 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_set_guifontset() |
| let skipped = 0 |
| |
| if has('xfontset') |
| let l:ctype_saved = v:ctype |
| |
| " For UTF-8 locales, XCreateFontSet(3) is likely to fail in constructing a |
| " fontset automatically from one or two simple XLFDs because it requires |
| " the host system to have a fairly comprehensive collection of fixed-width |
| " fonts with various sizes and registries/encodings in order to get the |
| " job done. To make the test meaningful for a wide variety of hosts, we |
| " confine ourselves to the following locale for which X11 historically has |
| " the fonts to use with. |
| language ctype ja_JP.eucJP |
| |
| " Since XCreateFontSet(3) is very sensitive to locale, fonts must be |
| " chosen meticulously. |
| let l:font_head = '-misc-fixed-medium-r-normal--14' |
| |
| let l:font_aw70 = l:font_head . '-130-75-75-c-70' |
| let l:font_aw140 = l:font_head . '-130-75-75-c-140' |
| |
| let l:font_jisx0201 = l:font_aw70 . '-jisx0201.1976-0' |
| let l:font_jisx0208 = l:font_aw140 . '-jisx0208.1983-0' |
| |
| " Full XLFDs |
| let l:fontset_name = join([ l:font_jisx0208, l:font_jisx0201 ], ',') |
| exec 'set guifontset=' . l:fontset_name |
| call assert_equal(l:fontset_name, &guifontset) |
| |
| " XLFDs w/o CharSetRegistry and CharSetEncoding |
| let l:fontset_name = join([ l:font_aw140, l:font_aw70 ], ',') |
| exec 'set guifontset=' . l:fontset_name |
| call assert_equal(l:fontset_name, &guifontset) |
| |
| " Singleton |
| let l:fontset_name = l:font_head . '-*' |
| exec 'set guifontset=' . l:fontset_name |
| call assert_equal(l:fontset_name, &guifontset) |
| |
| " Aliases |
| let l:fontset_name = 'k14,r14' |
| exec 'set guifontset=' . l:fontset_name |
| call assert_equal(l:fontset_name, &guifontset) |
| |
| exec 'language ctype' l:ctype_saved |
| |
| else |
| let skipped = 1 |
| endif |
| |
| if skipped |
| throw "Skipped: Not supported by this GUI" |
| endif |
| endfunc |
| |
| func Test_set_guifontwide() |
| let skipped = 0 |
| |
| if has('gui_gtk') |
| let l:guifont_saved = &guifont |
| let l:guifontwide_saved = &guifontwide |
| |
| let l:fc_match = exepath('fc-match') |
| if l:fc_match != '' |
| let &guifont = system('fc-match -f "%{family[0]} %{size}" monospace:size=10') |
| let l:wide = system('fc-match -f "%{family[0]} %{size}" monospace:size=10:lang=ja') |
| exec 'set guifontwide=' . fnameescape(l:wide) |
| call assert_equal(l:wide, &guifontwide) |
| else |
| let skipped = 3 |
| endif |
| |
| let &guifontwide = l:guifontwide_saved |
| let &guifont = l:guifont_saved |
| |
| elseif has('gui_athena') || has('gui_motif') |
| " guifontwide is premised upon the xfontset feature. |
| if has('xfontset') |
| let l:encoding_saved = &encoding |
| let l:guifont_saved = &guifont |
| let l:guifontset_saved = &guifontset |
| let l:guifontwide_saved = &guifontwide |
| |
| let l:nfont = '-misc-fixed-medium-r-normal-*-18-120-100-100-c-90-iso10646-1' |
| let l:wfont = '-misc-fixed-medium-r-normal-*-18-120-100-100-c-180-iso10646-1' |
| |
| set encoding=utf-8 |
| |
| " Case 1: guifontset is empty |
| set guifontset= |
| |
| " Case 1-1: Automatic selection |
| set guifontwide= |
| exec 'set guifont=' . l:nfont |
| call assert_equal(l:wfont, &guifontwide) |
| |
| " Case 1-2: Manual selection |
| exec 'set guifontwide=' . l:wfont |
| exec 'set guifont=' . l:nfont |
| call assert_equal(l:wfont, &guifontwide) |
| |
| " Case 2: guifontset is invalid |
| try |
| set guifontset=-*-notexist-* |
| call assert_false(1, "'set guifontset=notexist' should have failed") |
| catch |
| call assert_exception('E598') |
| endtry |
| " Set it to an invalid value brutally for preparation. |
| let &guifontset = '-*-notexist-*' |
| |
| " Case 2-1: Automatic selection |
| set guifontwide= |
| exec 'set guifont=' . l:nfont |
| call assert_equal(l:wfont, &guifontwide) |
| |
| " Case 2-2: Manual selection |
| exec 'set guifontwide=' . l:wfont |
| exec 'set guifont=' . l:nfont |
| call assert_equal(l:wfont, &guifontwide) |
| |
| let &guifontwide = l:guifontwide_saved |
| let &guifontset = l:guifontset_saved |
| let &guifont = l:guifont_saved |
| let &encoding = l:encoding_saved |
| else |
| let skipped = 2 |
| endif |
| else |
| let skipped = 1 |
| endif |
| |
| if skipped == 1 |
| throw "Skipped: Test not implemented yet for this GUI" |
| elseif skipped == 2 |
| throw "Skipped: Not supported by this GUI" |
| elseif skipped == 3 |
| throw "Skipped: Test not supported by the environment" |
| endif |
| endfunc |
| |
| func Test_getwinpos() |
| call assert_match('Window position: X \d\+, Y \d\+', execute('winpos')) |
| call assert_true(getwinposx() >= 0) |
| call assert_true(getwinposy() >= 0) |
| endfunc |
| |
| func Test_shell_command() |
| new |
| r !echo hello |
| call assert_equal('hello', substitute(getline(2), '\W', '', 'g')) |
| bwipe! |
| endfunc |
| |
| func Test_windowid_variable() |
| if s:x11_based_gui || has('win32') |
| call assert_true(v:windowid > 0) |
| else |
| call assert_equal(0, v:windowid) |
| endif |
| endfunc |