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