[imager.git] / DynTest / t / t00dyntest.t

#!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 => '../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");
}
Commit	Line	Data
92bda632 TC	1	#!perl -w
	2	use strict;
	3	use blib;
92bda632 TC	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	}