+subtest 'dynamic_socket' => sub {
+ ok my $socket = dynamic_socket() => 'got a socket';
+ note "got socket on port @{[$socket->sockport]}";
+ isa_ok $socket => 'IO::Socket::INET';
+ cmp_ok $socket->sockport(), '>=', 1024 => 'port is >= 1024';
+ $socket->close;
+};