• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
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