Fixed the pod path in archive

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

diff --git a/t/core_overlay.t b/t/core_overlay.t
index 2b0660b..f385ad2 100644 (file)
--- a/t/core_overlay.t
+++ b/t/core_overlay.t
@@ -6,13 +6,18 @@ use SDL;
 
 use_ok('SDL::Overlay');
 
-SDL::Init(SDL_INIT_VIDEO);
+SDL::init(SDL_INIT_VIDEO);
 
-my $display = SDL::SetVideoMode(640,480,32,0);
+my $display = SDL::SetVideoMode(640,480,32, SDL_SWSURFACE );
 
-my $overlay = SDL::Overlay->new( 0, 0, 0, $display);
+my $overlay = SDL::Overlay->new( 100, 100, SDL_YV12_OVERLAY, $display);
 
 isa_ok( $overlay, 'SDL::Overlay');
 
+$overlay = undef;
+
+$display = undef;
+
+