-BEGIN {
- if ($ENV{PERL_CORE}) {
- unless ($ENV{PERL_TEST_Net_Ping}) {
- print "1..0 # Skip: network dependent test\n";
- exit;
- }
- chdir 't' if -d 't';
- @INC = qw(../lib);
- }
-}
-
# Test to make sure object can be instantiated for icmp protocol.
# Root access is required to actually perform icmp testing.
+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;
-my $p = new Net::Ping "tcp";
-ok !!$p;
+if (($> and $^O ne 'VMS')
+ or ($^O eq 'VMS'
+ and (`write sys\$output f\$privilege("SYSPRV")` =~ m/FALSE/))) {
+ skip "icmp ping requires root privileges.", 1;
+} else {
+ my $p = new Net::Ping "icmp";
+ ok !!$p;
+}