···

       
1
       
1
       
+
       
diff --git a/t/core_surface.t b/t/core_surface.t

     

       
2
       
2
       
+
       
index 897536b6..03efa859 100644

     

       
3
       
3
       
+
       
--- a/t/core_surface.t

     

       
4
       
4
       
+
       
+++ b/t/core_surface.t

     

       
5
       
5
       
+
       
@@ -51,7 +51,10 @@ is( $image->h, 32, 'image has height' );

     

       
6
       
6
       
+
       
 

     

       
7
       
7
       
+
       
 my $pixel_format = $image->format;

     

       
8
       
8
       
+
       
 isa_ok( $pixel_format, 'SDL::PixelFormat' );

     

       
9
       
9
       
+
       
-is( $pixel_format->BitsPerPixel,  8,   ' BitsPerPixel' );

     

       
10
       
10
       
+
       
+# the bitmap has a bitdepth of 4

     

       
11
       
11
       
+
       
+# SDL_classic could not allocate less than full bytes per pixel

     

       
12
       
12
       
+
       
+# sdl12-compat returns the actual bit depth of the image here

     

       
13
       
13
       
+
       
+is( $pixel_format->BitsPerPixel,  4,   ' BitsPerPixel' );

     

       
14
       
14
       
+
       
 is( $pixel_format->BytesPerPixel, 1,   ' BytesPerPixel' );

     

       
15
       
15
       
+
       
 is( $pixel_format->Rloss,         8,   ' Rloss' );

     

       
16
       
16
       
+
       
 is( $pixel_format->Gloss,         8,   ' Gloss' );

     

···

       
30215
       
30215
       
 
       
    patches = [

     

       
30216
       
30216
       
 
       
      # https://github.com/PerlGameDev/SDL/pull/304

     

       
30217
       
30217
       
 
       
      ../development/perl-modules/sdl-modern-perl.patch

     

       
30218
       
30218
       
+
       
      # sdl-compat correctly reports the bit depth of the test image,

     

       
30219
       
30219
       
+
       
      # while SDL_classic rounded to the next byte

     

       
30220
       
30220
       
+
       
      ../development/perl-modules/sdl-compat-bit-depth.patch

     

       
30218
       
30221
       
 
       
      (fetchpatch {

     

       
30219
       
30222
       
 
       
        url = "https://aur.archlinux.org/cgit/aur.git/plain/surface-xs-declare-calc-offset-earlier.diff?h=perl-sdl&id=d4b6da86d33046cde0e84fa2cd6eaccff1667cab";

     

       
30220
       
30223
       
 
       
        hash = "sha256-dQ2O4dO18diSAilSZrZj6II+mBuKKI3cx9fR1SJqUvo=";