1 #!/usr/bin/perl 2 # 3 # Test reading JPEG images 4 # 5 # Contributed by Bob Friesenhahn <bfriesen (at] simple.dallas.tx.us> 6 # 7 BEGIN { $| = 1; $test=1; print "1..11\n"; } 8 END {print "not ok $test\n" unless $loaded;} 9 10 use Image::Magick; 11 $loaded=1; 12 13 require 't/subroutines.pl'; 14 15 chdir 't/jng' || die 'Cd failed'; 16 17 testReadWriteCompare( 'input_gray_idat.jng', 'gray_idat_tmp.jng', '../reference/jng/write_gray_idat.miff', q//, q//, 0.06, 0.36); 18 ++$test; 19 testReadWriteCompare( 'input_gray_jdaa.jng', 'gray_jdaa_tmp.jng', '../reference/jng/write_gray_jdaa.miff', q//, q//, 0.06, 0.36); 20 ++$test; 21 testReadWriteCompare( 'input_gray.jng', 'gray_tmp.jng', '../reference/jng/write_gray.miff', q//, q//, 0.06, 0.36); 22 ++$test; 23 testReadWriteCompare( 'input_gray_prog_idat.jng', 'gray_prog_idat_tmp.jng', '../reference/jng/write_gray_prog_idat.miff', q//, q//, 0.06, 0.36); 24 ++$test; 25 testReadWriteCompare( 'input_gray_prog_jdaa.jng', 'gray_prog_jdaa_tmp.jng', '../reference/jng/write_gray_prog_jdaa.miff', q//, q//, 0.06, 0.36); 26 ++$test; 27 testReadWriteCompare( 'input_gray_prog.jng', 'gray_prog_tmp.jng', '../reference/jng/write_gray_prog.miff', q//, q//, 0.06, 0.36); 28 ++$test; 29 testReadWriteCompare( 'input_idat.jng', 'idat_tmp.jng', '../reference/jng/write_idat.miff', q//, q//, 0.06, 0.36); 30 ++$test; 31 testReadWriteCompare( 'input_jdaa.jng', 'jdaa_tmp.jng', '../reference/jng/write_jdaa.miff', q//, q//, 0.06, 0.36); 32 ++$test; 33 testReadWriteCompare( 'input_prog_idat.jng', 'prog_idat_tmp.jng', '../reference/jng/write_prog_idat.miff', q//, q//, 0.06, 0.36); 34 ++$test; 35 testReadWriteCompare( 'input_prog_jdaa.jng', 'prog_jdaa_tmp.jng', '../reference/jng/write_prog_jdaa.miff', q//, q//, 0.06, 0.36); 36 ++$test; 37 testReadWriteCompare( 'input_prog.jng', 'prog_tmp.jng', '../reference/jng/write_prog.miff', q//, q//, 0.06, 0.36); 38 39
