1*55745691Smillert#!./perl 2*55745691Smillert 3*55745691SmillertBEGIN { 4*55745691Smillert chdir 't' if -d 't'; 5*55745691Smillert @INC = '../lib'; 6*55745691Smillert} 7*55745691Smillert 8*55745691SmillertBEGIN { 9*55745691Smillert our $hasse; 10*55745691Smillert eval { my @n = getservbyname "echo", "tcp" }; 11*55745691Smillert $hasse = 1 unless $@ && $@ =~ /unimplemented|unsupported/i; 12*55745691Smillert unless ($hasse) { print "1..0 # Skip: no getservbyname\n"; exit 0 } 13*55745691Smillert use Config; 14*55745691Smillert $hasse = 0 unless $Config{'i_netdb'} eq 'define'; 15*55745691Smillert unless ($hasse) { print "1..0 # Skip: no netdb.h\n"; exit 0 } 16*55745691Smillert} 17*55745691Smillert 18*55745691SmillertBEGIN { 19*55745691Smillert our @servent = getservbyname "echo", "tcp"; # This is the function getservbyname. 20*55745691Smillert unless (@servent) { print "1..0 # Skip: no echo service\n"; exit 0 } 21*55745691Smillert} 22*55745691Smillert 23*55745691Smillertprint "1..3\n"; 24*55745691Smillert 25*55745691Smillertuse Net::servent; 26*55745691Smillert 27*55745691Smillertprint "ok 1\n"; 28*55745691Smillert 29*55745691Smillertmy $servent = getservbyname "echo", "tcp"; # This is the OO getservbyname. 30*55745691Smillert 31*55745691Smillertprint "not " unless $servent->name eq $servent[0]; 32*55745691Smillertprint "ok 2\n"; 33*55745691Smillert 34*55745691Smillertprint "not " unless $servent->port == $servent[2]; 35*55745691Smillertprint "ok 3\n"; 36*55745691Smillert 37*55745691Smillert# Testing pretty much anything else is unportable. 38*55745691Smillert 39