Home | History | Annotate | Download | only in zlib
      1 #!/usr/bin/perl
      2 #
      3 # Test writing files using zlib-based compression
      4 #
      5 # Contributed by Bob Friesenhahn <bfriesen (at] simple.dallas.tx.us>
      6 #
      7 BEGIN { $| = 1; $test=1; print "1..1\n"; }
      8 END {print "not ok $test\n" unless $loaded;}
      9 
     10 use Image::Magick;
     11 $loaded=1;
     12 
     13 require 't/subroutines.pl';
     14 
     15 chdir 't/zlib' || die 'Cd failed';
     16 
     17 #
     18 # 1) Test writing Zip-compressed MIFF
     19 #
     20 
     21 testReadWrite( 'input.miff',
     22   'output.miff',
     23   q/compression=>'Zip'/,
     24   'f7b3db46d6f696ea8392f0ad0be945dd502a806e2c1e9c082efef517191758f7' );
     25 
     26 $test = 0;  # Quench PERL compliaint
     27 
     28