Mercurial > hg > nginx-tests

comparison lib/Test/Nginx/SMTP.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
91 } 91 }
92 92
93 ############################################################################### 93 ###############################################################################
94 94
95 sub smtp_test_daemon { 95 sub smtp_test_daemon {
96 my ($port) = @_;
97
96 my $server = IO::Socket::INET->new( 98 my $server = IO::Socket::INET->new(
97 Proto => 'tcp', 99 Proto => 'tcp',
98 LocalAddr => '127.0.0.1:8026', 100 LocalAddr => '127.0.0.1:' . ($port || 8026),
99 Listen => 5, 101 Listen => 5,
100 Reuse => 1 102 Reuse => 1
101 ) 103 )
102 or die "Can't create listening socket: $!\n"; 104 or die "Can't create listening socket: $!\n";
103 105