File: t00dyntest.t

package info (click to toggle)
libimager-perl 0.50-1etch1
  • links: PTS
  • area: main
  • in suites: etch
  • size: 3,120 kB
  • ctags: 2,907
  • sloc: ansic: 21,092; perl: 15,461; makefile: 56
file content (20 lines) | stat: -rw-r--r-- 467 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!perl -w
use strict;
use blib;
use lib '../t';
use Imager;
use Test::More tests => 4;

BEGIN { use_ok('Imager::Filter::DynTest') }

my $im = Imager->new;
SKIP:
{
  ok($im->read(file => '../testout/t104.ppm'), "load source image")
    or skip("couldn't load work image", 2);
  ok($im->filter(type=>'lin_stretch', a => 50, b => 200),
     "try filter")
    or print "# ", $im->errstr, "\n";
  ok($im->write(file => '../testout/t00dyntest.ppm'),
     "save result");
}