trunk/t/4_NodeResult.t

#!/usr/bin/perl -w

use strict;
use blib;

use Test::More tests => 10;
use Test::Exception;
use Data::Dumper;

BEGIN { use_ok('Search::Estraier') };

my $data = {
        docs => [ qw/1 2 3 4 5/ ],
        hints => {
                VERSION => 0.42,
                NODE => 'none',
                HIT => 42,
                DOCNUM => 1234,
                WORDNUM => 4321,
        },
};

dies_ok { new Search::Estraier::NodeResult } "new without args";
ok(my $res = new Search::Estraier::NodeResult( %$data ), 'new');
isa_ok($res, 'Search::Estraier::NodeResult');

cmp_ok($res->doc_num, '==', $#{$data->{docs}} + 1, 'doc_num');

for (my $i = 0; $i < $res->doc_num; $i++) {
        ok(my $doc = $res->get_doc($i), "get_doc $i");
}
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	dpavlin	53	cmp_ok($res->doc_num, '==', $#{$data->{docs}} + 1, 'doc_num');
28	dpavlin	25
29	dpavlin	53	for (my $i = 0; $i < $res->doc_num; $i++) {
30	dpavlin	25	ok(my $doc = $res->get_doc($i), "get_doc $i");
31			}