- start of external Imager API access:
[imager.git] / Mandelbrot / t / t00mandel.t
1 #!perl -w
2 use strict;
3 use blib;
4 use lib '../t';
5 use Imager;
6 use Test::More tests => 3;
7
8 BEGIN { use_ok('Imager::Filter::Mandelbrot') }
9
10 my $im = Imager->new(xsize=>100, ysize=>100);
11 SKIP:
12 {
13   ok($im->filter(type=>'mandelbrot'),
14      "try filter")
15     or print "# ", $im->errstr, "\n";
16   ok($im->write(file => '../testout/t00mandel.ppm'),
17      "save result");
18 }