X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fapppm.t;h=e583db07a337e95d94e353d0db9fe0d433d380ea;hb=d345ba03154eec37e50e43fda96ebb5ac24df2e9;hp=c577511184b462aa6b01ecd4b5b6a91a9026cf4e;hpb=bfd90409c307d445ed6fec5cce6344b1e3d1be05;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);
+