#!perl -w
use strict;
-print "1..34\n";
+print "1..35\n";
use Imager ':handy';
use Imager::Fill;
}
}
+ok($testnum++, $ffim->arc(r=>45, color=>$blue, aa=>1), "aa circle");
+$ffim->write(file=>"testout/t20_aacircle.ppm");
+
sub ok ($$$) {
my ($num, $test, $desc) = @_;