Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
subtest '_get_match_keys() tests' => sub {
subtest '_get_match_keys() tests' => sub {
my $matchpoint = get_title_matchpoint({
length => 0,
my $matchpoint = get_title_matchpoint({
length => 0,
is( $keys[2], '1NOTISBN3',
'Match key passed through if not an isbn when ISBN normalizer used');
is( $keys[2], '1NOTISBN3',
'Match key passed through if not an isbn when ISBN normalizer used');
+ $matchpoint = get_title_matchpoint({
+ length => 0,
+ offset => 0
+ });
+ delete $matchpoint->{component}->{subfields};
+ @keys = C4::Matcher::_get_match_keys( $record, $matchpoint );
+ is( $keys[0], ' .; thE t[]:,aliS(m)/An\'" Stephen King, Peter Straub.', "Match key correctly returns whole field if no subfields specified" )
};
subtest '_get_match_keys() leader tests' => sub {
};
subtest '_get_match_keys() leader tests' => sub {