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