X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fapppm.t;h=e583db07a337e95d94e353d0db9fe0d433d380ea;hb=fd90b841f2735a66ab950b83037589de64422fca;hp=c577511184b462aa6b01ecd4b5b6a91a9026cf4e;hpb=7b6a53a1f5064ca5b8ab0243f7bcf6209e6bf5a4;p=sdlgit%2FSDL_perl.git

diff --git a/t/apppm.t b/t/apppm.t
index c577511..e583db0 100644
--- 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);
+