5 use Test::More tests => 13;
8 use File::Temp qw/tempdir/;
13 use_ok( 'WebPAC::Output::Estraier' );
14 use_ok( 'WebPAC::Search::Estraier' );
15 use_ok( 'Log::Log4perl' );
18 Log::Log4perl::init('./conf/log.conf');
19 ok(my $log = Log::Log4perl->get_logger('WebPAC.test'), "get_logger");
22 masterurl => 'http://localhost:1978/',
25 database => 'webpac2test',
26 encoding => 'iso-8859-2',
31 ok(my $est = new WebPAC::Output::Estraier( %{ $config } ), "new WebPAC::Output::Estraier");
37 'display' => [ 'foo' ],
38 'search' => [ 'demo source '],
43 'search' => [ 'bar' ],
44 'lookup_key' => [ 'bar' ],
46 'filename' => [ 'out/thes/001.html' ],
51 ok($est->add( id => 42, ds => $ds, type => 'search' ), "add");
53 ok(my $est_s = new WebPAC::Search::Estraier( %{ $config } ), "new WebPAC::Search::Estraier");
58 ok(my @res = $est_s->search(
60 get_attr => [ qw/ID Source/ ],
62 ), "search $query, max: $max");
64 cmp_ok(($#res + 1), '==', $max, "$max hits");
66 ok($est->master( action => 'nodeadd', name => 'webpac2test_link', label => 'test' ), "nodeadd");
68 ok($est->add_link( from => 'webpac2test', to => 'webpac2test_link', credit => 42 ), "add_link");
70 ok($est->master( action => 'nodedel', name => 'webpac2test' ), "nodedel");
71 ok($est->master( action => 'nodedel', name => 'webpac2test_link' ), "nodedel");