[perl-Gtk2] Disable a few potentially annoying tests

[Torsten SchÃnfeld <tsch src gnome org>]

commit 17e4ca2e50476c4b3c28458375c7ee3959aaaad0
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Thu Jan 5 20:55:01 2012 +0100

    Disable a few potentially annoying tests
    
    In particular, one of these seems to sometimes trip gnome-shell over.

 t/GdkDisplay.t |   14 +++++++-------
 1 files changed, 7 insertions(+), 7 deletions(-)
---
diff --git a/t/GdkDisplay.t b/t/GdkDisplay.t
index 41118ec..9d4167f 100644
--- a/t/GdkDisplay.t
+++ b/t/GdkDisplay.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 use strict;
 use Gtk2::TestHelper
-  tests => 26,
+  tests => 24,
   at_least_version => [2, 2, 0, "GdkDisplay is new in 2.2"];
 
 # $Id$
@@ -34,11 +34,11 @@ $display -> sync();
 
 isa_ok(($display -> list_devices())[0], "Gtk2::Gdk::Device");
 
-$display -> put_event(Gtk2::Gdk::Event -> new("button-press"));
-isa_ok($display -> peek_event(), "Gtk2::Gdk::Event");
-isa_ok($display -> get_event(), "Gtk2::Gdk::Event");
+# $display -> put_event(Gtk2::Gdk::Event -> new("button-press"));
+# isa_ok($display -> peek_event(), "Gtk2::Gdk::Event");
+# isa_ok($display -> get_event(), "Gtk2::Gdk::Event");
 
-$display -> set_double_click_time(20);
+# $display -> set_double_click_time(20);
 
 my ($screen, $x, $y, $mask) = $display -> get_pointer();
 isa_ok($screen, "Gtk2::Gdk::Screen");
@@ -53,7 +53,7 @@ SKIP: {
     unless Gtk2 -> CHECK_VERSION(2, 4, 0);
 
   $display -> flush();
-  $display -> set_double_click_distance(5);
+  # $display -> set_double_click_distance(5);
 
   ok(defined($display -> supports_cursor_color()));
   ok(defined($display -> supports_cursor_alpha()));
@@ -95,7 +95,7 @@ SKIP: {
   skip("new 2.8 stuff", 0)
     unless Gtk2 -> CHECK_VERSION(2, 8, 0);
 
-  $display -> warp_pointer($screen, 100, 100);
+  # $display -> warp_pointer($screen, 100, 100);
 }
 
 SKIP: {