diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/1_compile.t | 2 | ||||
| -rw-r--r-- | t/lib/net-sent.t | 38 |
2 files changed, 40 insertions, 0 deletions
diff --git a/t/lib/1_compile.t b/t/lib/1_compile.t index cf5a9c1f42..d99641d811 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 0000000000..ef4a04dee8 --- /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. + |