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}}, 'doc_num');

for (my $i = 0; $i <= $res->doc_num; $i++) {
        ok(my $doc = $res->get_doc($i), "get_doc $i");
}
1	#!/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	}