use strict;
use warnings;
use Test::More tests => 4;
use Chart::OFC;
{
my $hlc =
Chart::OFC::Dataset::HighLowClose->new
( values => [ [ 1, 2, 3 ], [ 4, 5, 6 ] ],
);
my @data = ( '&hlc=80,2,#000000&', '&values=[1,2,3],[4,5,6]&', );
is_deeply( [ $hlc->_ofc_data_lines() ],
\@data,
'check _ofc_data_lines output - no label' );
}
{
my $hlc =
Chart::OFC::Dataset::HighLowClose->new
( values => [ [ 6, 5, 4 ], [ 3, 2, 1 ] ],
label => 'Intensity',
text_size => 5,
opacity => 70,
);
my @data = ( '&hlc=70,2,#000000,Intensity,5&', '&values=[6,5,4],[3,2,1]&', );
is_deeply( [ $hlc->_ofc_data_lines() ],
\@data,
'check _ofc_data_lines output - labeled' );
}
{
my $hlc =
Chart::OFC::Dataset::HighLowClose->new
( values => [ [ 1, 2, 3 ] ],
label => 'Intensity',
text_size => 5,
color => 'red',
opacity => 80,
);
my @data = ( '&hlc=80,2,#FF0000,Intensity,5&', '&values=[1,2,3]&', );
is_deeply( [ $hlc->_ofc_data_lines() ],
\@data,
'check _ofc_data_lines output - all hlc parameters' );
}
{
my $hlc =
Chart::OFC::Dataset::HighLowClose->new
( values => [ [ 1, 2, 3 ], [ 3, 2, 1 ] ],
width => 1,
label => 'Intensity',
text_size => 5,
color => 'red',
opacity => 80,
);
my @data = ( '&hlc=80,1,#FF0000,Intensity,5&', '&values=[1,2,3],[3,2,1]&', );
is_deeply( [ $hlc->_ofc_data_lines() ],
\@data,
'check _ofc_data_lines output - all parameters again' );
}