Change 13190 by jhi@alpha on 2001/11/22 04:45:36

	Corify the Net::Ping tests; skip the tests
	unless $ENV{PERL_TEST_Net_Ping} is true.

Affected files ...

... //depot/perl/lib/Net/Ping/t/100_load.t#2 edit
... //depot/perl/lib/Net/Ping/t/110_icmp_inst.t#2 edit
... //depot/perl/lib/Net/Ping/t/120_udp_inst.t#2 edit
... //depot/perl/lib/Net/Ping/t/130_tcp_inst.t#2 edit
... //depot/perl/lib/Net/Ping/t/200_ping_tcp.t#2 edit

Differences ...

==== //depot/perl/lib/Net/Ping/t/100_load.t#2 (text) ====
Index: perl/lib/Net/Ping/t/100_load.t
--- perl/lib/Net/Ping/t/100_load.t.~1~	Thu Nov 22 14:36:42 2001
+++ perl/lib/Net/Ping/t/100_load.t	Thu Nov 22 14:36:42 2001
@@ -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'
 

==== //depot/perl/lib/Net/Ping/t/110_icmp_inst.t#2 (text) ====
Index: perl/lib/Net/Ping/t/110_icmp_inst.t
--- perl/lib/Net/Ping/t/110_icmp_inst.t.~1~	Thu Nov 22 14:36:42 2001
+++ perl/lib/Net/Ping/t/110_icmp_inst.t	Thu Nov 22 14:36:42 2001
@@ -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.
 

==== //depot/perl/lib/Net/Ping/t/120_udp_inst.t#2 (text) ====
Index: perl/lib/Net/Ping/t/120_udp_inst.t
--- perl/lib/Net/Ping/t/120_udp_inst.t.~1~	Thu Nov 22 14:36:42 2001
+++ perl/lib/Net/Ping/t/120_udp_inst.t	Thu Nov 22 14:36:42 2001
@@ -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.
 

==== //depot/perl/lib/Net/Ping/t/130_tcp_inst.t#2 (text) ====
Index: perl/lib/Net/Ping/t/130_tcp_inst.t
--- perl/lib/Net/Ping/t/130_tcp_inst.t.~1~	Thu Nov 22 14:36:42 2001
+++ perl/lib/Net/Ping/t/130_tcp_inst.t	Thu Nov 22 14:36:42 2001
@@ -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;

==== //depot/perl/lib/Net/Ping/t/200_ping_tcp.t#2 (text) ====
Index: perl/lib/Net/Ping/t/200_ping_tcp.t
--- perl/lib/Net/Ping/t/200_ping_tcp.t.~1~	Thu Nov 22 14:36:42 2001
+++ perl/lib/Net/Ping/t/200_ping_tcp.t	Thu Nov 22 14:36:42 2001
@@ -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:
End of Patch.
