From 05a74703cfed777742e9110b36f4ecd3dd1878cc Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 24 Nov 2007 02:16:56 +0000
Subject: [PATCH]  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
---
 t/07-tree.t | 37 -------------------------------------
 1 file changed, 37 deletions(-)
 delete mode 100755 t/07-tree.t

diff --git a/t/07-tree.t b/t/07-tree.t
deleted file mode 100755
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 )" );
-}
-- 
2.20.1