perl-Gtk2 r2127 - in trunk: . t

[tsch svn gnome org]

Author: tsch
Date: Fri Feb  6 13:51:38 2009
New Revision: 2127
URL: http://svn.gnome.org/viewvc/perl-Gtk2?rev=2127&view=rev

Log:
Skip tests that rely on the presence of a stock icon if that icon isn't
present.


Modified:
   trunk/ChangeLog
   trunk/t/GtkIconTheme.t

Modified: trunk/t/GtkIconTheme.t
==============================================================================
--- trunk/t/GtkIconTheme.t	(original)
+++ trunk/t/GtkIconTheme.t	Fri Feb  6 13:51:38 2009
@@ -99,6 +99,9 @@
   skip 'new 2.14 stuff', 2
     unless Gtk2->CHECK_VERSION(2, 14, 0);
 
+  skip 'unable to find the stock_edit icon', 2
+    unless defined $icon_theme->lookup_icon ('stock_edit', 24, 'use-builtin');
+
   my $pixbuf = $icon_theme->load_icon ('stock_edit', 24, 'use-builtin');
   isa_ok (Gtk2::IconInfo->new_for_pixbuf ($icon_theme, $pixbuf),
           'Gtk2::IconInfo');