trunk/t/swish.t

#!/usr/bin/perl -w

use strict;

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

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

my $i;

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

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

ok($i = new SWISH::PlusPlus( index=> $index ), "new");

ok(-e $index, "index exist");
1	dpavlin	2	#!/usr/bin/perl -w
2
3			use strict;
4
5			use Test::More tests => 4;
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->new() } qr/index/, "need index";
16
17			## FIXME
18			my $index = '/tmp/swish-pp';
19
20			ok($i = new SWISH::PlusPlus( index=> $index ), "new");
21
22			ok(-e $index, "index exist");