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 |
|
|
|