| #!/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//, |
| '7e704fc1a99118630a92374ba27adf5baf69f30019016be2ed70eac79629e8b4'); |
| |
| # |
| # 2) Test 8-bit pseudocolor image |
| # |
| ++$test; |
| print("PseudoColor image (8 bits/sample) ...\n"); |
| testReadWrite( 'input_256.tiff', |
| 'output_256.tiff', |
| q//, |
| '1280e7ed7094aaae47c0be1cb0b6d33660e59483a5500f5f40e34940346f7847'); |
| |
| # |
| # 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//, |
| '7e704fc1a99118630a92374ba27adf5baf69f30019016be2ed70eac79629e8b4' ); |
| |
| # |
| # 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//, |
| 'f3dc959e76f722bbc0a4338e2ed6650d73be3a81774c55210118531333fe6daa' ); |
| |
| # |
| # 5) Test truecolor image |
| # |
| ++$test; |
| print("TrueColor image (8 bits/sample) ...\n"); |
| testReadWrite( 'input_truecolor.tiff', |
| 'output_truecolor.tiff', |
| q/quality=>55/, |
| '359291f6da6c9118bef6d75604be979b3267e4df0716e1bfc357f13cafd0acb8' ); |
| |
| # |
| # 6) Test monochrome image |
| # |
| ++$test; |
| print("Gray image (1 bit per sample) ...\n"); |
| testReadWrite( 'input_mono.tiff', |
| 'output_mono.tiff', |
| q//, |
| 'c8c4f812d902693d1de6c74a6cffaaef7506bd868df65cae63b06707f2c9f3ac' ); |
| |
| # |
| # 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//, |
| 'be370e06f1aad47490e88b5212002c89520b07af6764690b3cee4cb9f1343df9' ); |
| |
| # |
| # 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//, |
| '9bd950a80339e260c491025f5c58a21ca70c38e2c498914feda6558bfa1ffe35' ); |
| |
| # |
| # 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//, |
| 'b3bb4c5f125ef81e68c038fe6ff3b1cd932e759bf2555a4d4746074859d90ee3' ); |
| |
| # |
| # 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//, |
| 'c34ac18bc2c04aa5d2577c579a620a1223e2249018ed6303cf08282f578d59c9' ); |