Mercurial > hg > nginx-tests
diff stream_set.t @ 1593:a328109be893
Tests: stream set tests.
author | Vladimir Kokshenev <v.kokshenev@f5.com> |
---|---|
date | Thu, 24 Sep 2020 14:30:06 -0700 |
parents | |
children | f3ba4c74de31 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/stream_set.t Thu Sep 24 14:30:06 2020 -0700 @@ -0,0 +1,66 @@ +#!/usr/bin/perl + +# (C) Vladimir Kokshenev +# (C) Nginx, Inc. + +# Tests for stream set directive. + +############################################################################### + +use warnings; +use strict; + +use Test::More; + +BEGIN { use FindBin; chdir($FindBin::Bin); } + +use lib 'lib'; +use Test::Nginx; +use Test::Nginx::Stream qw/ stream /; + +############################################################################### + +select STDERR; $| = 1; +select STDOUT; $| = 1; + +my $t = Test::Nginx->new()->has(qw/stream stream_return stream_set/); + +$t->write_file_expand('nginx.conf', <<'EOF'); + +%%TEST_GLOBALS%% + +daemon off; + +events { +} + +stream { + + map 0 $map_var { + default "original"; + } + + server { + listen 127.0.0.1:8082; + return $map_var:$set_var; + + set $set_var $map_var; + set $map_var "new"; + } + + server { + listen 127.0.0.1:8083; + return $set_var; + } +} + +EOF + +$t->try_run('no stream set')->plan(2); + +############################################################################### + +is(stream('127.0.0.1:' . port(8082))->read(), 'new:original', 'set'); +is(stream('127.0.0.1:' . port(8083))->read(), '', 'uninitialized variable'); + +###############################################################################