[perl-Gtk2] Disable the correct potentially annoying test



commit c55e6be87e9d31f58e9532bfdf79deb71d09e837
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Tue May 15 23:46:20 2012 +0200

    Disable the correct potentially annoying test
    
    A test in t/GdkDnd.t moved the pointer to the (0,0) position on the screen.
    This triggered gnome-shell's overlay view in which it would then sometimes get
    stuck.  Simply use different coordinates to avoid this.
    
    This means we can revert commit 17e4ca2e50476c4b3c28458375c7ee3959aaaad0,
    "Disable a few potentially annoying tests".

 NEWS           |    1 +
 t/GdkDisplay.t |   14 +++++++-------
 t/GdkDnd.t     |    2 +-
 3 files changed, 9 insertions(+), 8 deletions(-)
---
diff --git a/NEWS b/NEWS
index 62fc5e7..e6d6f05 100644
--- a/NEWS
+++ b/NEWS
@@ -2,6 +2,7 @@ Overview of changes in Gtk2 1.243
 =================================
 
 * Avoid trying to re-register a GType for GConnectFlags.
+* Disable the correct potentially annoying test.
 
 Overview of changes in Gtk2 1.242
 =================================
diff --git a/t/GdkDisplay.t b/t/GdkDisplay.t
index e50f9c2..d290446 100644
--- a/t/GdkDisplay.t
+++ b/t/GdkDisplay.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 use strict;
 use Gtk2::TestHelper
-  tests => 24,
+  tests => 26,
   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: {
diff --git a/t/GdkDnd.t b/t/GdkDnd.t
index c7a0c9b..24f67a4 100644
--- a/t/GdkDnd.t
+++ b/t/GdkDnd.t
@@ -55,7 +55,7 @@ SKIP: {
     unless defined $destination;
 
   # FIXME: what about the return value?
-  $context -> motion($destination, $protocol, 0, 0, [qw(copy)], [qw(copy move)], 0);
+  $context -> motion($destination, $protocol, 100, 100, [qw(copy)], [qw(copy move)], 0);
 
   ok($context -> actions() == [qw(copy move)]);
   ok($context -> suggested_action() == qw(copy));



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]