Mercurial > hg > nginx-tests
comparison lib/Test/Nginx/POP3.pm @ 951:9361c7eddfc1
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 |