BEGIN
{
use_ok(
"Google::Chart::Legend"
);
use_ok(
"Google::Chart"
);
}
{
my
$color
= Google::Chart::Legend->new(
values
=> [
'data1'
,
'data2'
],
);
ok(
$color
);
isa_ok(
$color
,
"Google::Chart::Legend"
);
my
$query
=
$color
->as_query;
note(
$query
);
is(
$query
,
"chdl=data1%7Cdata2"
);
}
{
my
$color
= Google::Chart::Legend->new(
values
=>
'data1'
,
);
ok(
$color
);
isa_ok(
$color
,
"Google::Chart::Legend"
);
my
$query
=
$color
->as_query;
note(
$query
);
is(
$query
,
"chdl=data1"
);
}
{
my
$graph
= Google::Chart->new(
type
=>
'Line'
,
size
=>
'300x300'
,
data
=> [[20, 40, 90], [100, 70, 20]],
axis
=> [
{
location
=>
'x'
,
labels
=> [1, 2, 3],
},
{
location
=>
'y'
,
labels
=> [0,25,50,75,100],
},
],
color
=> [
'ff0000'
,
'00ffff'
],
legend
=>
'data1'
,
);
ok(
$graph
);
isa_ok(
$graph
,
'Google::Chart'
);
my
$uri
=
$graph
->as_uri;
note (
$uri
);
my
%h
=
$uri
->query_form;
is(
$h
{chdl},
'data1'
);
}
{
my
$graph
= Google::Chart->new(
type
=>
'Line'
,
size
=>
'300x300'
,
data
=> [[20, 40, 90], [100, 70, 20]],
axis
=> [
{
location
=>
'x'
,
labels
=> [1, 2, 3],
},
{
location
=>
'y'
,
labels
=> [0,25,50,75,100],
},
],
color
=> [
'ff0000'
,
'00ffff'
],
legend
=> [
'data1'
,
'data2'
],
);
ok(
$graph
);
isa_ok(
$graph
,
'Google::Chart'
);
my
$uri
=
$graph
->as_uri;
note (
$uri
);
my
%h
=
$uri
->query_form;
is(
$h
{chdl},
'data1|data2'
);
}