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
|
#!perl -T
use strict;
use Test::More;
use Net::Pcap;
use lib 't';
use Utils;
plan skip_all => "pcap_open_dead() is not available" unless is_available('pcap_open_dead');
plan tests => 5;
my $has_test_exception = eval "use Test::Exception; 1";
my($pcap,$datalink) = ('',0); # datalink == DLT_NULL => no link-layer encapsulation
# Testing error messages
SKIP: {
skip "Test::Exception not available", 1 unless $has_test_exception;
# open_dead() errors
throws_ok(sub {
Net::Pcap::open_dead()
}, '/^Usage: Net::Pcap::open_dead\(linktype, snaplen\)/',
"calling open_dead() with no argument");
}
# Testing open_dead()
eval { $pcap = Net::Pcap::open_dead($datalink, 1024) };
is( $@, '', "open_dead()" );
ok( defined $pcap, " - \$pcap is defined" );
isa_ok( $pcap, 'SCALAR', " - \$pcap" );
isa_ok( $pcap, 'pcap_tPtr', " - \$pcap" );
|
