87957a49e08e1fe83415723496a321794237cf94
[imager.git] / 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 => '../testout/t104.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 }