114 lines
2.7 KiB
Perl
114 lines
2.7 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
# Test writing TIFF images
|
|
#
|
|
# Contributed by Bob Friesenhahn <bfriesen@simple.dallas.tx.us>
|
|
#
|
|
BEGIN { $| = 1; $test=1; print "1..10\n"; }
|
|
END {print "not ok $test\n" unless $loaded;}
|
|
|
|
use Image::Magick;
|
|
$loaded=1;
|
|
|
|
require 't/subroutines.pl';
|
|
|
|
chdir 't/tiff' || die 'Cd failed';
|
|
|
|
#
|
|
# 1) Test 4-bit pseudocolor image
|
|
#
|
|
print("PseudoColor image (4 bits/sample) ...\n");
|
|
testReadWrite( 'input_16.tiff',
|
|
'output_16.tiff',
|
|
q//,
|
|
'c33901f8a62814e6c2c1ecca0c7d1c95b3ecb089f4815ab630652e25cae85b44');
|
|
|
|
#
|
|
# 2) Test 8-bit pseudocolor image
|
|
#
|
|
++$test;
|
|
print("PseudoColor image (8 bits/sample) ...\n");
|
|
testReadWrite( 'input_256.tiff',
|
|
'output_256.tiff',
|
|
q//,
|
|
'08fdfd88b1eb09649ef126c1fe5a8c5b958eb941653daa0b3615f1b9db9966df');
|
|
|
|
#
|
|
# 3) Test 4-bit pseudocolor + matte channel image
|
|
#
|
|
++$test;
|
|
print("PseudoColor image (4 bits/sample + matte channel) ...\n");
|
|
testReadWrite( 'input_16_matte.tiff',
|
|
'output_16_matte.tiff',
|
|
q//,
|
|
'c33901f8a62814e6c2c1ecca0c7d1c95b3ecb089f4815ab630652e25cae85b44' );
|
|
|
|
#
|
|
# 4) Test 8-bit pseudocolor + matte channel image
|
|
#
|
|
++$test;
|
|
print("PseudoColor image (8 bits/sample + matte channel) ...\n");
|
|
testReadWrite( 'input_256_matte.tiff',
|
|
'output_256_matte.tiff',
|
|
q//,
|
|
'f28f9d3620babcaf84c61ffbf3f92e83fcc0bc3d5904ac7b8a1318e8d796859f' );
|
|
|
|
#
|
|
# 5) Test truecolor image
|
|
#
|
|
++$test;
|
|
print("TrueColor image (8 bits/sample) ...\n");
|
|
testReadWrite( 'input_truecolor.tiff',
|
|
'output_truecolor.tiff',
|
|
q/quality=>55/,
|
|
'4002f066656ca5cdb12afa067769bfa432b1d45d0278d1c558cf4a64638eaa6e' );
|
|
|
|
#
|
|
# 6) Test monochrome image
|
|
#
|
|
++$test;
|
|
print("Gray image (1 bit per sample) ...\n");
|
|
testReadWrite( 'input_mono.tiff',
|
|
'output_mono.tiff',
|
|
q//,
|
|
'83175f7bcc43fb71212dee254c85e355c18bcd25f35d3b9caba66fff7341fa64' );
|
|
|
|
#
|
|
# 7) Test gray 4 bit image
|
|
#
|
|
++$test;
|
|
print("Gray image (4 bits per sample) ...\n");
|
|
testReadWrite( 'input_gray_4bit.tiff',
|
|
'output_gray_4bit.tiff',
|
|
q//,
|
|
'aff256464aeb39a8fd5498d7e296362a11b827f6700b7ad1342b8be8a6304303' );
|
|
|
|
#
|
|
# 8) Test gray 8 bit image
|
|
#
|
|
++$test;
|
|
print("Gray image (8 bits per sample) ...\n");
|
|
testReadWrite( 'input_gray_8bit.tiff',
|
|
'output_gray_8bit.tiff',
|
|
q//,
|
|
'46542d79a23def43c94f4b07452e2d8466abd73a949569596d23bb7130b850f5' );
|
|
|
|
#
|
|
# 9) Test gray 4 bit image (with matte channel)
|
|
#
|
|
++$test;
|
|
print("Gray image (4 bits per sample + matte channel) ...\n");
|
|
testReadWrite( 'input_gray_4bit_matte.tiff',
|
|
'output_gray_4bit_matte.tiff',
|
|
q//,
|
|
'91a3cb9734b88a1c35cfc439493115818d7f49a2fc7bcadec52b2489da0118f9' );
|
|
|
|
#
|
|
# 10) Test gray 8 bit image (with matte channel)
|
|
#
|
|
++$test;
|
|
print("Gray image (8 bits per sample + matte channel) ...\n");
|
|
testReadWrite( 'input_gray_8bit_matte.tiff',
|
|
'output_gray_8bit_matte.tiff',
|
|
q//,
|
|
'49929da2adbe49c525a7e7f2210187ad496d14d0268c80cddcd201e389fe8171' );
|