use strict;
use Test::More (tests => 7);
use Test::MockObject;
BEGIN
{
use_ok("Google::Chart::Data");
}
{
my $data = Google::Chart::Data->new();
$data->add_dataset(
Google::Chart::DataSet->new(
data => [ 1.0, 1.2, 1.3, undef, 50, -1, 100 ]
)
);
ok($data);
isa_ok($data, "Google::Chart::Data");
my @query = $data->prepare_query( Test::MockObject->new() );
note(@query);
is_deeply( \@query, [ chd => 't:1.0,1.2,1.3,-1,50.0,-1,100.0'] )
}
{
my $data = Google::Chart::Data->new();
$data->add_dataset(
Google::Chart::DataSet->new(
data => [ 1.0, 1.2, 1.3, undef, 50, -1, 100 ]
)
);
$data->add_dataset(
Google::Chart::DataSet->new(
data => [ 100, -1, 50, undef, 1.3, 1.2, 1.0 ],
)
);
ok($data);
isa_ok($data, "Google::Chart::Data");
my @query = $data->prepare_query( Test::MockObject->new() );
note(@query);
is_deeply( [@query], [ chd => 't:1.0,1.2,1.3,-1,50.0,-1,100.0|100.0,-1,50.0,-1,1.3,1.2,1.0'] )
}