t/20-methods.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 my $debug = shift @ARGV;
   6
   7 use Test::More tests => 14;
   8 use Data::Dump qw/dump/;
   9 use Cwd qw/abs_path/;
  10 use File::Slurp;
  11 use blib;
  12
  13 BEGIN {
  14         use_ok('CWMP::Methods');
  15 }
  16
  17 ok(my $abs_path = abs_path($0), "abs_path");
  18 $abs_path =~ s!/[^/]*$!/!;      #!fix-vim
  19
  20 ok( my $response = CWMP::Methods->new({ debug => $debug }), 'new' );
  21 isa_ok( $response, 'CWMP::Methods' );
  22
  23 sub check_response {
  24         my $command = shift || die "no command?";
  25
  26         my $state = {
  27                 ID => 42,
  28         };
  29
  30         diag "check_response $command",dump( 'state', @_ ) if $debug;
  31         ok( my $xml = $response->$command( $state, @_ ), "generate response $command" . dump(@_) );
  32
  33         my $file = "$abs_path/response/$command.xml";
  34
  35         if ( ! -e $file ) {
  36                 diag "creating $file";
  37                 write_file( $file, $xml );
  38         }
  39
  40         my $template_xml = read_file( $file ) || die "can't read template xml $file: $!";
  41
  42         is( $xml, $template_xml, "compare $command" );
  43 }
  44
  45 check_response( 'InformResponse' );
  46 check_response( 'GetRPCMethods' );
  47 check_response( 'Reboot' );
  48 check_response( 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.SerialNumber' );
  49 check_response( 'GetParameterValues', 'InternetGatewayDevice.DeviceInfo.SerialNumber', 'InternetGatewayDevice.DeviceInfo.VendorConfigFile.' );