Adds two tests for horizontal graphs, and fixes some warnings exposed by them

[imager-graph.git] / t / t15line_horizontal.t

diff --git a/t/t15line_horizontal.t b/t/t15line_horizontal.t
new file mode 100644 (file)
index 0000000..8e0ffe7
--- /dev/null
+++ b/t/t15line_horizontal.t
@@ -0,0 +1,48 @@
+#!perl -w
+use strict;
+use Imager::Graph::Bar;
+use lib 't/lib';
+use Imager::Font::Test;
+use Test::More;
+
+-d 'testout' 
+  or mkdir "testout", 0700 
+  or die "Could not create output directory: $!";
+
+++$|;
+
+my @warned;
+local $SIG{__WARN__} =
+  sub {
+    print STDERR $_[0];
+    push @warned, $_[0]
+  };
+
+
+use Imager qw(:handy);
+
+plan tests => 3;
+
+#my $fontfile = 'ImUgly.ttf';
+#my $font = Imager::Font->new(file=>$fontfile, type => 'ft2', aa=>1)
+#  or plan skip_all => "Cannot create font object: ",Imager->errstr,"\n";
+my $font = Imager::Font::Test->new();
+
+my @data = ( 100, 180, 80, 20, 2, 1, 0.5 );
+my @labels = qw(alpha beta gamma delta epsilon phi gi);
+
+my $line = Imager::Graph::Bar->new();
+ok($line, "creating line chart object");
+
+$line->add_line_data_series(\@data);
+$line->set_labels(\@labels);
+
+my $img1 = $line->draw();
+ok($img1, "drawing line chart");
+
+$img1->write(file=>'testout/t15_basic.ppm') or die "Can't save img1: ".$img1->errstr."\n";
+
+unless (is(@warned, 0, "should be no warnings")) {
+  diag($_) for @warned;
+}
+