From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Mon, 9 Nov 2009 20:11:00 +0000 (-0500)
Subject: Fixed up tests for now
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d0ea231249bdd8c559ab3c7e9ac42e793cec745a;p=sdlgit%2FSDL_perl.git

Fixed up tests for now
---

diff --git a/lib/SDL/Events.pm b/lib/SDL/Events.pm
index 558f24e..7f25ef4 100644
--- a/lib/SDL/Events.pm
+++ b/lib/SDL/Events.pm
@@ -1,7 +1,6 @@
 package SDL::Events;
 use strict;
 use warnings;
-use SDL::keysym;
 require Exporter;
 require DynaLoader;
 our @ISA = qw(Exporter DynaLoader);
diff --git a/t/00-load.t b/t/00-load.t
index 66b42a3..9f946ab 100644
--- a/t/00-load.t
+++ b/t/00-load.t
@@ -16,20 +16,6 @@ SDL::Overlay
 SDL::Rect
 SDL::Events 
 SDL::Event 
-SDL::ActiveEvent 
-SDL::ExposeEvent 
-SDL::JoyAxisEvent 
-SDL::JoyBallEvent 
-SDL::JoyButtonEvent 
-SDL::JoyHatEvent 
-SDL::KeyboardEvent 
-SDL::keysym 
-SDL::MouseButtonEvent 
-SDL::MouseMotionEvent 
-SDL::QuitEvent 
-SDL::ResizeEvent 
-SDL::SysWMEvent 
-SDL::UserEvent    			
 /;
     plan tests => scalar @modules;
 
diff --git a/t/core_events.t b/t/core_events.t
index 1415ddc..68856a2 100644
--- a/t/core_events.t
+++ b/t/core_events.t
@@ -3,19 +3,6 @@ use strict;
 use SDL;
 use SDL::Event;
 use SDL::Events;
-use SDL::ExposeEvent;
-use SDL::JoyAxisEvent;
-use SDL::JoyBallEvent;
-use SDL::JoyButtonEvent;
-use SDL::JoyHatEvent;
-use SDL::KeyboardEvent;
-use SDL::keysym;
-use SDL::MouseButtonEvent;
-use SDL::MouseMotionEvent;
-use SDL::QuitEvent;
-use SDL::ResizeEvent;
-use SDL::SysWMEvent;
-use SDL::UserEvent;
 use SDL::Video;
 use Devel::Peek;
 use Test::More;
@@ -48,6 +35,8 @@ syswm
 
 can_ok( 'SDL::Events',           @done); 
 can_ok( 'SDL::Event',            @done_event);
+
+=pod
 can_ok( 'SDL::ExposeEvent',      qw/type/);
 can_ok( 'SDL::JoyAxisEvent',     qw/type which axis value/);
 can_ok( 'SDL::JoyBallEvent',     qw/type which ball xrel yrel/);
@@ -61,6 +50,7 @@ can_ok( 'SDL::QuitEvent',        qw/type/);
 can_ok( 'SDL::ResizeEvent',      qw/type w h/);
 can_ok( 'SDL::SysWMEvent',       qw/type msg/);
 can_ok( 'SDL::UserEvent',        qw/type code data1 data2/);
+=cut 
 
 SDL::init(SDL_INIT_VIDEO);