[perl-Gtk2] Make the Gtk2::StatusIcon::position_menu tests more robust/lenient



commit 71bf129f527d3d0284c12dfd3d34958524855825
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Tue Sep 20 15:01:34 2016 +0200

    Make the Gtk2::StatusIcon::position_menu tests more robust/lenient

 t/GtkStatusIcon.t |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)
---
diff --git a/t/GtkStatusIcon.t b/t/GtkStatusIcon.t
index c9fb290..038b9b1 100644
--- a/t/GtkStatusIcon.t
+++ b/t/GtkStatusIcon.t
@@ -89,8 +89,8 @@ $menu -> popdown();
 { my @ret = Gtk2::StatusIcon::position_menu($menu, $icon);
   is (scalar @ret, 3);
   my ($x, $y, $pushed_in) = @ret;
-  like($x, qr/^\d+$/);
-  like($y, qr/^\d+$/);
+  like($x, qr/^-?\d+$/);
+  like($y, qr/^-?\d+$/);
   like($pushed_in, qr/^[01]$/); # boolean
 }
 


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