Lines 17-27
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 1; |
20 |
use Test::More tests => 2; |
21 |
use Test::Exception; |
21 |
use Test::Exception; |
22 |
|
22 |
|
23 |
use Koha::Database; |
23 |
use Koha::Database; |
24 |
use Koha::SearchEngine::Elasticsearch::QueryBuilder; |
24 |
use Koha::SearchEngine::Elasticsearch::QueryBuilder |
25 |
|
25 |
|
26 |
subtest 'build_authorities_query_compat() tests' => sub { |
26 |
subtest 'build_authorities_query_compat() tests' => sub { |
27 |
|
27 |
|
Lines 53-55
subtest 'build_authorities_query_compat() tests' => sub {
Link Here
|
53 |
'Koha::Exceptions::WrongParameter', |
53 |
'Koha::Exceptions::WrongParameter', |
54 |
'Exception thrown on invalid value in the marclist param'; |
54 |
'Exception thrown on invalid value in the marclist param'; |
55 |
}; |
55 |
}; |
56 |
- |
56 |
|
|
|
57 |
subtest 'build query from form subtests' => sub { |
58 |
plan tests => 5; |
59 |
|
60 |
my $builder = Koha::SearchEngine::Elasticsearch::QueryBuilder->new({ 'index' => 'authorities' }), |
61 |
#when searching for authorities from a record the form returns marclist with blanks for unentered terms |
62 |
my @marclist = ('mainmainentry','mainentry','match', 'all'); |
63 |
my @values = ( undef, 'Hamilton', undef, undef); |
64 |
my @operator = ( 'contains', 'contains', 'contains', 'contains'); |
65 |
|
66 |
my $query = $builder->build_authorities_query_compat( \@marclist, undef, |
67 |
undef, \@operator , \@values, 'AUTH_TYPE', 'asc' ); |
68 |
is($query->{query}->{bool}->{should}[0]->{match}->{'Heading'}, "Hamilton","Expected search is populated"); |
69 |
is( scalar @{ $query->{query}->{bool}->{should} }, 1,"Only defined search is populated"); |
70 |
|
71 |
@values[2] = 'Jefferson'; |
72 |
$query = $builder->build_authorities_query_compat( \@marclist, undef, |
73 |
undef, \@operator , \@values, 'AUTH_TYPE', 'asc' ); |
74 |
is($query->{query}->{bool}->{should}[0]->{match}->{'Heading'}, "Hamilton","First index searched as expected"); |
75 |
is($query->{query}->{bool}->{should}[1]->{match}->{'Match'}, "Jefferson","Second index searched when populated"); |
76 |
is( scalar @{ $query->{query}->{bool}->{should} }, 2,"Only defined searches are populated"); |
77 |
|
78 |
|
79 |
}; |