trunk/t/7-est.t

#!/usr/bin/perl -w

use strict;

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

BEGIN {
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");

ok(my $est = new WebPAC::Search::Estraier(
        url => 'http://localhost:1978/node/webpac2',
        user => 'admin',
        passwd => 'admin',
        encoding => 'iso-8859-2',
        log => $log,
), "new");

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

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

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

diag Dumper(\@res);

1	dpavlin	80	#!/usr/bin/perl -w
2
3			use strict;
4
5			use Test::More tests => 16;
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::Search::Estraier' );
14			use_ok( 'Log::Log4perl' );
15			}
16
17			Log::Log4perl::init('./conf/log.conf');
18			ok(my $log = Log::Log4perl->get_logger('WebPAC.test'), "get_logger");
19
20			ok(my $est = new WebPAC::Search::Estraier(
21			url => 'http://localhost:1978/node/webpac2',
22			user => 'admin',
23			passwd => 'admin',
24			encoding => 'iso-8859-2',
25			log => $log,
26			), "new");
27
28			my $query = 'ivan';
29			my $max = 3;
30
31			ok(my @res = $est->search(
32			query => $query,
33			max => $max,
34			attr => [ qw/PersonalName/ ],
35			), "search $query, max: $max");
36
37			cmp_ok($#res, '==', $max, "$max hits");
38
39			diag Dumper(\@res);
40