diff options
Diffstat (limited to 'cpan/IO-Socket-IP/t/04local-client-v6.t')
-rw-r--r-- | cpan/IO-Socket-IP/t/04local-client-v6.t | 26 |
1 files changed, 18 insertions, 8 deletions
diff --git a/cpan/IO-Socket-IP/t/04local-client-v6.t b/cpan/IO-Socket-IP/t/04local-client-v6.t index 6932d4ddbc..5c55367c4b 100644 --- a/cpan/IO-Socket-IP/t/04local-client-v6.t +++ b/cpan/IO-Socket-IP/t/04local-client-v6.t @@ -6,13 +6,23 @@ use warnings; use Test::More; use IO::Socket::IP; -use Socket; +use Socket qw( inet_pton inet_ntop pack_sockaddr_in6 unpack_sockaddr_in6 IN6ADDR_LOOPBACK ); -my $AF_INET6 = eval { require Socket and Socket::AF_INET6() } or +my $AF_INET6 = eval { Socket::AF_INET6() } or plan skip_all => "No AF_INET6"; -eval { IO::Socket::IP->new( LocalHost => "::1" ) } or - plan skip_all => "Unable to bind to ::1"; +# Some odd locations like BSD jails might not like IN6ADDR_LOOPBACK. We'll +# establish a baseline first to test against +my $IN6ADDR_LOOPBACK = eval { + socket my $sockh, Socket::PF_INET6(), SOCK_STREAM, 0 or die "Cannot socket(PF_INET6) - $!"; + bind $sockh, pack_sockaddr_in6( 0, inet_pton( $AF_INET6, "::1" ) ) or die "Cannot bind() - $!"; + ( unpack_sockaddr_in6( getsockname $sockh ) )[1]; +} or plan skip_all => "Unable to bind to ::1 - $@"; +my $IN6ADDR_LOOPBACK_HOST = inet_ntop( $AF_INET6, $IN6ADDR_LOOPBACK ); +if( $IN6ADDR_LOOPBACK ne IN6ADDR_LOOPBACK ) { + diag( "Testing with IN6ADDR_LOOPBACK=$IN6ADDR_LOOPBACK_HOST; this may be because of odd networking" ); +} +my $IN6ADDR_LOOPBACK_HEX = unpack "H*", $IN6ADDR_LOOPBACK; # Unpack just ip6_addr and port because other fields might not match end to end sub unpack_sockaddr_in6_addrport { @@ -63,14 +73,14 @@ foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) { [ unpack_sockaddr_in6_addrport( $testclient->sockname ) ], "\$socket->peername for $socktype" ); - is( $socket->peerhost, "::1", "\$socket->peerhost for $socktype" ); - is( $socket->peerport, $testport, "\$socket->peerport for $socktype" ); + is( $socket->peerhost, $IN6ADDR_LOOPBACK_HOST, "\$socket->peerhost for $socktype" ); + is( $socket->peerport, $testport, "\$socket->peerport for $socktype" ); # Unpack just so it pretty prints without wrecking the terminal if it fails - is( unpack("H*", $socket->peeraddr), "0000"x7 . "0001", "\$socket->peeraddr for $socktype" ); + is( unpack("H*", $socket->peeraddr), $IN6ADDR_LOOPBACK_HEX, "\$testclient->peeraddr for $socktype" ); if( $socktype eq "SOCK_STREAM" ) { # Some OSes don't update sockaddr with a local bind() on SOCK_DGRAM sockets - is( unpack("H*", $socket->sockaddr), "0000"x7 . "0001", "\$socket->sockaddr for $socktype" ); + is( unpack("H*", $socket->sockaddr), $IN6ADDR_LOOPBACK_HEX, "\$testclient->sockaddr for $socktype" ); } # Can't easily test the non-numeric versions without relying on the system's |