[perl-Gtk2] When testing, don't assume the default IM context is in use



commit 18889b3f36d348721c34e3d5a5aff07e5d3c3a80
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Sun May 30 13:55:26 2010 +0200

    When testing, don't assume the default IM context is in use

 t/GtkIMContext.t |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)
---
diff --git a/t/GtkIMContext.t b/t/GtkIMContext.t
index 3b63650..ed63823 100644
--- a/t/GtkIMContext.t
+++ b/t/GtkIMContext.t
@@ -68,6 +68,7 @@ SKIP: {
 
 	# Get a default context
 	$context->focus_in ();
-	is (my $id = $context->get_context_id, 'gtk-im-context-simple', 'Simple context');
+	my $id = $context->get_context_id;
+	ok (defined $id, 'Context ID');
 	$context->set_context_id ($id);
 }



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