steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui.backend.gtk: only run the tests on linux

db4
Björn Lindqvist 2015-12-08 09:46:30 +01:00
parent 9d95602591
commit d6a9122967
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
basis/ui/backend/gtk/gtk-tests.factor
View File

@ -1,5 +1,5 @@
USING: alien.syntax classes.struct gdk.ffi tools.test ui.backend.gtk
ui.gestures ;
USING: alien.syntax classes.struct gdk.ffi kernel system tools.test
ui.backend.gtk ui.gestures ;
IN: ui.backend.gtk.tests
: gdk-key-release-event ( -- event )
@ -47,12 +47,15 @@ IN: ui.backend.gtk.tests
{ is_modifier 1 }
} ;
{
T{ key-down f f "F2" }
T{ key-up f f "H" }
T{ key-down f f " " }
} [
gdk-key-press-event key-event>gesture
gdk-key-release-event key-event>gesture
gdk-space-key-press-event key-event>gesture
] unit-test
! The Mac build servers doesn't have the gtk libs
os linux? [
{
T{ key-down f f "F2" }
T{ key-up f f "H" }
T{ key-down f f " " }
} [
gdk-key-press-event key-event>gesture
gdk-key-release-event key-event>gesture
gdk-space-key-press-event key-event>gesture
] unit-test
] when