--- trunk/t/SWISH-Split.t	2004/08/08 10:09:55	1
+++ trunk/t/SWISH-Split.t	2004/08/08 10:27:27	2
@@ -2,13 +2,16 @@
 
 use strict;
 
-use Test::More tests => 9;
+use Test::More tests => 11;
 use Test::Exception;
 use File::Temp qw/ :mktemp /;
 use blib;
 
 BEGIN { use_ok('SWISH::Split') };
 
+# FIXME debug
+system "rm -Rf /tmp/swish?????";
+
 my %param;
 
 throws_ok { SWISH::Split->open(%param) } qr/slice_name/, "slice_name";
@@ -21,15 +24,24 @@
 print Dumper(\&slice_1st_char);
 
 $param{'slice_name'} = \&slice_1st_char;
-throws_ok { SWISH::Split->open(%param) } qr/slices/, "slices";
+throws_ok { SWISH::Split->open(%param) } qr/slices/, "need slices";
 
 $param{'slices'} = 3;
-throws_ok { SWISH::Split->open(%param) } qr/index/, "index";
+throws_ok { SWISH::Split->open(%param) } qr/index/, "need index";
+
+ok($param{'index'} = mktemp("/tmp/swishXXXXX"), "make temp name");
+
+diag "index path: $param{'index'}\n";
+
+ok(open(F, "> $param{'index'}"), "touch");
+close(F);
+
+throws_ok { SWISH::Split->open(%param) } qr/dir/, "need dir";
+
+ok(unlink($param{'index'}), "rm");
 
-ok($param{'index'} = mkstemp("/tmp/swishXXXXX"), "make temp index");
-throws_ok { SWISH::Split->open(%param) } qr/dir/, "dir";
+ok(mkdir($param{'index'}), "mkdir");
 
-ok($param{'index'} = mkdtemp("/tmp/swishXXXXX"), "make temp index");
 ok(my $i=SWISH::Split->open(%param), "open");
 
 # methods test