1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use Test::More;
7
8use IO::Socket::IP;
9
10my $server = IO::Socket::IP->new(
11   Listen    => 1,
12   LocalHost => "127.0.0.1",
13   LocalPort => 0,
14) or die "Cannot listen on PF_INET - $!";
15
16my $client = IO::Socket::IP->new(
17   PeerHost => $server->sockhost,
18   PeerPort => $server->sockport,
19   Timeout  => 0.1,
20) or die "Cannot connect on PF_INET - $!";
21
22ok( defined $client, 'client constructed with Timeout' );
23ok( $client->blocking, 'client is in blocking mode after connect' );
24
25my $accepted = $server->accept
26   or die "Cannot accept - $!";
27
28ok( defined $accepted, 'accepted a client' );
29
30done_testing;
31