Retract #13173 (effectively retract Net::Ping 2.06,

go back to 2.04, the 2.06 hasn't seen the patches
that have gone to the blead version.)

p4raw-id: //depot/perl@13194

5 files changed, 0 insertions, 154 deletions

diff --git a/lib/Net/Ping/t/100_load.t b/lib/Net/Ping/t/100_load.t
deleted file mode 100644
index c5115f74ad..0000000000
--- a/lib/Net/Ping/t/100_load.t
+++ /dev/null
@@ -1,30 +0,0 @@
-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'
-
-######################### We start with some black magic to print on failure.
-
-use Test;
-BEGIN { plan tests => 1; $loaded = 0}
-END { ok $loaded;}
-
-# Just make sure everything compiles
-use Net::Ping;
-
-$loaded = 1;
-
-######################### End of black magic.
-
-# Insert your test code below (better if it prints "ok 13"
-# (correspondingly "not ok 13") depending on the success of chunk 13
-# of the test code):
diff --git a/lib/Net/Ping/t/110_icmp_inst.t b/lib/Net/Ping/t/110_icmp_inst.t
deleted file mode 100644
index 215d46c554..0000000000
--- a/lib/Net/Ping/t/110_icmp_inst.t
+++ /dev/null
@@ -1,23 +0,0 @@
-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.
-
-use Test;
-use Net::Ping;
-plan tests => 2;
-
-# Everything loaded fine
-ok 1;
-
-my $p = new Net::Ping "tcp";
-ok !!$p;
diff --git a/lib/Net/Ping/t/120_udp_inst.t b/lib/Net/Ping/t/120_udp_inst.t
deleted file mode 100644
index 51d1dac1fc..0000000000
--- a/lib/Net/Ping/t/120_udp_inst.t
+++ /dev/null
@@ -1,23 +0,0 @@
-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.
-
-use Test;
-use Net::Ping;
-plan tests => 2;
-
-# Everything loaded fine
-ok 1;
-
-my $p = new Net::Ping "udp";
-ok !!$p;
diff --git a/lib/Net/Ping/t/130_tcp_inst.t b/lib/Net/Ping/t/130_tcp_inst.t
deleted file mode 100644
index 30db8bd031..0000000000
--- a/lib/Net/Ping/t/130_tcp_inst.t
+++ /dev/null
@@ -1,22 +0,0 @@
-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;
-use Net::Ping;
-plan tests => 2;
-
-# Everything loaded fine
-ok 1;
-
-my $p = new Net::Ping "tcp";
-ok !!$p;
diff --git a/lib/Net/Ping/t/200_ping_tcp.t b/lib/Net/Ping/t/200_ping_tcp.t
deleted file mode 100644
index 2aa4eecf61..0000000000
--- a/lib/Net/Ping/t/200_ping_tcp.t
+++ /dev/null
@@ -1,56 +0,0 @@
-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:
-#   Network connectivity will be required for all tests to pass.
-#   Firewalls may also cause some tests to fail, so test it
-#   on a clear network.
-
-use Test;
-use Net::Ping;
-plan tests => 13;
-
-# Everything loaded fine
-ok 1;
-
-my $p = new Net::Ping "tcp";
-
-# new() worked?
-ok !!$p;
-
-# Test on the default port
-ok $p -> ping("localhost");
-
-# Change to use the more common web port.
-# This will pull from /etc/services on UNIX.
-# (Make sure getservbyname works in scalar context.)
-ok ($p -> {port_num} = (getservbyname("http", "tcp") || 80));
-
-# Test localhost on the web port
-ok $p -> ping("localhost");
-
-# Hopefully this is not a routeable host
-ok !$p -> ping("10.12.14.16");
-
-# Test a few remote servers
-# Hopefully they are up when the tests are run.
-
-ok $p -> ping("www.geocities.com");
-ok $p -> ping("ftp.geocities.com");
-
-ok $p -> ping("www.freeservers.com");
-ok $p -> ping("ftp.freeservers.com");
-
-ok $p -> ping("yahoo.com");
-ok $p -> ping("www.yahoo.com");
-ok $p -> ping("www.about.com");