bug 9370: test case for splitting LC call number

QH541.15.C6 C25 2012 should be split as follows:

QH
541.15
.C6
C25
2012

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Chris Cormack <chris@bigballofwax.co.nz>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>

diff --git a/t/Labels_split_lccn.t b/t/Labels_split_lccn.t
index da32317..c79cc00 100755 (executable)
--- a/t/Labels_split_lccn.t
+++ b/t/Labels_split_lccn.t
@@ -33,6 +33,7 @@ BEGIN {
             'HE8700.7 .P6T44 1983' => [qw(HE 8700.7 .P6 T44 1983)],
             'BS2545.E8 H39 1996'   => [qw(BS 2545 .E8 H39 1996)],
             'NX512.S85 A4 2006'    => [qw(NX 512 .S85 A4 2006)],
+            'QH541.15.C6 C25 2012' => [qw(QH 541.15 .C6 C25 2012)],
         };
     }
     my $test_num = 1;