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 |
} |
} |