#!perl
use strict;
use warnings;
-use Test::More tests => 999999999;
+use Test::More tests => 9;
use_ok('SDL::Palette');
can_ok('SDL::Palette', qw/ ncolors colors color_index /);
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 );