X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcore_video.t;h=3159925278d5015221f1855e3f28a0119f3f16f5;hb=8b7c3ac88365da7f48ecf38e313ccbb9db13161c;hp=de5f141e90eb54dd8a2785238eda9d29673e1700;hpb=5e9f278489c996f05eedf04171285f3f82051a7d;p=sdlgit%2FSDL_perl.git

diff --git a/t/core_video.t b/t/core_video.t
index de5f141..3159925 100644
--- a/t/core_video.t
+++ b/t/core_video.t
@@ -76,7 +76,9 @@ $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'  );
 
-SDL::Video::set_gamma_ramp( 0, 0, 0 ); pass '[set_gamma_ramp] ran';
+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';
 
 SDL::Video::set_gamma( 1.0, 1.0, 1.0 ); pass '[set_gamma] ran ';