Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
FTP	[ DIR ]	drwxr-xr-x	2016-10-10 17:37
Cmd.pm	16.77 KB	-r--r--r--	2014-12-27 11:49
Config.pm	7.49 KB	-r--r--r--	2014-12-27 11:49
Domain.pm	7.41 KB	-r--r--r--	2014-12-27 11:49
FTP.pm	45.29 KB	-r--r--r--	2014-12-27 11:49
NNTP.pm	27.45 KB	-r--r--r--	2014-12-27 11:49
Netrc.pm	7.2 KB	-r--r--r--	2014-12-27 11:49
POP3.pm	17.21 KB	-r--r--r--	2014-12-27 11:49
Ping.pm	59.02 KB	-r--r--r--	2014-12-27 11:48
SMTP.pm	22.78 KB	-r--r--r--	2014-12-27 11:49
Time.pm	3.3 KB	-r--r--r--	2014-12-27 11:49
hostent.pm	3.92 KB	-r--r--r--	2014-12-27 11:48
hostent.t	2.47 KB	-r--r--r--	2014-12-27 11:48
libnetFAQ.pod	9.74 KB	-r--r--r--	2014-12-27 11:49
netent.pm	4.38 KB	-r--r--r--	2014-12-27 11:48
netent.t	879 B	-r--r--r--	2014-12-27 11:48
protoent.pm	2.97 KB	-r--r--r--	2014-12-27 11:48
protoent.t	897 B	-r--r--r--	2014-12-27 11:48
servent.pm	3.4 KB	-r--r--r--	2014-12-27 11:48
servent.t	906 B	-r--r--r--	2014-12-27 11:48

Rename

#!./perl -w

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
}

use Test::More;

BEGIN {
    require Config; import Config;
    if ($Config{'extensions'} !~ /\bSocket\b/ && 
        !(($^O eq 'VMS') && $Config{d_socket})) 
    {
	plan skip_all => "Test uses Socket, Socket not built";
    }
    if ($^O eq 'irix' && $Config{osvers} == 5) {
	plan skip_all => "Test relies on resolution of localhost, fails on $^O ($Config{osvers})";
    }
}

use Test::More tests => 7;

BEGIN { use_ok 'Net::hostent' }

# Remind me to add this to Test::More.
sub DIE {
    print "# @_\n";
    exit 1;
}

# test basic resolution of localhost <-> 127.0.0.1
use Socket;

my $h = gethost('localhost');
SKIP: {
skip "Can't resolve localhost and you don't have /etc/hosts", 6
    if (!defined($h) && !-e '/etc/hosts');

ok(defined $h,  "gethost('localhost')") ||
  DIE("Can't continue without working gethost: $!");

is( inet_ntoa($h->addr), "127.0.0.1",   'addr from gethost' );

my $i = gethostbyaddr(inet_aton("127.0.0.1"));
ok(defined $i,  "gethostbyaddr('127.0.0.1')") || 
  DIE("Can't continue without working gethostbyaddr: $!");

is( inet_ntoa($i->addr), "127.0.0.1",   'addr from gethostbyaddr' );

# need to skip the name comparisons on Win32 because windows will
# return the name of the machine instead of "localhost" when resolving
# 127.0.0.1 or even "localhost"

# - VMS returns "LOCALHOST" under tcp/ip services V4.1 ECO 2, possibly others
# - OS/390 returns localhost.YADDA.YADDA

SKIP: {
    skip "Windows will return the machine name instead of 'localhost'", 2
      if $^O eq 'MSWin32' or $^O eq 'NetWare' or $^O eq 'cygwin';

print "# name = " . $h->name . ", aliases = " . join (",", @{$h->aliases}) . "\n";

my $in_alias;
    unless ($h->name =~ /^localhost(?:\..+)?$/i) {
        foreach (@{$h->aliases}) {
            if (/^localhost(?:\..+)?$/i) {
                $in_alias = 1;
                last;
            }
        }
	ok( $in_alias );
    } else {
	ok( 1 );
    }
    
    if ($in_alias) {
        # If we found it in the aliases before, expect to find it there again.
        foreach (@{$h->aliases}) {
            if (/^localhost(?:\..+)?$/i) {
                # This time, clear the flag if we see "localhost"
                undef $in_alias;
                last;
            }
        }
    }

if( $in_alias ) {
        like( $i->name, qr/^localhost(?:\..+)?$/i );
    }
    else {
        ok( !$in_alias );
        print "# " . $h->name . " " . join (",", @{$h->aliases}) . "\n";
    }
}
}