Added graphical test for app

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

diff --git a/t/surfaceML.t b/t/surfaceML.t
index a459e52..7ece8a3 100644 (file)
--- a/t/surfaceML.t
+++ b/t/surfaceML.t
@@ -36,15 +36,21 @@ 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,