diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-04 14:32:27 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-04 14:32:27 +0000 |
commit | 2972131df48a1f119450e7e4c3f1eb94aa5a7df7 (patch) | |
tree | 719d8d26f0b39b670342ecb125a9f5c2d1f3b415 /lib/Net | |
parent | fbe3d936b182fa637b8c6c3747dd099aa13c0433 (diff) | |
download | perl-2972131df48a1f119450e7e4c3f1eb94aa5a7df7.tar.gz |
Update the libnet tests as per #11138.
p4raw-id: //depot/perl@11140
Diffstat (limited to 'lib/Net')
-rw-r--r-- | lib/Net/t/ph.t | 31 | ||||
-rw-r--r-- | lib/Net/t/require.t | 2 |
2 files changed, 0 insertions, 33 deletions
diff --git a/lib/Net/t/ph.t b/lib/Net/t/ph.t deleted file mode 100644 index 41ddab6bfe..0000000000 --- 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 f9eba4d418..aaa3adb7c4 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"; |