← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/graphicsmagick/intrepid

« back to all changes in this revision

Viewing changes to PerlMagick/t/jpeg/write.t

  • Committer: Bazaar Package Importer
  • Author(s): Daniel Kobras
  • Date: 2006-05-06 16:28:08 UTC
  • Revision ID: james.westby@ubuntu.com-20060506162808-vt2ni3r5nytcszms
Tags: upstream-1.1.7
Import upstream version 1.1.7

Show diffs side-by-side

added added

removed removed

Lines of Context:
PerlMagick/t/jpeg/write.t
 
1
#!/usr/local/bin/perl
 
2
# Copyright (C) 2003 GraphicsMagick Group
 
3
# Copyright (C) 2002 ImageMagick Studio
 
4
# Copyright (C) 1991-1999 E. I. du Pont de Nemours and Company
 
5
#
 
6
# This program is covered by multiple licenses, which are described in
 
7
# Copyright.txt. You should have received a copy of Copyright.txt with this
 
8
# package; otherwise see http://www.graphicsmagick.org/www/Copyright.html.
 
9
#
 
10
#
 
11
# Test reading JPEG images
 
12
#
 
13
# Contributed by Bob Friesenhahn <bfriesen@simple.dallas.tx.us>
 
14
#
 
15
BEGIN { $| = 1; $test=1; print "1..2\n"; }
 
16
END {print "not ok $test\n" unless $loaded;}
 
17
 
 
18
use Graphics::Magick;
 
19
$loaded=1;
 
20
 
 
21
require 't/subroutines.pl';
 
22
 
 
23
chdir 't/jpeg' || die 'Cd failed';
 
24
 
 
25
#
 
26
# 1) Test with non-interlaced image
 
27
#
 
28
print( "Non-interlaced JPEG ...\n" );
 
29
testReadWriteCompare( 'input.jpg', 'output_tmp.jpg',
 
30
                      '../reference/jpeg/write_non_interlaced.miff',
 
31
                      q//, q//, 6.4e-5, 0.008);
 
32
 
 
33
#
 
34
# 2) Test with plane-interlaced image
 
35
#
 
36
++$test;
 
37
print( "Plane-interlaced JPEG ...\n" );
 
38
testReadWriteCompare( 'input.jpg', 'output_plane_tmp.jpg',
 
39
                      '../reference/jpeg/write_plane_interlaced.miff',
 
40
                      q//, q//, 6.4e-5, 0.008);
 
41