sub check_response {
my $command = shift || die "no command?";
- ok( my $xml = $response->$command({ ID => 42 }), "generate response for $command" );
+ my $state = {
+ ID => 42,
+ };
+
+ ok( my $xml = $response->$command( $state, @_ ), "generate response $command" . dump(@_) );
my $file = "$abs_path/response/$command.xml";
check_response( 'InformResponse' );
check_response( 'GetRPCMethods' );
check_response( 'Reboot' );
-check_response( 'GetParameterNames' );
+check_response( 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.SerialNumber', 0 );
check_response( 'GetParameterValues' );
</soap:Header>
<soap:Body>
<cwmp:GetParameterNames>
- <cwmp:ParameterPath></cwmp:ParameterPath>
+ <cwmp:ParameterPath>InternetGatewayDevice.DeviceInfo.SerialNumber</cwmp:ParameterPath>
<cwmp:NextLevel>0</cwmp:NextLevel>
</cwmp:GetParameterNames>
</soap:Body>