|
Lines 66-72
subtest "UNIMARC tests" => sub {
Link Here
|
| 66 |
|
66 |
|
| 67 |
subtest "_search tests" => sub { |
67 |
subtest "_search tests" => sub { |
| 68 |
|
68 |
|
| 69 |
plan tests => 10; |
69 |
plan tests => 14; |
| 70 |
|
70 |
|
| 71 |
t::lib::Mocks::mock_preference( 'marcflavour', 'MARC21' ); |
71 |
t::lib::Mocks::mock_preference( 'marcflavour', 'MARC21' ); |
| 72 |
t::lib::Mocks::mock_preference( 'SearchEngine', 'Elasticsearch' ); |
72 |
t::lib::Mocks::mock_preference( 'SearchEngine', 'Elasticsearch' ); |
|
Lines 86-91
subtest "_search tests" => sub {
Link Here
|
| 86 |
); |
86 |
); |
| 87 |
|
87 |
|
| 88 |
t::lib::Mocks::mock_preference( 'LinkerConsiderThesaurus', '0' ); |
88 |
t::lib::Mocks::mock_preference( 'LinkerConsiderThesaurus', '0' ); |
|
|
89 |
t::lib::Mocks::mock_preference( 'ConsiderHeadingUse', '0' ); |
| 89 |
|
90 |
|
| 90 |
my $field = MARC::Field->new( '650', ' ', '0', a => 'Uncles', x => 'Fiction' ); |
91 |
my $field = MARC::Field->new( '650', ' ', '0', a => 'Uncles', x => 'Fiction' ); |
| 91 |
my $heading = C4::Heading->new_from_field($field); |
92 |
my $heading = C4::Heading->new_from_field($field); |
|
Lines 219-222
subtest "_search tests" => sub {
Link Here
|
| 219 |
"When thesaurus in subfield 2, and nothing is found, we don't search again if LinkerConsiderThesaurusDisabled" |
220 |
"When thesaurus in subfield 2, and nothing is found, we don't search again if LinkerConsiderThesaurusDisabled" |
| 220 |
); |
221 |
); |
| 221 |
|
222 |
|
|
|
223 |
# return to the "original" mocked version of search_auth_compat: |
| 224 |
$search->mock( |
| 225 |
'search_auth_compat', |
| 226 |
sub { |
| 227 |
my $self = shift; |
| 228 |
my $search_query = shift; |
| 229 |
return ( $search_query, 1 ); |
| 230 |
} |
| 231 |
); |
| 232 |
t::lib::Mocks::mock_preference( 'ConsiderHeadingUse', '1' ); |
| 233 |
|
| 234 |
($search_query) = $heading->_search('match-heading'); |
| 235 |
$terms = $search_query->{query}->{bool}->{must}; |
| 236 |
$expected_terms = [ |
| 237 |
{ term => { 'match-heading.ci_raw' => 'Uncles generalsubdiv Fiction' } }, |
| 238 |
{ term => { 'heading-use-subject-added-entry.ci_raw' => 'a' } }, |
| 239 |
]; |
| 240 |
is_deeply( |
| 241 |
$terms, $expected_terms, |
| 242 |
"With ConsiderHeadingUse on and 650 tag Heading-use-subject-added-entry = 'a' is required in search query" |
| 243 |
); |
| 244 |
|
| 245 |
my $field_700 = MARC::Field->new( '700', '1', '2', a => 'Shakespeare William', t => 'Othello' ); |
| 246 |
my $heading_700 = C4::Heading->new_from_field($field_700); |
| 247 |
($search_query) = $heading_700->_search('match-heading'); |
| 248 |
$terms = $search_query->{query}->{bool}->{must}; |
| 249 |
$expected_terms = [ |
| 250 |
{ term => { 'match-heading.ci_raw' => 'Shakespeare William Othello' } }, |
| 251 |
{ term => { 'heading-use-main-or-added-entry.ci_raw' => 'a' } }, |
| 252 |
]; |
| 253 |
is_deeply( |
| 254 |
$terms, $expected_terms, |
| 255 |
"With ConsiderHeadingUse on and 700 tag Heading-use-main-or-added-entry = 'a' is required in search query" |
| 256 |
); |
| 257 |
|
| 258 |
my $field_800 = MARC::Field->new( '800', '1', ' ', a => 'Shakespeare William', t => 'Collected works' ); |
| 259 |
my $heading_800 = C4::Heading->new_from_field($field_800); |
| 260 |
($search_query) = $heading_800->_search('match-heading'); |
| 261 |
$terms = $search_query->{query}->{bool}->{must}; |
| 262 |
$expected_terms = [ |
| 263 |
{ term => { 'match-heading.ci_raw' => 'Shakespeare William Collected works' } }, |
| 264 |
{ term => { 'heading-use-series-added-entry.ci_raw' => 'a' } }, |
| 265 |
]; |
| 266 |
is_deeply( |
| 267 |
$terms, $expected_terms, |
| 268 |
"With ConsiderHeadingUse on and 800 tag Heading-use-series-added-entry = 'a' is required in search query" |
| 269 |
); |
| 270 |
|
| 271 |
t::lib::Mocks::mock_preference( 'ConsiderHeadingUse', '0' ); |
| 272 |
|
| 273 |
($search_query) = $heading_800->_search('match-heading'); |
| 274 |
$terms = $search_query->{query}->{bool}->{must}; |
| 275 |
$expected_terms = [ |
| 276 |
{ term => { 'match-heading.ci_raw' => 'Shakespeare William Collected works' } }, |
| 277 |
]; |
| 278 |
is_deeply( |
| 279 |
$terms, $expected_terms, |
| 280 |
"With ConsiderHeadingUse off and 800 tag there is no Heading-use-series-added-entry condition in search query" |
| 281 |
); |
| 282 |
|
| 222 |
}; |
283 |
}; |
| 223 |
- |
|
|