feature control over drawing line and area line markers
[imager-graph.git] / t / t13stacked_col.t
index c9cdf131cde3b80fd5929949cc1563f30e7dbb64..f3f6209dc8104b003209a406a9e3c45ad8ef9467 100644 (file)
@@ -13,7 +13,7 @@ use Test::More;
 
 use Imager qw(:handy);
 
-plan tests => 3;
+plan tests => 5;
 
 my @warned;
 local $SIG{__WARN__} =
@@ -31,17 +31,36 @@ 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 $stacked_col = Imager::Graph::StackedColumn->new();
-ok($stacked_col, "creating stacked_col chart object");
+{
+  my $stacked_col = Imager::Graph::StackedColumn->new();
+  ok($stacked_col, "creating stacked_col chart object");
 
-$stacked_col->add_data_series(\@data);
-$stacked_col->set_labels(\@labels);
+  $stacked_col->add_data_series(\@data);
+  $stacked_col->set_labels(\@labels);
 
-my $img1 = $stacked_col->draw();
-ok($img1, "drawing stacked_col chart");
+  my $img1 = $stacked_col->draw();
+  ok($img1, "drawing stacked_col chart");
 
-$img1->write(file=>'testout/t13_basic.ppm') or die "Can't save img1: ".$img1->errstr."\n";
+  $img1->write(file=>'testout/t13_stacked.ppm') or die "Can't save img1: ".$img1->errstr."\n";
+}
+
+{
+  my $stacked_col = Imager::Graph::StackedColumn->new();
+  ok($stacked_col, "creating stacked_col chart object");
+
+  $stacked_col->add_data_series(\@data);
+  $stacked_col->add_data_series([ -50, -30, 20, 10, -10, 25, 10 ]);
+  $stacked_col->set_labels(\@labels);
 
+  my $img1 = $stacked_col->draw
+    (
+     features => "outline",
+     column_padding => 10,
+    );
+  ok($img1, "drawing stacked_col chart");
+
+  $img1->write(file=>'testout/t13_stacked2.ppm') or die "Can't save stacked2: ".$img1->errstr."\n";
+}
 
 unless (is(@warned, 0, "should be no warnings")) {
   diag($_) for @warned;