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



commit ca7f14947bd85a340c4a139d758491d382e8fea5
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Sat Mar 6 02:24:48 2010 +0100

    Fix a test failure in GtkAssistant.t
    
    GtkAssistant's get_nth_page() recently got fixed so that it returns the
    last page when asked for page -1 (as the docs have been saying all
    along).  So skip asserting the contrary.

 t/GtkAssistant.t |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)
---
diff --git a/t/GtkAssistant.t b/t/GtkAssistant.t
index 4bd0b25..32e798f 100644
--- a/t/GtkAssistant.t
+++ b/t/GtkAssistant.t
@@ -3,7 +3,7 @@
 
 use strict;
 use Gtk2::TestHelper
-  tests => 27,
+  tests => 26,
   at_least_version => [2, 10, 0, "GtkAssistant is new in 2.10"];
 
 #typedef gint (*GtkAssistantPageFunc) (gint current_page, gpointer data);
@@ -39,7 +39,6 @@ is ($assistant->get_current_page (), -1, "none set yet");
 $assistant->set_current_page (3);
 is ($assistant->get_current_page (), 3);
 
-ok (! $assistant->get_nth_page (-1));
 my $page = $assistant->get_nth_page (2);
 isa_ok ($page, 'Gtk2::Widget');
 



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