[libgtk2-perl] 02/03: Drop Disable-some-tests-that-are-known-to-behave-erratica.patch: was cherry-picked from upstream, now part of their new release.
Intrigeri
intrigeri at moszumanska.debian.org
Sat Aug 9 19:10:22 UTC 2014
This is an automated email from the git hooks/post-receive script.
intrigeri pushed a commit to branch master
in repository libgtk2-perl.
commit e67225483029d581766a546afac65c6813449f3e
Author: intrigeri <intrigeri at boum.org>
Date: Sat Aug 9 19:02:58 2014 +0000
Drop Disable-some-tests-that-are-known-to-behave-erratica.patch: was cherry-picked from upstream, now part of their new release.
---
...e-tests-that-are-known-to-behave-erratica.patch | 786 ---------------------
debian/patches/series | 1 -
2 files changed, 787 deletions(-)
diff --git a/debian/patches/Disable-some-tests-that-are-known-to-behave-erratica.patch b/debian/patches/Disable-some-tests-that-are-known-to-behave-erratica.patch
deleted file mode 100644
index 5135f3c..0000000
--- a/debian/patches/Disable-some-tests-that-are-known-to-behave-erratica.patch
+++ /dev/null
@@ -1,786 +0,0 @@
-From: =?utf-8?q?Torsten_Sch=C3=B6nfeld?= <kaffeetisch at gmx.de>
-Date: Thu, 29 May 2014 23:01:55 +0200
-Origin: https://git.gnome.org/browse/perl-Gtk2/commit/?id=e5a2004f41c82efb31e7823a9c44f29180d52be2
-Bug: https://bugzilla.gnome.org/show_bug.cgi?id=727085
-Bug-Debian: https://bugs.debian.org/742687
-Subject: Disable some tests that are known to behave erratically
-
-In certain environments, they either hang or cause crashes. There is only a
-diminishingly small chance that this behaviour is due to bugs in the bindings,
-so simply disable the tests by moving them into "xt", the directory for "author
-tests".
----
- t/GdkDnd.t | 121 -------------------------------------------
- t/GtkDnd.t | 136 -------------------------------------------------
- t/GtkSocket-GtkPlug.t | 105 --------------------------------------
- xt/GdkDnd.t | 121 +++++++++++++++++++++++++++++++++++++++++++
- xt/GtkDnd.t | 136 +++++++++++++++++++++++++++++++++++++++++++++++++
- xt/GtkSocket-GtkPlug.t | 105 ++++++++++++++++++++++++++++++++++++++
- 6 files changed, 362 insertions(+), 362 deletions(-)
- delete mode 100644 t/GdkDnd.t
- delete mode 100644 t/GtkDnd.t
- delete mode 100644 t/GtkSocket-GtkPlug.t
- create mode 100644 xt/GdkDnd.t
- create mode 100644 xt/GtkDnd.t
- create mode 100644 xt/GtkSocket-GtkPlug.t
-
-diff --git a/t/GdkDnd.t b/t/GdkDnd.t
-deleted file mode 100644
-index 24f67a4..0000000
---- a/t/GdkDnd.t
-+++ /dev/null
-@@ -1,121 +0,0 @@
--#!/usr/bin/perl -w
--use strict;
--use Gtk2::TestHelper tests => 26;
--
--# $Id$
--
--my $window = Gtk2::Window -> new();
--$window -> realize();
--$window -> show_now;
--
--###############################################################################
--
--my $context = Gtk2::Gdk::DragContext -> new();
--isa_ok($context, "Gtk2::Gdk::DragContext");
--
--my @targets = (Gtk2::Gdk::Atom -> new("target-string"),
-- Gtk2::Gdk::Atom -> new("target-bitmap"));
--
--$context = Gtk2::Gdk::DragContext -> begin($window -> window(), @targets);
--isa_ok($context, "Gtk2::Gdk::DragContext");
--
--my ($destination, $protocol);
--
--SKIP: {
-- skip("GdkScreen is new in 2.2", 2)
-- unless Gtk2 -> CHECK_VERSION(2, 2, 0);
--
-- ($destination, $protocol) = $context -> find_window_for_screen($window -> window(), Gtk2::Gdk::Screen -> get_default(), 0, 0);
--
-- ok(not defined $destination or ref $destination eq "Gtk2::Gdk::Window");
-- ok(not defined $destination or $protocol);
--}
--
--$context -> abort(0);
--
--###############################################################################
--
--$context = Gtk2::Gdk::DragContext -> begin($window -> window(), @targets);
--isa_ok($context, "Gtk2::Gdk::DragContext");
--
--ok($context -> protocol());
--is($context -> is_source(), 1);
--is($context -> source_window(), $window -> window());
--is_deeply([map { $_ -> name() } $context -> targets()],
-- [map { $_ -> name() } @targets]);
--isa_ok(($context -> targets())[0], "Gtk2::Gdk::Atom");
--
--($destination, $protocol) = $context -> find_window($window -> window(), 0, 0);
--
--ok(not defined $destination or ref $destination eq "Gtk2::Gdk::Window");
--ok(not defined $destination or $protocol);
--
--SKIP: {
-- skip "find_window returned no destination window, skipping the tests that need one", 9
-- unless defined $destination;
--
-- # FIXME: what about the return value?
-- $context -> motion($destination, $protocol, 100, 100, [qw(copy)], [qw(copy move)], 0);
--
-- ok($context -> actions() == [qw(copy move)]);
-- ok($context -> suggested_action() == qw(copy));
-- is($context -> start_time(), 0);
--
-- SKIP: {
-- skip "can't do x11 stuff on this platform", 2
-- if $^O eq 'MSWin32';
--
-- is_deeply([Gtk2::Gdk::DragContext -> get_protocol($destination -> get_xid())],
-- [$destination -> get_xid(), $protocol]);
--
-- skip("get_protocol_for_display is new in 2.2", 1)
-- unless Gtk2->CHECK_VERSION (2, 2, 0);
--
-- is_deeply([Gtk2::Gdk::DragContext -> get_protocol_for_display(Gtk2::Gdk::Display -> get_default(), $destination -> get_xid())],
-- [$destination -> get_xid(), $protocol]);
-- }
--
-- is($context -> dest_window(), $destination);
-- my $selection = $context -> get_selection();
-- SKIP: {
-- skip "selection test: get_selection returned undef", 1
-- unless defined $selection;
-- isa_ok($selection, "Gtk2::Gdk::Atom");
-- }
--
-- $context -> status(qw(move), 0);
-- ok($context -> action() == qw(move));
--
-- $context -> status([], 0);
--
-- $context -> drop_reply(1, 0);
-- $context -> drop_finish(1, 0);
--
-- SKIP: {
-- skip "new 2.6 stuff", 1
-- unless Gtk2 -> CHECK_VERSION(2, 6, 0);
--
-- like($context -> drag_drop_succeeded(), qr/^(?:1|)$/);
-- }
--
-- $context -> drop(0);
-- $context -> abort(0);
--}
--
--SKIP: {
-- skip 'new 2.22 stuff', 5
-- unless Gtk2->CHECK_VERSION(2, 22, 0);
--
-- my $context = Gtk2::Gdk::DragContext -> begin($window -> window(), @targets);
-- ok(defined $context -> get_actions());
-- ok(defined $context -> get_selected_action());
-- ok(defined $context -> get_suggested_action());
-- is($context -> get_source_window(), $window -> window());
-- is_deeply([map { $_ -> name() } $context -> list_targets()],
-- [map { $_ -> name() } @targets]);
--}
--
--__END__
--
--Copyright (C) 2003 by the gtk2-perl team (see the file AUTHORS for the
--full list). See LICENSE for more information.
-diff --git a/t/GtkDnd.t b/t/GtkDnd.t
-deleted file mode 100644
-index b9ee019..0000000
---- a/t/GtkDnd.t
-+++ /dev/null
-@@ -1,136 +0,0 @@
--#!/usr/bin/perl -w
--use strict;
--use Gtk2::TestHelper tests => 6;
--
--# $Id$
--
--my $button = Gtk2::Button -> new("Bla");
--my $window = Gtk2::Window -> new();
--
--$window -> add($button);
--$window -> realize();
--$button -> realize();
--
--# Dest ########################################################################
--
--$button -> drag_dest_set("all", "copy",
-- { target => "BITMAP", info => 23 },
-- { target => "STRING", flags => ["same-app", "same-widget"], info => 42 }
--);
--
--my $list = $button -> drag_dest_get_target_list();
--$button -> drag_dest_set_target_list(undef);
--$button -> drag_dest_set_target_list($list);
--
--is($list -> find(Gtk2::Gdk -> TARGET_BITMAP), 23);
--is($list -> find(Gtk2::Gdk -> TARGET_STRING), 42);
--
--my $pixbuf = Gtk2::Gdk::Pixbuf -> new("rgb", 0, 8, 10, 10);
--
--my $event = Gtk2::Gdk::Event -> new("button-press");
--
--my $context = Gtk2::Drag -> begin($button, $list, "default", 1, $event);
--SKIP: {
-- skip "context test", 1 unless defined $context;
-- isa_ok($context, "Gtk2::Gdk::DragContext");
--}
--
--$context = $button -> drag_begin($list, "default", 1, $event);
--SKIP: {
-- skip "context test", 1 unless defined $context;
-- isa_ok($context, "Gtk2::Gdk::DragContext");
--}
--
--if (defined($context)) {
-- # warn $button -> drag_dest_find_target($context, $list);
-- # $context -> finish(1, 0, 0);
-- # $button -> drag_get_data($context, Gtk2::Gdk -> TARGET_STRING, 0);
-- # warn $context -> get_source_widget();
--
-- $context -> set_icon_widget($window, 5, 5);
--
-- my $pixmap = Gtk2::Gdk::Pixmap->new ($window->window, 16, 16, -1);
-- $context -> set_icon_pixmap($pixmap->get_colormap, $pixmap, undef, 5, 5);
-- my $mask = Gtk2::Gdk::Pixmap->new ($window->window, 16, 16, 1);
-- $context -> set_icon_pixmap($pixmap->get_colormap, $pixmap, $mask, 5, 5);
--
-- $context -> set_icon_pixbuf($pixbuf, 5, 5);
-- $context -> set_icon_stock("gtk-add", 5, 5);
-- $context -> set_icon_default();
--
-- SKIP: {
-- skip "new 2.8 stuff", 0
-- unless Gtk2 -> CHECK_VERSION(2, 8, 0);
--
-- $context -> set_icon_name("gtk-add", 5, 5);
-- }
--}
--
--is($button -> drag_check_threshold(5, 5, 100, 100), 1);
--
--$button -> drag_highlight();
--$button -> drag_unhighlight();
--
--$button -> drag_dest_set_proxy($window -> window(), "xdnd", 0);
--
--SKIP: {
-- skip("2.6 stuff", 0)
-- unless Gtk2 -> CHECK_VERSION(2, 6, 0);
--
-- $button -> drag_dest_add_text_targets();
-- $button -> drag_dest_add_image_targets();
-- $button -> drag_dest_add_uri_targets();
--}
--
--SKIP: {
-- skip("2.10 stuff", 1)
-- unless Gtk2 -> CHECK_VERSION(2, 10, 0);
--
-- $button -> drag_dest_set_track_motion(FALSE);
-- ok(!$button -> drag_dest_get_track_motion());
--}
--
--$button -> drag_dest_unset();
--
--# Source ######################################################################
--
--$button -> drag_source_set("shift-mask", "copy",
-- { target => "BITMAP", info => 23 },
-- { target => "STRING", flags => ["same-app", "same-widget"], info => 42 }
--);
--
--# $button -> drag_source_set_icon(...);
--$button -> drag_source_set_icon_pixbuf($pixbuf);
--$button -> drag_source_set_icon_stock("gtk-quit");
--
--SKIP: {
-- skip("drag_source_[sg]et_target_list is new in 2.4", 0)
-- unless Gtk2->CHECK_VERSION (2, 4, 0);
--
-- $list = $button -> drag_source_get_target_list();
-- $button -> drag_source_set_target_list(undef);
-- $button -> drag_source_set_target_list($list);
--}
--
--SKIP: {
-- skip("2.6 stuff", 0)
-- unless Gtk2 -> CHECK_VERSION(2, 6, 0);
--
-- $button -> drag_source_add_text_targets();
-- $button -> drag_source_add_image_targets();
-- $button -> drag_source_add_uri_targets();
--}
--
--SKIP: {
-- skip("2.8 stuff", 0)
-- unless Gtk2 -> CHECK_VERSION(2, 8, 0);
--
-- $button -> drag_source_set_icon_name("gtk-ok");
--}
--
--$button -> drag_source_unset();
--
--__END__
--
--Copyright (C) 2003-2006 by the gtk2-perl team (see the file AUTHORS for
--the full list). See LICENSE for more information.
-diff --git a/t/GtkSocket-GtkPlug.t b/t/GtkSocket-GtkPlug.t
-deleted file mode 100644
-index 20944aa..0000000
---- a/t/GtkSocket-GtkPlug.t
-+++ /dev/null
-@@ -1,105 +0,0 @@
--#!/usr/bin/perl
--#
--# $Id$
--#
--
--# ...despite patches that have been around for a long time, no win32
--use Gtk2::TestHelper tests => 12, nowin32 => 1;
--
--SKIP: {
--
--skip "blib can't be found", 6
-- unless -d "blib";
--
--ok( my $win = Gtk2::Window->new );
--
--ok( my $socket = Gtk2::Socket->new );
--$win->add($socket);
--
--ok( my $id = $socket->get_id );
--
--SKIP: {
-- skip 'new 2.14 stuff', 2
-- unless Gtk2->CHECK_VERSION(2, 14, 0);
--
-- is( $socket->get_plug_window, undef );
-- $socket->signal_connect (plug_added => sub {
-- isa_ok( $socket->get_plug_window, 'Gtk2::Gdk::Window' );
-- });
--}
--
--my $pid = fork;
--
--skip 'fork failed', 2 unless defined $pid && $pid >= 0;
--
--if( $pid == 0 )
--{
-- exec("$^X -Mblib -e 'my \$id = $id;\n\n" . <<EOL);
--use Gtk2;
--
--Gtk2->init;
--
--my \$plug = Gtk2::Plug->new($id);
--
--my \$btn = Gtk2::Button->new("gtk-quit");
--\$btn->signal_connect("clicked" => sub { Gtk2->main_quit; 1; });
--\$plug->add(\$btn);
--
--\$plug->show_all;
--
--Glib::Idle->add(sub { \$btn->clicked; 0; });
--
--Gtk2->main;'
--EOL
-- exit 0;
--}
--else
--{
-- $socket->signal_connect('plug-removed' => sub {
-- Gtk2->main_quit;
-- 1;
-- });
-- $win->show_all;
-- Gtk2->main;
-- ok( waitpid($pid, 0) );
--}
--
--}
--
--# Standalone GtkPlug tests.
--SKIP: {
-- my $id = 23;
-- my $display = Gtk2::Gdk::Display->get_default;
--
-- # Backwards compatibility tests
-- my $plug = Gtk2::Plug->new($id);
-- isa_ok( $plug, 'Gtk2::Plug' );
--
-- $plug->construct($id);
-- $plug->construct_for_display($display, $id);
--
-- ok( defined $plug->get_id );
--
-- skip 'new 2.14 stuff', 2
-- unless Gtk2->CHECK_VERSION(2, 14, 0);
--
-- is( $plug->get_embedded, FALSE );
-- is( $plug->get_socket_window, undef );
--}
--
--# Backwards compatibility tests.
--{
-- my $id = 23;
-- my $display = Gtk2::Gdk::Display->get_default;
--
-- isa_ok( Gtk2::Plug::new_for_display($display, $id),
-- 'Gtk2::Plug' );
--
-- isa_ok( Gtk2::Plug->new_for_display($display, $id),
-- 'Gtk2::Plug' );
--}
--
--__END__
--
--Copyright (C) 2003 by the gtk2-perl team (see the file AUTHORS for the
--full list). See LICENSE for more information.
-diff --git a/xt/GdkDnd.t b/xt/GdkDnd.t
-new file mode 100644
-index 0000000..24f67a4
---- /dev/null
-+++ b/xt/GdkDnd.t
-@@ -0,0 +1,121 @@
-+#!/usr/bin/perl -w
-+use strict;
-+use Gtk2::TestHelper tests => 26;
-+
-+# $Id$
-+
-+my $window = Gtk2::Window -> new();
-+$window -> realize();
-+$window -> show_now;
-+
-+###############################################################################
-+
-+my $context = Gtk2::Gdk::DragContext -> new();
-+isa_ok($context, "Gtk2::Gdk::DragContext");
-+
-+my @targets = (Gtk2::Gdk::Atom -> new("target-string"),
-+ Gtk2::Gdk::Atom -> new("target-bitmap"));
-+
-+$context = Gtk2::Gdk::DragContext -> begin($window -> window(), @targets);
-+isa_ok($context, "Gtk2::Gdk::DragContext");
-+
-+my ($destination, $protocol);
-+
-+SKIP: {
-+ skip("GdkScreen is new in 2.2", 2)
-+ unless Gtk2 -> CHECK_VERSION(2, 2, 0);
-+
-+ ($destination, $protocol) = $context -> find_window_for_screen($window -> window(), Gtk2::Gdk::Screen -> get_default(), 0, 0);
-+
-+ ok(not defined $destination or ref $destination eq "Gtk2::Gdk::Window");
-+ ok(not defined $destination or $protocol);
-+}
-+
-+$context -> abort(0);
-+
-+###############################################################################
-+
-+$context = Gtk2::Gdk::DragContext -> begin($window -> window(), @targets);
-+isa_ok($context, "Gtk2::Gdk::DragContext");
-+
-+ok($context -> protocol());
-+is($context -> is_source(), 1);
-+is($context -> source_window(), $window -> window());
-+is_deeply([map { $_ -> name() } $context -> targets()],
-+ [map { $_ -> name() } @targets]);
-+isa_ok(($context -> targets())[0], "Gtk2::Gdk::Atom");
-+
-+($destination, $protocol) = $context -> find_window($window -> window(), 0, 0);
-+
-+ok(not defined $destination or ref $destination eq "Gtk2::Gdk::Window");
-+ok(not defined $destination or $protocol);
-+
-+SKIP: {
-+ skip "find_window returned no destination window, skipping the tests that need one", 9
-+ unless defined $destination;
-+
-+ # FIXME: what about the return value?
-+ $context -> motion($destination, $protocol, 100, 100, [qw(copy)], [qw(copy move)], 0);
-+
-+ ok($context -> actions() == [qw(copy move)]);
-+ ok($context -> suggested_action() == qw(copy));
-+ is($context -> start_time(), 0);
-+
-+ SKIP: {
-+ skip "can't do x11 stuff on this platform", 2
-+ if $^O eq 'MSWin32';
-+
-+ is_deeply([Gtk2::Gdk::DragContext -> get_protocol($destination -> get_xid())],
-+ [$destination -> get_xid(), $protocol]);
-+
-+ skip("get_protocol_for_display is new in 2.2", 1)
-+ unless Gtk2->CHECK_VERSION (2, 2, 0);
-+
-+ is_deeply([Gtk2::Gdk::DragContext -> get_protocol_for_display(Gtk2::Gdk::Display -> get_default(), $destination -> get_xid())],
-+ [$destination -> get_xid(), $protocol]);
-+ }
-+
-+ is($context -> dest_window(), $destination);
-+ my $selection = $context -> get_selection();
-+ SKIP: {
-+ skip "selection test: get_selection returned undef", 1
-+ unless defined $selection;
-+ isa_ok($selection, "Gtk2::Gdk::Atom");
-+ }
-+
-+ $context -> status(qw(move), 0);
-+ ok($context -> action() == qw(move));
-+
-+ $context -> status([], 0);
-+
-+ $context -> drop_reply(1, 0);
-+ $context -> drop_finish(1, 0);
-+
-+ SKIP: {
-+ skip "new 2.6 stuff", 1
-+ unless Gtk2 -> CHECK_VERSION(2, 6, 0);
-+
-+ like($context -> drag_drop_succeeded(), qr/^(?:1|)$/);
-+ }
-+
-+ $context -> drop(0);
-+ $context -> abort(0);
-+}
-+
-+SKIP: {
-+ skip 'new 2.22 stuff', 5
-+ unless Gtk2->CHECK_VERSION(2, 22, 0);
-+
-+ my $context = Gtk2::Gdk::DragContext -> begin($window -> window(), @targets);
-+ ok(defined $context -> get_actions());
-+ ok(defined $context -> get_selected_action());
-+ ok(defined $context -> get_suggested_action());
-+ is($context -> get_source_window(), $window -> window());
-+ is_deeply([map { $_ -> name() } $context -> list_targets()],
-+ [map { $_ -> name() } @targets]);
-+}
-+
-+__END__
-+
-+Copyright (C) 2003 by the gtk2-perl team (see the file AUTHORS for the
-+full list). See LICENSE for more information.
-diff --git a/xt/GtkDnd.t b/xt/GtkDnd.t
-new file mode 100644
-index 0000000..b9ee019
---- /dev/null
-+++ b/xt/GtkDnd.t
-@@ -0,0 +1,136 @@
-+#!/usr/bin/perl -w
-+use strict;
-+use Gtk2::TestHelper tests => 6;
-+
-+# $Id$
-+
-+my $button = Gtk2::Button -> new("Bla");
-+my $window = Gtk2::Window -> new();
-+
-+$window -> add($button);
-+$window -> realize();
-+$button -> realize();
-+
-+# Dest ########################################################################
-+
-+$button -> drag_dest_set("all", "copy",
-+ { target => "BITMAP", info => 23 },
-+ { target => "STRING", flags => ["same-app", "same-widget"], info => 42 }
-+);
-+
-+my $list = $button -> drag_dest_get_target_list();
-+$button -> drag_dest_set_target_list(undef);
-+$button -> drag_dest_set_target_list($list);
-+
-+is($list -> find(Gtk2::Gdk -> TARGET_BITMAP), 23);
-+is($list -> find(Gtk2::Gdk -> TARGET_STRING), 42);
-+
-+my $pixbuf = Gtk2::Gdk::Pixbuf -> new("rgb", 0, 8, 10, 10);
-+
-+my $event = Gtk2::Gdk::Event -> new("button-press");
-+
-+my $context = Gtk2::Drag -> begin($button, $list, "default", 1, $event);
-+SKIP: {
-+ skip "context test", 1 unless defined $context;
-+ isa_ok($context, "Gtk2::Gdk::DragContext");
-+}
-+
-+$context = $button -> drag_begin($list, "default", 1, $event);
-+SKIP: {
-+ skip "context test", 1 unless defined $context;
-+ isa_ok($context, "Gtk2::Gdk::DragContext");
-+}
-+
-+if (defined($context)) {
-+ # warn $button -> drag_dest_find_target($context, $list);
-+ # $context -> finish(1, 0, 0);
-+ # $button -> drag_get_data($context, Gtk2::Gdk -> TARGET_STRING, 0);
-+ # warn $context -> get_source_widget();
-+
-+ $context -> set_icon_widget($window, 5, 5);
-+
-+ my $pixmap = Gtk2::Gdk::Pixmap->new ($window->window, 16, 16, -1);
-+ $context -> set_icon_pixmap($pixmap->get_colormap, $pixmap, undef, 5, 5);
-+ my $mask = Gtk2::Gdk::Pixmap->new ($window->window, 16, 16, 1);
-+ $context -> set_icon_pixmap($pixmap->get_colormap, $pixmap, $mask, 5, 5);
-+
-+ $context -> set_icon_pixbuf($pixbuf, 5, 5);
-+ $context -> set_icon_stock("gtk-add", 5, 5);
-+ $context -> set_icon_default();
-+
-+ SKIP: {
-+ skip "new 2.8 stuff", 0
-+ unless Gtk2 -> CHECK_VERSION(2, 8, 0);
-+
-+ $context -> set_icon_name("gtk-add", 5, 5);
-+ }
-+}
-+
-+is($button -> drag_check_threshold(5, 5, 100, 100), 1);
-+
-+$button -> drag_highlight();
-+$button -> drag_unhighlight();
-+
-+$button -> drag_dest_set_proxy($window -> window(), "xdnd", 0);
-+
-+SKIP: {
-+ skip("2.6 stuff", 0)
-+ unless Gtk2 -> CHECK_VERSION(2, 6, 0);
-+
-+ $button -> drag_dest_add_text_targets();
-+ $button -> drag_dest_add_image_targets();
-+ $button -> drag_dest_add_uri_targets();
-+}
-+
-+SKIP: {
-+ skip("2.10 stuff", 1)
-+ unless Gtk2 -> CHECK_VERSION(2, 10, 0);
-+
-+ $button -> drag_dest_set_track_motion(FALSE);
-+ ok(!$button -> drag_dest_get_track_motion());
-+}
-+
-+$button -> drag_dest_unset();
-+
-+# Source ######################################################################
-+
-+$button -> drag_source_set("shift-mask", "copy",
-+ { target => "BITMAP", info => 23 },
-+ { target => "STRING", flags => ["same-app", "same-widget"], info => 42 }
-+);
-+
-+# $button -> drag_source_set_icon(...);
-+$button -> drag_source_set_icon_pixbuf($pixbuf);
-+$button -> drag_source_set_icon_stock("gtk-quit");
-+
-+SKIP: {
-+ skip("drag_source_[sg]et_target_list is new in 2.4", 0)
-+ unless Gtk2->CHECK_VERSION (2, 4, 0);
-+
-+ $list = $button -> drag_source_get_target_list();
-+ $button -> drag_source_set_target_list(undef);
-+ $button -> drag_source_set_target_list($list);
-+}
-+
-+SKIP: {
-+ skip("2.6 stuff", 0)
-+ unless Gtk2 -> CHECK_VERSION(2, 6, 0);
-+
-+ $button -> drag_source_add_text_targets();
-+ $button -> drag_source_add_image_targets();
-+ $button -> drag_source_add_uri_targets();
-+}
-+
-+SKIP: {
-+ skip("2.8 stuff", 0)
-+ unless Gtk2 -> CHECK_VERSION(2, 8, 0);
-+
-+ $button -> drag_source_set_icon_name("gtk-ok");
-+}
-+
-+$button -> drag_source_unset();
-+
-+__END__
-+
-+Copyright (C) 2003-2006 by the gtk2-perl team (see the file AUTHORS for
-+the full list). See LICENSE for more information.
-diff --git a/xt/GtkSocket-GtkPlug.t b/xt/GtkSocket-GtkPlug.t
-new file mode 100644
-index 0000000..20944aa
---- /dev/null
-+++ b/xt/GtkSocket-GtkPlug.t
-@@ -0,0 +1,105 @@
-+#!/usr/bin/perl
-+#
-+# $Id$
-+#
-+
-+# ...despite patches that have been around for a long time, no win32
-+use Gtk2::TestHelper tests => 12, nowin32 => 1;
-+
-+SKIP: {
-+
-+skip "blib can't be found", 6
-+ unless -d "blib";
-+
-+ok( my $win = Gtk2::Window->new );
-+
-+ok( my $socket = Gtk2::Socket->new );
-+$win->add($socket);
-+
-+ok( my $id = $socket->get_id );
-+
-+SKIP: {
-+ skip 'new 2.14 stuff', 2
-+ unless Gtk2->CHECK_VERSION(2, 14, 0);
-+
-+ is( $socket->get_plug_window, undef );
-+ $socket->signal_connect (plug_added => sub {
-+ isa_ok( $socket->get_plug_window, 'Gtk2::Gdk::Window' );
-+ });
-+}
-+
-+my $pid = fork;
-+
-+skip 'fork failed', 2 unless defined $pid && $pid >= 0;
-+
-+if( $pid == 0 )
-+{
-+ exec("$^X -Mblib -e 'my \$id = $id;\n\n" . <<EOL);
-+use Gtk2;
-+
-+Gtk2->init;
-+
-+my \$plug = Gtk2::Plug->new($id);
-+
-+my \$btn = Gtk2::Button->new("gtk-quit");
-+\$btn->signal_connect("clicked" => sub { Gtk2->main_quit; 1; });
-+\$plug->add(\$btn);
-+
-+\$plug->show_all;
-+
-+Glib::Idle->add(sub { \$btn->clicked; 0; });
-+
-+Gtk2->main;'
-+EOL
-+ exit 0;
-+}
-+else
-+{
-+ $socket->signal_connect('plug-removed' => sub {
-+ Gtk2->main_quit;
-+ 1;
-+ });
-+ $win->show_all;
-+ Gtk2->main;
-+ ok( waitpid($pid, 0) );
-+}
-+
-+}
-+
-+# Standalone GtkPlug tests.
-+SKIP: {
-+ my $id = 23;
-+ my $display = Gtk2::Gdk::Display->get_default;
-+
-+ # Backwards compatibility tests
-+ my $plug = Gtk2::Plug->new($id);
-+ isa_ok( $plug, 'Gtk2::Plug' );
-+
-+ $plug->construct($id);
-+ $plug->construct_for_display($display, $id);
-+
-+ ok( defined $plug->get_id );
-+
-+ skip 'new 2.14 stuff', 2
-+ unless Gtk2->CHECK_VERSION(2, 14, 0);
-+
-+ is( $plug->get_embedded, FALSE );
-+ is( $plug->get_socket_window, undef );
-+}
-+
-+# Backwards compatibility tests.
-+{
-+ my $id = 23;
-+ my $display = Gtk2::Gdk::Display->get_default;
-+
-+ isa_ok( Gtk2::Plug::new_for_display($display, $id),
-+ 'Gtk2::Plug' );
-+
-+ isa_ok( Gtk2::Plug->new_for_display($display, $id),
-+ 'Gtk2::Plug' );
-+}
-+
-+__END__
-+
-+Copyright (C) 2003 by the gtk2-perl team (see the file AUTHORS for the
-+full list). See LICENSE for more information.
diff --git a/debian/patches/series b/debian/patches/series
index d5668cc..b9db011 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,3 +1,2 @@
30-disable_libgtk_version_check.patch
fix-typo.patch
-Disable-some-tests-that-are-known-to-behave-erratica.patch
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libgtk2-perl.git
More information about the Pkg-perl-cvs-commits
mailing list