Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
00use.t	104 B	-r--r--r--	2014-12-27 11:48
01local-client-v4.t	2.93 KB	-r--r--r--	2014-12-27 11:48
02local-server-v4.t	3.1 KB	-r--r--r--	2014-12-27 11:49
03local-cross-v4.t	1.3 KB	-r--r--r--	2014-12-27 11:49
04local-client-v6.t	3.67 KB	-r--r--r--	2014-12-27 11:48
05local-server-v6.t	3.84 KB	-r--r--r--	2014-12-27 11:49
06local-cross-v6.t	1.53 KB	-r--r--r--	2014-12-27 11:49
10args.t	3.23 KB	-r--r--r--	2014-12-27 11:48
11sockopts.t	1.72 KB	-r--r--r--	2014-12-27 11:48
12port-fallback.t	1.05 KB	-r--r--r--	2014-12-27 11:48
13addrinfo.t	1.56 KB	-r--r--r--	2014-12-27 11:48
14fileno.t	728 B	-r--r--r--	2014-12-27 11:48
15io-socket.t	1.26 KB	-r--r--r--	2014-12-27 11:49
16v6only.t	2.03 KB	-r--r--r--	2014-12-27 11:49
17gai-flags.t	1.56 KB	-r--r--r--	2014-12-27 11:48
18fdopen.t	476 B	-r--r--r--	2014-12-27 11:48
19no-addrs.t	1.72 KB	-r--r--r--	2014-12-27 11:48
20subclass.t	554 B	-r--r--r--	2014-12-27 11:48
21as-inet.t	814 B	-r--r--r--	2014-12-27 11:48
30nonblocking-connect.t	2.07 KB	-r--r--r--	2014-12-27 11:48
31nonblocking-connect-internet.t	2.59 KB	-r--r--r--	2014-12-27 11:48
99pod.t	175 B	-r--r--r--	2014-12-27 11:48

Rename

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;

use IO::Socket::IP;

use IO::Socket::INET;
use Errno qw( EINPROGRESS EWOULDBLOCK ECONNREFUSED );

# Chris Williams (BINGOS) has offered cpanidx.org as a TCP testing server here
my $test_host = "cpanidx.org";
my $test_good_port = 80;
my $test_bad_port = 6666;

SKIP: {
   IO::Socket::INET->new(
      PeerHost => $test_host,
      PeerPort => $test_good_port,
      Type     => SOCK_STREAM,
      Timeout  => 3,
   ) or skip "Can't connect to $test_host:$test_good_port", 5;

my $socket = IO::Socket::IP->new(
      PeerHost    => $test_host,
      PeerService => $test_good_port,
      Type        => SOCK_STREAM,
      Blocking    => 0,
   );

ok( defined $socket, "defined \$socket for $test_host:$test_good_port" ) or
      diag( "  error was $@" );

ok( defined $socket->fileno, '$socket has fileno' );

ok( !$socket->connected, '$socket not yet connected' );

while( !$socket->connect and ( $! == EINPROGRESS || $! == EWOULDBLOCK ) ) {
      my $wvec = '';
      vec( $wvec, fileno $socket, 1 ) = 1;
      my $evec = '';
      vec( $evec, fileno $socket, 1 ) = 1;

my $ret = select( undef, $wvec, $evec, 60 );
      defined $ret or die "Cannot select() - $!";
      $ret or die "select() timed out";
   }

ok( !$!, '->connect eventually succeeds' );

ok( $socket->connected, '$socket now connected' );
}

SKIP: {
   IO::Socket::INET->new(
      PeerHost => $test_host,
      PeerPort => $test_bad_port,
      Type     => SOCK_STREAM,
      Timeout  => 3,
   ) and skip "Connecting to $test_host:$test_bad_port succeeds", 4;
   $! == ECONNREFUSED or skip "Connecting to $test_host:$test_bad_port doesn't give ECONNREFUSED", 4;

my $socket = IO::Socket::IP->new(
      PeerHost    => $test_host,
      PeerService => $test_bad_port,
      Type        => SOCK_STREAM,
      Blocking    => 0,
   );

ok( defined $socket, "defined \$socket for $test_host:$test_bad_port" ) or
      diag( "  error was $@" );

ok( defined $socket->fileno, '$socket has fileno' );

ok( !$socket->connected, '$socket not yet connected' );

my $ret = select( undef, $wvec, $evec, 60 );
      defined $ret or die "Cannot select() - $!";
      $ret or die "select() timed out";
   }

my $dollarbang = $!;

ok( $dollarbang == ECONNREFUSED, '->connect eventually fails with ECONNREFUSED' ) or
      diag( "  dollarbang = $dollarbang" );
}

done_testing;