From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Sun, 27 Sep 2009 14:02:56 +0000 (-0400)
Subject: Added graphical test for app
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1ca91531344215fe5c1c1a560fd5292d5eee207e;p=sdlgit%2FSDL_perl.git

Added graphical test for app
---

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