39711b74bcd2e552d4b27c30368fdbac6dcb01e0
[imager-graph.git] / t / t10pie.t
1 #!perl -w
2 use strict;
3 use Imager::Graph::Pie;
4 use lib 't/lib';
5 use Imager::Font::Test;
6 use Test::More;
7
8 -d 'testout' 
9   or mkdir "testout", 0700 
10   or die "Could not create output directory: $!";
11
12 ++$|;
13
14 my $testnum = 1;
15
16 use Imager qw(:handy);
17
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";
21 my $font = Imager::Font::Test->new();
22
23 my @data = ( 100, 180, 80, 20, 2, 1, 0.5 );
24 my @labels = qw(alpha beta gamma delta epsilon phi gi);
25
26 plan tests => 13;
27
28 my $pie = Imager::Graph::Pie->new;
29 ok($pie, "creating pie chart object");
30
31 # this may change output quality too
32
33 print "# Imager version: $Imager::VERSION\n";
34 print "# Font type: ",ref $font,"\n";
35
36 my $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' },
40                      );
41
42 ok($img1, "drawing first pie chart")
43   or print "# ",$pie->error,"\n";
44 cmpimg($img1, "testimg/t10_pie1.png", 196880977);
45 $img1->write(file=>'testout/t10_pie1.ppm')
46   or die "Cannot save pie1: ",$img1->errstr,"\n";
47
48 my $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=>'C0C0C0', },
55                       fills=>[ qw(404040 606060 808080 A0A0A0 C0C0C0 E0E0E0) ],
56                      );
57
58 ok($img2, "drawing second pie chart")
59   or print "# ",$pie->error,"\n";
60 cmpimg($img2, "testimg/t10_pie2.png", 255956289);
61 $img2->write(file=>'testout/t10_pie2.ppm')
62   or die "Cannot save pie2: ",$img2->errstr,"\n";
63
64 my ($im_version) = $Imager::VERSION =~ /(\d\.[\d_]+)/;
65 {
66   $im_version > 0.38
67     or skip("very old Imager", 6);
68   my $img3 = $pie->draw(data=>\@data, labels=>\@labels,
69                         font=>$font, style=>'fount_lin', 
70                         features=>[ 'legend', 'labelspconly', ],
71                         legend=>{ valign=>'center' });
72   ok($img3, "third chart")
73     or print "# ",$pie->error,"\n";
74   $img3->write(file=>'testout/t10_lin_fount.ppm')
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' });
84   ok($img4, "fourth chart")
85     or print "# ",$pie->error,"\n";
86   $img4->write(file=>'testout/t10_rad_fount.ppm')
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' });
95   ok($img5, "fifth chart")
96     or print "# ",$pie->error,"\n";
97   $img5->write(file=>'testout/t10_mono.ppm')
98     or die "Cannot save pie3: ",$img5->errstr,"\n";
99   cmpimg($img5, "testimg/t10_mono.png", 550_000);
100
101   my $img6 = $pie->draw(data=>\@data, labels=>\@labels,
102                         font=>$font, style=>'fount_lin', 
103                         features=>[ 'allcallouts', 'labelspc', 'legend' ],
104                         legend=>
105                         {
106                          valign=>'top', 
107                          halign=>'center',
108                          orientation => 'horizontal',
109                          fill => { solid => Imager::Color->new(0, 0, 0, 32) },
110                          patchborder => undef,
111                          #size => 30,
112                         });
113   ok($img6, "sixth chart")
114     or print "# ",$pie->error,"\n";
115   $img6->write(file=>'testout/t10_hlegend.ppm')
116     or die "Cannot save pie6: ",$img5->errstr,"\n";
117   cmpimg($img6, "testimg/t10_hlegend.png", 550_000);
118 }
119
120 sub cmpimg {
121   my ($img, $file, $limit) = @_;
122
123   $limit ||= 10000;
124
125  SKIP:
126   {
127     $Imager::formats{png}
128       or skip("No PNG support", 1);
129
130     my $cmpimg = Imager->new;
131     $cmpimg->read(file=>$file)
132       or return ok(0, "Cannot read $file: ".$cmpimg->errstr);
133     my $diff = Imager::i_img_diff($img->{IMG}, $cmpimg->{IMG});
134     cmp_ok($diff, '<', $limit, "Comparison to $file ($diff)");
135   }
136 }