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 $hasne; 10*55745691Smillert eval { my @n = getnetbyname "loopback" }; 11*55745691Smillert $hasne = 1 unless $@ && $@ =~ /unimplemented|unsupported/i; 12*55745691Smillert unless ($hasne) { print "1..0 # Skip: no getnetbyname\n"; exit 0 } 13*55745691Smillert use Config; 14*55745691Smillert $hasne = 0 unless $Config{'i_netdb'} eq 'define'; 15*55745691Smillert unless ($hasne) { print "1..0 # Skip: no netdb.h\n"; exit 0 } 16*55745691Smillert} 17*55745691Smillert 18*55745691SmillertBEGIN { 19*55745691Smillert our @netent = getnetbyname "loopback"; # This is the function getnetbyname. 20*55745691Smillert unless (@netent) { print "1..0 # Skip: no loopback net\n"; exit 0 } 21*55745691Smillert} 22*55745691Smillert 23*55745691Smillertprint "1..2\n"; 24*55745691Smillert 25*55745691Smillertuse Net::netent; 26*55745691Smillert 27*55745691Smillertprint "ok 1\n"; 28*55745691Smillert 29*55745691Smillertmy $netent = getnetbyname "loopback"; # This is the OO getnetbyname. 30*55745691Smillert 31*55745691Smillertprint "not " unless $netent->name eq $netent[0]; 32*55745691Smillertprint "ok 2\n"; 33*55745691Smillert 34*55745691Smillert# Testing pretty much anything else is unportable; 35*55745691Smillert# e.g. the canonical name of the "loopback" net may be "loop". 36*55745691Smillert 37