Add integration1 test, also updated MANIFEST

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

diff --git a/t/surfaceML.t b/t/surfaceML.t
index 5b304f1..18b0d98 100644 (file)
--- a/t/surfaceML.t
+++ b/t/surfaceML.t
@@ -46,26 +46,27 @@ use Test::More;
 sub surface_leak()
 {
        use SDL;
-       use SDL::Surface;
+       use SDL::App;
        use SDL::Rect;
        use SDL::Color;
 
-       my $window = SDL::Surface->new(
+       my $window = SDL::App->new(
                -width => 640,
                -height => 480,
                -depth => 16,
                -title => 'SDL Demo',
+               -init => SDL_INIT_VIDEO
 
        );
 
-       my $rect = SDL::Rect->new( -height => 10, -width => 20);
+       my $rect = SDL::Rect->new(0,0, 10, 20);
 
-       #my $blue = SDL::Color->new(
-       #       -r => 0x00,
-#              -g => 0x00,
-#              -b => 0xff,
-#      );
-#      $window->fill($rect, $blue);
+       my $blue = SDL::Color->new(
+               -r => 0x00,
+               -g => 0x00,
+               -b => 0xff,
+       );
+       $window->fill($rect, $blue);
        $window->update($rect);
 
 }