X-Git-Url: http://git.rot13.org/?p=webpac2;a=blobdiff_plain;f=t%2F5-output-swish.t;h=f9e1bb9c2c0ce6770f1e0f25fc4d53aed13fd648;hp=2747732dc6254dc8370f3567c98bb246313b4422;hb=db74a57fa06de2166941f5b6549ca65915c5f893;hpb=d640cc607edf125566312cb51ae77de8f248aa4b diff --git a/t/5-output-swish.t b/t/5-output-swish.t index 2747732..f9e1bb9 100755 --- a/t/5-output-swish.t +++ b/t/5-output-swish.t @@ -6,17 +6,20 @@ use blib; 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' => { @@ -24,7 +27,7 @@ my $ds = { 'search' => [ 'tko zna' ] }, 'ID' => { - 'search' => 'id', + 'search' => [ 'id' ], }, 'Array' => { 'search' => [ qw/a1 a2 s3 a4 a5/ ], @@ -34,9 +37,6 @@ my $ds = { }, }; -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/ ); @@ -53,7 +53,7 @@ sub test_search { 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;