X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=t%2FLabels_split_lccn.t;h=baca48c134cfefbfc447e7ff642577183a6bb207;hb=8b714dc30c6c9440bbe9564d57fabb255070b64e;hp=4034e2105f4a57223c842ae37332bb953ff17ab9;hpb=ba0f84b46c5c565600575ef61d413067c768fa14;p=koha-ffzg.git

diff --git a/t/Labels_split_lccn.t b/t/Labels_split_lccn.t
index 4034e2105f..baca48c134 100755
--- a/t/Labels_split_lccn.t
+++ b/t/Labels_split_lccn.t
@@ -20,6 +20,7 @@
 use strict;
 use warnings;
 
+use C4::ClassSplitRoutine::LCC qw( split_callnumber );
 use Test::More;
 
 BEGIN {
@@ -39,7 +40,7 @@ BEGIN {
     }
     my $test_num = 1;
     foreach (keys(%$lccns)) {
-        my $split_num += scalar(@{$lccns->{$_}});
+        my $split_num = scalar(@{$lccns->{$_}});
         $test_num += 2 * $split_num;
         $test_num += 4;
     }
@@ -52,7 +53,7 @@ foreach my $lccn (sort keys %$lccns) {
     my (@parts, @expected);
     ok($lccn, "lccn: $lccn");
     ok(@expected = @{$lccns->{$lccn}}, "split expected to produce " . scalar(@expected) . " pieces");
-    ok(@parts = C4::Labels::Label::_split_lccn($lccn), "C4::Labels::Label::_split_lccn($lccn)");
+    ok(@parts = C4::ClassSplitRoutine::LCC::split_callnumber($lccn), "split LCC ($lccn)");
     ok(scalar(@expected) == scalar(@parts), sprintf("%d of %d pieces produced", scalar(@parts), scalar(@expected)));
     my $i = 0;
     foreach my $unit (@expected) {