From e34095ccff5e8a97791d416a8b0cc091d286cd3e Mon Sep 17 00:00:00 2001 From: Nick Clemens Date: Fri, 2 Sep 2022 06:39:39 +0000 Subject: [PATCH] Bug 28290: (follow-up) Unit test Signed-off-by: Katrin Fischer --- t/Matcher.t | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/t/Matcher.t b/t/Matcher.t index 3345e14251..2c7b288769 100755 --- a/t/Matcher.t +++ b/t/Matcher.t @@ -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 { -- 2.30.2