From 70e0ccd7243ee9448a36118d70e4441fab267315 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 9 Sep 2013 10:18:29 -0400
Subject: fix string lookups when cells have complicated formatting (#6)

if a cell has multiple different formats, this shows up as multiple
different rich text parts in the shared string table, so make sure to
only count each shared string table entry once
---
 t/bug-6.t | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

(limited to 't')

diff --git a/t/bug-6.t b/t/bug-6.t
index 503d6fa..41e6fc0 100644
--- a/t/bug-6.t
+++ b/t/bug-6.t
@@ -8,4 +8,34 @@ use Spreadsheet::ParseXLSX;
 my $wb = Spreadsheet::ParseXLSX->new->parse('t/data/bug-6.xlsx');
 is($wb->worksheet_count, 8);
 
+my %cells = (
+    7 => {
+        0 => 'mfg fdproc',
+        1 => 'Tom Forsythe',
+    },
+    8 => {
+        0 => 'ent bartend-402 data max prodigy max 203 dpi',
+        1 => 'Dave Levos ; Tommy Holland',
+    },
+    9 => {
+        0 => 'ent bartend-402 inter px4i 400 dpi rw',
+        1 => 'Tommy Holland; Dave Levos',
+    },
+    10 => {
+        0 => 'opr-mfg asmb inst ro',
+        1 => 'Chris McGee',
+    },
+);
+
+my $ws = $wb->worksheet('DSGroups');
+my ($row_min, $row_max) = $ws->row_range;
+my ($col_min, $col_max) = $ws->col_range;
+for my $row (sort { $a <=> $b } keys %cells) {
+    for my $col (sort { $a <=> $b } keys %{ $cells{$row} }) {
+        my $cell = $ws->get_cell($row, $col);
+        next unless $cell;
+        is($cell->value, $cells{$row}{$col}, "correct value for ($row, $col)");
+    }
+}
+
 done_testing;
-- 
cgit v1.2.3-54-g00ecf