--- t/11-tcq.t	2008/09/09 11:57:52	33
+++ t/11-tcq.t	2008/09/21 14:24:22	36
@@ -5,7 +5,7 @@
 
 use blib;
 
-use Test::More tests => 34;
+use Test::More tests => 30;
 use Test::Exception;
 use Data::Dump qw/dump/;
 
@@ -13,7 +13,7 @@
 use_ok( 'Search::TokyoDystopia' );
 }
 
-my $path = 'casket-q';
+my $path = 'casket-qdb';
 
 cmp_ok( $Search::TokyoDystopia::debug, '==', 0, '$debug' );
 
@@ -63,7 +63,7 @@
 
 is( tcqdbpath( $qdb ), $path, 'tcqdbpath' );
 
-is( tcqdbtnum( $qdb ), 2, 'tcqdbtnum' );
+is( tcqdbtnum( $qdb ), 13, 'tcqdbtnum' );
 
 ok( my $file_size = tcqdbfsiz( $qdb ), 'tcqdbfsiz' );
 
@@ -71,6 +71,6 @@
 
 is( tcqdbtnum( $qdb ), 0, 'tcqdbtnum' );
 
-cmp_ok( tcqdbfsiz( $qdb ), '<', $file_size, 'tcqdbfsiz' );
+cmp_ok( tcqdbfsiz( $qdb ), '<=', $file_size, 'tcqdbfsiz' );
 
 diag tcqdberrmsg( tcqdbecode( $qdb ) );