Update the libnet tests as per #11138.

p4raw-id: //depot/perl@11140

diff --git a/MANIFEST b/MANIFEST
index 1fcb0bf..118481f 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1031,7 +1031,6 @@ lib/Net/SMTP.pm                   libnet
 lib/Net/t/ftp.t                        libnet
 lib/Net/t/hostname.t           libnet
 lib/Net/t/nntp.t               libnet
-lib/Net/t/ph.t                 libnet
 lib/Net/t/require.t            libnet
 lib/Net/t/smtp.t               libnet
 lib/Net/Time.pm                        libnet

diff --git a/lib/Net/t/ph.t b/lib/Net/t/ph.t
deleted file mode 100644 (file)
index 41ddab6..0000000
--- a/lib/Net/t/ph.t
+++ /dev/null
@@ -1,31 +0,0 @@
-#!./perl -w
-
-use Net::Config;
-use Net::PH;
-
-unless(@{$NetConfig{ph_hosts}} && $NetConfig{test_hosts}) {
-    print "1..0\n";
-    exit 0;
-}
-
-print "1..5\n";
-
-my $i = 1;
-
-$ph = Net::PH->new(Debug => 0)
-       or (print("not ok 1\n"), exit);
-
-print "ok 1\n";
-
-$ph->fields or print "not ";
-print "ok 2\n";
-
-$ph->siteinfo or print "not ";
-print "ok 3\n";
-
-$ph->id or print "not ";
-print "ok 4\n";
-
-$ph->quit or print "not ";
-print "ok 5\n";
-

diff --git a/lib/Net/t/require.t b/lib/Net/t/require.t
index f9eba4d..aaa3adb 100644 (file)
--- a/lib/Net/t/require.t
+++ b/lib/Net/t/require.t
@@ -8,8 +8,6 @@ eval { require Net::Netrc; }  || print "not "; print "ok ",$i++,"\n";
 eval { require Net::FTP; }    || print "not "; print "ok ",$i++,"\n";
 eval { require Net::SMTP; }   || print "not "; print "ok ",$i++,"\n";
 eval { require Net::NNTP; }   || print "not "; print "ok ",$i++,"\n";
-eval { require Net::SNPP; }   || print "not "; print "ok ",$i++,"\n";
-eval { require Net::PH; }     || print "not "; print "ok ",$i++,"\n";
 eval { require Net::POP3; }   || print "not "; print "ok ",$i++,"\n";
 eval { require Net::Time; }   || print "not "; print "ok ",$i++,"\n";