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 (file)
--- 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') ;