Mercurial > hg > nginx-tests
comparison 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 |
comparison
equal
deleted
inserted
replaced
1592:efd082b4aa9c | 1593:a328109be893 |
---|---|
1 #!/usr/bin/perl | |
2 | |
3 # (C) Vladimir Kokshenev | |
4 # (C) Nginx, Inc. | |
5 | |
6 # Tests for stream set directive. | |
7 | |
8 ############################################################################### | |
9 | |
10 use warnings; | |
11 use strict; | |
12 | |
13 use Test::More; | |
14 | |
15 BEGIN { use FindBin; chdir($FindBin::Bin); } | |
16 | |
17 use lib 'lib'; | |
18 use Test::Nginx; | |
19 use Test::Nginx::Stream qw/ stream /; | |
20 | |
21 ############################################################################### | |
22 | |
23 select STDERR; $| = 1; | |
24 select STDOUT; $| = 1; | |
25 | |
26 my $t = Test::Nginx->new()->has(qw/stream stream_return stream_set/); | |
27 | |
28 $t->write_file_expand('nginx.conf', <<'EOF'); | |
29 | |
30 %%TEST_GLOBALS%% | |
31 | |
32 daemon off; | |
33 | |
34 events { | |
35 } | |
36 | |
37 stream { | |
38 | |
39 map 0 $map_var { | |
40 default "original"; | |
41 } | |
42 | |
43 server { | |
44 listen 127.0.0.1:8082; | |
45 return $map_var:$set_var; | |
46 | |
47 set $set_var $map_var; | |
48 set $map_var "new"; | |
49 } | |
50 | |
51 server { | |
52 listen 127.0.0.1:8083; | |
53 return $set_var; | |
54 } | |
55 } | |
56 | |
57 EOF | |
58 | |
59 $t->try_run('no stream set')->plan(2); | |
60 | |
61 ############################################################################### | |
62 | |
63 is(stream('127.0.0.1:' . port(8082))->read(), 'new:original', 'set'); | |
64 is(stream('127.0.0.1:' . port(8083))->read(), '', 'uninitialized variable'); | |
65 | |
66 ############################################################################### |