--- trunk/t/swish.t 2004/12/03 23:30:22 7 +++ trunk/t/swish.t 2004/12/04 17:49:20 8 @@ -2,7 +2,7 @@ use strict; -use Test::More tests => 8; +use Test::More tests => 11; use Test::Exception; use blib; @@ -19,6 +19,7 @@ $i = SWISH::PlusPlus->open( index_dir => $index, + debug => 0, ); ok($i, "open index"); @@ -35,3 +36,8 @@ 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"); +}