blob: 915e13ab564a2371a8e0041f7e5ad546ae28c475 [file] [log] [blame]
cristy3ed852e2009-09-05 21:47:34 +00001#!/usr/bin/perl
2#
3# Test writing files using bzlib-based compression
4#
5# Contributed by Bob Friesenhahn <bfriesen@simple.dallas.tx.us>
6#
7BEGIN { $| = 1; $test=1; print "1..1\n"; }
8END {print "not ok $test\n" unless $loaded;}
9
10use Image::Magick;
11$loaded=1;
12
13require 't/subroutines.pl';
14
15chdir 't/bzlib' || die 'Cd failed';
16
17#
18# Test writing BZip-compressed MIFF
19#
20
21testReadWrite( 'input.miff',
22 'output.miff',
23 q/compression=>'BZip'/,
cristy11165b72011-09-28 17:26:49 +000024 '6a4a257921582768b774aeeac549b7c0c0b51f665395eddf921cce53a0ad2a33' );
cristy3ed852e2009-09-05 21:47:34 +000025
26$test = 0; # Quench PERL compliaint
27