trunk/t/3_ResultDocument.t

#!/usr/bin/perl -w

use strict;
use blib;

use Test::More tests => 4;
use Test::Exception;
#use Data::Dumper;

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

dies_ok { new Search::Estraier::ResultDocument } "new without args";
ok(my $rdoc = new Search::Estraier::ResultDocument(
        uri => 'file:///foo',
        attrs => {
                foo => 1,
                bar => 2,
        },
        snippet => 'none at all',
        keywords => "foo\tbar\tbaz\tboo",
), 'new');
isa_ok($rdoc, 'Search::Estraier::ResultDocument');

1	#!/usr/bin/perl -w
2
3	use strict;
4	use blib;
5
6	use Test::More tests => 4;
7	use Test::Exception;
8	#use Data::Dumper;
9
10	BEGIN { use_ok('Search::Estraier') };
11
12	dies_ok { new Search::Estraier::ResultDocument } "new without args";
13	ok(my $rdoc = new Search::Estraier::ResultDocument(
14	uri => 'file:///foo',
15	attrs => {
16	foo => 1,
17	bar => 2,
18	},
19	snippet => 'none at all',
20	keywords => "foo\tbar\tbaz\tboo",
21	), 'new');
22	isa_ok($rdoc, 'Search::Estraier::ResultDocument');
23