[perl-Gtk2] Improve the failure diagnostics of some tests

[Torsten SchÃnfeld <tsch src gnome org>]

commit 40421136d4d1e8264e0cb2eeef2017e62c5b0c79
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Sun Sep 23 20:54:02 2012 +0200

    Improve the failure diagnostics of some tests
    
    Hopefully, this makes it easier to track down this failure:
    <http://www.cpantesters.org/cpan/report/44f09f56-00f5-11e2-a9f4-eaef5f66db50>.

 t/GtkStatusIcon.t |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)
---
diff --git a/t/GtkStatusIcon.t b/t/GtkStatusIcon.t
index 62ee7b9..c9fb290 100644
--- a/t/GtkStatusIcon.t
+++ b/t/GtkStatusIcon.t
@@ -108,10 +108,10 @@ SKIP: {
   # Make sure the returned rectangle is valid.  It's a copy of a stack
   # object, so we just need to ensure that the values are in some sane
   # range, rather than garbage.
-  ok (abs $area->x <= Gtk2::Gdk->screen_width ());
-  ok (abs $area->y <= Gtk2::Gdk->screen_height ());
-  ok ($area->width <= Gtk2::Gdk->screen_width ());
-  ok ($area->height <= Gtk2::Gdk->screen_height ());
+  cmp_ok (abs $area->x, '<=', Gtk2::Gdk->screen_width ());
+  cmp_ok (abs $area->y, '<=', Gtk2::Gdk->screen_height ());
+  cmp_ok (abs $area->width, '<=', Gtk2::Gdk->screen_width ());
+  cmp_ok (abs $area->height, '<=', Gtk2::Gdk->screen_height ());
 }
 
 # --------------------------------------------------------------------------- #