From: Leon Brocard <acme@astray.com>
Date: Fri, 16 Oct 2009 07:12:51 +0000 (+0100)
Subject: make it slightly slower so that we can see if it is working
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=94538a03c3f46079de42ad51617684aaf5b2b610;p=sdlgit%2FSDL_perl.git

make it slightly slower so that we can see if it is working
---

diff --git a/t/intergation1.t b/t/intergation1.t
index 68a6f92..1947864 100644
--- a/t/intergation1.t
+++ b/t/intergation1.t
@@ -87,8 +87,9 @@ my $app  = SDL::App->new(-title => "Test", -width => 640, -height => 480, -init
 	$app->fill_rect($rect, $blue);
 	$app->fill_rect($grect, $col);
 
-        SDL::Surface::update_rect($app, 0, 0, 0, 0);
+        SDL::Surface::update_rect($app, 0, 0, 640, 480);
+        SDL::Delay(10);
 	}
 
-	  sleep(1);
+	  SDL::Delay(100);