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..3\n"; }
8END {print "not ok $test\n" unless $loaded;}
9use Image::Magick;
10$loaded=1;
11
12require 't/subroutines.pl';
13
14chdir 't/openjp2' || die 'Cd failed';
15
16#
17# 1) JPEG-2000 JP2 File Format Syntax (ISO/IEC 15444-1)
18#
19print( "JPEG-2000 JP2 File Format Syntax ...\n" );
20testReadCompare('input.jp2', '../reference/openjp2/read_jp2.miff', q//, 0.0, 0.0);
21
22#
23# 2) JPEG-2000 Code Stream Syntax (ISO/IEC 15444-1)
24#
25++$test;
26print( " ...\n" );
27testReadCompare('input.jpc', '../reference/openjp2/read_jpc.miff', q//, 0.0, 0.0);
28
29#
30# 3) JPEG-2000 VM Format
31#
32++$test;
33print( " ...\n" );
34testReadCompare('input.j2k', '../reference/openjp2/read_j2k.miff', q//, 0.0, 0.0);
35