From d6a91229670423b4e0b60a4ad716cf7468c5612b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Tue, 8 Dec 2015 09:46:30 +0100
Subject: [PATCH] ui.backend.gtk: only run the tests on linux
---
basis/ui/backend/gtk/gtk-tests.factor | 25 ++++++++++++++-----------
1 file changed, 14 insertions(+), 11 deletions(-)
diff --git a/basis/ui/backend/gtk/gtk-tests.factor b/basis/ui/backend/gtk/gtk-tests.factor
index ac01c4824c..69ea1806da 100644
--- a/basis/ui/backend/gtk/gtk-tests.factor
+++ b/basis/ui/backend/gtk/gtk-tests.factor
@@ -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