/[webpac2]/trunk/t/7-est.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/7-est.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 81 by dpavlin, Mon Nov 21 14:42:22 2005 UTC revision 126 by dpavlin, Thu Nov 24 11:47:21 2005 UTC
# Line 23  ok(my $est = new WebPAC::Search::Estraie Line 23  ok(my $est = new WebPAC::Search::Estraie
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");
Legend:
Removed from v.81  
changed lines
  Added in v.126
  ViewVC Help
Powered by ViewVC 1.1.26