#!perl -w
use strict;
use blib;
use lib '../t';
use Imager;
use Test::More tests => 3;
BEGIN { use_ok('Imager::Filter::Mandelbrot') }
my $im = Imager->new(xsize=>100, ysize=>100);
SKIP:
{
ok($im->filter(type=>'mandelbrot'),
"try filter")
or print "# ", $im->errstr, "\n";
ok($im->write(file => '../testout/t00mandel.ppm'),
"save result");
}