[perl-Gtk2] Fix a test failure in GtkIconTheme.t



commit 38cb4d2b5f4666eb87843aa9e26ee63548bd1792
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Sat Mar 6 01:39:13 2010 +0100

    Fix a test failure in GtkIconTheme.t
    
    Gtk2::IconTheme->get_icon_sizes() might return a size of -1 to indicate
    scalable icons.

 t/GtkIconTheme.t |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)
---
diff --git a/t/GtkIconTheme.t b/t/GtkIconTheme.t
index adb66f9..ba0120c 100644
--- a/t/GtkIconTheme.t
+++ b/t/GtkIconTheme.t
@@ -59,7 +59,8 @@ SKIP: {
 	skip 'get_icon_sizes returned empty, can not test them', 1
 		unless (@sizes);
 
-	like ($sizes[0], qr/^\d+$/);
+	# -1 means scalable
+	like ($sizes[0], qr/^(?:-1|\d+)$/);
 }
 
 SKIP: {



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