diff options
| -rw-r--r-- | tests/interface.pl | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/tests/interface.pl b/tests/interface.pl index 79f4df4..c2a1a1b 100644 --- a/tests/interface.pl +++ b/tests/interface.pl @@ -7,13 +7,17 @@ use strict; use warnings; use Vyatta::Interface; -use Vyatta::Misc qw(getInterfaces getInterfacesIPadresses); +use Vyatta::Misc; my @interfaces = getInterfaces(); print "Interfaces: ", join(' ',@interfaces),"\n"; -my @ips = getInterfacesIPadresses('all'); -print "IP addresses = ",join(' ',@ips), "\n"; +print "IP addresses = "; +foreach my $addr (Vyatta::Misc::getInterfacesIPadresses('all')) { + print $addr, '(', is_ip_v4_or_v6($addr), ') '; +} +print "\n"; + foreach my $arg (@interfaces) { print "$arg : "; |