Mercurial > hg > nginx-tests

comparison lib/Test/Nginx/POP3.pm @ 951:9361c7eddfc1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: parallel tests support.
author Andrey Zelenkov <zelenkov@nginx.com>
date Tue, 21 Jun 2016 16:37:58 +0300
parents 481d705b8610
children 1edb092149e2
comparison
equal deleted inserted replaced
950:991ef7781b38 951:9361c7eddfc1
87 } 87 }
88 88
89 ############################################################################### 89 ###############################################################################
90 90
91 sub pop3_test_daemon { 91 sub pop3_test_daemon {
92 my ($port) = @_;
93
92 my $server = IO::Socket::INET->new( 94 my $server = IO::Socket::INET->new(
93 Proto => 'tcp', 95 Proto => 'tcp',
94 LocalAddr => '127.0.0.1:8111', 96 LocalAddr => '127.0.0.1:' . ($port || 8111),
95 Listen => 5, 97 Listen => 5,
96 Reuse => 1 98 Reuse => 1
97 ) 99 )
98 or die "Can't create listening socket: $!\n"; 100 or die "Can't create listening socket: $!\n";
99 101