/[SWISH-PlusPlus]/trunk/t/swish.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/swish.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2 by dpavlin, Fri Dec 3 13:40:34 2004 UTC revision 3 by dpavlin, Fri Dec 3 15:23:23 2004 UTC
# Line 2  Line 2 
2    
3  use strict;  use strict;
4    
5  use Test::More tests => 4;  use Test::More tests => 5;
6  use Test::Exception;  use Test::Exception;
7  use blib;  use blib;
8    
# Line 12  BEGIN { Line 12  BEGIN {
12    
13  my $i;  my $i;
14    
15  throws_ok { SWISH::PlusPlus->new() } qr/index/, "need index";  throws_ok { SWISH::PlusPlus->open() } qr/index_dir/, "need index_dir";
16    
17  ## FIXME  ## FIXME
18  my $index = '/tmp/swish-pp';  my $index = '/tmp/swish-pp';
19    
20  ok($i = new SWISH::PlusPlus( index=> $index ), "new");  $i = SWISH::PlusPlus->open(
21            index_dir => $index,
22    );
23    ok($i, "open index");
24    
25  ok(-e $index, "index exist");  ok(-e $index, "index exist");
26    
27    ok($i->check_bin, "swish++ check");
28    
29    diag $i->{'version'} || die;
Legend:
Removed from v.2  
changed lines
  Added in v.3
  ViewVC Help
Powered by ViewVC 1.1.26