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