Windows need pump_events before wait_events

diff --git a/t/core_events.t b/t/core_events.t
index 909c6e9..843a618 100644 (file)
--- a/t/core_events.t
+++ b/t/core_events.t
@@ -147,6 +147,8 @@ is( $got_event, 1, '[poll_event] Got the right event back out') ;
 
 SDL::Events::push_event($weevent); pass '[push_event] ran';
 
+SDL::Events::pump_events(); 
+
 my $value = SDL::Events::wait_event($event); 
 
 is( $value, 1, '[wait_event] waited for event');