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