projects
/
perl-cwmp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r206@brr: dpavlin | 2007-11-12 23:02:21 +0100
[perl-cwmp.git]
/
t
/
30-server.t
diff --git
a/t/30-server.t
b/t/30-server.t
index
212bbc0
..
4b7747c
100755
(executable)
--- a/
t/30-server.t
+++ b/
t/30-server.t
@@
-170,7
+170,7
@@
my $state = {
EventStruct => ["0 BOOTSTRAP", "1 BOOT", "4 VALUE CHANGE"],
ID => "1_THOM_TR69_ID",
MaxEnvelopes => 2,
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",
Parameter => {
"\nInternetGatewayDevice.DeviceInfo.SpecVersion" => "1.1",
".ExternalIPAddress" => "192.168.1.254",
@@
-189,7
+189,9
@@
my $state = {
_dispatch => "InformResponse",
};
_dispatch => "InformResponse",
};
-is_deeply( $store->get_state( ID => '1_THOM_TR69_ID' ), $state, 'new store->get_state' );
+is_deeply( $store->current_store->get_state( 'CP0644JTHJ4' ), $state, 'store->current_store->get_state' );
+
+diag "shutdown server";
ok( kill(9,$pid), 'kill ' . $pid );
ok( kill(9,$pid), 'kill ' . $pid );