c48639ee27
In order to avoid a long list of parameters, it should be better to pass all of them into a hashref. This patch does not add or modify a behavior. Test plan: Verify the unit tests still pass - prove t/SimpleMARC.t - prove t/db_dependent/MarcModificationTemplates.t Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
197 lines
11 KiB
Perl
197 lines
11 KiB
Perl
use Modern::Perl;
|
|
|
|
use Test::More tests => 37;
|
|
|
|
use_ok("MARC::Field");
|
|
use_ok("MARC::Record");
|
|
use_ok("Koha::SimpleMARC");
|
|
|
|
sub new_record {
|
|
my $record = MARC::Record->new;
|
|
$record->leader('03174nam a2200445 a 4500');
|
|
my @fields = (
|
|
MARC::Field->new(
|
|
100, '1', ' ',
|
|
a => 'Knuth, Donald Ervin',
|
|
d => '1938',
|
|
),
|
|
MARC::Field->new(
|
|
245, '1', '4',
|
|
a => 'The art of computer programming',
|
|
c => 'Donald E. Knuth.',
|
|
),
|
|
MARC::Field->new(
|
|
650, ' ', '0',
|
|
a => 'Computer programming.',
|
|
9 => '462',
|
|
),
|
|
MARC::Field->new(
|
|
952, ' ', ' ',
|
|
p => '3010023917',
|
|
y => 'BK',
|
|
c => 'GEN',
|
|
d => '2001-06-25',
|
|
),
|
|
);
|
|
$record->append_fields(@fields);
|
|
return $record;
|
|
}
|
|
|
|
my $record = new_record;
|
|
|
|
# field_exists
|
|
is( field_exists({ record => $record, field => '650', subfield => 'a' }), 'Computer programming.', '650$a exists' );
|
|
is( field_exists({ record => $record, field => '650', subfield => 'b' }), undef, '650$b does not exist' );
|
|
|
|
$record->append_fields(
|
|
MARC::Field->new(
|
|
650, ' ', '0',
|
|
a => 'Computer algorithms.',
|
|
9 => '463',
|
|
)
|
|
);
|
|
|
|
is( field_exists({ record => $record, field => '650', subfield => 'a' }), 'Computer programming.', '650$a exists, field_exists returns the first one' );
|
|
|
|
# read_field
|
|
my @fields_650a = read_field({ record => $record, field => '650', subfield => 'a' });
|
|
is( $fields_650a[0], 'Computer programming.', 'first 650$a' );
|
|
is( $fields_650a[1], 'Computer algorithms.', 'second 650$a' );
|
|
is( read_field({ record => $record, field => '650', subfield => 'a', n => 1 }), 'Computer programming.', 'first 650$a bis' );
|
|
is( read_field({ record => $record, field => '650', subfield => 'a', n => 2 }), 'Computer algorithms.', 'second 650$a bis' );
|
|
is( read_field({ record => $record, field => '650', subfield => 'a', n => 3 }), undef, 'There is no 3 650$a' );
|
|
|
|
# copy_field
|
|
copy_field({ record => $record, from_field => '245', from_subfield => 'a', to_field => '246', to_subfield => 'a' });
|
|
is_deeply( read_field({ record => $record, field => '245', subfield => 'a' }), 'The art of computer programming', 'After copy 245$a still exists' );
|
|
is_deeply( read_field({ record => $record, field => '246', subfield => 'a' }), 'The art of computer programming', '246$a is a new field' );
|
|
delete_field({ record => $record, field => '246' });
|
|
is( field_exists({ record => $record, field => '246', subfield => 'a' }), undef, '246$a does not exist anymore' );
|
|
|
|
copy_field({ record => $record, from_field => '650', from_subfield => 'a', to_field => '651', to_subfield => 'a' });
|
|
my @fields_651a = read_field({ record => $record, field => '651', subfield => 'a' });
|
|
is_deeply( \@fields_651a, ['Computer programming.', 'Computer algorithms.'], 'Copy multivalued field' );
|
|
delete_field({ record => $record, field => '651' });
|
|
|
|
copy_field({ record => $record, from_field => '650', from_subfield => 'a', to_field => '651', to_subfield => 'a', n => 1 });
|
|
is_deeply( read_field({record => $record, field => '651', subfield => 'a' }), 'Computer programming.', 'Copy first field 650$a' );
|
|
delete_field({ record => $record, field => '652' });
|
|
|
|
copy_field({ record => $record, from_field => '650', from_subfield => 'a', to_field => '651', to_subfield => 'a', n => 2 });
|
|
is_deeply( read_field({ record => $record, field => '651', subfield => 'a' }), 'Computer algorithms.', 'Copy second field 650$a' );
|
|
delete_field({ record => $record, field => '651' });
|
|
|
|
copy_field({ record => $record, from_field => '650', from_subfield => 'a', to_field => '651', to_subfield => 'a', regex => { search => 'Computer', replace => 'The art of' } } );
|
|
@fields_651a = read_field({ record => $record, field => '651', subfield => 'a' });
|
|
is_deeply( \@fields_651a, ['The art of programming.', 'The art of algorithms.'], 'Copy field using regex' );
|
|
|
|
copy_field({ record => $record, from_field => '650', from_subfield => 'a', to_field => '651', to_subfield => 'a', regex => { search => 'Computer', replace => 'The mistake of' } } );
|
|
@fields_651a = read_field({ record => $record, field => '651', subfield => 'a' });
|
|
is_deeply( \@fields_651a, ['The mistake of programming.', 'The mistake of algorithms.'], 'Copy fields using regex on existing fields' );
|
|
delete_field({ record => $record, field => '651' });
|
|
|
|
copy_field({ record => $record, from_field => '650', from_subfield => 'a', to_field => '651', to_subfield => 'a', regex => { search => 'Computer', replace => 'The art of' } } );
|
|
copy_field({ record => $record, from_field => '650', from_subfield => 'a', to_field => '651', to_subfield => 'a', regex => { search => 'Computer', replace => 'The mistake of' }, n => 1, dont_erase => 1 } );
|
|
@fields_651a = read_field({ record => $record, field => '651', subfield => 'a' });
|
|
is_deeply( \@fields_651a, [
|
|
'The art of programming.',
|
|
'The mistake of programming.',
|
|
'The art of algorithms.',
|
|
'The mistake of programming.'
|
|
], 'Copy first field using regex on existing fields without erase existing values' );
|
|
delete_field({ record => $record, field => '651' });
|
|
|
|
copy_field({ record => $record, from_field => '650', from_subfield => 'a', to_field => '651', to_subfield => 'a', regex => { search => 'Computer', replace => 'The art of' } });
|
|
copy_field({ record => $record, from_field => '650', from_subfield => 'a', to_field => '651', to_subfield => 'a', regex => { search => 'Computer', replace => 'The mistake of' }, dont_erase => 1 });
|
|
@fields_651a = read_field({ record => $record, field => '651', subfield => 'a' });
|
|
is_deeply( \@fields_651a, [
|
|
'The art of programming.',
|
|
'The mistake of programming.',
|
|
'The mistake of algorithms.',
|
|
'The art of algorithms.',
|
|
'The mistake of programming.',
|
|
'The mistake of algorithms.'
|
|
], 'Copy fields using regex on existing fields without erase existing values' );
|
|
delete_field({ record => $record, field => '651' });
|
|
|
|
# Copy with regex modifiers
|
|
copy_field({ record => $record, from_field => '650', from_subfield => 'a', to_field => '652', to_subfield => 'a', regex => { search => 'o', replace => 'foo' } });
|
|
my @fields_652a = read_field({ record => $record, field => '652', subfield => 'a' });
|
|
is_deeply( \@fields_652a, ['Cfoomputer programming.', 'Cfoomputer algorithms.'], 'Copy field using regex' );
|
|
|
|
copy_field({ record => $record, from_field => '650', from_subfield => 'a', to_field => '653', to_subfield => 'a', regex => { search => 'o', replace => 'foo', modifiers => 'g' } });
|
|
my @fields_653a = read_field({ record => $record, field => '653', subfield => 'a' });
|
|
is_deeply( \@fields_653a, ['Cfoomputer prfoogramming.', 'Cfoomputer algfoorithms.'], 'Copy field using regex' );
|
|
|
|
copy_field({ record => $record, from_field => '650', from_subfield => 'a', to_field => '654', to_subfield => 'a', regex => { search => 'O', replace => 'foo', modifiers => 'i' } });
|
|
my @fields_654a = read_field({ record => $record, field => '654', subfield => 'a' });
|
|
is_deeply( \@fields_654a, ['Cfoomputer programming.', 'Cfoomputer algorithms.'], 'Copy field using regex' );
|
|
|
|
copy_field({ record => $record, from_field => '650', from_subfield => 'a', to_field => '655', to_subfield => 'a', regex => { search => 'O', replace => 'foo', modifiers => 'gi' } });
|
|
my @fields_655a = read_field({ record => $record, field => '655', subfield => 'a' });
|
|
is_deeply( \@fields_655a, ['Cfoomputer prfoogramming.', 'Cfoomputer algfoorithms.'], 'Copy field using regex' );
|
|
|
|
# update_field
|
|
update_field({ record => $record, field => '952', subfield => 'p', values => ['3010023918'] });
|
|
is_deeply( read_field({ record => $record, field => '952', subfield => 'p' }), '3010023918', 'update existing subfield 952$p' );
|
|
delete_field({ record => $record, field => '952' });
|
|
update_field({ record => $record, field => '952', subfield => 'p', values => ['3010023918'] });
|
|
update_field({ record => $record, field => '952', subfield => 'y', values => ['BK'] });
|
|
is_deeply( read_field({ record => $record, field => '952', subfield => 'p' }), '3010023918', 'create subfield 952$p' );
|
|
is_deeply( read_field({ record => $record, field => '952', subfield => 'y' }), 'BK', 'create subfield 952$k on existing 952 field' );
|
|
$record->append_fields(
|
|
MARC::Field->new(
|
|
952, ' ', ' ',
|
|
p => '3010023917',
|
|
y => 'BK',
|
|
),
|
|
);
|
|
update_field({ record => $record, field => '952', subfield => 'p', values => ['3010023919'] });
|
|
my @fields_952p = read_field({ record => $record, field => '952', subfield => 'p' });
|
|
is_deeply( \@fields_952p, ['3010023919', '3010023919'], 'update all subfields 952$p with the same value' );
|
|
|
|
update_field({ record => $record, field => '952', subfield => 'p', values => ['3010023917', '3010023918'] });
|
|
@fields_952p = read_field({ record => $record, field => '952', subfield => 'p' });
|
|
is_deeply( \@fields_952p, ['3010023917', '3010023918'], 'update all subfields 952$p with the different values' );
|
|
|
|
# move_field
|
|
$record = new_record;
|
|
my ( @fields_952d, @fields_952c, @fields_954c, @fields_954p);
|
|
$record->append_fields(
|
|
MARC::Field->new(
|
|
952, ' ', ' ',
|
|
p => '3010023917',
|
|
y => 'BK',
|
|
),
|
|
);
|
|
copy_field({ record => $record, from_field => '952', from_subfield => 'd', to_field => '952', to_subfield => 'd' });
|
|
@fields_952d = read_field({ record => $record, field => '952', subfield => 'd' });
|
|
is_deeply( \@fields_952d, ['2001-06-25', '2001-06-25'], 'copy 952$d into others 952 field' );
|
|
|
|
move_field({ record => $record, from_field => '952', from_subfield => 'c', to_field => '954', to_subfield => 'c' });
|
|
@fields_952c = read_field({ record => $record, field => '952', subfield => 'c' });
|
|
@fields_954c = read_field({ record => $record, field => '954', subfield => 'c' });
|
|
is_deeply( \@fields_952c, [], 'The 952$c has moved' );
|
|
is_deeply( \@fields_954c, ['GEN'], 'Now 954$c exists' );
|
|
|
|
move_field({ record => $record, from_field => '952', from_subfield => 'p', to_field => '954', to_subfield => 'p', n => 1 }); # Move the first field
|
|
@fields_952p = read_field({ record => $record, field => '952', subfield => 'p' });
|
|
@fields_954p = read_field({ record => $record, field => '954', subfield => 'p' });
|
|
is_deeply( \@fields_952p, ['3010023917'], 'One of 952$p has moved' );
|
|
is_deeply( \@fields_954p, ['3010023917'], 'Now 954$p exists' );
|
|
|
|
$record = new_record;
|
|
$record->append_fields(
|
|
MARC::Field->new(
|
|
952, ' ', ' ',
|
|
p => '3010023917',
|
|
y => 'BK',
|
|
),
|
|
);
|
|
|
|
move_field({ record => $record, from_field => '952', from_subfield => 'p', to_field => '954', to_subfield => 'p' }); # Move all field
|
|
@fields_952p = read_field({ record => $record, field => '952', subfield => 'p' });
|
|
@fields_954p = read_field({ record => $record, field => '954', subfield => 'p' });
|
|
is_deeply( \@fields_952p, [], 'All 952$p have moved' );
|
|
is_deeply( \@fields_954p, ['3010023917', '3010023917'], 'Now 2 954$p exist' );
|
|
|