1# Test to make sure object can be instantiated for icmp protocol.
2# Root access is required to actually perform icmp testing.
3
4BEGIN {
5  unless (eval "require Socket") {
6    print "1..0 \# Skip: no Socket\n";
7    exit;
8  }
9}
10
11use Test;
12use Net::Ping;
13plan tests => 2;
14
15# Everything loaded fine
16ok 1;
17
18if (($> and $^O ne 'VMS' and $^O ne 'cygwin')
19    or ($^O eq 'MSWin32'
20        and Win32::IsWinNT())
21    or ($^O eq 'VMS'
22        and (`write sys\$output f\$privilege("SYSPRV")` =~ m/FALSE/))) {
23  skip "icmp ping requires root privileges.", 1;
24} elsif ($^O eq 'MacOS') {
25  skip "icmp protocol not supported.", 1;
26} else {
27  my $p = new Net::Ping "icmp";
28  ok !!$p;
29}
30