#!/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");
}