From 8ff1fc43c0aa67a07e90f28eace963083829d0a7 Mon Sep 17 00:00:00 2001
From: Galen Charlton <gmc@esilibrary.com>
Date: Tue, 8 Jan 2013 17:18:30 -0800
Subject: [PATCH] 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>
(cherry picked from commit ecf6721060607b621c58f234ab5a5f43e30b1d98)
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
(cherry picked from commit 8ceab821b5ded6fb14ac747dfc1e2c67a3cbbad8)
Signed-off-by: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com>
(cherry picked from commit 8ceab821b5ded6fb14ac747dfc1e2c67a3cbbad8)
---
 t/Labels_split_lccn.t | 1 +
 1 file changed, 1 insertion(+)

diff --git a/t/Labels_split_lccn.t b/t/Labels_split_lccn.t
index da323173d3..c79cc005a2 100755
--- 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;
-- 
2.39.5