From: Leon Brocard <acme@astray.com>
Date: Fri, 16 Oct 2009 06:59:53 +0000 (+0100)
Subject: Make test pass
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5ae1d2eef5903cd44b5afce4359f5fa4c665c8cc;p=sdlgit%2FSDL_perl.git

Make test pass
---

diff --git a/t/core_surface.t b/t/core_surface.t
index 143a791..958df3e 100644
--- a/t/core_surface.t
+++ b/t/core_surface.t
@@ -36,7 +36,7 @@ my $rect = SDL::Rect->new(0,0, $app->w, $app->h);
 $app->fill_rect($rect,$blue);
 
 
-print 'This is in surface : '.SDL::Surface::get_pixels($app);
+diag('This is in surface : '.SDL::Surface::get_pixels($app));
 
 pass 'did this pass';