File perl-SDL-fix-tests.patch of Package perl-SDL

Index: SDL-2.548/t/core_surface.t
===================================================================
--- SDL-2.548.orig/t/core_surface.t
+++ SDL-2.548/t/core_surface.t
@@ -51,7 +51,7 @@ is( $image->h, 32, 'image has height' );
 
 my $pixel_format = $image->format;
 isa_ok( $pixel_format, 'SDL::PixelFormat' );
-is( $pixel_format->BitsPerPixel,  8,   ' BitsPerPixel' );
+is( $pixel_format->BitsPerPixel,  4,   ' BitsPerPixel' );
 is( $pixel_format->BytesPerPixel, 1,   ' BytesPerPixel' );
 is( $pixel_format->Rloss,         8,   ' Rloss' );
 is( $pixel_format->Gloss,         8,   ' Gloss' );