bug 3120: tweak DDCN call number splitting for labels

[srvgit] / t / Labels_split_ddcn.t

diff --git a/t/Labels_split_ddcn.t b/t/Labels_split_ddcn.t
index 7927ec0..20ff5bd 100755 (executable)
--- a/t/Labels_split_ddcn.t
+++ b/t/Labels_split_ddcn.t
@@ -5,7 +5,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 62;
+use Test::More tests => 72;
 
 BEGIN {
     use_ok('C4::Labels');
@@ -18,6 +18,7 @@ my $ddcns = {
     'J DAR G7c.11'          => [qw( J  DAR G7 c.11)],
     'R220.3 H2793Z H32 c.2' => [qw(R 220.3 H2793Z H32 c.2)],
     'CD-ROM 787.87 EAS'     => [qw(CD-ROM 787.87 EAS)],
+    'MP3-CD F PARKER'       => [qw(MP3-CD F PARKER)],
 };
 
 foreach my $ddcn (sort keys %$ddcns) {