17-lib_version.t

SinFP是一种新的识别对方计算机操作系统类型的工具

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

plan tests => 2;

# Testing lib_version()
my $version = '';
eval { $version = Net::Pcap::lib_version() };
is( $@, '', "lib_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+|unknown \(pre 0\.8\))$/', " - checking version string ($version)" );
}