remove more ancient Imager cruft
[imager-graph.git] / t / t10pie.t
CommitLineData
35574351
TC
1#!perl -w
2use strict;
3use Imager::Graph::Pie;
86cab8ec
TC
4use lib 't/lib';
5use Imager::Font::Test;
bfcf9414 6use Test::More;
35574351
TC
7
8-d 'testout'
9 or mkdir "testout", 0700
10 or die "Could not create output directory: $!";
11
12++$|;
35574351
TC
13
14my $testnum = 1;
15
16use Imager qw(:handy);
17
86cab8ec
TC
18#my $fontfile = 'ImUgly.ttf';
19#my $font = Imager::Font->new(file=>$fontfile, type => 'ft2', aa=>1)
20# or plan skip_all => "Cannot create font object: ",Imager->errstr,"\n";
21my $font = Imager::Font::Test->new();
35574351
TC
22
23my @data = ( 100, 180, 80, 20, 2, 1, 0.5 );
24my @labels = qw(alpha beta gamma delta epsilon phi gi);
25
bfcf9414
TC
26plan tests => 11;
27
35574351
TC
28my $pie = Imager::Graph::Pie->new;
29ok($pie, "creating pie chart object");
30
31# this may change output quality too
35574351
TC
32
33print "# Imager version: $Imager::VERSION\n";
34print "# Font type: ",ref $font,"\n";
35
36my $img1 = $pie->draw(data=>\@data, labels=>\@labels, font=>$font,
37 title=>{ text=>'Imager::Graph::Pie', size=>32 },
38 features=>{ outline=>1, labels=>1, pieblur=>0, },
39 outline=>{ line => '404040' },
bfcf9414 40 );
35574351 41
bfcf9414
TC
42ok($img1, "drawing first pie chart")
43 or print "# ",$pie->error,"\n";
35574351 44cmpimg($img1, "testimg/t10_pie1.png", 196880977);
bfcf9414 45$img1->write(file=>'testout/t10_pie1.ppm')
35574351
TC
46 or die "Cannot save pie1: ",$img1->errstr,"\n";
47
48my $img2 = $pie->draw(data=>\@data,
49 labels=>\@labels,
50 font=>$font,
51 title=>{ text=>'Imager::Graph::Pie', size=>36 },
52 features=>{ labelspconly=>1, _debugblur=>1,
53 legend=>1 },
54 legend=>{ border=>'000000', fill=>'FF8080', },
55 fills=>[ qw(404040 606060 808080 A0A0A0 C0C0C0 E0E0E0) ],
bfcf9414 56 );
35574351 57
bfcf9414
TC
58ok($img2, "drawing second pie chart")
59 or print "# ",$pie->error,"\n";
35574351 60cmpimg($img2, "testimg/t10_pie2.png", 255956289);
bfcf9414 61$img2->write(file=>'testout/t10_pie2.ppm')
35574351
TC
62 or die "Cannot save pie2: ",$img2->errstr,"\n";
63
64my ($im_version) = $Imager::VERSION =~ /(\d\.[\d_]+)/;
bfcf9414
TC
65{
66 $im_version > 0.38
67 or skip("very old Imager", 6);
35574351
TC
68 my $img3 = $pie->draw(data=>\@data, labels=>\@labels,
69 font=>$font, style=>'fount_lin',
70 features=>[ 'legend', 'labelspconly', ],
71 legend=>{ valign=>'center' });
bfcf9414
TC
72 ok($img3, "third chart")
73 or print "# ",$pie->error,"\n";
74 $img3->write(file=>'testout/t10_lin_fount.ppm')
35574351
TC
75 or die "Cannot save pie3: ",$img3->errstr,"\n";
76 cmpimg($img3, "testimg/t10_lin_fount.png", 180_000);
77
78 my $img4 = $pie->draw(data=>\@data, labels=>\@labels,
79 font=>$font, style=>'fount_rad',
80 features=>[ 'legend', 'labelspc', ],
81 legend=>{ valign=>'bottom',
82 halign=>'left',
83 border=>'000080' });
bfcf9414
TC
84 ok($img4, "fourth chart")
85 or print "# ",$pie->error,"\n";
86 $img4->write(file=>'testout/t10_rad_fount.ppm')
35574351
TC
87 or die "Cannot save pie3: ",$img4->errstr,"\n";
88 cmpimg($img4, "testimg/t10_rad_fount.png", 120_000);
89
90 my $img5 = $pie->draw(data=>\@data, labels=>\@labels,
91 font=>$font, style=>'mono',
92 features=>[ 'allcallouts', 'labelspc' ],
93 legend=>{ valign=>'bottom',
94 halign=>'right' });
bfcf9414
TC
95 ok($img5, "fifth chart")
96 or print "# ",$pie->error,"\n";
97 $img5->write(file=>'testout/t10_mono.ppm')
35574351
TC
98 or die "Cannot save pie3: ",$img5->errstr,"\n";
99 cmpimg($img5, "testimg/t10_mono.png", 550_000);
100}
35574351
TC
101
102sub cmpimg {
103 my ($img, $file, $limit) = @_;
104
105 $limit ||= 10000;
106
bfcf9414
TC
107 SKIP:
108 {
109 $Imager::formats{png}
110 or skip("No PNG support", 1);
111
35574351
TC
112 my $cmpimg = Imager->new;
113 $cmpimg->read(file=>$file)
114 or return ok(0, "Cannot read $file: ".$cmpimg->errstr);
115 my $diff = Imager::i_img_diff($img->{IMG}, $cmpimg->{IMG});
bfcf9414 116 cmp_ok($diff, '<', $limit, "Comparison to $file ($diff)");
35574351
TC
117 }
118}