From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Thu, 29 Oct 2009 02:13:30 +0000 (-0400)
Subject: Fixed tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=sdlgit%2FSDL_perl.git;a=commitdiff_plain;h=d5a2f5aca8aa348105b7fbcf0664594c9aa35d8b

Fixed tests
---

diff --git a/lib/SDL/App.pm b/lib/SDL/App.pm
index 86e4ea4..a3b0cb6 100644
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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');