From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

BKB / Image-PNG-Libpng-0.58_01 / t / Const.t 

            

              
1
2
3
4
5
6
7
8
9
10

              
use warnings;
use strict;
use Test::More tests => 3;
BEGIN { use_ok ('Image::PNG::Const'); };
use Image::PNG::Const ':all';
ok (PNG_COLOR_MASK_ALPHA == 4, "Got a test constant");
ok (PNG_COLOR_TYPE_RGBA == 6, "Test an or'd constant");