]>
Commit | Line | Data |
---|---|---|
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 | } |