View | Details | Raw Unified | Return to bug 15836
Collapse All | Expand All

(-)a/t/Labels_split_ccn.t (-1 / +1 lines)
Lines 51-57 foreach my $ccn (sort keys %$ccns) { Link Here
51
    my (@parts, @expected);
51
    my (@parts, @expected);
52
    ok($ccn, "ddcn: $ccn");
52
    ok($ccn, "ddcn: $ccn");
53
    ok(@expected = @{$ccns->{$ccn}}, "split expected to produce " . scalar(@expected) . " pieces");
53
    ok(@expected = @{$ccns->{$ccn}}, "split expected to produce " . scalar(@expected) . " pieces");
54
    ok(@parts = C4::Labels::Label::_split_ccn($ccn), "C4::Labels::Label::_split_ccn($ccn)");
54
    ok(@parts = C4::ClassSplitRoutine::Generic::split_callnumber($ccn), "split LCC ($ccn)");
55
    ok(scalar(@expected) == scalar(@parts), sprintf("%d of %d pieces produced", scalar(@parts), scalar(@expected)));
55
    ok(scalar(@expected) == scalar(@parts), sprintf("%d of %d pieces produced", scalar(@parts), scalar(@expected)));
56
    my $i = 0;
56
    my $i = 0;
57
    foreach my $unit (@expected) {
57
    foreach my $unit (@expected) {
(-)a/t/db_dependent/Koha/ClassSources.t (-1 / +3 lines)
Lines 33-50 $schema->storage->txn_begin; Link Here
33
my $builder = t::lib::TestBuilder->new;
33
my $builder = t::lib::TestBuilder->new;
34
my $class_sort_1 = $builder->build({ source=>'ClassSortRule' });
34
my $class_sort_1 = $builder->build({ source=>'ClassSortRule' });
35
my $class_sort_2 = $builder->build({ source=>'ClassSortRule' });
35
my $class_sort_2 = $builder->build({ source=>'ClassSortRule' });
36
my $class_split = $builder->build({ source=>'ClassSplitRule' });
36
my $nb_of_class_sources = Koha::ClassSources->search->count;
37
my $nb_of_class_sources = Koha::ClassSources->search->count;
37
my $new_cs_1 = Koha::ClassSource->new({
38
my $new_cs_1 = Koha::ClassSource->new({
38
    cn_source => 'source_1',
39
    cn_source => 'source_1',
39
    description => 'a_test_1',
40
    description => 'a_test_1',
40
    used => '1',
41
    used => '1',
41
    class_sort_rule => $class_sort_1->{class_sort_rule},#'sort_rule_1',
42
    class_sort_rule => $class_sort_1->{class_sort_rule},#'sort_rule_1',
43
    class_split_rule => $class_split->{class_split_rule},
42
})->store;
44
})->store;
43
my $new_cs_2 = Koha::ClassSource->new({
45
my $new_cs_2 = Koha::ClassSource->new({
44
    cn_source => 'source_2',
46
    cn_source => 'source_2',
45
    description => 'a_test_2',
47
    description => 'a_test_2',
46
    used => '0',
48
    used => '0',
47
    class_sort_rule => $class_sort_2->{class_sort_rule},#'sort_rule_1',
49
    class_sort_rule => $class_sort_2->{class_sort_rule},#'sort_rule_1',
50
    class_split_rule => $class_split->{class_split_rule},
48
})->store;
51
})->store;
49
52
50
is( $new_cs_1->cn_source, 'source_1', 'Adding a new classification should have set the cn_source');
53
is( $new_cs_1->cn_source, 'source_1', 'Adding a new classification should have set the cn_source');
51
- 

Return to bug 15836