--- trunk/t/swish.t 2004/12/03 13:40:34 2 +++ trunk/t/swish.t 2004/12/03 15:23:23 3 @@ -2,7 +2,7 @@ use strict; -use Test::More tests => 4; +use Test::More tests => 5; use Test::Exception; use blib; @@ -12,11 +12,18 @@ my $i; -throws_ok { SWISH::PlusPlus->new() } qr/index/, "need index"; +throws_ok { SWISH::PlusPlus->open() } qr/index_dir/, "need index_dir"; ## FIXME my $index = '/tmp/swish-pp'; -ok($i = new SWISH::PlusPlus( index=> $index ), "new"); +$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;