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 }