Mercurial > hg > nginx-tests
changeset 1164:cdd44ff602db
Tests: stream udp test with wildcard address.
The test ensures that the source address used for outgoing UDP datagrams
is the same as the one used for the incoming datagram.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Tue, 18 Apr 2017 17:51:00 +0300 |
parents | bd1cf0a80b28 |
children | ba26845f53ff |
files | stream_udp_wildcard.t |
diffstat | 1 files changed, 67 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/stream_udp_wildcard.t @@ -0,0 +1,67 @@ +#!/usr/bin/perl + +# (C) Sergey Kandaurov +# (C) Nginx, Inc. + +# Tests for stream proxy module with datagrams, source address selection. + +############################################################################### + +use warnings; +use strict; + +use Test::More; + +BEGIN { use FindBin; chdir($FindBin::Bin); } + +use lib 'lib'; +use Test::Nginx; +use Test::Nginx::Stream qw/ dgram /; + +############################################################################### + +select STDERR; $| = 1; +select STDOUT; $| = 1; + +plan(skip_all => '127.0.0.2 local address required') + unless defined IO::Socket::INET->new( LocalAddr => '127.0.0.2' ); + +plan(skip_all => 'listen on wildcard address') + unless $ENV{TEST_NGINX_UNSAFE}; + +my $t = Test::Nginx->new()->has(qw/stream stream_return udp/)->plan(1) + ->write_file_expand('nginx.conf', <<'EOF'); + +%%TEST_GLOBALS%% + +daemon off; + +events { +} + +stream { + server { + listen %%PORT_8999_UDP%% udp; + return $server_addr; + } +} + +EOF + +$t->run(); + +############################################################################### + +my $s = dgram( + LocalAddr => '127.0.0.1', + PeerAddr => '127.0.0.2:' . port(8999) +); + +TODO: { +local $TODO = 'not yet' unless $t->has_version('1.13.0'); + +is($s->io('test'), '127.0.0.2', 'stream udp wildcard'); + +} + +###############################################################################