3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it
6 # under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 3 of the License, or
8 # (at your option) any later version.
10 # Koha is distributed in the hope that it will be useful, but
11 # WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with Koha; if not, see <http://www.gnu.org/licenses>.
20 use Test::More tests => 2;
24 use_ok('Koha::SearchEngine::Elasticsearch::Search');
26 subtest 'search_auth_compat' => sub {
29 t::lib::Mocks::mock_preference('QueryRegexEscapeOptions', 'dont_escape');
31 my $module = Test::MockModule->new('Koha::SearchEngine::Elasticsearch::Search');
32 $module->mock('count_auth_use', sub { return 1 });
33 $module->mock('search', sub {
34 # While the 001 and the authid should be the same, it is not always the case
35 # The _id is always the authid and so should be our source of trutch
36 my $marc_record = MARC::Record->new();
37 $marc_record->append_fields(
38 MARC::Field->new('001', 'Wrong001Number'),
45 'local-number' => ['Wrong001Number'],
46 'marc_data' => $marc_record,
47 'marc_format' => 'base64ISO2709',
55 $search = Koha::SearchEngine::Elasticsearch::Search->new({ 'index' => $Koha::SearchEngine::Elasticsearch::AUTHORITIES_INDEX }),
56 'Creating a new Search object'
59 my ( $results, undef ) = $search->search_auth_compat('faked');
61 is( @$results[0]->{authid}, '8675309', 'We get the expected record _id and not the 001');