| #!/usr/bin/perl |
| # |
| # Test writing files using zlib-based compression |
| # |
| # Contributed by Bob Friesenhahn <bfriesen@simple.dallas.tx.us> |
| # |
| BEGIN { $| = 1; $test=1; print "1..1\n"; } |
| END {print "not ok $test\n" unless $loaded;} |
| |
| use Image::Magick; |
| $loaded=1; |
| |
| require 't/subroutines.pl'; |
| |
| chdir 't/zlib' || die 'Cd failed'; |
| |
| # |
| # 1) Test writing Zip-compressed MIFF |
| # |
| |
| testReadWrite( 'input.miff', |
| 'output.miff', |
| q/compression=>'Zip'/, |
| 'd0b17026dc758a4088c96bc0f21a2bf14e3ab4af8a35638129f7731f2f1cbe7e' ); |
| |
| $test = 0; # Quench PERL compliaint |
| |