trunk/t/7-est.t

#!/usr/bin/perl -w

use strict;

use Test::More tests => 7;
use Test::Exception;
use Cwd qw/abs_path/;
use File::Temp qw/tempdir/;
use Data::Dumper;
use blib;

BEGIN {
use_ok( 'WebPAC::Output::Estraier' );
use_ok( 'WebPAC::Search::Estraier' );
use_ok( 'Log::Log4perl' );
}

Log::Log4perl::init('./conf/log.conf');
ok(my $log = Log::Log4perl->get_logger('WebPAC.test'), "get_logger");

my $config = {
        masterurl => 'http://localhost:1978/',
        user => 'admin',
        passwd => 'admin',
        database => 'webpac2test',
        encoding => 'iso-8859-2',
        log => $log,
        debug => 1,
};

ok(my $est = new WebPAC::Output::Estraier( %{ $config } ), "new WebPAC::Output::Estraier");

ok(my $list = $est->est_master( action => 'nodelist' ), "nodelist");

like($list , qr/$config->{database}/, "$list has $config->{database}");

ok($est = new WebPAC::Search::Estraier( %{ $config } ), "new WebPAC::Search::Estraier");

my $query = 'ivan';
my $max = 3;

ok(my @res = $est->search(
        phrase => $query,
        get_attr => [ qw/PersonalName TitleProper/ ],
        max => $max,
), "search $query, max: $max");

cmp_ok(($#res + 1), '==', $max, "$max hits");

diag Dumper(\@res);

1	#!/usr/bin/perl -w
2
3	use strict;
4
5	use Test::More tests => 7;
6	use Test::Exception;
7	use Cwd qw/abs_path/;
8	use File::Temp qw/tempdir/;
9	use Data::Dumper;
10	use blib;
11
12	BEGIN {
13	use_ok( 'WebPAC::Output::Estraier' );
14	use_ok( 'WebPAC::Search::Estraier' );
15	use_ok( 'Log::Log4perl' );
16	}
17
18	Log::Log4perl::init('./conf/log.conf');
19	ok(my $log = Log::Log4perl->get_logger('WebPAC.test'), "get_logger");
20
21	my $config = {
22	masterurl => 'http://localhost:1978/',
23	user => 'admin',
24	passwd => 'admin',
25	database => 'webpac2test',
26	encoding => 'iso-8859-2',
27	log => $log,
28	debug => 1,
29	};
30
31	ok(my $est = new WebPAC::Output::Estraier( %{ $config } ), "new WebPAC::Output::Estraier");
32
33	ok(my $list = $est->est_master( action => 'nodelist' ), "nodelist");
34
35	like($list , qr/$config->{database}/, "$list has $config->{database}");
36
37	ok($est = new WebPAC::Search::Estraier( %{ $config } ), "new WebPAC::Search::Estraier");
38
39	my $query = 'ivan';
40	my $max = 3;
41
42	ok(my @res = $est->search(
43	phrase => $query,
44	get_attr => [ qw/PersonalName TitleProper/ ],
45	max => $max,
46	), "search $query, max: $max");
47
48	cmp_ok(($#res + 1), '==', $max, "$max hits");
49
50	diag Dumper(\@res);
51