diff options
Diffstat (limited to 'tests/isip.pl')
-rw-r--r-- | tests/isip.pl | 23 |
1 files changed, 0 insertions, 23 deletions
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; |