/[cwmp]/google/trunk/t/20-methods.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /google/trunk/t/20-methods.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 178 by dpavlin, Sun Oct 28 19:47:30 2007 UTC revision 227 by dpavlin, Sun Nov 25 18:51:26 2007 UTC
# Line 4  use warnings; Line 4  use warnings;
4    
5  my $debug = shift @ARGV;  my $debug = shift @ARGV;
6    
7  use Test::More tests => 16;  use Test::More tests => 18;
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;
11  use blib;  use blib;
12    
13    use Devel::LeakTrace::Fast;
14    
15  BEGIN {  BEGIN {
16          use_ok('CWMP::Methods');          use_ok('CWMP::Methods');
17  }  }
# Line 28  sub check_method { Line 30  sub check_method {
30          };          };
31    
32          diag "check_method $command",dump( 'state', @_ ) if $debug;          diag "check_method $command",dump( 'state', @_ ) if $debug;
33          ok( my $xml = $method->$command( $state, @_ ), "generate method $command" . dump(@_) );          ok( my $xml = $method->$command( $state, shift ), "generate method $command" . dump(@_) );
34    
35          my $file = "$abs_path/methods/$command.xml";          my $file = "$abs_path/methods/$command.xml";
36    
# Line 45  sub check_method { Line 47  sub check_method {
47  check_method( 'InformResponse' );  check_method( 'InformResponse' );
48  check_method( 'GetRPCMethods' );  check_method( 'GetRPCMethods' );
49  check_method( 'Reboot' );  check_method( 'Reboot' );
50  check_method( 'SetParameterValues',  check_method( 'SetParameterValues', {
51          'InternetGatewayDevice.DeviceInfo.ProvisioningCode' => 'test provision',          'InternetGatewayDevice.DeviceInfo.ProvisioningCode' => 'test provision',
52          'InternetGatewayDevice.DeviceInfo.X_000E50_Country' => 42,          'InternetGatewayDevice.DeviceInfo.X_000E50_Country' => 42,
53  );  });
54  check_method( 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.SerialNumber' );  check_method( 'GetParameterNames', [ 'InternetGatewayDevice.DeviceInfo.SerialNumber' ] );
55  check_method( 'GetParameterValues',  check_method( 'GetParameterValues', [
56          'InternetGatewayDevice.DeviceInfo.SerialNumber',          'InternetGatewayDevice.DeviceInfo.SerialNumber',
57          'InternetGatewayDevice.DeviceInfo.VendorConfigFile.',          'InternetGatewayDevice.DeviceInfo.VendorConfigFile.',
58  );  ]);
59    check_method( 'GetParameterAttributes', [
60            'InternetGatewayDevice.DeviceInfo.SerialNumber'
61    ]);
Legend:
Removed from v.178  
changed lines
  Added in v.227
  ViewVC Help
Powered by ViewVC 1.1.26