1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
#!/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' );
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";
}
my $dollarbang = $!;
ok( $dollarbang == ECONNREFUSED, '->connect eventually fails with ECONNREFUSED' ) or
diag( " dollarbang = $dollarbang" );
}
done_testing;
|
