1#!/usr/bin/perl
2#
3# Test writing Postscript images
4#
5# Contributed by Bob Friesenhahn <bfriesen@simple.dallas.tx.us>
6#
7BEGIN { $| = 1; $test=1; print "1..2\n"; }
8END {print "not ok $test\n" unless $loaded;}
9
10use Image::Magick;
11$loaded=1;
12
13require 't/subroutines.pl';
14
15chdir 't/ps' || die 'Cd failed';
16
17#
18# 1) Test Postscript
19#
20testReadWriteNoVerify( 'input.miff',
21		       'output.ps',
22		       q// );
23#
24# 2) Test Encapsulated Postscript
25#
26++$test;
27testReadWriteNoVerify( 'input.miff',
28		       'output.eps',
29		       q// );
30
31