Fixed the pod path in archive

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

diff --git a/t/core_palette.t b/t/core_palette.t
index a3a16ff..a792614 100644 (file)
--- a/t/core_palette.t
+++ b/t/core_palette.t
@@ -1,7 +1,7 @@
 #!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 /); 
@@ -10,7 +10,7 @@ use SDL;
 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 );