1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#
# Test arp_lookup function
#
# Programmed by Bastian Ballmann
# Last update: 31.01.2007
use Net::ARP;
use Test::More qw( no_plan );
$mac = Net::ARP::arp_lookup("strange_dev_value","127.0.0.1");
ok( $mac eq "unknown", "unkown mac on strange dev value -> $mac" );
$mac = Net::ARP::arp_lookup("$fu","127.0.0.1");
ok( $mac eq "unknown", "unkown mac on strange dev value 2 -> $mac" );
$mac = Net::ARP::arp_lookup("eth0","this_is_not_an_ip_address");
ok( $mac eq "unknown", "unkown mac on strange ip value -> $mac" );
#Net::ARP::arp_lookup("eth0","192.168.1.1","fu");
#ok( $mac eq "unknown", "unkown mac on strange mac value" );
|
