1#!/usr/bin/perl 2# 3# Test reading JPEG images 4# 5# Contributed by Bob Friesenhahn <bfriesen@simple.dallas.tx.us> 6# 7BEGIN { $| = 1; $test=1; print "1..2\n"; } 8END {print "not ok $test\n" unless $loaded;} 9 10use Image::Magick; 11use lib '/home/cristy/ImageMagick-7.0.8-27/PerlMagick'; 12$loaded=1; 13 14require 't/subroutines.pl'; 15 16chdir 't/jpeg' || die 'Cd failed'; 17 18# 19# 1) Test with non-interlaced image 20# 21print( "Non-interlaced JPEG ...\n" ); 22testReadWriteCompare( 'input.jpg', 'output_tmp.jpg', 23 '../reference/jpeg/write_non_interlaced.miff', 24 q//, q//, 0.0001, 0.05); 25 26# 27# 2) Test with plane-interlaced image 28# 29++$test; 30print( "Plane-interlaced JPEG ...\n" ); 31testReadWriteCompare( 'input.jpg', 'output_plane_tmp.jpg', 32 '../reference/jpeg/write_plane_interlaced.miff', 33 q//, q//, 0.0001, 0.05); 34 35