1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
|
#!perl -T
use strict;
use File::Spec;
use Test::More;
use Net::Pcap;
use lib 't';
use Utils;
my(%name2val,%val2name,%val2descr);
plan skip_all => "extended datalink related functions are not available"
unless is_available('pcap_datalink_name_to_val');
%name2val = (
undef => -1,
LTalk => DLT_LTALK,
raw => DLT_RAW,
PPP_serial => DLT_PPP_SERIAL,
SLIP => DLT_SLIP,
ieee802_11 => DLT_IEEE802_11,
);
%val2name = (
0 => 'NULL',
DLT_LTALK() => 'LTALK',
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_PPP_SERIAL() => 'PPP over serial',
DLT_SLIP() => 'SLIP',
DLT_IEEE802_11() => '802.11',
);
plan tests => keys(%name2val) * 2 + keys(%val2name) * 2 + keys(%val2descr) * 2 + 23;
my $has_test_exception = eval "use Test::Exception; 1";
my($dev,$pcap,$datalink,$r,$err) = ('','','','','');
# Testing error messages
SKIP: {
skip "Test::Exception not available", 7 unless $has_test_exception;
# datalink() errors
throws_ok(sub {
Net::Pcap::datalink()
}, '/^Usage: Net::Pcap::datalink\(p\)/',
"calling datalink() with no argument");
throws_ok(sub {
Net::Pcap::datalink(0)
}, '/^p is not of type pcap_tPtr/',
"calling datalink() with incorrect argument type");
# set_datalink() errors
throws_ok(sub {
Net::Pcap::set_datalink()
}, '/^Usage: Net::Pcap::set_datalink\(p, linktype\)/',
"calling set_datalink() with no argument");
throws_ok(sub {
Net::Pcap::set_datalink(0, 0)
}, '/^p is not of type pcap_tPtr/',
"calling set_datalink() with incorrect argument type");
# datalink_name_to_val() errors
throws_ok(sub {
Net::Pcap::datalink_name_to_val()
}, '/^Usage: Net::Pcap::datalink_name_to_val\(name\)/',
"calling datalink_name_to_val() with no argument");
# datalink_val_to_name() errors
throws_ok(sub {
Net::Pcap::datalink_val_to_name()
}, '/^Usage: Net::Pcap::datalink_val_to_name\(linktype\)/',
"calling datalink_val_to_name() with no argument");
# datalink_val_to_descr() errors
throws_ok(sub {
Net::Pcap::datalink_val_to_description()
}, '/^Usage: Net::Pcap::datalink_val_to_description\(linktype\)/',
"calling datalink_val_to_description() with no argument");
}
SKIP: {
skip "must be run as root", 5 unless is_allowed_to_use_pcap();
skip "no network device available", 5 unless find_network_device();
# Find a device and open it
$dev = find_network_device();
$pcap = Net::Pcap::open_live($dev, 1024, 1, 100, \$err);
isa_ok( $pcap, 'pcap_tPtr', "\$pcap" );
# Testing datalink()
$datalink = '';
eval { $datalink = Net::Pcap::datalink($pcap) };
is( $@, '', "datalink() on a live connection" );
like( $datalink , '/^\d+$/', " - datalink is an integer" );
# Testing set_datalink()
eval { $r = Net::Pcap::set_datalink($pcap, DLT_LTALK) }; # Apple LocalTalk
is( $@, '', "set_datalink() on a live connection" );
is( $r , -1, " - returned -1 (expected failure)" );
Net::Pcap::close($pcap);
}
# Open a sample save file
$pcap = Net::Pcap::open_offline(File::Spec->catfile(qw(t samples ping-ietf-20pk-be.dmp)), \$err);
isa_ok( $pcap, 'pcap_tPtr', "\$pcap" );
# Testing datalink()
$datalink = '';
eval { $datalink = Net::Pcap::datalink($pcap) };
is( $@, '', "datalink() on a save file" );
like( $datalink , '/^\d+$/', " - datalink is an integer" );
is( $datalink , DLT_EN10MB, " - datalink is DLT_EN10MB (Ethernet)" );
# Testing set_datalink()
eval { $r = Net::Pcap::set_datalink($pcap, DLT_LTALK) }; # Apple LocalTalk
is( $@, '', "set_datalink() on a save file" );
is( $r , -1, " - returned -1 (expected failure)" );
Net::Pcap::close($pcap);
# Open a dead pcap descriptor
$pcap = Net::Pcap::open_dead(DLT_IP_OVER_FC, 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" );
# 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) };
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" );
# Testing datalink_name_to_val()
for my $name (keys %name2val) {
$datalink = '';
eval { $datalink = Net::Pcap::datalink_name_to_val($name) };
is( $@, '', "datalink_name_to_val($name)" );
is( $datalink, $name2val{$name}, " - checking expected value" );
}
# Testing datalink_val_to_name()
for my $val (keys %val2name) {
my $name = '';
eval { $name = Net::Pcap::datalink_val_to_name($val) };
is( $@, '', "datalink_val_to_name($val)" );
is( $name, $val2name{$val}, " - checking expected value" );
}
# Testing datalink_val_to_description()
for my $val (keys %val2descr) {
my $descr = '';
eval { $descr = Net::Pcap::datalink_val_to_description($val) };
is( $@, '', "datalink_val_to_description($val)" );
is( $descr, $val2descr{$val}, " - checking expected value" );
}
|
