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	dpavlin	21	#!/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