Your IP : 216.73.216.1

Current Path : /usr/share/doc/perl-Net-Pcap/t/
Upload File :
Current File : //usr/share/doc/perl-Net-Pcap/t/17-lib_version.t

#!/usr/bin/perl -T
use strict;
use Test::More;
use Net::Pcap;

plan tests => 2;

# Testing lib_version()
my $version = eval { Net::Pcap::lib_version() };
is( $@, '', "lib_version()" );
diag($version);

if ($^O eq 'MSWin32' or $^O eq 'cygwin') {
    like( $version, '/^WinPcap version \d\.\d+/', " - checking version string ($version)" );
}
else {
    like( $version,
            '/^libpcap version (?:\d+\.\d+(?:\.\d+|[^\d.\s]+)?|unknown \(pre 0\.8\))/',
            " - checking version string ($version)"
    );
}