Lines 82-88
is( $testmatcher->description(), 'match on ISSN', 'testing code accessor' );
Link Here
|
82 |
|
82 |
|
83 |
subtest '_get_match_keys() tests' => sub { |
83 |
subtest '_get_match_keys() tests' => sub { |
84 |
|
84 |
|
85 |
plan tests => 20; |
85 |
plan tests => 21; |
86 |
|
86 |
|
87 |
my $matchpoint = get_title_matchpoint({ |
87 |
my $matchpoint = get_title_matchpoint({ |
88 |
length => 0, |
88 |
length => 0, |
Lines 262-267
subtest '_get_match_keys() tests' => sub {
Link Here
|
262 |
is( $keys[2], '1NOTISBN3', |
262 |
is( $keys[2], '1NOTISBN3', |
263 |
'Match key passed through if not an isbn when ISBN normalizer used'); |
263 |
'Match key passed through if not an isbn when ISBN normalizer used'); |
264 |
|
264 |
|
|
|
265 |
$matchpoint = get_title_matchpoint({ |
266 |
length => 0, |
267 |
offset => 0 |
268 |
}); |
269 |
delete $matchpoint->{component}->{subfields}; |
270 |
@keys = C4::Matcher::_get_match_keys( $record, $matchpoint ); |
271 |
is( $keys[0], ' .; thE t[]:,aliS(m)/An\'" Stephen King, Peter Straub.', "Match key correctly returns whole field if no subfields specified" ) |
265 |
}; |
272 |
}; |
266 |
|
273 |
|
267 |
subtest '_get_match_keys() leader tests' => sub { |
274 |
subtest '_get_match_keys() leader tests' => sub { |
268 |
- |
|
|