t/lib/net-hostent.t

   1 #!./perl -w
   2
   3 BEGIN {
   4         chdir 't' if -d 't';
   5         @INC = '../lib';
   6 }
   7
   8 BEGIN { $| = 1; print "1..5\n"; }
   9
  10 END {print "not ok 1\n" unless $loaded;}
  11
  12 use Net::hostent;
  13
  14 $loaded = 1;
  15 print "ok 1\n";
  16
  17 # test basic resolution of localhost <-> 127.0.0.1
  18 use Socket;
  19
  20 my $h = gethost('localhost');
  21 my $i = gethostbyaddr(inet_aton("127.0.0.1"));
  22
  23 print "not " if inet_ntoa($h->addr) ne "127.0.0.1";
  24 print "ok 2\n";
  25
  26 print "not " if inet_ntoa($i->addr) ne "127.0.0.1";
  27 print "ok 3\n";
  28
  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"
  32
  33 # VMS returns "LOCALHOST" under tcp/ip services V4.1 ECO 2, possibly others
  34
  35 if ($^O eq 'MSWin32') {
  36   print "ok $_ # skipped on win32\n" for (4,5);
  37 } else {
  38   print "not " if $h->name !~ /localhost/i;
  39   print "ok 4 # ",$h->name,"\n";
  40
  41   print "not " if $i->name !~ /localhost/i;
  42   print "ok 5 # ",$i->name,"\n";
  43 }