diff options
Diffstat (limited to 'cpan/IO-Socket-IP/t/15io-socket.t')
-rw-r--r-- | cpan/IO-Socket-IP/t/15io-socket.t | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/cpan/IO-Socket-IP/t/15io-socket.t b/cpan/IO-Socket-IP/t/15io-socket.t deleted file mode 100644 index e8cecda3af..0000000000 --- a/cpan/IO-Socket-IP/t/15io-socket.t +++ /dev/null @@ -1,34 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use Test::More tests => 2; - -use IO::Socket; -use IO::Socket::IP -register; - -my $sock = IO::Socket->new( - Domain => AF_INET, - Type => SOCK_STREAM, - LocalHost => "127.0.0.1", - LocalPort => 0, -); - -isa_ok( $sock, "IO::Socket::IP", 'IO::Socket->new( Domain => AF_INET )' ); - -SKIP: { - my $AF_INET6 = eval { Socket::AF_INET6() } || - eval { require Socket6; Socket6::AF_INET6() }; - $AF_INET6 or skip "No AF_INET6", 1; - eval { IO::Socket::IP->new( LocalHost => "::1" ) } or - skip "Unable to bind to ::1", 1; - - my $sock = IO::Socket->new( - Domain => $AF_INET6, - Type => SOCK_STREAM, - LocalHost => "::1", - LocalPort => 0, - ); - - isa_ok( $sock, "IO::Socket::IP", 'IO::Socket->new( Domain => AF_INET6 )' ) or - diag( " error was $@" ); -} |