--- trunk/t/4_NodeResult.t 2006/01/06 14:10:29 52 +++ trunk/t/4_NodeResult.t 2006/01/06 14:39:45 53 @@ -24,8 +24,8 @@ ok(my $res = new Search::Estraier::NodeResult( %$data ), 'new'); isa_ok($res, 'Search::Estraier::NodeResult'); -cmp_ok($res->doc_num, '==', $#{$data->{docs}}, 'doc_num'); +cmp_ok($res->doc_num, '==', $#{$data->{docs}} + 1, 'doc_num'); -for (my $i = 0; $i <= $res->doc_num; $i++) { +for (my $i = 0; $i < $res->doc_num; $i++) { ok(my $doc = $res->get_doc($i), "get_doc $i"); }