r145@llin (orig r144): dpavlin | 2007-10-28 00:12:55 +0200

[perl-cwmp.git] / t / 05-store.t

diff --git a/t/05-store.t b/t/05-store.t
index 7295f40..fb42380 100755 (executable)
--- a/t/05-store.t
+++ b/t/05-store.t
@@ -4,24 +4,27 @@ use warnings;
 
 my $debug = shift @ARGV;
 
-use Test::More tests => 17;
+use Test::More tests => 18;
 use Data::Dump qw/dump/;
 use Cwd qw/abs_path/;
 use lib 'lib';
 
 BEGIN {
        use_ok('CWMP::Store');
+       use_ok('CWMP::Store::DBMDeep');
 }
 
 ok(my $abs_path = abs_path($0), "abs_path");
 $abs_path =~ s!/[^/]*$!/!;     #!fix-vim
 
-my $path = "$abs_path/var/state.db";
+my $path = "$abs_path/var/";
 
 unlink $path if -e $path;
 
 ok( my $store = CWMP::Store->new({
        debug => $debug,
+#      module => 'DBMDeep',
+       module => 'YAML',
        path => $path,
 }), 'new' );
 isa_ok( $store, 'CWMP::Store' );