forked from pool/perl-SDL
Oliver Kurz
1c1137c756
- added patches https://github.com/PerlGameDev/SDL/pull/309 + perl-SDL-gcc15.patch + perl-SDL-fix-tests.patch OBS-URL: https://build.opensuse.org/request/show/1281118 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-SDL?expand=0&rev=32
14 lines
594 B
Diff
14 lines
594 B
Diff
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' );
|