1 |
dpavlin |
25 |
#!/usr/bin/perl -w |
2 |
|
|
|
3 |
|
|
use strict; |
4 |
|
|
use blib; |
5 |
|
|
|
6 |
|
|
use Test::More tests => 10; |
7 |
|
|
use Test::Exception; |
8 |
|
|
use Data::Dumper; |
9 |
|
|
|
10 |
|
|
BEGIN { use_ok('Search::Estraier') }; |
11 |
|
|
|
12 |
|
|
my $data = { |
13 |
|
|
docs => [ qw/1 2 3 4 5/ ], |
14 |
|
|
hints => { |
15 |
|
|
VERSION => 0.42, |
16 |
|
|
NODE => 'none', |
17 |
|
|
HIT => 42, |
18 |
|
|
DOCNUM => 1234, |
19 |
|
|
WORDNUM => 4321, |
20 |
|
|
}, |
21 |
|
|
}; |
22 |
|
|
|
23 |
|
|
dies_ok { new Search::Estraier::NodeResult } "new without args"; |
24 |
|
|
ok(my $res = new Search::Estraier::NodeResult( %$data ), 'new'); |
25 |
|
|
isa_ok($res, 'Search::Estraier::NodeResult'); |
26 |
|
|
|
27 |
|
|
cmp_ok($res->doc_num, '==', $#{$data->{docs}}, 'doc_num'); |
28 |
|
|
|
29 |
|
|
for (my $i = 0; $i <= $res->doc_num; $i++) { |
30 |
|
|
ok(my $doc = $res->get_doc($i), "get_doc $i"); |
31 |
|
|
} |