From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 29 May 2001 15:05:38 +0000 (+0000)
Subject: Add test for Net::servent.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6fa754dfb41b5b4adfbfa47a6edf34a2b20c0904;p=p5sagit%2Fp5-mst-13.2.git

Add test for Net::servent.

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

diff --git a/MANIFEST b/MANIFEST
index 56a8112..e21e2d3 100644
--- 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
--- 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
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.
+