forked from pool/perl-SDL
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' );
|