Add test for Net::servent.

p4raw-id: //depot/perl@10289

diff --git a/MANIFEST b/MANIFEST
index 56a8112..e21e2d3 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1580,6 +1580,8 @@ t/lib/mimeqp.t            see whether MIME::QuotedPrint works
 t/lib/ndbm.t           See if NDBM_File works
 t/lib/net-hostent.t    See if Net::hostent works
 t/lib/net-nent.t       See if Net::netent works
+t/lib/net-pent.t       See if Net::protoent works
+t/lib/net-sent.t       See if Net::servtent works
 t/lib/next.t           See if NEXT works
 t/lib/odbm.t           See if ODBM_File works
 t/lib/opcode.t         See if Opcode works

diff --git a/t/lib/1_compile.t b/t/lib/1_compile.t
index cf5a9c1..d99641d 100644 (file)
--- a/t/lib/1_compile.t
+++ b/t/lib/1_compile.t
@@ -194,6 +194,8 @@ NDBM_File
 NEXT
 Net::hostent
 Net::netent
+Net::protoent
+Net::servent
 ODBM_File
 Opcode
 PerlIO

diff --git a/t/lib/net-sent.t b/t/lib/net-sent.t
new file mode 100644 (file)
index 0000000..ef4a04d
--- /dev/null
+++ b/t/lib/net-sent.t
@@ -0,0 +1,38 @@
+#!./perl
+
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}
+
+BEGIN {
+    our $hasse;
+    eval { my @n = getservbyname "echo", "tcp" };
+    $hasse = 1 unless $@ && $@ =~ /unimplemented/;
+    unless ($hasse) { print "1..0 # Skip: no getservbyname\n"; exit 0 }
+    use Config;
+    $hasse = 0 unless $Config{'i_netdb'} eq 'define';
+    unless ($hasse) { print "1..0 # Skip: no netdb.h\n"; exit 0 }
+}
+
+BEGIN {
+    our @servent = getservbyname "echo", "tcp"; # This is the function getservbyname.
+    unless (@servent) { print "1..0 # Skip: no echo service\n"; exit 0 }
+}
+
+print "1..3\n";
+
+use Net::servent;
+
+print "ok 1\n";
+
+my $servent = getservbyname "echo", "tcp"; # This is the OO getservbyname.
+
+print "not " unless $servent->name   eq $servent[0];
+print "ok 2\n";
+
+print "not " unless $servent->port  == $servent[2];
+print "ok 3\n";
+
+# Testing pretty much anything else is unportable.
+