Mercurial > hg > nginx-tests

comparison stream_udp_limit_conn.t @ 935:25a4b2fdd3fb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: I/O timeout options introduced in Stream. Some tests wait for unreachable response for 5 seconds before timeout that lead to unnecessary delay.
author Andrey Zelenkov <zelenkov@nginx.com>
date Tue, 24 May 2016 12:58:26 +0300
parents 6bb1f2ccd386
children e81cacf44cac
comparison
equal deleted inserted replaced
934:d5762cd27ad9 935:25a4b2fdd3fb
85 85
86 my $s = dgram('127.0.0.1:8081'); 86 my $s = dgram('127.0.0.1:8081');
87 87
88 is($s->io('1'), '1', 'passed'); 88 is($s->io('1'), '1', 'passed');
89 89
90 is(dgram('127.0.0.1:8081')->io('1'), '', 'rejected same zone'); 90 is(dgram('127.0.0.1:8081')->io('1', read_timeout => 0.1), '',
91 'rejected same zone');
91 is(dgram('127.0.0.1:8082')->io('1'), '1', 'passed different zone'); 92 is(dgram('127.0.0.1:8082')->io('1'), '1', 'passed different zone');
92 is(dgram('127.0.0.1:8083')->io('1'), '1', 'passed same zone unlimited'); 93 is(dgram('127.0.0.1:8083')->io('1'), '1', 'passed same zone unlimited');
93 94
94 is($s->io('2', read => 2), '12', 'long connection'); 95 sleep 1; # waiting for proxy_timeout to expire
96
97 is($s->io('2', read => 2), '12', 'new connection after proxy_timeout');
95 98
96 is(dgram('127.0.0.1:8081')->io('2', read => 2), '12', 'passed 2'); 99 is(dgram('127.0.0.1:8081')->io('2', read => 2), '12', 'passed 2');
97 100
98 # zones proxy chain 101 # zones proxy chain
99 102
100 is(dgram('127.0.0.1:8084')->io('1'), '1', 'passed proxy'); 103 is(dgram('127.0.0.1:8084')->io('1'), '1', 'passed proxy');
101 is(dgram('127.0.0.1:8085')->io('1'), '', 'rejected proxy'); 104 is(dgram('127.0.0.1:8085')->io('1', read_timeout => 0.1), '',
105 'rejected proxy');
102 106
103 ############################################################################### 107 ###############################################################################
104 108
105 sub udp_daemon { 109 sub udp_daemon {
106 my $t = shift; 110 my $t = shift;