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');
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);