22

✏️ Editing: host6.t

#!/usr/bin/perl

use strict;
use warnings;

use Config;

BEGIN {
    if (-d "lib" && -f "TEST") {
	my $reason;
	if (! $Config{'d_fork'}) {
	    $reason = 'no fork';
	}
	elsif ($Config{'extensions'} !~ /\bSocket\b/) {
	    $reason = 'Socket extension unavailable';
	}
	elsif ($Config{'extensions'} !~ /\bIO\b/) {
	    $reason = 'IO extension unavailable';
	}
	if ($reason) {
	    print "1..0 # Skip: $reason\n";
	    exit 0;
        }
    }
    if ($^O eq 'MSWin32') {
        print "1..0 # Skip: accept() fails for IPv6 under MSWin32\n";
        exit 0;
    }
}

use Test::More;

use IO::Socket::INET6;

my $listen = IO::Socket::INET6->new(Listen => 2,
				Proto => 'tcp',
				# some systems seem to need as much as 10,
				# so be generous with the timeout
				Timeout => 15,
			       ) or die "$@";

# TEST
my $sockhost = $listen->sockhost();

my $port = $listen->sockport;

if(my $pid = fork()) {
    my $sock = $listen->accept();
    my $line = <$sock>;
    $listen->close;
    exit;
} elsif (defined $pid) {

plan tests => 4;
    # child, try various ways to connect
    my $sock = IO::Socket::INET6->new("[::1]:$port");

# TEST
    ok ($sockhost, "Checking for sockhost() success");

# TEST
    ok ($sock->peerhost(), "Checking for peerhost() success");

# TEST
    is ($sock->sockflow(), 0, "Checking for sockflow() success");

# TEST
    is ($sock->peerflow(), 0, "Checking for peerflow() success");

print {$sock} "H\n";
    undef($sock);
} else {
    die $!;
}

MR SKB