t/x11rubthru.t

   1 #!perl -w
   2 use strict;
   3 use Imager;
   4 use Imager::Test qw(is_image);
   5 use Test::More;
   6
   7 $Imager::formats{"tiff"}
   8   or plan skip_all => "no tiff support";
   9
  10 -d "testout" or mkdir "testout";
  11
  12 plan tests => 2;
  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