Mercurial > hg > nginx-tests

comparison lib/Test/Nginx/POP3.pm @ 969:1edb092149e2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: simplified parallel tests. Now configurations are automatically scanned for "127.0.0.1:8xxx", and ports are auto-replaced by free ones. The exact port specified is used if it's free.
author Maxim Dounin <mdounin@mdounin.ru>
date Fri, 08 Jul 2016 02:21:14 +0300
parents 9361c7eddfc1
children 575d39cc0e35
comparison
equal deleted inserted replaced
968:ce687b25ea49 969:1edb092149e2
19 my $self = {}; 19 my $self = {};
20 bless $self, shift @_; 20 bless $self, shift @_;
21 21
22 $self->{_socket} = IO::Socket::INET->new( 22 $self->{_socket} = IO::Socket::INET->new(
23 Proto => "tcp", 23 Proto => "tcp",
24 PeerAddr => "127.0.0.1:8110", 24 PeerAddr => "127.0.0.1:" . port(8110),
25 @_ 25 @_
26 ) 26 )
27 or die "Can't connect to nginx: $!\n"; 27 or die "Can't connect to nginx: $!\n";
28 28
29 if ({@_}->{'SSL'}) { 29 if ({@_}->{'SSL'}) {
91 sub pop3_test_daemon { 91 sub pop3_test_daemon {
92 my ($port) = @_; 92 my ($port) = @_;
93 93
94 my $server = IO::Socket::INET->new( 94 my $server = IO::Socket::INET->new(
95 Proto => 'tcp', 95 Proto => 'tcp',
96 LocalAddr => '127.0.0.1:' . ($port || 8111), 96 LocalAddr => '127.0.0.1:' . ($port || port(8111)),
97 Listen => 5, 97 Listen => 5,
98 Reuse => 1 98 Reuse => 1
99 ) 99 )
100 or die "Can't create listening socket: $!\n"; 100 or die "Can't create listening socket: $!\n";
101 101