use Test::More;
use SDL::Rect;
-plan ( tests => 14 );
+plan ( tests => 17 );
use_ok( 'SDL::Video' );
update_rects
flip
set_colors
+ set_palette
/;
+
can_ok ('SDL::Video', @done);
#testing get_video_surface
$value = SDL::Video::set_colors($display, 0, SDL::Color->new(0,0,0));
is( $value , 0, '[set_colors] returns 0 trying to write to 32 bit display' );
+$value = SDL::Video::set_palette($display, SDL_LOGPAL|0x02, 0);
+
+is( $value , 0, '[set_palette] returns 0 trying to write to 32 bit surface' );
+
+
+
my @b_w_colors;
for(my $i=0;$i<256;$i++){
$value = SDL::Video::set_colors($hwdisplay, 0);
is( $value , 0, '[set_colors] returns 0 trying to send empty colors to 8 bit surface' );
+$value = SDL::Video::set_palette($hwdisplay, SDL_LOGPAL|0x02, 0);
+
+is( $value , 0, '[set_palette] returns 0 trying to send empty colors to 8 bit surface' );
$value = SDL::Video::set_colors($hwdisplay, 0, @b_w_colors);
is( $value , 1, '[set_colors] returns '.$value );
+$value = SDL::Video::set_palette($hwdisplay, SDL_LOGPAL|0x02, 0, @b_w_colors );
+
+is( $value , 1, '[set_palette] returns 1' );
+
+
+
+
my @left = qw/
- set_palette
set_gamma
get_gamma_ramp
set_gmmma_ramp