[imager.git] / xt / x11rubthru.t

#!perl -w
use strict;
use Imager;
use Imager::Test qw(is_image);
use Test::More;

$Imager::formats{"tiff"}
  or plan skip_all => "no tiff support";

-d "testout" or mkdir "testout";

plan tests => 2;

my $dest = Imager->new(xsize => 100, ysize => 100, channels => 4);
$dest->box(filled => 1, color => '0000FF');
my $src = Imager->new(xsize => 100, ysize => 100, channels => 4);
$src->circle(color => 'FF0000', x => 50, y => 60, r => 40, aa => 1);
ok($dest->rubthrough(src => $src, src_minx => 10, src_miny => 20, src_maxx => 90,
	       tx => 10, ty => 10), "rubthrough");
ok($dest->write(file => "testout/x11rubthru.tif"), "save it");
Commit	Line	Data
9b1ec2b8 TC	1	#!perl -w
	2	use strict;
	3	use Imager;
	4	use Imager::Test qw(is_image);
e83b349b TC	5	use Test::More;
e83b349b TC	6
e5ee047b	7	$Imager::formats{"tiff"}
e83b349b TC	8	or plan skip_all => "no tiff support";
e83b349b TC	9
40e78f96 TC	10	-d "testout" or mkdir "testout";
40e78f96 TC	11
e83b349b	12	plan tests => 2;
9b1ec2b8 TC	13
	14	my $dest = Imager->new(xsize => 100, ysize => 100, channels => 4);
	15	$dest->box(filled => 1, color => '0000FF');
	16	my $src = Imager->new(xsize => 100, ysize => 100, channels => 4);
	17	$src->circle(color => 'FF0000', x => 50, y => 60, r => 40, aa => 1);
	18	ok($dest->rubthrough(src => $src, src_minx => 10, src_miny => 20, src_maxx => 90,
	19	tx => 10, ty => 10), "rubthrough");
	20	ok($dest->write(file => "testout/x11rubthru.tif"), "save it");
	21