google/t/20-response.t

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

my $debug = shift @ARGV;

use Test::More tests => 4;
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' );

ok( my $inform = $response->Inform({ ID => 42 }), 'Inform' );

diag $inform if $debug;
1	#!/usr/bin/perl
2	use strict;
3	use warnings;
4
5	my $debug = shift @ARGV;
6
7	use Test::More tests => 4;
8	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	ok( my $inform = $response->Inform({ ID => 42 }), 'Inform' );
22
23	diag $inform if $debug;