Mercurial > hg > nginx-tests
comparison upstream_random.t @ 1369:a37d8526e691
Tests: adjusted delay in upstream random tests.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Mon, 03 Sep 2018 11:39:40 +0300 |
parents | fda743e92b31 |
children | eb1d883305ea |
comparison
equal
deleted
inserted
replaced
1368:c0dbb94fa36c | 1369:a37d8526e691 |
---|---|
151 my @ports = my ($port1, $port2) = (port(8081), port(8082)); | 151 my @ports = my ($port1, $port2) = (port(8081), port(8082)); |
152 | 152 |
153 like(http_get('/'), qr/X-Port: ($port1|$port2)/, 'random'); | 153 like(http_get('/'), qr/X-Port: ($port1|$port2)/, 'random'); |
154 like(http_get('/lc/'), qr/X-Port: ($port1|$port2)/, 'random two'); | 154 like(http_get('/lc/'), qr/X-Port: ($port1|$port2)/, 'random two'); |
155 | 155 |
156 my $s = http_get('/lc/w', start => 1, sleep => 0.2); | 156 my $s = http_get('/lc/w', start => 1, sleep => 0.5); |
157 my $r = http_get('/lc/'); | 157 my $r = http_get('/lc/'); |
158 my ($p) = http_end($s) =~ /X-Port: (\d+)/; | 158 my ($p) = http_end($s) =~ /X-Port: (\d+)/; |
159 like($r, qr/X-Port: (?!$p)/, 'random wait'); | 159 like($r, qr/X-Port: (?!$p)/, 'random wait'); |
160 | 160 |
161 SKIP: { | 161 SKIP: { |