--- google/t/30-server.t 2007/06/22 18:25:24 84 +++ google/trunk/t/30-server.t 2007/10/26 11:42:39 112 @@ -4,7 +4,7 @@ my $debug = shift @ARGV; -use Test::More tests => 16; +use Test::More tests => 19; use Data::Dump qw/dump/; use Cwd qw/abs_path/; use blib; @@ -12,6 +12,7 @@ BEGIN { use_ok('Net::HTTP'); use_ok('CWMP::Server'); + use_ok('CWMP::Store'); } my $port = 4242; @@ -151,6 +152,40 @@ sleep 1; +ok( my $store = CWMP::Store->new({ path => $store_path, debug => $debug }), 'another store' ); + +my $state = { + CurrentTime => "1970-01-01T00:04:33Z", + DeviceID => { + Manufacturer => "THOMSON", + OUI => "00147F", + ProductClass => "SpeedTouch 780", + SerialNumber => "CP0644JTHJ4", + }, + EventStruct => ["0 BOOTSTRAP", "1 BOOT", "4 VALUE CHANGE"], + ID => "1_THOM_TR69_ID", + MaxEnvelopes => 2, + NoMoreRequests => undef, + Parameter => { + "\nInternetGatewayDevice.DeviceInfo.SpecVersion" => "1.1", + ".ExternalIPAddress" => "192.168.1.254", + "InternetGatewayDevice.DeviceInfo.HardwareVersion" => "BANT-R", + "InternetGatewayDevice.DeviceInfo.ProvisioningCode" => undef, + "InternetGatewayDevice.DeviceInfo.SoftwareVersion" => "6.2.15.5", + "InternetGatewayDevice.DeviceInfo.VendorConfigFile.1.Date" => "0000-00-00T00:00:00", + "InternetGatewayDevice.DeviceInfo.VendorConfigFile.1.Description" => "Factory Defaults", + "InternetGatewayDevice.DeviceInfo.VendorConfigFile.1.Name" => "Routed PPPoE on 0/35 and 8/35", + "InternetGatewayDevice.DeviceInfo.VendorConfigFile.1.Version" => undef, + "InternetGatewayDevice.DeviceSummary" => "InternetGatewayDevice:1.1[] (Baseline:1, EthernetLAN:1, ADSLWAN:1, Bridging:1, Time:1, WiFiLAN:1)", + "InternetGatewayDevice.ManagementServer.ConnectionRequestURL" => "http://192.168.1.254:51005/", + "InternetGatewayDevice.ManagementServer.ParameterKey" => undef, + }, + RetryCount => "01", + _dispatch => "InformResponse", +}; + +is_deeply( $store->state( ID => '1_THOM_TR69_ID' ), $state, 'new store->state' ); + ok( kill(9,$pid), 'kill ' . $pid ); ok( waitpid($pid,0), 'waitpid' );