/[Search-Estraier]/trunk/t/4_NodeResult.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/4_NodeResult.t

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

revision 52 by dpavlin, Thu Jan 5 15:01:56 2006 UTC revision 53 by dpavlin, Fri Jan 6 14:39:45 2006 UTC
# Line 24  dies_ok { new Search::Estraier::NodeResu Line 24  dies_ok { new Search::Estraier::NodeResu
24  ok(my $res = new Search::Estraier::NodeResult( %$data ), 'new');  ok(my $res = new Search::Estraier::NodeResult( %$data ), 'new');
25  isa_ok($res, 'Search::Estraier::NodeResult');  isa_ok($res, 'Search::Estraier::NodeResult');
26    
27  cmp_ok($res->doc_num, '==', $#{$data->{docs}}, 'doc_num');  cmp_ok($res->doc_num, '==', $#{$data->{docs}} + 1, 'doc_num');
28    
29  for (my $i = 0; $i <= $res->doc_num; $i++) {  for (my $i = 0; $i < $res->doc_num; $i++) {
30          ok(my $doc = $res->get_doc($i), "get_doc $i");          ok(my $doc = $res->get_doc($i), "get_doc $i");
31  }  }

Legend:
Removed from v.52  
changed lines
  Added in v.53

  ViewVC Help
Powered by ViewVC 1.1.26