/[SWISH-PlusPlus]/trunk/t/01swish.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /trunk/t/01swish.t

Parent Directory Parent Directory | Revision Log Revision Log


Revision 10 - (hide annotations)
Sun Dec 5 12:48:00 2004 UTC (19 years, 3 months ago) by dpavlin
Original Path: trunk/t/swish.t
File MIME type: application/x-troff
File size: 1204 byte(s)
rename open costructor to new

1 dpavlin 2 #!/usr/bin/perl -w
2    
3     use strict;
4    
5 dpavlin 9 use Test::More tests => 22;
6 dpavlin 2 use Test::Exception;
7 dpavlin 9 use lib '.';
8 dpavlin 2 use blib;
9    
10     BEGIN {
11     use_ok('SWISH::PlusPlus')
12     };
13    
14     my $i;
15    
16 dpavlin 10 throws_ok { SWISH::PlusPlus->new() } qr/index_dir/, "need index_dir";
17 dpavlin 2
18     ## FIXME
19     my $index = '/tmp/swish-pp';
20    
21 dpavlin 10 $i = SWISH::PlusPlus->new(
22 dpavlin 3 index_dir => $index,
23 dpavlin 8 debug => 0,
24 dpavlin 9 meta_in_body => 1,
25 dpavlin 3 );
26     ok($i, "open index");
27 dpavlin 2
28     ok(-e $index, "index exist");
29 dpavlin 3
30     ok($i->check_bin, "swish++ check");
31    
32     diag $i->{'version'} || die;
33 dpavlin 4
34     ok($i->index_document( 42 => 'meaning of life' ), "index 42");
35    
36 dpavlin 9 ok($i->add(
37     path => 'life',
38     title => 'Ultimate question answer found here',
39     body => '42 is answer to all questions'
40     ), "index life");
41    
42 dpavlin 4 # add one dummy document so that swish++ won't reject all words
43     # with index of just one document
44     ok($i->index_document( _dummy_ => '' ), "fillter");
45 dpavlin 7
46     cmp_ok($i->{'index_dir'}, 'eq', $index, "index_dir ok");
47 dpavlin 8
48     foreach my $word (qw(meaning of life)) {
49     my @r = $i->search($word);
50     cmp_ok(scalar @r, '==', 1, "find $word");
51     }
52 dpavlin 9
53     foreach my $word (qw(Ultimate question answer found here)) {
54     cmp_ok(scalar $i->search("title=($word)"), '==', 1, "find $word in title");
55     cmp_ok(scalar $i->search("$word"), '==', 1, "find $word anywhere");
56     }

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26