Add test for Net::netent.

p4raw-id: //depot/perl@10287

diff --git a/MANIFEST b/MANIFEST
index 2bd1e92..56a8112 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1579,6 +1579,7 @@ t/lib/mimeb64u.t          see whether MIME::Base64 works
 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/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 132eb22..cf5a9c1 100644 (file)
--- a/t/lib/1_compile.t
+++ b/t/lib/1_compile.t
@@ -193,6 +193,7 @@ Math::Trig
 NDBM_File
 NEXT
 Net::hostent
+Net::netent
 ODBM_File
 Opcode
 PerlIO

diff --git a/t/lib/net-nent.t b/t/lib/net-nent.t
new file mode 100644 (file)
index 0000000..e73122c
--- /dev/null
+++ b/t/lib/net-nent.t
@@ -0,0 +1,36 @@
+#!./perl
+
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}
+
+BEGIN {
+    our $hasne;
+    eval { my @n = getnetbyname "loopback" };
+    $hasne = 1 unless $@ && $@ =~ /unimplemented/;
+    unless ($hasne) { print "1..0 # Skip: no getnetbyname\n"; exit 0 }
+    use Config;
+    $hasne = 0 unless $Config{'i_netdb'} eq 'define';
+    unless ($hasne) { print "1..0 # Skip: no netdb.h\n"; exit 0 }
+}
+
+BEGIN {
+    our @netent = getnetbyname "loopback"; # This is the function getnetbyname.
+    unless (@netent) { print "1..0 # Skip: no loopback net\n"; exit 0 }
+}
+
+print "1..2\n";
+
+use Net::netent;
+
+print "ok 1\n";
+
+my $netent = getnetbyname "loopback"; # This is the OO getnetbyname.
+
+print "not " unless $netent->name   eq $netent[0];
+print "ok 2\n";
+
+# Testing pretty much anything else is unportable;
+# e.g. the canonical name of the "loopback" net may be "loop".
+