summaryrefslogtreecommitdiffstats
path: root/t/merge.t
diff options
context:
space:
mode:
Diffstat (limited to 't/merge.t')
-rw-r--r--t/merge.t31
1 files changed, 28 insertions, 3 deletions
diff --git a/t/merge.t b/t/merge.t
index c04c0ab..0d270db 100644
--- a/t/merge.t
+++ b/t/merge.t
@@ -15,12 +15,26 @@ my $data = do { local $/; local @ARGV = ('t/data/merge.json'); <> };
my $excel = $template->render(
$data,
{
- rows => [
+ headers => [
{
value1 => "Merge 1",
value2 => "Merge 2",
value3 => "Merge 3",
value4 => "Merge 4"
+ },
+ ],
+ rows => [
+ {
+ value1 => "1",
+ value2 => '0',
+ value3 => '0',
+ value4 => '0'
+ },
+ {
+ value1 => "2",
+ value2 => '0',
+ value3 => '0',
+ value4 => '0'
}
],
}
@@ -33,15 +47,26 @@ my $data = do { local $/; local @ARGV = ('t/data/merge.json'); <> };
my $ws = $wb->worksheet(0);
is($ws->get_name, 'Merge Report 1');
- # In the template, the 4 columns are merged
+ # In the template, the 4 columns in row 1 are merged
# with contents = "Merged Cells"
for my $col (0..3) {
if ($col == 0) {
- is($ws->get_cell(0, $col)->value, 'Merged Cells');
+ is($ws->get_cell(0, $col)->value, 'Merged Header');
} else {
is($ws->get_cell(0, $col)->value, '');
}
}
+ is($ws->get_cell(1,0)->value, 1);
+ is($ws->get_cell(2,0)->value, 2);
+ my $value1 = $ws->get_cell(1,0)->value;
+ my $value2 = $ws->get_cell(2,0)->value;
+ my $sum = $value1 + $value2;
+ is($ws->get_cell(3,0)->value, $sum);
+
+ open my $fh2, '>', 'out.xlsx';
+ binmode $fh2;
+ $fh2->print($excel);
+ $fh2->close;
}
done_testing;