trunk/t/swish.t

#!/usr/bin/perl -w

use strict;

use Test::More tests => 6;
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,
);
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");
1	dpavlin	2	#!/usr/bin/perl -w
2
3			use strict;
4
5	dpavlin	4	use Test::More tests => 6;
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			);
23			ok($i, "open index");
24	dpavlin	2
25			ok(-e $index, "index exist");
26	dpavlin	3
27			ok($i->check_bin, "swish++ check");
28
29			diag $i->{'version'} \|\| die;
30	dpavlin	4
31			ok($i->index_document( 42 => 'meaning of life' ), "index 42");
32
33			# add one dummy document so that swish++ won't reject all words
34			# with index of just one document
35			ok($i->index_document( _dummy_ => '' ), "fillter");