#!/usr/bin/perl -w
use strict;
-use blib;
+use lib 'lib';
use Test::More tests => 35;
BEGIN {
-use_ok( 'WebPAC::Test' );
-use_ok( 'WebPAC::Output::SWISH' );
-use_ok( 'SWISH::API' );
+ use lib 'lib';
+ use_ok( 'WebPAC::Test' );
+ use_ok( 'WebPAC::Output::SWISH' );
+ use_ok( 'SWISH::API' );
}
my $path = "$abs_path/kino/";
-ok(my $out = new WebPAC::Output::SWISH(
+ok(my $out = new WebPAC::Output::SWISH({
database => 'test',
%LOG
-), "new");
+}), "new");
+
+ok( $out->init, 'init' );
my $ds = {
'Source' => {
'search' => [ 'tko zna' ]
},
'ID' => {
- 'search' => 'id',
+ 'search' => [ 'id' ],
},
'Array' => {
'search' => [ qw/a1 a2 s3 a4 a5/ ],
},
};
-throws_ok { $out->add( ) } qr/need id/, 'add without params';
-throws_ok { $out->add( 42 ) } qr/need ds/, 'add without ds';
-
ok( $out->add( 42, $ds ), 'add 42' );
my @strange = ( qw/èajðinica odma¹æivanje ¾abokreèina ¹uma/ );
my $swish = SWISH::API->new( $out->index_path );
$swish->abort_last_error if $swish->Error;
- my $results = $swish->search( $query_string );
+ my $results = $swish->query( $query_string );
my $total_hits = $results->hits;