use warnings;
use strict;
use Test::More;
use Test::TCP;
use Test::SharedFork;
use IO::Socket::IP;

test_tcp(
    client => sub {
        my ($port, $pid) = @_;
        ok $port, 'got port';
        ok my $sock = IO::Socket::IP->new(
            PeerPort => $port,
            PeerHost => '127.0.0.1',
            Proto    => 'tcp',
            V6Only   => 1,
        ), 'connected' or die "Cannot open client socket: $!";

        ok($sock->print("foo\n"), "send 1");
        is(<$sock>, "foo\n", "recv 1");
    },
    server => sub {
        my ($sock) = @_;
        while (my $remote = $sock->accept) {
            note "new request";
            $remote->print(scalar <$remote>);
        }
    },
    listen => 1,
);

done_testing;