From abe20d48f6a96a2f636672d50b9274c71acf7d9f Mon Sep 17 00:00:00 2001
From: Stephen Hemminger <stephen.hemminger@vyatta.com>
Date: Tue, 20 Jan 2009 10:15:11 +1100
Subject: update unit tests

Add more unit tests.
---
 tests/interface.pl | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'tests/interface.pl')

diff --git a/tests/interface.pl b/tests/interface.pl
index c2a1a1b..86ec96e 100644
--- a/tests/interface.pl
+++ b/tests/interface.pl
@@ -12,11 +12,14 @@ use Vyatta::Misc;
 my @interfaces = getInterfaces();
 print "Interfaces: ", join(' ',@interfaces),"\n";
 
-print "IP addresses = ";
-foreach my $addr (Vyatta::Misc::getInterfacesIPadresses('all')) {
-    print $addr, '(', is_ip_v4_or_v6($addr), ') ';
+print "IP\n";
+foreach my $type (qw/all broadcast multicast pointtopoint/) {
+    print "\t$type = ";
+    foreach my $addr (Vyatta::Misc::getInterfacesIPadresses($type)) {
+	print $addr, '(', is_ip_v4_or_v6($addr), ') ';
+    }
+    print "\n";
 }
-print "\n";
 
 
 foreach my $arg (@interfaces) {
-- 
cgit v1.2.3