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 |
- |
|
|