Move display format and display format alpha out of Surface.xs

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

diff --git a/t/surfaceML.t b/t/surfaceML.t
index a459e52..18b0d98 100644 (file)
--- a/t/surfaceML.t
+++ b/t/surfaceML.t
@@ -36,30 +36,37 @@ use strict;
 
 use Test::More;
 
+# Don't run tests for installs
+ unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
+         plan( skip_all => "Author tests not required for installation" );
+         }
+
+
 # This is stolen for Gabor's examples in padre's SDL plugin
 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);
 
 }