perl-Gtk2 r2133 - in trunk: . t

[tsch svn gnome org]

Author: tsch
Date: Fri Feb  6 14:32:24 2009
New Revision: 2133
URL: http://svn.gnome.org/viewvc/perl-Gtk2?rev=2133&view=rev

Log:
Test Gtk2::Entry->get_icon_storage_type.


Modified:
   trunk/ChangeLog
   trunk/t/GtkEntry.t

Modified: trunk/t/GtkEntry.t
==============================================================================
--- trunk/t/GtkEntry.t	(original)
+++ trunk/t/GtkEntry.t	Fri Feb  6 14:32:24 2009
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 use strict;
-use Gtk2::TestHelper tests => 59;
+use Gtk2::TestHelper tests => 61;
 
 # $Id$
 
@@ -100,7 +100,7 @@
 }
 
 SKIP: {
-  skip '2.16 stuff', 36
+  skip '2.16 stuff', 38
     unless Gtk2->CHECK_VERSION(2, 15, 0); # FIXME: 2.16
 
   ## progress methods
@@ -150,6 +150,7 @@
   is($entry -> get_icon_name($icon_pos), undef);
   is($entry -> get_icon_pixbuf($icon_pos), undef);
   is($entry -> get_icon_stock($icon_pos), undef);
+  is($entry -> get_icon_storage_type($icon_pos), 'empty');
 
   $entry -> set_icon_sensitive($icon_pos, TRUE);
   is($entry -> get_icon_sensitive($icon_pos), TRUE);