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

« back to all changes in this revision

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

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

PerlMagick/t/hdf/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 writing HDF 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/hdf' || die 'Cd failed';

 

24

 

 

25

#

 

26

# 1) Test pseudocolor image

 

27

#

 

28

testReadWrite( 'input_256.hdf',

 

29

   'output_256.hdf',

 

30

   q/quality=>54/,

 

31

   '8b19185a62241bd7b79ecf3f619711f4ebbedd73eaeca0366f05778762b6614f' );

 

32

 

 

33

#

 

34

# 2) Test truecolor image

 

35

#

 

36

++$test;

 

37

testReadWrite( 'input_truecolor.hdf',

 

38

   'output_truecolor.hdf',

 

39

   q/quality=>55/,

 

40

   '8b19185a62241bd7b79ecf3f619711f4ebbedd73eaeca0366f05778762b6614f' );

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1