Mercurial > hg > nginx-tests
annotate stream_udp_limit_conn.t @ 936:e81cacf44cac
Tests: test rejecting new connection in stream_udp_limit_conn.t.
author | Andrey Zelenkov <zelenkov@nginx.com> |
---|---|
date | Tue, 24 May 2016 13:09:21 +0300 |
parents | 25a4b2fdd3fb |
children | b9e42c554ba7 |
rev | line source |
---|---|
868 | 1 #!/usr/bin/perl |
2 | |
3 # (C) Andrey Zelenkov | |
4 # (C) Nginx, Inc. | |
5 | |
6 # Tests for stream limit_conn module with datagrams. | |
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/ dgram /; | |
20 | |
21 ############################################################################### | |
22 | |
23 select STDERR; $| = 1; | |
24 select STDOUT; $| = 1; | |
25 | |
26 my $t = Test::Nginx->new()->has(qw/stream stream_limit_conn shmem/) | |
27 ->write_file_expand('nginx.conf', <<'EOF'); | |
28 | |
29 %%TEST_GLOBALS%% | |
30 | |
31 daemon off; | |
32 | |
33 events { | |
34 } | |
35 | |
36 stream { | |
37 limit_conn_zone $binary_remote_addr zone=zone:1m; | |
38 limit_conn_zone $binary_remote_addr zone=zone2:1m; | |
39 | |
40 proxy_responses 1; | |
41 proxy_timeout 1s; | |
42 | |
43 server { | |
44 listen 127.0.0.1:8081 udp; | |
45 proxy_pass 127.0.0.1:8080; | |
46 | |
47 limit_conn zone 1; | |
48 proxy_responses 2; | |
49 } | |
50 | |
51 server { | |
52 listen 127.0.0.1:8082 udp; | |
53 proxy_pass 127.0.0.1:8080; | |
54 limit_conn zone2 1; | |
55 } | |
56 | |
57 server { | |
58 listen 127.0.0.1:8083 udp; | |
59 proxy_pass 127.0.0.1:8080; | |
60 limit_conn zone 5; | |
61 } | |
62 | |
63 server { | |
64 listen 127.0.0.1:8084 udp; | |
65 proxy_pass 127.0.0.1:8081; | |
66 limit_conn zone2 1; | |
67 } | |
68 | |
69 server { | |
70 listen 127.0.0.1:8085 udp; | |
71 proxy_pass 127.0.0.1:8081; | |
72 limit_conn zone 1; | |
73 } | |
74 } | |
75 | |
76 EOF | |
77 | |
936
e81cacf44cac
Tests: test rejecting new connection in stream_udp_limit_conn.t.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
935
diff
changeset
|
78 $t->try_run('no stream udp')->plan(9); |
868 | 79 $t->run_daemon(\&udp_daemon, $t); |
80 $t->waitforfile($t->testdir . '/8080'); | |
81 | |
82 ############################################################################### | |
83 | |
84 # same and other zones | |
85 | |
86 my $s = dgram('127.0.0.1:8081'); | |
87 | |
88 is($s->io('1'), '1', 'passed'); | |
89 | |
936
e81cacf44cac
Tests: test rejecting new connection in stream_udp_limit_conn.t.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
935
diff
changeset
|
90 # if not all responses were sent to client, then new request |
e81cacf44cac
Tests: test rejecting new connection in stream_udp_limit_conn.t.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
935
diff
changeset
|
91 # in same socket will be treated as new connection |
e81cacf44cac
Tests: test rejecting new connection in stream_udp_limit_conn.t.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
935
diff
changeset
|
92 |
e81cacf44cac
Tests: test rejecting new connection in stream_udp_limit_conn.t.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
935
diff
changeset
|
93 is($s->io('1', read_timeout => 0.1), '', 'rejected new connection'); |
935
25a4b2fdd3fb
Tests: I/O timeout options introduced in Stream.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
925
diff
changeset
|
94 is(dgram('127.0.0.1:8081')->io('1', read_timeout => 0.1), '', |
25a4b2fdd3fb
Tests: I/O timeout options introduced in Stream.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
925
diff
changeset
|
95 'rejected same zone'); |
868 | 96 is(dgram('127.0.0.1:8082')->io('1'), '1', 'passed different zone'); |
97 is(dgram('127.0.0.1:8083')->io('1'), '1', 'passed same zone unlimited'); | |
98 | |
935
25a4b2fdd3fb
Tests: I/O timeout options introduced in Stream.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
925
diff
changeset
|
99 sleep 1; # waiting for proxy_timeout to expire |
25a4b2fdd3fb
Tests: I/O timeout options introduced in Stream.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
925
diff
changeset
|
100 |
25a4b2fdd3fb
Tests: I/O timeout options introduced in Stream.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
925
diff
changeset
|
101 is($s->io('2', read => 2), '12', 'new connection after proxy_timeout'); |
868 | 102 |
103 is(dgram('127.0.0.1:8081')->io('2', read => 2), '12', 'passed 2'); | |
104 | |
105 # zones proxy chain | |
106 | |
107 is(dgram('127.0.0.1:8084')->io('1'), '1', 'passed proxy'); | |
935
25a4b2fdd3fb
Tests: I/O timeout options introduced in Stream.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
925
diff
changeset
|
108 is(dgram('127.0.0.1:8085')->io('1', read_timeout => 0.1), '', |
25a4b2fdd3fb
Tests: I/O timeout options introduced in Stream.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
925
diff
changeset
|
109 'rejected proxy'); |
868 | 110 |
111 ############################################################################### | |
112 | |
113 sub udp_daemon { | |
114 my $t = shift; | |
115 | |
116 my $server = IO::Socket::INET->new( | |
117 Proto => 'udp', | |
118 LocalAddr => '127.0.0.1:8080', | |
119 Reuse => 1, | |
120 ) | |
121 or die "Can't create listening socket: $!\n"; | |
122 | |
123 # signal we are ready | |
124 | |
125 open my $fh, '>', $t->testdir() . '/8080'; | |
126 close $fh; | |
127 | |
128 while (1) { | |
129 $server->recv(my $buffer, 65536); | |
130 $server->send($_) for (1 .. $buffer); | |
131 } | |
132 } | |
133 | |
134 ############################################################################### |