File: 11_net_empty_port.t

package info (click to toggle)
libtest-tcp-perl 2.00-1~bpo70%2B1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy-backports
  • size: 204 kB
  • sloc: perl: 233; makefile: 2
file content (18 lines) | stat: -rw-r--r-- 372 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
use strict;
use warnings;
use Test::More;
use Net::EmptyPort;

my $port = empty_port;
ok $port, "found an empty port";
ok !wait_port( $port, 0.1 ), "port is closed";

my $sock = IO::Socket::INET->new(
    LocalAddr => '127.0.0.1',
    LocalPort => $port,
    Listen    => 1,
) or die "Couldn't create socket: $!";

ok wait_port( $port, 3 ), "port is open";

done_testing;