my $debug = shift @ARGV;
-use Test::More tests => 19;
+use Test::More tests => 20;
use Data::Dump qw/dump/;
use Cwd qw/abs_path/;
use blib;
ok( my $server = CWMP::Server->new({
debug => $debug,
port => $port,
- store => {
- module => $store_module,
- path => $store_path,
- clean => 1,
- },
+ session => {
+ store => {
+ module => $store_module,
+ path => $store_path,
+ clean => 1,
+ },
+ create_dump => 0,
+ }
}), 'new' );
isa_ok( $server, 'CWMP::Server' );
EventStruct => ["0 BOOTSTRAP", "1 BOOT", "4 VALUE CHANGE"],
ID => "1_THOM_TR69_ID",
MaxEnvelopes => 2,
- NoMoreRequests => undef,
+# NoMoreRequests => undef,
Parameter => {
"\nInternetGatewayDevice.DeviceInfo.SpecVersion" => "1.1",
".ExternalIPAddress" => "192.168.1.254",
_dispatch => "InformResponse",
};
-is_deeply( $store->get_state( ID => '1_THOM_TR69_ID' ), $state, 'new store->get_state' );
+ok( my $store_state = $store->current_store->get_state( 'CP0644JTHJ4' ), 'get_state' );
+
+is_deeply( $store_state, $state, 'store->current_store->get_state' );
+
+diag "shutdown server";
ok( kill(9,$pid), 'kill ' . $pid );
ok( waitpid($pid,0), 'waitpid' );
+