8 BEGIN { $| = 1; print "1..5\n"; }
10 END {print "not ok 1\n" unless $loaded;}
17 # test basic resolution of localhost <-> 127.0.0.1
20 my $h = gethost('localhost');
21 my $i = gethostbyaddr(inet_aton("127.0.0.1"));
23 print "not " if inet_ntoa($h->addr) ne "127.0.0.1";
26 print "not " if inet_ntoa($i->addr) ne "127.0.0.1";
29 # need to skip the name comparisons on Win32 because windows will
30 # return the name of the machine instead of "localhost" when resolving
31 # 127.0.0.1 or even "localhost"
33 if ($^O eq 'MSWin32') {
34 print "ok $_ # skipped on win32\n" for (4,5);
36 print "not " if $h->name ne "localhost";
39 print "not " if $i->name ne "localhost";