Corify the Net::Ping tests; skip the tests

unless $ENV{PERL_TEST_Net_Ping} is true.

p4raw-id: //depot/perl@13190

5 files changed, 55 insertions, 0 deletions

diff --git a/lib/Net/Ping/t/100_load.t b/lib/Net/Ping/t/100_load.t
index d6a71e0235..c5115f74ad 100644
--- a/lib/Net/Ping/t/100_load.t
+++ b/lib/Net/Ping/t/100_load.t
@@ -1,3 +1,14 @@
+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);
+    }
+}
+
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl test.t'
 
diff --git a/lib/Net/Ping/t/110_icmp_inst.t b/lib/Net/Ping/t/110_icmp_inst.t
index 2e67a5972a..215d46c554 100644
--- a/lib/Net/Ping/t/110_icmp_inst.t
+++ b/lib/Net/Ping/t/110_icmp_inst.t
@@ -1,3 +1,14 @@
+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.
 
diff --git a/lib/Net/Ping/t/120_udp_inst.t b/lib/Net/Ping/t/120_udp_inst.t
index ee53bd40bf..51d1dac1fc 100644
--- a/lib/Net/Ping/t/120_udp_inst.t
+++ b/lib/Net/Ping/t/120_udp_inst.t
@@ -1,3 +1,14 @@
+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 udp protocol.
 # I do not know of any servers that support udp echo anymore.
 
diff --git a/lib/Net/Ping/t/130_tcp_inst.t b/lib/Net/Ping/t/130_tcp_inst.t
index 6a547e161e..30db8bd031 100644
--- a/lib/Net/Ping/t/130_tcp_inst.t
+++ b/lib/Net/Ping/t/130_tcp_inst.t
@@ -1,3 +1,14 @@
+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 tcp protocol.
 
 use Test;
diff --git a/lib/Net/Ping/t/200_ping_tcp.t b/lib/Net/Ping/t/200_ping_tcp.t
index 3f5c6bc417..2aa4eecf61 100644
--- a/lib/Net/Ping/t/200_ping_tcp.t
+++ b/lib/Net/Ping/t/200_ping_tcp.t
@@ -1,3 +1,14 @@
+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);
+    }
+}
+
 # Remote network test using tcp protocol.
 #
 # NOTE: