Re: GdkEvent.t failures...

[Torsten Schoenfeld <kaffeetisch web de>]

On Wed, 2004-03-03 at 15:34, Ross McFarland wrote:

> doesn't happen everytime, happen the first time i make test'd. i can sometimes
> make it happen if i'm clicking around my desktop/apps so i guess i was doing
> that.

I think the attached patch should fix this, though I can't be sure since
I'm unable to provoke the behavior you describe.  Can you test it before
I commit?

Bye,
-Torsten

Index: t/GdkEvent.t
===================================================================
RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GdkEvent.t,v
retrieving revision 1.10
diff -u -d -r1.10 GdkEvent.t
--- t/GdkEvent.t	3 Mar 2004 04:25:44 -0000	1.10
+++ t/GdkEvent.t	4 Mar 2004 18:41:15 -0000
@@ -7,7 +7,7 @@
 # 	- rm
 #########################
 
-use Gtk2::TestHelper tests => 97;
+use Gtk2::TestHelper tests => 96;
 use Data::Dumper;
 
 # Expose #######################################################################
@@ -189,11 +189,17 @@
 is (Gtk2::Gdk->events_pending, 1);
 isa_ok (Gtk2::Gdk::Event->peek, "Gtk2::Gdk::Event::Crossing");
 
+my $i_know_you = 0;
+
 Gtk2::Gdk::Event -> handler_set(sub {
+	return if $i_know_you++;
+
 	my ($ev, $data) = @_;
-	isa_ok ($ev, 'Gtk2::Gdk::Event::Crossing', '$ev of expected type');
+
+	ok ((ref $ev eq 'Gtk2::Gdk::Event::Crossing' or
+	     ref $ev eq 'Gtk2::Gdk::Event'), '$ev of expected type');
 	is ($data, 'bla', 'user data passed properly');
-	is_deeply ($ev->get_state, ['control-mask'], '$ev->get_state');
+
 	# pass to gtk+ default handler
 	Gtk2->main_do_event ($ev);
 }, 'bla');