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