# Test to perform icmp protocol testing.

# Root access is required.

BEGIN {

unless (eval "require Socket") {

print "1..0 \# Skip: no Socket\n";

exit;

}

}

use Test;

use Net::Ping;

plan tests => 2;

# Everything loaded fine

ok 1;

if (($> and $^O ne 'VMS' and $^O ne 'cygwin')

or ($^O eq 'MSWin32'

and Win32::IsWinNT())

or ($^O eq 'VMS'

and (`write sys\$output f\$privilege("SYSPRV")` =~ m/FALSE/))) {

skip "icmp ping requires root privileges.", 1;

} elsif ($^O eq 'MacOS') {

skip "icmp protocol not supported.", 1;

} else {

my $p = new Net::Ping "icmp";

ok $p->ping("127.0.0.1");

}