1#!/usr/bin/perl
2#
3# Test Reading Xfig files
4#
5# Contributed by Bob Friesenhahn <bfriesen@simple.dallas.tx.us>
6#
7
8BEGIN { $| = 1; $test=1; print "1..1\n"; }
9END {print "not ok $test\n" unless $loaded;}
10use Image::Magick;
11$loaded=1;
12
13require 't/subroutines.pl';
14
15chdir 't/xfig' || die 'Cd failed';
16
17#
18# 1) Test reading Xfig
19#
20$image=Image::Magick->new;
21$x=$image->ReadImage('input.fig');
22if( "$x" ) {
23  print "ReadImage: $x\n";
24  print "not ok $test\n";
25} else {
26    print "ok $test\n";
27}
28undef $image;
29