blob: cd698e37af76e0b3d21bf8a2b596169ff8c0a87a [file] [log] [blame]
Bram Moolenaar877e9572016-08-04 20:05:50 +02001" 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
12endfunc
13
14" Test for resetting "secure" flag after GUI has started.
15" Must be run first.
16func Test_1_set_secure()
17 set exrc secure
18 gui -f
19 call assert_equal(1, has('gui_running'))
20endfunc
21
22func Test_shell_command()
23 new
24 r !echo 'hello'
25 call assert_equal('hello', getline(2))
26 bwipe!
27 call assert_true(1, match(execute('winpos'), 'Window position: X \d\+, Y \d\+') >= 0)
28endfunc