|
Lines 1-3
Link Here
|
|
|
1 |
#!/usr/bin/perl |
| 2 |
|
| 1 |
# Copyright 2015 Catalyst IT |
3 |
# Copyright 2015 Catalyst IT |
| 2 |
# |
4 |
# |
| 3 |
# This file is part of Koha. |
5 |
# This file is part of Koha. |
|
Lines 18-24
Link Here
|
| 18 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 19 |
|
21 |
|
| 20 |
use Test::More tests => 13; |
22 |
use Test::More tests => 13; |
|
|
23 |
use C4::Context; |
| 21 |
use t::lib::Mocks; |
24 |
use t::lib::Mocks; |
|
|
25 |
use English qw( -no_match_vars ); |
| 26 |
use constant NUM_TESTS_CONFIG_DEPENDENT => 6; |
| 22 |
|
27 |
|
| 23 |
use Koha::SearchEngine::Elasticsearch::QueryBuilder; |
28 |
use Koha::SearchEngine::Elasticsearch::QueryBuilder; |
| 24 |
|
29 |
|
|
Lines 39-48
ok( my $query = $builder->build_query('easy'), 'Build a search query');
Link Here
|
| 39 |
|
44 |
|
| 40 |
SKIP: { |
45 |
SKIP: { |
| 41 |
|
46 |
|
| 42 |
eval { $builder->get_elasticsearch_params; }; |
47 |
my $check; |
| 43 |
|
48 |
my $msg; |
| 44 |
skip 'ElasticSeatch configuration not available', 6 |
49 |
if ( !defined C4::Context->config('elasticsearch') ) { |
| 45 |
if $@; |
50 |
$msg = 'ElasticSearch configuration not available'; |
|
|
51 |
} |
| 52 |
if ( !$msg ) { |
| 53 |
my $ses = Search::Elasticsearch->new( |
| 54 |
{ 'nodes' => ['localhost:9200'], 'index' => 'mydb' } ); |
| 55 |
$check = eval { my $node_check = $ses->nodes->info; }; |
| 56 |
$msg = $EVAL_ERROR; |
| 57 |
} |
| 58 |
|
| 59 |
if ( !$check && !$msg ) { |
| 60 |
$msg = 'Unable to check ElasticSearch node info'; |
| 61 |
} |
| 62 |
elsif ( $msg =~ /NoNode/xsm ) { |
| 63 |
$msg = 'ElasticSearch lacks nodes'; |
| 64 |
} |
| 65 |
|
| 66 |
if ($msg) { |
| 67 |
skip $msg, NUM_TESTS_CONFIG_DEPENDENT; |
| 68 |
} |
| 46 |
|
69 |
|
| 47 |
ok( my $results = $searcher->search( $query) , 'Do a search ' ); |
70 |
ok( my $results = $searcher->search( $query) , 'Do a search ' ); |
| 48 |
|
71 |
|
| 49 |
- |
|
|