trunk/t/3_ResultDocument.t

#!/usr/bin/perl -w

use strict;
use blib;

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

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

my $doc = {
        uri => 'file:///foo',
        attrs => {
                foo => 1,
                bar => 2,
        },
        snippet => 'none at all',
        keywords => "foo\tbar\tbaz\tboo",
};

dies_ok { new Search::Estraier::ResultDocument } "new without args";
ok(my $rdoc = new Search::Estraier::ResultDocument( %$doc ), 'new');
isa_ok($rdoc, 'Search::Estraier::ResultDocument');

cmp_ok($rdoc->uri, 'eq', $doc->{uri}, 'uri');

ok(my @attr_names = keys %{ $doc->{attrs} }, "attr_names from original");
ok(my @rdoc_attr_names = $rdoc->attr_names, "attr_names from rdoc");
ok(eq_set(\@rdoc_attr_names, \@attr_names), 'attr_names comparison');

foreach my $attr (keys %{ $doc->{attrs} }) {
        cmp_ok($rdoc->attr($attr), 'eq', $doc->{attrs}->{$attr}, "attr: $attr");
}

cmp_ok($rdoc->snippet, 'eq', $doc->{snippet}, 'snippet');
cmp_ok($rdoc->keywords, 'eq', $doc->{keywords}, 'keywords');
1	#!/usr/bin/perl -w
2
3	use strict;
4	use blib;
5
6	use Test::More tests => 12;
7	use Test::Exception;
8	use Data::Dumper;
9
10	BEGIN { use_ok('Search::Estraier') };
11
12	my $doc = {
13	uri => 'file:///foo',
14	attrs => {
15	foo => 1,
16	bar => 2,
17	},
18	snippet => 'none at all',
19	keywords => "foo\tbar\tbaz\tboo",
20	};
21
22	dies_ok { new Search::Estraier::ResultDocument } "new without args";
23	ok(my $rdoc = new Search::Estraier::ResultDocument( %$doc ), 'new');
24	isa_ok($rdoc, 'Search::Estraier::ResultDocument');
25
26	cmp_ok($rdoc->uri, 'eq', $doc->{uri}, 'uri');
27
28	ok(my @attr_names = keys %{ $doc->{attrs} }, "attr_names from original");
29	ok(my @rdoc_attr_names = $rdoc->attr_names, "attr_names from rdoc");
30	ok(eq_set(\@rdoc_attr_names, \@attr_names), 'attr_names comparison');
31
32	foreach my $attr (keys %{ $doc->{attrs} }) {
33	cmp_ok($rdoc->attr($attr), 'eq', $doc->{attrs}->{$attr}, "attr: $attr");
34	}
35
36	cmp_ok($rdoc->snippet, 'eq', $doc->{snippet}, 'snippet');
37	cmp_ok($rdoc->keywords, 'eq', $doc->{keywords}, 'keywords');