Mercurial > hg > nginx-tests
view stream_udp_wildcard.t @ 1209:0d9df274e3a3
Tests: ssl_client_escaped_cert variable tests.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Tue, 22 Aug 2017 17:14:43 +0300 |
parents | cdd44ff602db |
children | 97c8280de681 |
line wrap: on
line source
#!/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'); } ###############################################################################