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 Postscript images 12# 13# Contributed by Bob Friesenhahn <bfriesen@simple.dallas.tx.us> 14# 15BEGIN { $| = 1; $test=1; print "1..2\n"; } 16END {print "not ok $test\n" unless $loaded;} 17 18use Graphics::Magick; 19$loaded=1; 20 21require 't/subroutines.pl'; 22 23chdir 't/ps' || die 'Cd failed'; 24 25# 26# 1) Test Postscript 27# 28testReadWriteNoVerify( 'input.miff', 29 'output.ps', 30 q// ); 31# 32# 2) Test Encapsulated Postscript 33# 34++$test; 35testReadWriteNoVerify( 'input.miff', 36 'output.eps', 37 q// ); 38 39