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