Mercurial > hg > nginx-tests
changeset 1055:8979f0d86c29
Tests: reduced diff to stream_ssl_realip.t, no functional changes.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Wed, 12 Oct 2016 17:38:11 +0300 |
parents | 9b8e13e2ee67 |
children | 1e41a0de0772 |
files | stream_realip.t |
diffstat | 1 files changed, 14 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- a/stream_realip.t Tue Oct 11 13:08:00 2016 +0300 +++ b/stream_realip.t Wed Oct 12 17:38:11 2016 +0300 @@ -87,38 +87,38 @@ ############################################################################### -is(stream('127.0.0.1:' . port(8083)) - ->io("PROXY TCP4 192.0.2.1 192.0.2.2 1234 5678${CRLF}"), +is(pp_get(8083, "PROXY TCP4 192.0.2.1 192.0.2.2 1234 5678${CRLF}"), '192.0.2.1:1234', 'server'); is(stream('127.0.0.1:' . port(8084))->read(), ':', 'server off'); -is(stream('127.0.0.1:' . port(8085)) - ->io("PROXY TCP4 192.0.2.1 192.0.2.2 1234 5678${CRLF}close"), +is(pp_get(8085, "PROXY TCP4 192.0.2.1 192.0.2.2 1234 5678${CRLF}close"), 'close', 'server payload'); -like(stream('127.0.0.1:' . port(8086)) - ->io("PROXY TCP4 192.0.2.1 192.0.2.2 1234 5678${CRLF}"), +like(pp_get(8086, "PROXY TCP4 192.0.2.1 192.0.2.2 1234 5678${CRLF}"), qr/^(\Q127.0.0.1:\E\d+):\s+\1$/, 'server ipv6 realip - no match'); -like(stream('127.0.0.1:' . port(8087)) - ->io("PROXY TCP4 192.0.2.1 192.0.2.2 1234 5678${CRLF}"), +like(pp_get(8087, "PROXY TCP4 192.0.2.1 192.0.2.2 1234 5678${CRLF}"), qr/\Q192.0.2.1:1234:\E\s+\Q::1:\E\d+/, 'server ipv6 realip'); -like(stream('127.0.0.1:' . port(8088)) - ->io("PROXY TCP4 192.0.2.1 192.0.2.2 1234 5678${CRLF}"), +like(pp_get(8088, "PROXY TCP4 192.0.2.1 192.0.2.2 1234 5678${CRLF}"), qr/\Q192.0.2.1:1234:\E\s+\Q127.0.0.1:\E\d+/, 'server ipv4 realip'); -like(stream('127.0.0.1:' . port(8089)) - ->io("PROXY TCP4 192.0.2.1 192.0.2.2 1234 5678${CRLF}"), +like(pp_get(8089, "PROXY TCP4 192.0.2.1 192.0.2.2 1234 5678${CRLF}"), qr/^(::1:\d+):\s+\1$/, 'server ipv4 realip - no match'); -like(stream('127.0.0.1:' . port(8088)) - ->io("PROXY UNKNOWN TCP4 192.0.2.1 192.0.2.2 1234 5678${CRLF}"), +like(pp_get(8088, "PROXY UNKNOWN TCP4 192.0.2.1 192.0.2.2 1234 5678${CRLF}"), qr/^(\Q127.0.0.1:\E\d+):\s+\1$/, 'server unknown'); ############################################################################### +sub pp_get { + my ($port, $proxy) = @_; + stream(PeerPort => port($port))->io($proxy); +} + +############################################################################### + sub stream_daemon { my $server = IO::Socket::INET->new( Proto => 'tcp',