From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Mon, 9 Nov 2009 15:22:34 +0000 (-0500)
Subject: Windows need pump_events before wait_events
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dfbcc038012aa298c20ba547010e81deca339e66;p=sdlgit%2FSDL_perl.git

Windows need pump_events before wait_events
---

diff --git a/t/core_events.t b/t/core_events.t
index 909c6e9..843a618 100644
--- 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');