From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Mon, 9 Nov 2009 14:52:47 +0000 (-0500)
Subject: Made an event loop for testing if events are poll properly
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fedf50fd662637b5ccb052c764f0cee759c3ce16;p=sdlgit%2FSDL_perl.git

Made an event loop for testing if events are poll properly
---

diff --git a/t/core_events.t b/t/core_events.t
index 58c40b4..d5d670e 100644
--- a/t/core_events.t
+++ b/t/core_events.t
@@ -118,17 +118,31 @@ is($wrevent->type, SDL_VIDEORESIZE, '[SDL::ResizeEvent->type] returns correctly'
 is($wmevent->type, SDL_SYSWMEVENT, '[SDL::SysWMEvent->type] returns correctly'); 
 is($uevent->type,  SDL_USEREVENT, '[SDL::UserEvent->type] returns correctly'); 
 
+
+
 my $num_peep_events = SDL::Events::peep_events($event, 127, SDL_PEEKEVENT, SDL_ALLEVENTS);
 is($num_peep_events >= 0, 1,  '[peep_events] Size of event queue is ' . $num_peep_events);
 
 
 SDL::Events::push_event($aevent); pass '[push_event] ran';
 
+my $got_event = 0;
+
+while(1)
+{
 SDL::Events::pump_events(); pass '[pump_event] ran';
 
 SDL::Events::poll_event($event);
 
-is( $event->type, $aevent->type, '[poll_event] Got the right event back out') ;
+if ($event->type == SDL_ACTIVEEVENT)
+ {
+	 $got_event = 1;
+	 last;
+ }
+
+}
+
+is( $got_event, 1, '[poll_event] Got the right event back out') ;
 
 SDL::Events::push_event($weevent); pass '[push_event] ran';