Move blit out of Surface.xs, enable BlitSurface

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

diff --git a/t/core_surface.t b/t/core_surface.t
index be98354..298a42d 100644 (file)
--- a/t/core_surface.t
+++ b/t/core_surface.t
@@ -40,7 +40,7 @@ $surface->fill_rect( SDL::Rect->new( 0, 0, 32, 32 ),
 ok( 1, 'Managed to fill_rect' );
 
 my $small_rect = SDL::Rect->new( 0, 0, 64, 64 );
-$image->blit( $small_rect, $surface, $small_rect );
+SDL::BlitSurface($image, $small_rect, $surface, $small_rect );
 ok( 1, 'Managed to blit' );
 
 #my $image_format = $surface->display;