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