--- trunk/t/7-est.t 2005/11/21 14:42:16 80 +++ trunk/t/7-est.t 2005/11/21 14:42:22 81 @@ -2,7 +2,7 @@ use strict; -use Test::More tests => 16; +use Test::More tests => 6; use Test::Exception; use Cwd qw/abs_path/; use File::Temp qw/tempdir/; @@ -26,15 +26,15 @@ ), "new"); my $query = 'ivan'; -my $max = 3; +my $max = 10; ok(my @res = $est->search( query => $query, max => $max, - attr => [ qw/PersonalName/ ], + attr => [ qw/PersonalName TitleProper/ ], ), "search $query, max: $max"); -cmp_ok($#res, '==', $max, "$max hits"); +cmp_ok(($#res + 1), '==', $max, "$max hits"); diag Dumper(\@res);