|
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 |
- |
|
|