Added test for time

[sdlgit/SDL_perl.git] / t / core_video.t

diff --git a/t/core_video.t b/t/core_video.t
index 3159925..5a19ad8 100644 (file)
--- a/t/core_video.t
+++ b/t/core_video.t
@@ -27,17 +27,18 @@ my @done =
        set_colors
        set_palette
        set_gamma
+       set_gamma_ramp
        /;
 
 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 );
 
 if(!$display){
-        plan skip_all => 'Couldn\'t set video mode: '. SDL::GetError();
+        plan skip_all => 'Couldn\'t set video mode: '. SDL::geterror();
     }
 
 #diag('Testing SDL::Video');
@@ -76,9 +77,8 @@ $value = SDL::Video::set_palette($display, SDL_LOGPAL|SDL_PHYSPAL, 0);
 
 is(  $value , 0,  '[set_palette] returns 0 trying to write to 32 bit surface'  );
 
-my @redtable = (0,0,0,0);
-
-SDL::Video::set_gamma_ramp( \@redtable , [0,1,2,3], [2,3,4,5]); pass '[set_gamma_ramp] ran';
+my $zero = [0,0,0,0]; 
+SDL::Video::set_gamma_ramp($zero, $zero, $zero);  pass '[set_gamma_ramp] ran';
 
 SDL::Video::set_gamma( 1.0, 1.0, 1.0 ); pass '[set_gamma] ran ';
 
@@ -90,7 +90,7 @@ for(my $i=0;$i<256;$i++){
 my $hwdisplay = SDL::Video::set_video_mode(640,480,8, SDL_HWSURFACE );
 
 if(!$hwdisplay){
-        plan skip_all => 'Couldn\'t set video mode: '. SDL::GetError();
+        plan skip_all => 'Couldn\'t set video mode: '. SDL::geterror();
     }
 
 $value = SDL::Video::set_colors($hwdisplay, 0);
@@ -114,7 +114,6 @@ is(  $value , 1,  '[set_palette] returns 1'  );
 
 my @left = qw/
        get_gamma_ramp
-       set_gmmma_ramp
        map_RGB
        map_RGBA
        get_RGB