4 |
|
|
5 |
my $debug = shift @ARGV; |
my $debug = shift @ARGV; |
6 |
|
|
7 |
use Test::More tests => 12; |
use Test::More tests => 14; |
8 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
9 |
use Cwd qw/abs_path/; |
use Cwd qw/abs_path/; |
10 |
use File::Slurp; |
use File::Slurp; |
41 |
check_response( 'GetRPCMethods' ); |
check_response( 'GetRPCMethods' ); |
42 |
check_response( 'Reboot' ); |
check_response( 'Reboot' ); |
43 |
check_response( 'GetParameterNames' ); |
check_response( 'GetParameterNames' ); |
44 |
|
check_response( 'GetParameterValues' ); |