From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Mon, 9 Nov 2009 11:20:20 +0000 (-0500)
Subject: Got random fails because we were not pumping events before polling
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=32e09f2e689f9f372af41db0e3cc979399663fae;p=sdlgit%2FSDL_perl.git

Got random fails because we were not pumping events before polling
---

diff --git a/t/core_events.t b/t/core_events.t
index 6a2138c..3754439 100644
--- a/t/core_events.t
+++ b/t/core_events.t
@@ -139,6 +139,8 @@ is($num_peep_events >= 0, 1,  '[peep_events] Size of event queue is ' . $num_pee
 
 SDL::Events::push_event($aevent); pass '[push_event] ran';
 
+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') ;