trunk/t/swish.t

#!/usr/bin/perl -w

use strict;

use Test::More tests => 11;
use Test::Exception;
use blib;

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

my $i;

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

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

$i = SWISH::PlusPlus->open(
        index_dir => $index,
        debug => 0,
);
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");

# 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");
}
1	#!/usr/bin/perl -w
2
3	use strict;
4
5	use Test::More tests => 11;
6	use Test::Exception;
7	use blib;
8
9	BEGIN {
10	use_ok('SWISH::PlusPlus')
11	};
12
13	my $i;
14
15	throws_ok { SWISH::PlusPlus->open() } qr/index_dir/, "need index_dir";
16
17	## FIXME
18	my $index = '/tmp/swish-pp';
19
20	$i = SWISH::PlusPlus->open(
21	index_dir => $index,
22	debug => 0,
23	);
24	ok($i, "open index");
25
26	ok(-e $index, "index exist");
27
28	ok($i->check_bin, "swish++ check");
29
30	diag $i->{'version'} \|\| die;
31
32	ok($i->index_document( 42 => 'meaning of life' ), "index 42");
33
34	# add one dummy document so that swish++ won't reject all words
35	# with index of just one document
36	ok($i->index_document( _dummy_ => '' ), "fillter");
37
38	cmp_ok($i->{'index_dir'}, 'eq', $index, "index_dir ok");
39
40	foreach my $word (qw(meaning of life)) {
41	my @r = $i->search($word);
42	cmp_ok(scalar @r, '==', 1, "find $word");
43	}