Mercurial > hg > nginx-tests

comparison lib/Test/Nginx/Stream.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 25a4b2fdd3fb
children 1edb092149e2
comparison
equal deleted inserted replaced
950:991ef7781b38 951:9361c7eddfc1
26 sub dgram { 26 sub dgram {
27 unshift(@_, "PeerAddr") if @_ == 1; 27 unshift(@_, "PeerAddr") if @_ == 1;
28 28
29 return Test::Nginx::Stream->new( 29 return Test::Nginx::Stream->new(
30 Proto => "udp", 30 Proto => "udp",
31 PeerAddr => '127.0.0.1:8080',
32 @_ 31 @_
33 ); 32 );
34 } 33 }
35 34
36 sub new { 35 sub new {
39 38
40 unshift(@_, "PeerAddr") if @_ == 1; 39 unshift(@_, "PeerAddr") if @_ == 1;
41 40
42 $self->{_socket} = IO::Socket::INET->new( 41 $self->{_socket} = IO::Socket::INET->new(
43 Proto => "tcp", 42 Proto => "tcp",
44 PeerAddr => '127.0.0.1:8080', 43 PeerAddr => '127.0.0.1',
44 PeerPort => ($Test::Nginx::ports[0]{port} || 8080),
45 @_ 45 @_
46 ) 46 )
47 or die "Can't connect to nginx: $!\n"; 47 or die "Can't connect to nginx: $!\n";
48 48
49 if ({@_}->{'SSL'}) { 49 if ({@_}->{'SSL'}) {