From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 4 Jul 2001 14:32:27 +0000 (+0000)
Subject: Update the libnet tests as per #11138.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2972131df48a1f119450e7e4c3f1eb94aa5a7df7;p=p5sagit%2Fp5-mst-13.2.git

Update the libnet tests as per #11138.

p4raw-id: //depot/perl@11140
---

diff --git a/MANIFEST b/MANIFEST
index 1fcb0bf..118481f 100644
--- 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
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
--- 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";