--- trunk/t/4-db.tt	2005/07/17 14:53:37	18
+++ trunk/t/4-db.t	2005/07/17 15:04:39	19
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-use Test::More tests => 22;
+use Test::More tests => 23;
 use Test::Exception;
 use Cwd qw/abs_path/;
 use blib;
@@ -16,10 +16,11 @@
 diag "abs_path: $abs_path";
 
 my $db;
+my $debug = 1;
 
 diag "NULL DB";
 
-ok($db = new WebPAC::DB( debug => 1), "new");
+ok($db = new WebPAC::DB( debug => $debug ), "new");
 
 ok(! $db->path, "path");
 
@@ -35,16 +36,18 @@
 
 diag "DB path: $path";
 
-ok($db = new WebPAC::DB( path => $path, debug => 1), "new");
+ok($db = new WebPAC::DB( path => $path, debug => $debug ), "new");
 
 cmp_ok($db->{'path'}, 'eq', $path, "path");
 
-ok(! $db->path, "path - disable caching");
+ok(! $db->path(''), "path - disable caching");
 
 cmp_ok($db->{'path'}, '==', undef, "no path");
 
 ok($db->path( $path ), "path($path)");
 
+cmp_ok($db->{'path'}, 'eq', $path, "path");
+
 ok(! $db->load_gs(), 'load_gs');
 ok(! $db->load_gs({ '000' => '000' }), 'load_gs');