#!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" );