Fixed tests

diff --git a/lib/SDL/App.pm b/lib/SDL/App.pm
index 86e4ea4..a3b0cb6 100644 (file)
--- a/lib/SDL/App.pm
+++ b/lib/SDL/App.pm
@@ -62,7 +62,7 @@ sub new {
         my $init = defined $options{-init} ? $options{-init} :
        SDL_INIT_EVERYTHING();
        
-        SDL::Init($init);
+        SDL::init($init);
 
        #SDL::Init(SDL::SDL_INIT_EVERYTHING());
        

diff --git a/t/core_overlay.t b/t/core_overlay.t
index b80fdba..f385ad2 100644 (file)
--- a/t/core_overlay.t
+++ b/t/core_overlay.t
@@ -6,7 +6,7 @@ use SDL;
 
 use_ok('SDL::Overlay');
 
-SDL::Init(SDL_INIT_VIDEO);
+SDL::init(SDL_INIT_VIDEO);
 
 my $display = SDL::SetVideoMode(640,480,32, SDL_SWSURFACE );
 

diff --git a/t/core_palette.t b/t/core_palette.t
index c23cd2f..a792614 100644 (file)
--- a/t/core_palette.t
+++ b/t/core_palette.t
@@ -10,7 +10,7 @@ use SDL;
 use SDL::Surface;
 use SDL::PixelFormat;
 
-SDL::Init(SDL_INIT_VIDEO);
+SDL::init(SDL_INIT_VIDEO);
 
 my $display = SDL::SetVideoMode(640,480,32, SDL_SWSURFACE );
 

diff --git a/t/core_surface.t b/t/core_surface.t
index 3fe549e..51913df 100644 (file)
--- a/t/core_surface.t
+++ b/t/core_surface.t
@@ -99,4 +99,4 @@ diag( 'This is in surface : ' . SDL::Surface::get_pixels($app) );
 
 pass 'did this pass';
 
-SDL::Delay(100);
+SDL::delay(100);

diff --git a/t/core_video.t b/t/core_video.t
index f9a132e..18afc7e 100644 (file)
--- a/t/core_video.t
+++ b/t/core_video.t
@@ -33,7 +33,7 @@ my @done =
 can_ok ('SDL::Video', @done); 
 
 #testing get_video_surface
-SDL::Init(SDL_INIT_VIDEO);                                                                          
+SDL::init(SDL_INIT_VIDEO);                                                                          
                                                                                                     
 my $display = SDL::Video::set_video_mode(640,480,32, SDL_SWSURFACE );
 

diff --git a/t/intergation1.t b/t/intergation1.t
index eb9cd98..aefc51a 100644 (file)
--- a/t/intergation1.t
+++ b/t/intergation1.t
@@ -79,8 +79,8 @@ can_ok ('SDL::App', qw/
        SDL::FillRect( $app, $grect, $col_pixel );
 
         SDL::UpdateRect($app, 0, 0, 640, 480);
-        SDL::Delay(10);
+        SDL::delay(10);
        }
 
-         SDL::Delay(100);
+         SDL::delay(100);
 

diff --git a/t/mixerpm.t b/t/mixerpm.t
index 14a4e4d..960d74a 100644 (file)
--- a/t/mixerpm.t
+++ b/t/mixerpm.t
@@ -44,7 +44,7 @@ sub check_fail_mixer
        my $ret = 0;
        eval
        {
-               $ret = SDL::Init(SDL_INIT_AUDIO);
+               $ret = SDL::init(SDL_INIT_AUDIO);
        };
        return 1 if ($@ or $ret == -1);
        return 0;

diff --git a/t/timerpm.t b/t/timerpm.t
index 51d81d5..8f0a337 100644 (file)
--- a/t/timerpm.t
+++ b/t/timerpm.t
@@ -45,7 +45,7 @@ sub check_fail_timer
        my $ret = 0;
        eval
        {
-               $ret = SDL::Init(SDL_INIT_TIMER);
+               $ret = SDL::init(SDL_INIT_TIMER);
        };
        return 1 if ($@ or $ret == -1);
        return 0;
@@ -72,5 +72,5 @@ my $timer = new SDL::Timer
 
 isa_ok($timer, 'SDL::Timer');
 
-SDL::Delay(100);
+SDL::delay(100);
 is ($fired, 1,'timer fired once');