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	#!/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");