|
Lines 33-39
use Koha::Caches;
Link Here
|
| 33 |
use t::lib::Mocks; |
33 |
use t::lib::Mocks; |
| 34 |
use t::lib::TestBuilder; |
34 |
use t::lib::TestBuilder; |
| 35 |
|
35 |
|
| 36 |
use Test::More tests => 14; |
36 |
use Test::More tests => 15; |
| 37 |
|
37 |
|
| 38 |
use Test::Warn; |
38 |
use Test::Warn; |
| 39 |
|
39 |
|
|
Lines 934-939
subtest 'Check add_to_rota method' => sub {
Link Here
|
| 934 |
$schema->storage->txn_rollback; |
934 |
$schema->storage->txn_rollback; |
| 935 |
}; |
935 |
}; |
| 936 |
|
936 |
|
|
|
937 |
subtest 'Split subfields in Item2Marc (Bug 21774)' => sub { |
| 938 |
plan tests => 3; |
| 939 |
$schema->storage->txn_begin; |
| 940 |
|
| 941 |
my $builder = t::lib::TestBuilder->new; |
| 942 |
my $biblio = $builder->build({ source => 'Biblio', value => { frameworkcode => q{} } }); |
| 943 |
my $item = $builder->build({ source => 'Item', value => { biblionumber => $biblio->{biblionumber}, ccode => 'A|B' } }); |
| 944 |
|
| 945 |
Koha::MarcSubfieldStructures->search({ tagfield => '952', tagsubfield => '8' })->delete; # theoretical precaution |
| 946 |
Koha::MarcSubfieldStructures->search({ kohafield => 'items.ccode' })->delete; |
| 947 |
my $mapping = Koha::MarcSubfieldStructure->new({ frameworkcode => q{}, tagfield => '952', tagsubfield => '8', kohafield => 'items.ccode' })->store; |
| 948 |
|
| 949 |
# Start testing |
| 950 |
my $marc = C4::Items::Item2Marc( $item, $biblio->{biblionumber} ); |
| 951 |
my @subs = $marc->subfield( $mapping->tagfield, $mapping->tagsubfield ); |
| 952 |
is( @subs, 2, 'Expect two subfields' ); |
| 953 |
is( $subs[0], 'A', 'First subfield matches' ); |
| 954 |
is( $subs[1], 'B', 'Second subfield matches' ); |
| 955 |
|
| 956 |
$schema->storage->txn_rollback; |
| 957 |
}; |
| 958 |
|
| 937 |
# Helper method to set up a Biblio. |
959 |
# Helper method to set up a Biblio. |
| 938 |
sub get_biblio { |
960 |
sub get_biblio { |
| 939 |
my ( $frameworkcode ) = @_; |
961 |
my ( $frameworkcode ) = @_; |
| 940 |
- |
|
|