File: t00dyntest.t

package info (click to toggle)
libimager-perl 1.027%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 6,820 kB
  • sloc: perl: 32,971; ansic: 28,092; makefile: 52; cpp: 4
file content (19 lines) | stat: -rw-r--r-- 459 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!perl -w
use strict;
use blib;
use Imager;
use Test::More tests => 4;

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

my $im = Imager->new;
SKIP:
{
  ok($im->read(file => '../testimg/penguin-base.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");
}