1 #!/usr/bin/perl 2 # 3 # Test read image method on non-interlaced JPEG. 4 # 5 # Contributed by Bob Friesenhahn <bfriesen (at] simple.dallas.tx.us> 6 # 7 BEGIN { $| = 1; $test=1; print "1..2\n"; } 8 END {print "not ok $test\n" unless $loaded;} 9 use Image::Magick; 10 $loaded=1; 11 12 require 't/subroutines.pl'; 13 14 chdir 't/jpeg' || die 'Cd failed'; 15 16 # 17 # 1) Test non-interlaced image read 18 # 19 print( "Non-interlaced JPEG ...\n" ); 20 testReadCompare('input.jpg', '../reference/jpeg/read_non_interlaced.miff', q//, 0.00001, 0.12); 21 22 # 23 # 2) Test plane-interlaced image read 24 # 25 ++$test; 26 print( "Plane-interlaced JPEG ...\n" ); 27 testReadCompare('input_plane.jpg', '../reference/jpeg/read_plane_interlaced.miff', q//, 0.00001, 0.12); 28 29 30