[perl-Gtk2] Fix a test failure in t/GtkEntryBuffer.t
- From: Torsten SchÃnfeld <tsch src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [perl-Gtk2] Fix a test failure in t/GtkEntryBuffer.t
- Date: Sat, 15 Oct 2011 11:44:25 +0000 (UTC)
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]