13ed852eea50f9d4cd633efb8c2b054b8e33c253cristy#!/usr/bin/perl 23ed852eea50f9d4cd633efb8c2b054b8e33c253cristy# 33ed852eea50f9d4cd633efb8c2b054b8e33c253cristy# Test write image method on JBIG image 43ed852eea50f9d4cd633efb8c2b054b8e33c253cristy# 53ed852eea50f9d4cd633efb8c2b054b8e33c253cristy# Contributed by Bob Friesenhahn <bfriesen@simple.dallas.tx.us> 63ed852eea50f9d4cd633efb8c2b054b8e33c253cristy# 73ed852eea50f9d4cd633efb8c2b054b8e33c253cristyBEGIN { $| = 1; $test=1; print "1..1\n"; } 83ed852eea50f9d4cd633efb8c2b054b8e33c253cristyEND {print "not \n" unless $loaded;} 93ed852eea50f9d4cd633efb8c2b054b8e33c253cristy 103ed852eea50f9d4cd633efb8c2b054b8e33c253cristyuse Image::Magick; 113ed852eea50f9d4cd633efb8c2b054b8e33c253cristy$loaded=1; 123ed852eea50f9d4cd633efb8c2b054b8e33c253cristy 133ed852eea50f9d4cd633efb8c2b054b8e33c253cristyrequire 't/subroutines.pl'; 143ed852eea50f9d4cd633efb8c2b054b8e33c253cristy 153ed852eea50f9d4cd633efb8c2b054b8e33c253cristychdir 't/jbig' || die 'Cd failed'; 163ed852eea50f9d4cd633efb8c2b054b8e33c253cristy 173ed852eea50f9d4cd633efb8c2b054b8e33c253cristytestReadWrite( 'input.jbig', 183ed852eea50f9d4cd633efb8c2b054b8e33c253cristy 'output.jbig', 193ed852eea50f9d4cd633efb8c2b054b8e33c253cristy '', 203ed852eea50f9d4cd633efb8c2b054b8e33c253cristy 'f7047e83432fbef872f3034a19efb95aa3b241d0be228ae0ccdc7814a9e27811' ); 213ed852eea50f9d4cd633efb8c2b054b8e33c253cristy 223ed852eea50f9d4cd633efb8c2b054b8e33c253cristy$test=0; # Keep perl from complaining 23