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);
}