Parent Directory | Revision Log
new test (single one will do, I hope)
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"); |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |