Tiny typo fixed in Event.xs and Added some prelim tests to check if our logic for...

diff --git a/src/Core/objects/Event.xs b/src/Core/objects/Event.xs
index 932aedc..aa49209 100644 (file)
--- a/src/Core/objects/Event.xs
+++ b/src/Core/objects/Event.xs
@@ -413,7 +413,7 @@ event_button_state ( event, ... )
                RETVAL
 
 Uint16
-event__button_x ( event, ... )
+event_button_x ( event, ... )
        SDL_Event *event
        CODE: 
                SDL_MouseButtonEvent * a = &(event->button);

diff --git a/t/core_events.t b/t/core_events.t
index 68856a2..a3f2b6f 100644 (file)
--- a/t/core_events.t
+++ b/t/core_events.t
@@ -58,8 +58,16 @@ SDL::Video::set_video_mode(640,480,32, SDL_SWSURFACE);
 
 is(SDL::Events::pump_events(), undef,  '[pump_events] Returns undef');
 
-=pod
 my $event   = SDL::Event->new();
+
+my $aevent = SDL::Event->new();
+   $aevent->type ( SDL_ACTIVEEVENT );
+   $aevent->active_gain(1);
+   $aevent->active_state(SDL_APPINPUTFOCUS);
+
+SDL::Events::push_event($aevent); pass '[push_event] Event can be pushed';
+
+=pod
 my $aevent  = SDL::ActiveEvent->new(); 
 my $weevent = SDL::ExposeEvent->new(); 
 my $jaevent = SDL::JoyAxisEvent->new();