View | Details | Raw Unified | Return to bug 10298
Collapse All | Expand All

(-)a/t/searchengine/000_conn/conn.t (-8 / +8 lines)
Lines 1-23 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
use Test::More;
2
use Test::More;
3
use Koha::SearchEngine::Solr;
3
use Koha::SearchEngine::Solr;
4
use Koha::SearchEngine::Zebra;
4
#use Koha::SearchEngine::Zebra;
5
use Koha::SearchEngine::Search;
5
use Koha::SearchEngine::Search;
6
use t::lib::Mocks;
6
use t::lib::Mocks qw( mock_preference );
7
7
8
my $se_index = Koha::SearchEngine::Solr->new;
8
my $se_index = Koha::SearchEngine::Solr->new;
9
ok($se_index->isa('Data::SearchEngine::Solr'), 'Solr is a Solr data searchengine');
9
ok($se_index->isa('Data::SearchEngine::Solr'), 'Solr is a Solr data searchengine');
10
10
11
$se_index = Koha::SearchEngine::Zebra->new;
11
#$se_index = Koha::SearchEngine::Zebra->new;
12
ok($se_index->isa('Data::SearchEngine::Zebra'), 'Zebra search engine');
12
#ok($se_index->isa('Data::SearchEngine::Zebra'), 'Zebra search engine');
13
13
14
set_solr();
14
t::lib::Mocks::mock_preference('SearchEngine', 'Solr');
15
$se_index = Koha::SearchEngine::Search->new;
15
$se_index = Koha::SearchEngine::Search->new;
16
ok($se_index->searchengine->isa('Data::SearchEngine::Solr'), 'Solr search engine');
16
ok($se_index->searchengine->isa('Data::SearchEngine::Solr'), 'Solr search engine');
17
17
18
set_zebra();
18
#t::lib::Mocks::mock_preference('SearchEngine', 'Zebra');
19
$se_index = Koha::SearchEngine::Search->new;
19
#$se_index = Koha::SearchEngine::Search->new;
20
ok($se_index->searchengine->isa('Data::SearchEngine::Zebra'), 'Zebra search engine');
20
#ok($se_index->searchengine->isa('Data::SearchEngine::Zebra'), 'Zebra search engine');
21
21
22
22
23
done_testing;
23
done_testing;
(-)a/t/searchengine/001_search/search_base.t (-1 / +1 lines)
Lines 2-8 use Test::More; Link Here
2
2
3
use t::lib::Mocks;
3
use t::lib::Mocks;
4
4
5
set_solr;
5
t::lib::Mocks::mock_preference('SearchEngine', 'Solr');
6
use Koha::SearchEngine::Search;
6
use Koha::SearchEngine::Search;
7
my $search_service = Koha::SearchEngine::Search->new;
7
my $search_service = Koha::SearchEngine::Search->new;
8
isnt (scalar $search_service->search("fort"), 0, 'test search') ;
8
isnt (scalar $search_service->search("fort"), 0, 'test search') ;
(-)a/t/searchengine/002_index/index_base.t (-1 / +1 lines)
Lines 5-11 use t::lib::::Mocks; Link Here
5
5
6
use Koha::SearchEngine::Index;
6
use Koha::SearchEngine::Index;
7
7
8
set_solr;
8
t::lib::Mocks::mock_preference('SearchEngine', 'Solr');
9
my $index_service = Koha::SearchEngine::Index->new;
9
my $index_service = Koha::SearchEngine::Index->new;
10
system( qq{/bin/cp $FindBin::Bin/../indexes.yaml /tmp/indexes.yaml} );
10
system( qq{/bin/cp $FindBin::Bin/../indexes.yaml /tmp/indexes.yaml} );
11
$index_service->searchengine->config->set_config_filename( "/tmp/indexes.yaml" );
11
$index_service->searchengine->config->set_config_filename( "/tmp/indexes.yaml" );
(-)a/t/searchengine/003_query/buildquery.t (-3 / +2 lines)
Lines 19-25 my ($operands, $indexes, $operators); Link Here
19
@$indexes = ('ti', 'au');
19
@$indexes = ('ti', 'au');
20
@$operators = ('AND');
20
@$operators = ('AND');
21
21
22
set_solr;
22
t::lib::Mocks::mock_preference('SearchEngine', 'Solr');
23
my $qs = Koha::SearchEngine::QueryBuilder->new;
23
my $qs = Koha::SearchEngine::QueryBuilder->new;
24
24
25
my $se = Koha::SearchEngine->new;
25
my $se = Koha::SearchEngine->new;
Lines 31-37 is($gotsolr, $expectedsolr, "Test build_query Solr"); Link Here
31
31
32
32
33
# === Zebra part ===
33
# === Zebra part ===
34
set_zebra;
34
t::lib::Mocks::mock_preference('SearchEngine', 'Zebra');
35
$se = Koha::SearchEngine->new;
35
$se = Koha::SearchEngine->new;
36
is( $se->name, "Zebra", "Test searchengine name eq Zebra" );
36
is( $se->name, "Zebra", "Test searchengine name eq Zebra" );
37
$qs = Koha::SearchEngine::QueryBuilder->new;
37
$qs = Koha::SearchEngine::QueryBuilder->new;
Lines 39-45 my ( $builterror, $builtquery, $simple_query, $query_cgi, $query_desc, $limit, $ Link Here
39
my $gotzebra = $builtquery;
39
my $gotzebra = $builtquery;
40
my $expectedzebra = qq{ti,wrdl= cup AND au,wrdl= rowling };
40
my $expectedzebra = qq{ti,wrdl= cup AND au,wrdl= rowling };
41
is($gotzebra, $expectedzebra, "Test Zebra indexes in 'normal' search");
41
is($gotzebra, $expectedzebra, "Test Zebra indexes in 'normal' search");
42
# @and @attr 1=title @attr 4=6 "des mots de mon titre" @attr 1=author Jean en PQF
43
42
44
43
45
done_testing;
44
done_testing;
(-)a/t/searchengine/004_config/load_config.t (-3 / +1 lines)
Lines 6-13 use C4::Context; Link Here
6
use Koha::SearchEngine;
6
use Koha::SearchEngine;
7
use t::lib::Mocks;
7
use t::lib::Mocks;
8
8
9
set_solr;
9
t::lib::Mocks::mock_preference('SearchEngine', 'Solr');
10
11
my $se = Koha::SearchEngine->new;
10
my $se = Koha::SearchEngine->new;
12
is( $se->name, "Solr", "Test searchengine name eq Solr" );
11
is( $se->name, "Solr", "Test searchengine name eq Solr" );
13
12
14
- 

Return to bug 10298