# $Id: axestype.t,v 1.1 2005/12/14 04:22:16 ben Exp $
#
# Test stuff related to axestype charts
#
use Test;
use strict;
BEGIN { plan tests => 13 }
# Use "mixed" as the generic chart type to test
use GD::Graph::mixed;
ok(1);
print "# Check for division by 0 errors when all data points are 0\n";
{
    my $g = GD::Graph::mixed->new();
    if (ok(defined $g))
    {
        ok($g->isa("GD::Graph::axestype"));
        my $gd = eval { $g->plot([[qw/A B C D E/], [0, 0, 0, 0, 0]]) };
        if (ok(defined $gd))
        {
            ok($gd->isa("GD::Image"));
        }
        else
        {
            skip($@, 0);
        }
    }
    else
    {
        skip("GD::Graph::mixed->new() failed", 0) for 1..3;
    }
}
print "# Check for division by 0 errors on zero two_axes charts\n";
{
    my $g = GD::Graph::lines->new();
    $g->set(two_axes => 1);
    if (ok(defined $g))
    {
        ok($g->isa("GD::Graph::axestype"));
        my $gd = eval { $g->plot([[qw/A B/], [0, 0], [0, 0]]) };
        if (ok(defined $gd))
        {
            ok($gd->isa("GD::Image"));
        }
        else
        {
            skip($@, 0);
        }
    }
    else
    {
        skip("GD::Graph::lines->new() failed", 0) for 1..3;
    }
}
print "# Check for division by 0 errors on non-zero two_axes charts\n";
{
    my $g = GD::Graph::lines->new();
    $g->set(two_axes => 1);
    if (ok(defined $g))
    {
        ok($g->isa("GD::Graph::axestype"));
        my $gd = eval { $g->plot([[qw/A B/], [1, 1], [1, 1]]) };
        if (ok(defined $gd))
        {
            ok($gd->isa("GD::Image"));
        }
        else
        {
            skip($@, 0);
        }
    }
    else
    {
        skip("GD::Graph::lines->new() failed", 0) for 1..3;
    }
}