trunk/t/01swish.t

#!/usr/bin/perl -w

use strict;

use Test::More tests => 27;
use Test::Exception;
use lib '.';
use blib;

BEGIN {
        use_ok('SWISH::PlusPlus')
};

my $i;

throws_ok { SWISH::PlusPlus->new() } qr/index_dir/, "need index_dir";

## FIXME
my $index = '/tmp/swish-pp';

$i = SWISH::PlusPlus->new(
        index_dir => $index,
        debug => 0,
        meta_in_body => 1,
);
ok($i, "open index");

ok(-e $index, "index exist");

ok($i->check_bin, "swish++ check");

diag $i->{'version'} || die;

ok($i->index_document( 42 => 'meaning of life' ), "index 42");

ok($i->add(
        path => 'life',
        title => 'Ultimate question answer found here',
        body => '42 is answer to all questions',
        meta => {
                author => 'Dobrica Pavlinusic',
                date => '2004-12-05',
                comment => 'woow!',
        },
), "index life");

# add one dummy document so that swish++ won't reject all words
# with index of just one document
ok($i->index_document( _dummy_ => '' ), "fillter");

cmp_ok($i->{'index_dir'}, 'eq', $index, "index_dir ok");

foreach my $word (qw(meaning of life)) {
        my @r = $i->search($word);
        cmp_ok(scalar @r, '==', 1, "find $word");
}

foreach my $word (qw(Ultimate question answer found here)) {
        cmp_ok(scalar $i->search("title=($word)"), '==', 1, "find $word in title");
        cmp_ok(scalar $i->search("$word"), '==', 1, "find $word anywhere");
}

foreach my $word (qw(Dobrica Pavlinusic)) {
        cmp_ok(scalar $i->search("author=($word)"), '==', 1, "find $word in author");
}

cmp_ok(scalar $i->search("date=2004-12-05"), '==', 1, "found date");

cmp_ok(scalar $i->search("woow!"), '==', 1, "found woow");
cmp_ok(scalar $i->search("comment=(woow)"), '==', 1, "found woow");
1	dpavlin	2	#!/usr/bin/perl -w
2
3			use strict;
4
5	dpavlin	11	use Test::More tests => 27;
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	dpavlin	11	body => '42 is answer to all questions',
40			meta => {
41			author => 'Dobrica Pavlinusic',
42			date => '2004-12-05',
43			comment => 'woow!',
44			},
45	dpavlin	9	), "index life");
46
47	dpavlin	4	# add one dummy document so that swish++ won't reject all words
48			# with index of just one document
49			ok($i->index_document( _dummy_ => '' ), "fillter");
50	dpavlin	7
51			cmp_ok($i->{'index_dir'}, 'eq', $index, "index_dir ok");
52	dpavlin	8
53			foreach my $word (qw(meaning of life)) {
54			my @r = $i->search($word);
55			cmp_ok(scalar @r, '==', 1, "find $word");
56			}
57	dpavlin	9
58			foreach my $word (qw(Ultimate question answer found here)) {
59			cmp_ok(scalar $i->search("title=($word)"), '==', 1, "find $word in title");
60			cmp_ok(scalar $i->search("$word"), '==', 1, "find $word anywhere");
61			}
62	dpavlin	11
63			foreach my $word (qw(Dobrica Pavlinusic)) {
64			cmp_ok(scalar $i->search("author=($word)"), '==', 1, "find $word in author");
65			}
66
67			cmp_ok(scalar $i->search("date=2004-12-05"), '==', 1, "found date");
68
69			cmp_ok(scalar $i->search("woow!"), '==', 1, "found woow");
70			cmp_ok(scalar $i->search("comment=(woow)"), '==', 1, "found woow");