use strict;
use Test::More;
use URI;
use URI::QueryParam;
BEGIN
{
plan( tests => 7 );
use_ok("WebService::Simple::Google::Chart");
}
{
my $chart = WebService::Simple::Google::Chart->new;
ok( $chart, "object created ok" );
isa_ok(
$chart,
"WebService::Simple::Google::Chart",
"object isa WebService::Simple::Google::Chart"
);
my $data = { foo => 200, bar => 130, hoge => 70 };
my $url = $chart->get_url(
{
chs => "250x100",
cht => "p3",
},
$data
);
my $uri = URI->new($url);
ok( $uri->query_param("chs") eq "250x100", "chs parameter ok" );
ok( $uri->query_param("cht") eq "p3", "cht parameter ok" );
ok( $uri->query_param("chl") eq "bar|foo|hoge", "chl parameter ok" );
ok( $uri->query_param("chd") eq "t:33,50,18", "chd parameter ok" );
}