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