1" Tests specifically for the GUI 2 3if !has('gui') || ($DISPLAY == "" && !has('gui_running')) 4 finish 5endif 6 7" For KDE set a font, empty 'guifont' may cause a hang. 8func SetUp() 9 if has("gui_kde") 10 set guifont=Courier\ 10\ Pitch/8/-1/5/50/0/0/0/0/0 11 endif 12 13 " Gnome insists on creating $HOME/.gnome2/.. 14 call mkdir('Xhome') 15 let $HOME = fnamemodify('Xhome', ':p') 16endfunc 17 18func TearDown() 19 call delete('Xhome', 'rf') 20endfunc 21 22" Test for resetting "secure" flag after GUI has started. 23" Must be run first. 24func Test_1_set_secure() 25 set exrc secure 26 gui -f 27 call assert_equal(1, has('gui_running')) 28endfunc 29 30func Test_shell_command() 31 new 32 r !echo hello 33 call assert_equal('hello', substitute(getline(2), '\W', '', 'g')) 34 bwipe! 35 call assert_true(1, match(execute('winpos'), 'Window position: X \d\+, Y \d\+') >= 0) 36endfunc 37