1#!/usr/bin/perl 2# 3# Test writing TIFF images 4# 5# Contributed by Bob Friesenhahn <bfriesen@simple.dallas.tx.us> 6# 7BEGIN { $| = 1; $test=1; print "1..10\n"; } 8END {print "not ok $test\n" unless $loaded;} 9 10use Image::Magick; 11$loaded=1; 12 13require 't/subroutines.pl'; 14 15chdir 't/tiff' || die 'Cd failed'; 16 17# 18# 1) Test 4-bit pseudocolor image 19# 20print("PseudoColor image (4 bits/sample) ...\n"); 21testReadWrite( 'input_16.tiff', 22 'output_16.tiff', 23 q//, 24 '58a82998d620aba54b86ab8dca7cbfeb726f3e86842369d5a0292a8522e95dab'); 25 26# 27# 2) Test 8-bit pseudocolor image 28# 29++$test; 30print("PseudoColor image (8 bits/sample) ...\n"); 31testReadWrite( 'input_256.tiff', 32 'output_256.tiff', 33 q//, 34 'ec6408aba63b43dfc594b4bd766e43457754bb2382a02c170e3d085366e9a6f4', 35 '59c97ab49c16b8664f1362242548399ad9e902b96959db98540ec820484380b1'); 36 37# 38# 3) Test 4-bit pseudocolor + matte channel image 39# 40++$test; 41print("PseudoColor image (4 bits/sample + matte channel) ...\n"); 42testReadWrite( 'input_16_matte.tiff', 43 'output_16_matte.tiff', 44 q//, 45 '58a82998d620aba54b86ab8dca7cbfeb726f3e86842369d5a0292a8522e95dab' ); 46 47# 48# 4) Test 8-bit pseudocolor + matte channel image 49# 50++$test; 51print("PseudoColor image (8 bits/sample + matte channel) ...\n"); 52testReadWrite( 'input_256_matte.tiff', 53 'output_256_matte.tiff', 54 q//, 55 '824af58cdd8a8accffee3dab1ed9d28b34a8b183d3e5f5f13caeaab03bcadd13', 56 '64b8429356cf9ea2b717faaa28a85b0f7ca174ea1a72063c1d4b2270084e4881' ); 57 58# 59# 5) Test truecolor image 60# 61++$test; 62print("TrueColor image (8 bits/sample) ...\n"); 63testReadWrite( 'input_truecolor.tiff', 64 'output_truecolor.tiff', 65 q/quality=>55/, 66 '2c5f5bcc5168543b807bf50476e472cd38e8d1a7d2c68df91e25ae7cd001166a' ); 67 68# 69# 6) Test monochrome image 70# 71++$test; 72print("Gray image (1 bit per sample) ...\n"); 73testReadWrite( 'input_mono.tiff', 74 'output_mono.tiff', 75 q//, 76 'dedb5873a990158f0e5abdebda8c8dfb32de0be16b2b191fcb476b754e000a7b' ); 77 78# 79# 7) Test gray 4 bit image 80# 81++$test; 82print("Gray image (4 bits per sample) ...\n"); 83testReadWrite( 'input_gray_4bit.tiff', 84 'output_gray_4bit.tiff', 85 q//, 86 '3d58e49ad202f2b171214f7a0e8ebdc2ac2c7e45b68a2249502f9339ca7efc6e' ); 87 88# 89# 8) Test gray 8 bit image 90# 91++$test; 92print("Gray image (8 bits per sample) ...\n"); 93testReadWrite( 'input_gray_8bit.tiff', 94 'output_gray_8bit.tiff', 95 q//, 96 '76f4dd783661899ede132a87a7c68132462d0a60efe92906388c3aca1fb76130' ); 97 98# 99# 9) Test gray 4 bit image (with matte channel) 100# 101++$test; 102print("Gray image (4 bits per sample + matte channel) ...\n"); 103testReadWrite( 'input_gray_4bit_matte.tiff', 104 'output_gray_4bit_matte.tiff', 105 q//, 106 '817ebd9cb521eca754aa3add8100be1b7865dc54510b830d67a57c254832d3d5' ); 107 108# 109# 10) Test gray 8 bit image (with matte channel) 110# 111++$test; 112print("Gray image (8 bits per sample + matte channel) ...\n"); 113testReadWrite( 'input_gray_8bit_matte.tiff', 114 'output_gray_8bit_matte.tiff', 115 q//, 116 '30206f5082b53a8f81d1b0e5dfec94b3513b15ee3fe87fb646a7fd5bf9c94c04' ); 117