- start of external Imager API access:
[imager.git] / CountColor / t / t00countcolor.t
1 #!perl -w
2 use strict;
3 use blib;
4 use lib '../t';
5 use Imager;
6 use Test::More tests => 9;
7
8 BEGIN { use_ok('Imager::CountColor' => 'count_color') }
9
10 my $black = Imager::Color->new(0, 0, 0);
11 my $blue = Imager::Color->new(0, 0, 255);
12 my $red = Imager::Color->new(255, 0, 0);
13 my $im = Imager->new(xsize=>50, ysize=>50);
14 is(count_color($im, $black), 2500, "check black vs black image");
15 is(count_color($im, $red), 0, "check red vs black image");
16 $im->box(filled=>1, color=>$blue, xmin=>25);
17 is(count_color($im, $black), 1250, "check black vs black/blue image");
18 is(count_color($im, $red), 0, "check red vs black/blue image");
19 is(count_color($im, $blue), 1250, "check blue vs black/blue image");
20 $im->box(filled=>1, color=>$red, ymin=>25);
21 is(count_color($im, $black), 625, "check black vs black/blue/red image");
22 is(count_color($im, $blue), 625, "check black vs black/blue/red image");
23 is(count_color($im, $red), 1250, "check black vs black/blue/red image");