DynTest/t/t00dyntest.t

   1 #!perl -w
   2 use strict;
   3 use blib;
   4 use Imager;
   5 use Test::More tests => 4;
   6
   7 BEGIN { use_ok('Imager::Filter::DynTest') }
   8
   9 my $im = Imager->new;
  10 SKIP:
  11 {
  12   ok($im->read(file => '../testimg/penguin-base.ppm'), "load source image")
  13     or skip("couldn't load work image", 2);
  14   ok($im->filter(type=>'lin_stretch', a => 50, b => 200),
  15      "try filter")
  16     or print "# ", $im->errstr, "\n";
  17   ok($im->write(file => '../testout/t00dyntest.ppm'),
  18      "save result");
  19 }