43c5d51b |
1 | #!perl -w |
2 | use strict; |
3 | use Imager::Graph::Bar; |
4 | use lib 't/lib'; |
5 | use Imager::Font::Test; |
6 | use Test::More; |
119bb3de |
7 | use Imager::Graph::Test 'cmpimg'; |
43c5d51b |
8 | |
9 | -d 'testout' |
10 | or mkdir "testout", 0700 |
11 | or die "Could not create output directory: $!"; |
12 | |
13 | ++$|; |
14 | |
15 | my @warned; |
16 | local $SIG{__WARN__} = |
17 | sub { |
18 | print STDERR $_[0]; |
19 | push @warned, $_[0] |
20 | }; |
21 | |
22 | |
23 | use Imager qw(:handy); |
24 | |
25 | plan tests => 4; |
26 | |
27 | #my $fontfile = 'ImUgly.ttf'; |
28 | #my $font = Imager::Font->new(file=>$fontfile, type => 'ft2', aa=>1) |
29 | # or plan skip_all => "Cannot create font object: ",Imager->errstr,"\n"; |
30 | my $font = Imager::Font::Test->new(); |
31 | |
32 | my @data = (1 .. 1000); |
33 | |
34 | my $bar = Imager::Graph::Bar->new(); |
35 | ok($bar, "creating bar chart object"); |
36 | |
37 | $bar->add_data_series(\@data); |
38 | |
39 | my $img1 = $bar->draw(); |
40 | ok($img1, "drawing bar chart"); |
41 | |
42 | $img1->write(file=>'testout/t34_points.ppm') or die "Can't save img1: ".$img1->errstr."\n"; |
5a50139d |
43 | cmpimg($img1, 'testimg/t34_points.ppm', 80_000); |
43c5d51b |
44 | |
45 | unless (is(@warned, 0, "should be no warnings")) { |
46 | diag($_) for @warned; |
47 | } |