Parent Directory | Revision Log
test
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 |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |