trunk/t/20-methods.t

#!/usr/bin/perl
use strict;
use warnings;

my $debug = shift @ARGV;

use Test::More tests => 7;
use Data::Dump qw/dump/;
use blib;

BEGIN {
        use_ok('CWMP::Response');
}

#ok( my $xml = join("",<DATA>), 'xml' );
#diag $xml if $debug;

ok( my $response = CWMP::Response->new({ debug => $debug }), 'new' );
isa_ok( $response, 'CWMP::Response' );

sub is_like {
        my ( $command, $template_xml ) = @_;

        ok( my $xml = $response->$command({ ID => 42 }), $command );
        diag $xml if $debug;
        chomp( $xml );
        chomp( $template_xml );
        like( $xml, qr{^\Q$template_xml\E$}, $command . ' xml' );
}

is_like( 'Inform', <<__SOAP__
<soap:Envelope xmlns:cwmp="urn:dslforum-org:cwmp-1-0" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
  <soap:Header>
    <cwmp:ID mustUnderstand="1">42</cwmp:ID>
  </soap:Header>
  <soap:Body>
    <cwmp:InformResponse>
      <cwmp:MaxEnvelopes>1</cwmp:MaxEnvelopes>
    </cwmp:InformResponse>
  </soap:Body>
</soap:Envelope>
__SOAP__
);

is_like( 'GetRPCMethods', <<__SOAP__
<soap:Envelope xmlns:cwmp="urn:dslforum-org:cwmp-1-0" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
  <soap:Header>
    <cwmp:ID mustUnderstand="1">42</cwmp:ID>
  </soap:Header>
  <soap:Body>
    <GetRPCMethods />
  </soap:Body>
</soap:Envelope>
__SOAP__
);
1	dpavlin	32	#!/usr/bin/perl
2			use strict;
3			use warnings;
4
5			my $debug = shift @ARGV;
6
7	dpavlin	46	use Test::More tests => 7;
8	dpavlin	32	use Data::Dump qw/dump/;
9			use blib;
10
11			BEGIN {
12			use_ok('CWMP::Response');
13			}
14
15			#ok( my $xml = join("",<DATA>), 'xml' );
16			#diag $xml if $debug;
17
18			ok( my $response = CWMP::Response->new({ debug => $debug }), 'new' );
19			isa_ok( $response, 'CWMP::Response' );
20
21	dpavlin	46	sub is_like {
22			my ( $command, $template_xml ) = @_;
23	dpavlin	32
24	dpavlin	46	ok( my $xml = $response->$command({ ID => 42 }), $command );
25			diag $xml if $debug;
26			chomp( $xml );
27			chomp( $template_xml );
28			like( $xml, qr{^\Q$template_xml\E$}, $command . ' xml' );
29			}
30
31			is_like( 'Inform', <<__SOAP__
32			<soap:Envelope xmlns:cwmp="urn:dslforum-org:cwmp-1-0" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
33	dpavlin	45	<soap:Header>
34			<cwmp:ID mustUnderstand="1">42</cwmp:ID>
35			</soap:Header>
36			<soap:Body>
37			<cwmp:InformResponse>
38			<cwmp:MaxEnvelopes>1</cwmp:MaxEnvelopes>
39			</cwmp:InformResponse>
40			</soap:Body>
41	dpavlin	46	</soap:Envelope>
42			__SOAP__
43			);
44	dpavlin	45
45	dpavlin	46	is_like( 'GetRPCMethods', <<__SOAP__
46			<soap:Envelope xmlns:cwmp="urn:dslforum-org:cwmp-1-0" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
47			<soap:Header>
48			<cwmp:ID mustUnderstand="1">42</cwmp:ID>
49			</soap:Header>
50			<soap:Body>
51			<GetRPCMethods />
52			</soap:Body>
53			</soap:Envelope>
54			__SOAP__
55			);