use strict;
use lib "t/lib";
use Test::More (tests => 9);
use Test::Google::Chart qw(test_render);
{ # Line
my $chart = Google::Chart->create(
Line => (
size => "400x300",
)
);
$chart->add_dataset(
data => [ 1, 2, 3, 4, 5 ],
);
ok( $chart );
isa_ok( $chart, "Google::Chart" );
is( $chart->width, 400 );
is( $chart->height, 300 );
my $uri = $chart->as_uri;
note $uri;
my %h = $uri->query_form;
is( $h{cht}, "lc" );
is( $h{chs}, "400x300" );
test_render($chart);
}