Bug 28290: (follow-up) Unit test

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
(cherry picked from commit e36e6c55a7)

Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
(cherry picked from commit 9eb3d8332a)
Signed-off-by: Arthur Suzuki <arthur.suzuki@biblibre.com>
This commit is contained in:
Nick Clemens 2022-09-02 06:39:39 +00:00 committed by Arthur Suzuki
parent 68c1318ff6
commit d607aaf911
1 changed files with 8 additions and 1 deletions

View File

@ -82,7 +82,7 @@ is( $testmatcher->description(), 'match on ISSN', 'testing code accessor' );
subtest '_get_match_keys() tests' => sub {
plan tests => 20;
plan tests => 21;
my $matchpoint = get_title_matchpoint({
length => 0,
@ -262,6 +262,13 @@ subtest '_get_match_keys() tests' => sub {
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 {