I've wrote Test::TCP today.
If you write tests with Test::TCP, easy to write the test, that using TCP socket.
follow is example code.
use warnings; use strict; package MyEchoServer; use IO::Socket::INET; sub new { my ($class, $port) = @_; my $sock = IO::Socket::INET->new( LocalPort => $port, LocalAddr => '127.0.0.1', Proto => 'tcp', Listen => 5, Type => SOCK_STREAM, ) or die "Cannot open server socket: $!"; bless { sock => $sock }, $class; } sub run { my $self = shift; while (my $remote = $self->{sock}->accept) { while (my $line = <$remote>) { print {$remote} $line; } } } package main; use strict; use warnings; use Test::More tests => 1; use Test::TCP; use IO::Socket::INET; test_tcp( client => sub { my $port = shift; my $sock = IO::Socket::INET->new( PeerPort => $port, PeerAddr => '127.0.0.1', Proto => 'tcp' ) or die "Cannot open client socket: $!"; print {$sock} "foo\n"; my $res = <$sock>; is $res, "foo\n"; }, server => sub { my $port = shift; MyEchoServer->new($port)->run; }, );and repository is here:
