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