diff options
Diffstat (limited to 'tests/interface.pl')
| -rw-r--r-- | tests/interface.pl | 11 |
1 files changed, 7 insertions, 4 deletions
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) { |