[perl-Gtk2] Disable the correct potentially annoying test
- From: Torsten SchÃnfeld <tsch src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [perl-Gtk2] Disable the correct potentially annoying test
- Date: Tue, 15 May 2012 21:50:27 +0000 (UTC)
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]