1#!/usr/bin/perl 2# 3# Test read image method on non-interlaced JPEG. 4# 5# Contributed by Bob Friesenhahn <bfriesen@simple.dallas.tx.us> 6# 7BEGIN { $| = 1; $test=1; print "1..11\n"; } 8END {print "not ok $test\n" unless $loaded;} 9use Image::Magick; 10$loaded=1; 11 12require 't/subroutines.pl'; 13 14chdir 't/jng' || die 'Cd failed'; 15 16# 17# 1) Gray 18# 19testReadCompare('input_gray.jng', '../reference/jng/read_gray.miff', q//, 0.003, 0.22); 20# 21# 2) Gray with IDAT encoding 22# 23++$test; 24testReadCompare('input_gray_idat.jng', '../reference/jng/read_gray_idat.miff', q//, 0.003, 0.22); 25# 26# 3) Gray with JDAA encoding 27# 28++$test; 29testReadCompare('input_gray_jdaa.jng', '../reference/jng/read_gray_jdaa.miff', q//, 0.003, 0.22); 30# 31# 4) Gray Progressive 32# 33++$test; 34testReadCompare('input_gray_prog.jng', '../reference/jng/read_gray_prog.miff', q//, 0.003, 0.22); 35# 36# 5) Gray progressive with IDAT encoding 37# 38++$test; 39testReadCompare('input_gray_prog_idat.jng', '../reference/jng/read_gray_prog_idat.miff', q//, 0.003, 0.22); 40# 41# 6) Gray progressive with JDAA encoding 42# 43++$test; 44testReadCompare('input_gray_prog_jdaa.jng', '../reference/jng/read_gray_prog_jdaa.miff', q//, 0.003, 0.22); 45# 46# 7) Color with JDAA encoding 47# 48++$test; 49testReadCompare('input_idat.jng', '../reference/jng/read_idat.miff', q//, 0.003, 0.22); 50# 51# 8) Color with JDAA encoding 52# 53++$test; 54testReadCompare('input_jdaa.jng', '../reference/jng/read_jdaa.miff', q//, 0.003, 0.22); 55# 56# 9) Color progressive 57# 58++$test; 59testReadCompare('input_prog.jng', '../reference/jng/read_prog.miff', q//, 0.003, 0.22);# 60# 61# 10) Color progressive with IDAT encoding 62# 63++$test; 64testReadCompare('input_prog_idat.jng', '../reference/jng/read_prog_idat.miff', q//, 0.003, 0.22); 65# 66# 11) Color progressive with JDAA encoding 67# 68++$test; 69testReadCompare('input_prog_jdaa.jng', '../reference/jng/read_prog_jdaa.miff', q//, 0.003, 0.22); 70