- Imager::Graph::Horizontal::add_column_data_series() renamed to
[imager-graph.git] / t / t14bar.t
index ef8cbc0..7216fb9 100644 (file)
@@ -13,7 +13,7 @@ use Test::More;
 
 use Imager qw(:handy);
 
-plan tests => 4;
+plan tests => 7;
 
 my @warned;
 local $SIG{__WARN__} =
@@ -31,18 +31,35 @@ 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 $column = Imager::Graph::Bar->new();
-$column->set_font($font);
-ok($column, "creating column chart object");
+{
+  my $bar = Imager::Graph::Bar->new();
+  $bar->set_font($font);
+  ok($bar, "creating bar chart object");
 
-$column->add_data_series(\@data);
-$column->set_labels(\@labels);
+  $bar->add_data_series(\@data);
+  $bar->set_labels(\@labels);
 
-my $img1 = $column->draw();
-ok($img1, "drawing column chart");
+  my $img1 = $bar->draw();
+  ok($img1, "drawing bar chart");
 
-$img1->write(file=>'testout/t14_bar.ppm') or die "Can't save img1: ".$img1->errstr."\n";
-cmpimg($img1, 'testimg/t14_bar.ppm', 1);
+  $img1->write(file=>'testout/t14_bar.ppm') or die "Can't save img1: ".$img1->errstr."\n";
+  cmpimg($img1, 'testimg/t14_bar.ppm', 1);
+}
+
+{ # alternative interfaces
+  my $bar = Imager::Graph::Horizontal->new();
+  $bar->set_font($font);
+  ok($bar, "creating bar chart object");
+
+  $bar->add_bar_data_series(\@data);
+  $bar->set_labels(\@labels);
+
+  my $img1 = $bar->draw();
+  ok($img1, "drawing bar chart");
+
+  $img1->write(file=>'testout/t14_bar2.ppm') or die "Can't save img1: ".$img1->errstr."\n";
+  cmpimg($img1, 'testimg/t14_bar.ppm', 1);
+}
 
 unless (is(@warned, 0, "should be no warnings")) {
   diag($_) for @warned;