r31447 - /trunk/libgtk2-perl/debian/patches/20-fix_GdkKeys_tests_for_xvfb.patch
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Thu Mar 5 00:54:51 UTC 2009
Author: ryan52-guest
Date: Thu Mar 5 00:54:38 2009
New Revision: 31447
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=31447
Log:
fix more tests
Modified:
trunk/libgtk2-perl/debian/patches/20-fix_GdkKeys_tests_for_xvfb.patch
Modified: trunk/libgtk2-perl/debian/patches/20-fix_GdkKeys_tests_for_xvfb.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgtk2-perl/debian/patches/20-fix_GdkKeys_tests_for_xvfb.patch?rev=31447&op=diff
==============================================================================
--- trunk/libgtk2-perl/debian/patches/20-fix_GdkKeys_tests_for_xvfb.patch (original)
+++ trunk/libgtk2-perl/debian/patches/20-fix_GdkKeys_tests_for_xvfb.patch Thu Mar 5 00:54:38 2009
@@ -1,5 +1,5 @@
-Author: Marc 'HE' Brockschmidt <he at debian.org>
-Description: Skip GdkKeyMap tests if no keymap is available (like in xvfb)
+Author: Marc 'HE' Brockschmidt <he at debian.org> and Ryan Niebur <ryanryan52 at gmail.com>
+Description: Skip GdkKeyMap and GtkBindings tests if no keymap is available (like in xvfb)
--- a/t/GdkKeys.t
+++ b/t/GdkKeys.t
@@ -17,25 +17,28 @@
@@ -111,3 +111,27 @@
ok(defined($map -> get_direction()));
ok(defined(Gtk2::Gdk::Keymap -> get_direction()));
+--- a/t/GtkBindings.t
++++ b/t/GtkBindings.t
+@@ -76,6 +76,14 @@
+ use warnings;
+ # Note: need '-init' to make Gtk2::Rc do its thing ...
+ use Gtk2::TestHelper tests => 43;
++SKIP: {
++use Gtk2::Gdk::Keysyms;
++my $display = Gtk2::Gdk::Display -> get_default();
++my $keymap = Gtk2::Gdk::Keymap -> get_for_display ($display);
++my(@other_keys) = $keymap -> get_entries_for_keyval($Gtk2::Gdk::Keysyms{ Escape });
++if (scalar(@other_keys) == 0) {
++ skip "Needs a keymap", 43;
++}
+
+
+ #-----------------------------------------------------------------------------
+@@ -389,5 +397,5 @@
+ is ($mywidgetsig_seen, 0,
+ 'before entry_skip(), bindings_activate runs mywidgetsig on mywidget');
+ }
+-
++}
+ exit 0;
More information about the Pkg-perl-cvs-commits
mailing list