X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2FsurfaceML.t;h=7ece8a3afc0a63d1fbbe28baf513ec1cdb16dbf9;hb=1ca91531344215fe5c1c1a560fd5292d5eee207e;hp=a459e5277df1b08209fb89021049b235d3266b26;hpb=57450fae6adb3bf9f606f7c24235dfa023da1d71;p=sdlgit%2FSDL_perl.git

diff --git a/t/surfaceML.t b/t/surfaceML.t
index a459e52..7ece8a3 100644
--- 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,