90 lines
3.4 KiB
Text
90 lines
3.4 KiB
Text
Replace non existing DLT constants with available ones. Adapt
|
|
description to OpenBSD names.
|
|
|
|
Index: t/14-datalink.t
|
|
--- t/14-datalink.t.orig
|
|
+++ t/14-datalink.t
|
|
@@ -12,7 +12,7 @@ plan skip_all => "extended datalink related functions
|
|
|
|
%name2val = (
|
|
undef => -1,
|
|
- LTalk => DLT_LTALK,
|
|
+ ProNET => DLT_PRONET,
|
|
raw => DLT_RAW,
|
|
PPP_serial => DLT_PPP_SERIAL,
|
|
SLIP => DLT_SLIP,
|
|
@@ -20,20 +20,19 @@ plan skip_all => "extended datalink related functions
|
|
);
|
|
%val2name = (
|
|
0 => 'NULL',
|
|
- DLT_LTALK() => 'LTALK',
|
|
+ DLT_PRONET() => 'PRONET',
|
|
DLT_RAW() => 'RAW',
|
|
DLT_PPP_SERIAL() => 'PPP_SERIAL',
|
|
DLT_SLIP() => 'SLIP',
|
|
DLT_IEEE802_11() => 'IEEE802_11',
|
|
);
|
|
%val2descr = (
|
|
- 0 => 'BSD loopback',
|
|
- DLT_NULL() => 'BSD loopback',
|
|
- DLT_LTALK() => 'Localtalk',
|
|
- DLT_RAW() => 'Raw IP',
|
|
+ DLT_NULL() => 'no link-layer encapsulation',
|
|
+ DLT_PRONET() => 'Proteon ProNET Token Ring',
|
|
+ DLT_RAW() => 'raw IP',
|
|
DLT_PPP_SERIAL() => 'PPP over serial',
|
|
- DLT_SLIP() => 'SLIP',
|
|
- DLT_IEEE802_11() => '802.11',
|
|
+ DLT_SLIP() => 'Serial Line IP',
|
|
+ DLT_IEEE802_11() => 'IEEE 802.11 wireless',
|
|
);
|
|
|
|
plan tests => keys(%name2val) * 2 + keys(%val2name) * 2 + keys(%val2descr) * 2 + 23;
|
|
@@ -104,7 +103,7 @@ SKIP: {
|
|
like( $datalink , '/^\d+$/', " - datalink is an integer" );
|
|
|
|
# Testing set_datalink()
|
|
- eval { $r = Net::Pcap::set_datalink($pcap, DLT_LTALK) }; # Apple LocalTalk
|
|
+ eval { $r = Net::Pcap::set_datalink($pcap, DLT_PRONET) }; # ProNET
|
|
is( $@, '', "set_datalink() on a live connection" );
|
|
is( $r , -1, " - returned -1 (expected failure)" );
|
|
|
|
@@ -123,7 +122,7 @@ like( $datalink , '/^\d+$/', " - datalink is an intege
|
|
is( $datalink , DLT_EN10MB, " - datalink is DLT_EN10MB (Ethernet)" );
|
|
|
|
# Testing set_datalink()
|
|
-eval { $r = Net::Pcap::set_datalink($pcap, DLT_LTALK) }; # Apple LocalTalk
|
|
+eval { $r = Net::Pcap::set_datalink($pcap, DLT_PRONET) }; # ProNET
|
|
is( $@, '', "set_datalink() on a save file" );
|
|
is( $r , -1, " - returned -1 (expected failure)" );
|
|
|
|
@@ -131,24 +130,24 @@ Net::Pcap::close($pcap);
|
|
|
|
|
|
# Open a dead pcap descriptor
|
|
-$pcap = Net::Pcap::open_dead(DLT_IP_OVER_FC, 1024);
|
|
+$pcap = Net::Pcap::open_dead(DLT_IEEE802_11_RADIO, 1024);
|
|
isa_ok( $pcap, 'pcap_tPtr', "\$pcap" );
|
|
|
|
# Testing datalink()
|
|
$datalink = '';
|
|
eval { $datalink = Net::Pcap::datalink($pcap) };
|
|
is( $@, '', "datalink() on a dead descriptor" );
|
|
-is( $datalink , DLT_IP_OVER_FC, " - datalink is an integer" );
|
|
+is( $datalink , DLT_IEEE802_11_RADIO, " - datalink is an integer" );
|
|
|
|
# Testing set_datalink()
|
|
-# the migration of the century: from IP-over-Fibre Channel to Apple LocalTalk!
|
|
-eval { $r = Net::Pcap::set_datalink($pcap, DLT_LTALK) };
|
|
+# the migration of the century: from 802.11 WLAN header to ProNET!
|
|
+eval { $r = Net::Pcap::set_datalink($pcap, DLT_PRONET) };
|
|
is( $@, '', "set_datalink() on a dead descriptor" );
|
|
is( $r , -1, " - returned -1 (expected failure)" );
|
|
# The following tests don't work, but maybe they're just incorrect.
|
|
#isnt( $r , -1, " - should not returned -1" );
|
|
#$datalink = Net::Pcap::datalink($pcap);
|
|
-#is( $datalink, DLT_LTALK, " - new link type was correctly stored" );
|
|
+#is( $datalink, DLT_PRONET, " - new link type was correctly stored" );
|
|
|
|
|
|
# Testing datalink_name_to_val()
|