r256@brr: dpavlin | 2007-11-24 03:01:07 +0100

 cleanup unneeded test

git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@221 836a5e1a-633d-0410-964b-294494ad4392

diff --git a/t/07-tree.t b/t/07-tree.t
deleted file mode 100755 (executable)
index ba6824b..0000000
--- a/t/07-tree.t
+++ /dev/null
@@ -1,37 +0,0 @@
-#!/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 )" );
-}