[perl-Gtk2] Test the GTK_ENTRY_BUFFER_MAX_SIZE wrapper



commit 72a2b838c36e71e177faa853ca444465ff4b5c7e
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Thu Dec 30 00:27:42 2010 +0100

    Test the GTK_ENTRY_BUFFER_MAX_SIZE wrapper

 t/GtkEntryBuffer.t |    6 +++++-
 1 files changed, 5 insertions(+), 1 deletions(-)
---
diff --git a/t/GtkEntryBuffer.t b/t/GtkEntryBuffer.t
index fc0aad7..0c03df8 100644
--- a/t/GtkEntryBuffer.t
+++ b/t/GtkEntryBuffer.t
@@ -1,7 +1,8 @@
 #!/usr/bin/perl -w
 # vim: set filetype=perl expandtab shiftwidth=2 softtabstop=2 :
 use utf8;
-use Gtk2::TestHelper tests => 18, at_least_version => [ 2, 18, 0 ];
+use Gtk2 qw/GTK_ENTRY_BUFFER_MAX_SIZE/;
+use Gtk2::TestHelper tests => 20, at_least_version => [ 2, 18, 0 ];
 
 my $buffer = Gtk2::EntryBuffer->new();
 isa_ok( $buffer, 'Gtk2::EntryBuffer' );
@@ -44,3 +45,6 @@ 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() );



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