trunk/t/swish.t

#!/usr/bin/perl -w

use strict;

use Test::More tests => 22;
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'
), "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");
}
1	#!/usr/bin/perl -w
2
3	use strict;
4
5	use Test::More tests => 22;
6	use Test::Exception;
7	use lib '.';
8	use blib;
9
10	BEGIN {
11	use_ok('SWISH::PlusPlus')
12	};
13
14	my $i;
15
16	throws_ok { SWISH::PlusPlus->new() } qr/index_dir/, "need index_dir";
17
18	## FIXME
19	my $index = '/tmp/swish-pp';
20
21	$i = SWISH::PlusPlus->new(
22	index_dir => $index,
23	debug => 0,
24	meta_in_body => 1,
25	);
26	ok($i, "open index");
27
28	ok(-e $index, "index exist");
29
30	ok($i->check_bin, "swish++ check");
31
32	diag $i->{'version'} \|\| die;
33
34	ok($i->index_document( 42 => 'meaning of life' ), "index 42");
35
36	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	# 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
46	cmp_ok($i->{'index_dir'}, 'eq', $index, "index_dir ok");
47
48	foreach my $word (qw(meaning of life)) {
49	my @r = $i->search($word);
50	cmp_ok(scalar @r, '==', 1, "find $word");
51	}
52
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	}