trunk/t/07-tree.t

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

my $debug = shift @ARGV;

use Test::More tests => 6;
use Data::Dump qw/dump/;
use lib 'lib';

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

#use Cwd qw/abs_path/;
#ok(my $abs_path = abs_path($0), "abs_path");
#$abs_path =~ s!/[^/]*$!/!;     #!fix-vim

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

my @perl = qw/
{'InternetGatewayDevice'}->{'DeviceInfo'}->{'HardwareVersion'}
{'InternetGatewayDevice'}->{'DeviceInfo'}->{'VendorConfigFile'}->[1]->{'Date'}
{'InternetGatewayDevice'}->{'Services'}->{'VoiceService'}->[1]->{'PhyInterface'}->[2]->{'PhyPort'}
/;

foreach my $name ( qw/
InternetGatewayDevice.DeviceInfo.HardwareVersion
InternetGatewayDevice.DeviceInfo.VendorConfigFile.1.Date
InternetGatewayDevice.Services.VoiceService.1.PhyInterface.2.PhyPort
/ ) {
        my $expect = shift @perl;
        cmp_ok( $obj->name2perl( $name ), 'eq', $expect, "name2perl( $name )" );
}
1	dpavlin	103	#!/usr/bin/perl
2			use strict;
3			use warnings;
4
5			my $debug = shift @ARGV;
6
7			use Test::More tests => 6;
8			use Data::Dump qw/dump/;
9			use lib 'lib';
10
11			BEGIN {
12			use_ok('CWMP::Tree');
13			}
14
15			#use Cwd qw/abs_path/;
16			#ok(my $abs_path = abs_path($0), "abs_path");
17			#$abs_path =~ s!/[^/]*$!/!; #!fix-vim
18
19			ok( my $obj = CWMP::Tree->new({
20			debug => $debug,
21			}), 'new' );
22			isa_ok( $obj, 'CWMP::Tree' );
23
24			my @perl = qw/
25			{'InternetGatewayDevice'}->{'DeviceInfo'}->{'HardwareVersion'}
26			{'InternetGatewayDevice'}->{'DeviceInfo'}->{'VendorConfigFile'}->[1]->{'Date'}
27			{'InternetGatewayDevice'}->{'Services'}->{'VoiceService'}->[1]->{'PhyInterface'}->[2]->{'PhyPort'}
28			/;
29
30			foreach my $name ( qw/
31			InternetGatewayDevice.DeviceInfo.HardwareVersion
32			InternetGatewayDevice.DeviceInfo.VendorConfigFile.1.Date
33			InternetGatewayDevice.Services.VoiceService.1.PhyInterface.2.PhyPort
34			/ ) {
35			my $expect = shift @perl;
36			cmp_ok( $obj->name2perl( $name ), 'eq', $expect, "name2perl( $name )" );
37			}