Added missing SDL_Palette XS bindings file.

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

diff --git a/t/apppm.t b/t/apppm.t
index c577511..e583db0 100644 (file)
--- a/t/apppm.t
+++ b/t/apppm.t
@@ -34,6 +34,7 @@ BEGIN {
 }
 
 use strict;
+use SDL;
 use SDL::Config;
 
 use Test::More;
@@ -56,3 +57,9 @@ can_ok ('SDL::App', qw/
        loop
        sync 
        attribute /);
+
+my $app  = SDL::App->new(-title => "Test", -width => 640, -height => 480, -init => SDL_INIT_VIDEO);
+
+        $app->sync;
+         sleep(1);
+