add new comparison method rgb_difference that resembles arithmetical difference per...
[imager.git] / DynTest / t / t00dyntest.t
CommitLineData
92bda632
TC
1#!perl -w
2use strict;
3use blib;
92bda632
TC
4use Imager;
5use Test::More tests => 4;
6
7BEGIN { use_ok('Imager::Filter::DynTest') }
8
9my $im = Imager->new;
10SKIP:
11{
9188b23e 12 ok($im->read(file => '../testimg/penguin-base.ppm'), "load source image")
92bda632
TC
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}