From a08ee2271d2166fc8013cee8ebeddd9fb0987283 Mon Sep 17 00:00:00 2001
From: Stephen Hemminger <stephen.hemminger@vyatta.com>
Date: Mon, 21 Dec 2009 10:48:21 -0800
Subject: Move tests to vyatta-cfg-system

---
 tests/interface.pl | 52 ----------------------------------------------------
 tests/isip.pl      | 23 -----------------------
 2 files changed, 75 deletions(-)
 delete mode 100644 tests/interface.pl
 delete mode 100644 tests/isip.pl

(limited to 'tests')

diff --git a/tests/interface.pl b/tests/interface.pl
deleted file mode 100644
index 9ebeb60..0000000
--- a/tests/interface.pl
+++ /dev/null
@@ -1,52 +0,0 @@
-#! /usr/bin/perl
-
-# Standalone test for Vyatta::Interface, not intended to be used
-# directly
-
-
-use strict;
-use warnings;
-use Vyatta::Interface;
-use Vyatta::Misc;
-
-my @interfaces = getInterfaces();
-print "Interfaces: ", join(' ',@interfaces),"\n";
-
-print "IP\n";
-foreach my $type (qw/all broadcast multicast pointtopoint loopback/) {
-    print "\t$type = ";
-    foreach my $addr (Vyatta::Misc::getInterfacesIPadresses($type)) {
-	print $addr, '(', is_ip_v4_or_v6($addr), ') ';
-    }
-    print "\n";
-}
-
-
-foreach my $arg (@interfaces) {
-    print "$arg : ";
-    my $intf = new Vyatta::Interface($arg);
-
-    if (! $intf) {
-	print "undefined\n";
-	next;
-    }
-    
-    my $vif = $intf->vif();
-    print "vif=$vif " if $vif;
-    printf "path = '%s'\ndevice=%s\n", $intf->path(), $intf->physicalDevice();
-
-    my @addresses = $intf->address();
-    if ($#addresses eq -1) {
-	print "address is no set\n";
-    } else {
-	print "address ", join(' ',@addresses), "\n";
-    }
-
-    foreach my $attr (qw(exists configured disabled using_dhcp flags up running)) {
-	my $val = $intf->$attr();
-	print " $attr=$val" if ($val);
-    }
-    print "\n";
-}
-
-exit 0;
diff --git a/tests/isip.pl b/tests/isip.pl
deleted file mode 100644
index 35a04b7..0000000
--- a/tests/isip.pl
+++ /dev/null
@@ -1,23 +0,0 @@
-#! /usr/bin/perl
-
-# Standalone test for Vyatta::Misc::isIPInterfaces
-
-use strict;
-use warnings;
-use Vyatta::Misc;
-use Vyatta::Interface;
-
-my $vc;
-my @interfaces = getInterfaces();
-print "Interfaces: ", join(' ',@interfaces),"\n";
-
-foreach my $lip (@ARGV) {
-    print $lip, " is";
-    if (Vyatta::Misc::isIPinInterfaces($vc, $lip, @interfaces)) {
-	print " in\n";
-    } else {
-	print " not in\n";
-    }
-}
-
-exit 0;
-- 
cgit v1.2.3