1#!/usr/bin/perl
2#
3# Test reading WMF files
4#
5# Whenever a new test is added/removed, be sure to update the
6# 1..n ouput.
7#
8BEGIN { $| = 1; $test=1; print "1..2\n"; }
9END {print "not ok $test\n" unless $loaded;}
10use Image::Magick;
11$loaded=1;
12
13require 't/subroutines.pl';
14
15chdir 't/wmf' || die 'Cd failed';
16
17testReadCompare('wizard.wmf', '../reference/wmf/wizard.miff', q//, 0.01, 1.0);
18++$test;
19testReadCompare('clock.wmf', '../reference/wmf/clock.miff', q//, 0.01, 1.0);
20
21