4 |
|
|
5 |
my $debug = shift @ARGV; |
my $debug = shift @ARGV; |
6 |
|
|
7 |
use Test::More tests => 47; |
use Test::More tests => 32; |
8 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
9 |
use Cwd qw/abs_path/; |
use Cwd qw/abs_path/; |
10 |
use lib 'lib'; |
use lib 'lib'; |
13 |
|
|
14 |
BEGIN { |
BEGIN { |
15 |
use_ok('CWMP::Store'); |
use_ok('CWMP::Store'); |
|
use_ok('CWMP::Store::DBMDeep'); |
|
16 |
use_ok('CWMP::Store::YAML'); |
use_ok('CWMP::Store::YAML'); |
17 |
use_ok('CWMP::Store::JSON'); |
use_ok('CWMP::Store::JSON'); |
18 |
} |
} |
78 |
|
|
79 |
is_deeply( [ $store->all_uids ], [ 123456, 99999 ], 'all_uids' ); |
is_deeply( [ $store->all_uids ], [ 123456, 99999 ], 'all_uids' ); |
80 |
|
|
|
undef $store; |
|
|
|
|
81 |
} |
} |
82 |
|
|
83 |
# now test all stores |
# now test all stores |
84 |
|
|
|
test_store('DBMDeep'); |
|
85 |
test_store('YAML'); |
test_store('YAML'); |
86 |
test_store('JSON'); |
test_store('JSON'); |
87 |
|
|