32 |
ok( my $server = CWMP::Server->new({ |
ok( my $server = CWMP::Server->new({ |
33 |
debug => $debug, |
debug => $debug, |
34 |
port => $port, |
port => $port, |
35 |
store => { |
session => { |
36 |
module => $store_module, |
store => { |
37 |
path => $store_path, |
module => $store_module, |
38 |
clean => 1, |
path => $store_path, |
39 |
}, |
clean => 1, |
40 |
|
}, |
41 |
|
create_dump => 0, |
42 |
|
} |
43 |
}), 'new' ); |
}), 'new' ); |
44 |
isa_ok( $server, 'CWMP::Server' ); |
isa_ok( $server, 'CWMP::Server' ); |
45 |
|
|
199 |
ok( kill(9,$pid), 'kill ' . $pid ); |
ok( kill(9,$pid), 'kill ' . $pid ); |
200 |
|
|
201 |
ok( waitpid($pid,0), 'waitpid' ); |
ok( waitpid($pid,0), 'waitpid' ); |
202 |
|
|