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 => 11;
  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=>'FF8080', },
  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
 102 sub cmpimg {
 103   my ($img, $file, $limit) = @_;
 104
 105   $limit ||= 10000;
 106
 107  SKIP:
 108   {
 109     $Imager::formats{png}
 110       or skip("No PNG support", 1);
 111
 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});
 116     cmp_ok($diff, '<', $limit, "Comparison to $file ($diff)");
 117   }
 118 }