Skip to content
Newer
Older
100644 22 lines (16 sloc) 637 Bytes
9b1ec2b commit changes from draw branch
Tony Cook authored Mar 25, 2008
1 #!perl -w
2 use strict;
3 use Imager;
4 use Imager::Test qw(is_image);
e83b349 separate tiff and no tiff tests
Tony Cook authored Sep 5, 2009
5 use Test::More;
6
e5ee047 move TIFF into its own module
Tony Cook authored Aug 25, 2010
7 $Imager::formats{"tiff"}
e83b349 separate tiff and no tiff tests
Tony Cook authored Sep 5, 2009
8 or plan skip_all => "no tiff support";
9
40e78f9 @tonycoz RT#65088 make sure each test script that needs testout/ creates it
authored Feb 3, 2011
10 -d "testout" or mkdir "testout";
11
e83b349 separate tiff and no tiff tests
Tony Cook authored Sep 5, 2009
12 plan tests => 2;
9b1ec2b commit changes from draw branch
Tony Cook authored Mar 25, 2008
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
Something went wrong with that request. Please try again.