23 |
passwd => 'admin', |
passwd => 'admin', |
24 |
encoding => 'iso-8859-2', |
encoding => 'iso-8859-2', |
25 |
log => $log, |
log => $log, |
26 |
|
debug => 1, |
27 |
), "new"); |
), "new"); |
28 |
|
|
29 |
my $query = 'ivan'; |
my $query = 'ivan'; |
30 |
my $max = 10; |
my $max = 3; |
31 |
|
|
32 |
ok(my @res = $est->search( |
ok(my @res = $est->search( |
33 |
query => $query, |
phrase => $query, |
34 |
|
get_attr => [ qw/PersonalName TitleProper/ ], |
35 |
max => $max, |
max => $max, |
|
attr => [ qw/PersonalName TitleProper/ ], |
|
36 |
), "search $query, max: $max"); |
), "search $query, max: $max"); |
37 |
|
|
38 |
cmp_ok(($#res + 1), '==', $max, "$max hits"); |
cmp_ok(($#res + 1), '==', $max, "$max hits"); |