Make test pass

[sdlgit/SDL_perl.git] / t / core_surface.t

diff --git a/t/core_surface.t b/t/core_surface.t
index 143a791..958df3e 100644 (file)
--- 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';