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



commit 774bea0a5440d5ef9b260f21c53212298adcc5a7
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Sat Oct 15 13:44:07 2011 +0200

    Fix a test failure in t/GtkEntryBuffer.t

 t/GtkEntryBuffer.t |   16 ++++++++++++----
 1 files changed, 12 insertions(+), 4 deletions(-)
---
diff --git a/t/GtkEntryBuffer.t b/t/GtkEntryBuffer.t
index 0c03df8..3f656bd 100644
--- a/t/GtkEntryBuffer.t
+++ b/t/GtkEntryBuffer.t
@@ -1,8 +1,7 @@
 #!/usr/bin/perl -w
 # vim: set filetype=perl expandtab shiftwidth=2 softtabstop=2 :
 use utf8;
-use Gtk2 qw/GTK_ENTRY_BUFFER_MAX_SIZE/;
-use Gtk2::TestHelper tests => 20, at_least_version => [ 2, 18, 0 ];
+use Gtk2::TestHelper tests => 21, at_least_version => [ 2, 18, 0 ];
 
 my $buffer = Gtk2::EntryBuffer->new();
 isa_ok( $buffer, 'Gtk2::EntryBuffer' );
@@ -46,5 +45,14 @@ is( $buffer->get_max_length(), 23 );
 $buffer->emit_inserted_text(0, 'Lorem', 5);
 $buffer->emit_deleted_text(0, 5);
 
-ok( defined Gtk2::GTK_ENTRY_BUFFER_MAX_SIZE() );
-ok( defined GTK_ENTRY_BUFFER_MAX_SIZE() );
+SKIP: {
+  skip 'new stuff', 3
+    unless Gtk2->CHECK_VERSION(2, 18, 0);
+  ok( defined Gtk2::GTK_ENTRY_BUFFER_MAX_SIZE() );
+  ok( eval <<__CODE__ );
+package Tmp;
+use Gtk2 qw/GTK_ENTRY_BUFFER_MAX_SIZE/;
+Test::More::ok( defined GTK_ENTRY_BUFFER_MAX_SIZE() );
+1;
+__CODE__
+}



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