nginx-tests: stream_upstream_max

annotate stream_upstream_max_conns.t @ 1391:62f06d8dfc63

Tests: ported upstream max_conns tests to stream, reduced diffs.

author	Sergey Kandaurov <pluknet@nginx.com>
date	Wed, 07 Nov 2018 14:49:34 +0300
parents	upstream_max_conns.t@766bcbb632ee
children	3c101e516213

rev	line source
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1 #!/usr/bin/perl
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3 # (C) Nginx, Inc.
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	4 # (C) Sergey Kandaurov
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	5
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	6 # Tests for stream upstream module with max_conns feature.
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	7
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	8 ###############################################################################
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	9
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	10 use warnings;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	11 use strict;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	12
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	13 use Test::More;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	14
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	15 use IO::Select;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	16
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	17 BEGIN { use FindBin; chdir($FindBin::Bin); }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	18
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	19 use lib 'lib';
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	20 use Test::Nginx qw/ :DEFAULT http_end /;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	21
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	22 ###############################################################################
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	23
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	24 select STDERR; $\| = 1;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	25 select STDOUT; $\| = 1;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	26
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	27 my $t = Test::Nginx->new()->has(qw/stream stream_upstream_least_conn/)
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	28 ->plan(12);
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	29
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	30 $t->write_file_expand('nginx.conf', <<'EOF');
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	31
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	32 %%TEST_GLOBALS%%
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	33
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	34 daemon off;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	35
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	36 events {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	37 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	38
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	39 stream {
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	40 upstream u_unlim {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	41 server 127.0.0.1:8081 max_conns=0;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	42 server 127.0.0.1:8082;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	43 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	44 upstream u_lim {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	45 server 127.0.0.1:8081 max_conns=3;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	46 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	47
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	48 upstream u_backup {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	49 server 127.0.0.1:8081 max_conns=2;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	50 server 127.0.0.1:8082 backup;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	51 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	52 upstream u_backup_lim {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	53 server 127.0.0.1:8081 max_conns=2;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	54 server 127.0.0.1:8082 backup max_conns=3;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	55 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	56
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	57 upstream u_two {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	58 server 127.0.0.1:8081 max_conns=1;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	59 server 127.0.0.1:8082 max_conns=1;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	60 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	61 upstream u_some {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	62 server 127.0.0.1:8081 max_conns=1;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	63 server 127.0.0.1:8082;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	64 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	65 upstream u_many {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	66 server 127.0.0.1:8081 max_conns=1;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	67 server 127.0.0.1:8081 max_conns=1;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	68 server 127.0.0.1:8082;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	69 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	70
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	71 upstream u_weight {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	72 server 127.0.0.1:8081 weight=2 max_conns=1;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	73 server 127.0.0.1:8082;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	74 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	75
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	76 upstream u_lc {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	77 least_conn;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	78 server 127.0.0.1:8081 max_conns=1;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	79 server 127.0.0.1:8082;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	80 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	81 upstream u_lc_backup {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	82 least_conn;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	83 server 127.0.0.1:8081 max_conns=2;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	84 server 127.0.0.1:8082 backup;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	85 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	86 upstream u_lc_backup_lim {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	87 least_conn;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	88 server 127.0.0.1:8081 max_conns=2;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	89 server 127.0.0.1:8082 backup max_conns=3;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	90 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	91
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	92 server {
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	93 listen 127.0.0.1:8086;
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	94 proxy_pass u_unlim;
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	95 }
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	96
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	97 server {
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	98 listen 127.0.0.1:8087;
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	99 proxy_pass u_lim;
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	100 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	101
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	102 server {
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	103 listen 127.0.0.1:8088;
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	104 proxy_pass u_backup;
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	105 }
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	106
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	107 server {
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	108 listen 127.0.0.1:8089;
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	109 proxy_pass u_backup_lim;
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	110 }
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	111
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	112 server {
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	113 listen 127.0.0.1:8090;
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	114 proxy_pass u_two;
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	115 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	116
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	117 server {
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	118 listen 127.0.0.1:8091;
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	119 proxy_pass u_some;
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	120 }
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	121
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	122 server {
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	123 listen 127.0.0.1:8092;
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	124 proxy_pass u_many;
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	125 }
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	126
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	127 server {
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	128 listen 127.0.0.1:8093;
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	129 proxy_pass u_weight;
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	130 }
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	131
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	132 server {
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	133 listen 127.0.0.1:8094;
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	134 proxy_pass u_lc;
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	135 }
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	136
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	137 server {
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	138 listen 127.0.0.1:8095;
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	139 proxy_pass u_lc_backup;
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	140 }
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	141
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	142 server {
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	143 listen 127.0.0.1:8096;
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	144 proxy_pass u_lc_backup_lim;
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	145 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	146 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	147
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	148 EOF
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	149
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	150 $t->run_daemon(\&http_daemon, port(8081), port(8082), port(8085));
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	151 $t->run();
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	152
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	153 $t->waitforsocket('127.0.0.1:' . port(8081));
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	154 $t->waitforsocket('127.0.0.1:' . port(8082));
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	155 $t->waitforsocket('127.0.0.1:' . port(8085));
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	156
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	157 ###############################################################################
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	158
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	159 my @ports = my ($p1, $p2) = (port(8081), port(8082));
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	160
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	161 # two peers without max_conns
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	162
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	163 is(parallel(8086, '/u_unlim?delay=0', 4), "$p1: 2, $p2: 2", 'unlimited');
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	164
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	165 # reopen connection to test connection subtraction
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	166
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	167 my @s = http_get_multi(8087, '/u_lim', 2, 1.1);
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	168 get(8087, '/close');
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	169 push @s, http_get_multi(8087, '/u_lim', 1, 1.1);
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	170 get(8085, '/closeall');
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	171
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	172 is(http_end_multi(\@s), "$p1: 3", 'conn subtraction');
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	173
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	174 # simple test with limited peer
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	175
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	176 is(parallel(8087, '/u_lim', 4), "$p1: 3", 'single');
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	177
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	178 # limited peer with backup peer
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	179
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	180 is(peers(8088, '/u_backup', 6), "$p1 $p1 $p2 $p2 $p2 $p2", 'backup');
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	181
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	182 # peer and backup peer, both limited
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	183
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	184 is(peers(8089, '/u_backup_lim', 6), "$p1 $p1 $p2 $p2 $p2 ", 'backup limited');
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	185
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	186 # all peers limited
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	187
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	188 is(parallel(8090, '/u_two', 4), "$p1: 1, $p2: 1", 'all peers');
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	189
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	190 # subset of peers limited
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	191
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	192 is(parallel(8091, '/u_some', 4), "$p1: 1, $p2: 3", 'some peers');
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	193
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	194 # ensure that peer "weight" does not affect its max_conns limit
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	195
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	196 is(parallel(8093, '/u_weight', 4), "$p1: 1, $p2: 3", 'weight');
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	197
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	198 # peers with equal server value aggregate max_conns limit
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	199
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	200 is(parallel(8092, '/u_many', 6), "$p1: 2, $p2: 4", 'equal peer');
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	201
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	202 # least_conn balancer tests
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	203
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	204 is(parallel(8094, '/u_lc', 4), "$p1: 1, $p2: 3", 'least_conn');
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	205 is(peers(8095, '/u_lc_backup', 6), "$p1 $p1 $p2 $p2 $p2 $p2",
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	206 'least_conn backup');
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	207 is(peers(8096, '/u_lc_backup_lim', 6), "$p1 $p1 $p2 $p2 $p2 ",
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	208 'least_conn backup limited');
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	209
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	210 ###############################################################################
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	211
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	212 sub peers {
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	213 my ($port, $uri, $count) = @_;
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	214
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	215 my @sockets = http_get_multi($port, $uri, $count, 1.1);
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	216 get(8085, '/closeall');
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	217
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	218 join ' ', map { defined $_ && /X-Port: (\d+)/ && $1 }
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	219 map { http_end $_ } (@sockets);
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	220 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	221
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	222 sub parallel {
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	223 my ($port, $uri, $count) = @_;
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	224
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	225 my @sockets = http_get_multi($port, $uri, $count);
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	226 for (1 .. 20) {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	227 last if IO::Select->new(@sockets)->can_read(3) == $count;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	228 select undef, undef, undef, 0.01;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	229 }
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	230 get(8085, '/closeall');
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	231 return http_end_multi(\@sockets);
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	232 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	233
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	234 sub get {
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	235 my ($port, $uri, %opts) = @_;
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	236 my $s = IO::Socket::INET->new(
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	237 Proto => 'tcp',
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	238 PeerAddr => '127.0.0.1',
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	239 PeerPort => port($port),
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	240 )
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	241 or die "Can't connect to nginx: $!\n";
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	242
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	243 http_get($uri, socket => $s, %opts);
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	244 }
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	245
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	246 sub http_get_multi {
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	247 my ($port, $uri, $count, $wait) = @_;
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	248 my @sockets;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	249
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	250 for (0 .. $count - 1) {
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	251 $sockets[$_] = get($port, $uri, start => 1);
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	252 IO::Select->new($sockets[$_])->can_read($wait) if $wait;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	253 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	254
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	255 return @sockets;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	256 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	257
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	258 sub http_end_multi {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	259 my ($sockets) = @_;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	260 my %ports;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	261
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	262 for my $sock (@$sockets) {
1391 62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	263 my $r = http_end($sock);
62f06d8dfc63 Tests: ported upstream max_conns tests to stream, reduced diffs. Sergey Kandaurov <pluknet@nginx.com> parents: 1251 diff changeset	264 if ($r && $r =~ /X-Port: (\d+)/) {
1041 187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	265 $ports{$1} = 0 unless defined $ports{$1};
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	266 $ports{$1}++;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	267 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	268 close $sock;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	269 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	270
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	271 my @keys = map { my $p = $_; grep { $p == $_ } keys %ports } @ports;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	272 return join ', ', map { $_ . ": " . $ports{$_} } @keys;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	273 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	274
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	275 ###############################################################################
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	276
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	277 sub http_daemon {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	278 my (@ports) = @_;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	279 my (@socks, @clients);
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	280
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	281 for my $port (@ports) {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	282 my $server = IO::Socket::INET->new(
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	283 Proto => 'tcp',
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	284 LocalHost => "127.0.0.1:$port",
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	285 Listen => 42,
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	286 Reuse => 1
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	287 )
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	288 or die "Can't create listening socket: $!\n";
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	289 push @socks, $server;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	290 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	291
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	292 my $sel = IO::Select->new(@socks);
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	293 my $skip = 4;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	294 my $count = 0;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	295
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	296 local $SIG{PIPE} = 'IGNORE';
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	297
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	298 OUTER:
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	299 while (my @ready = $sel->can_read) {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	300 foreach my $fh (@ready) {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	301 if (grep $_ == $fh, @socks) {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	302 my $new = $fh->accept;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	303 $new->autoflush(1);
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	304 $sel->add($new);
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	305 $count++;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	306
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	307 } else {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	308 my @busy = grep { $_->sockport() } @ready;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	309
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	310 # finish other handles
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	311 if ($fh->sockport() == port(8085) && @busy > 1
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	312 && grep $_->sockport() != port(8085),
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	313 @busy)
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	314 {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	315 next;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	316 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	317
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	318 # late events in other handles
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	319 if ($fh->sockport() == port(8085) && @busy == 1
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	320 && $count > 1 && $skip-- > 0)
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	321 {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	322 select undef, undef, undef, 0.1;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	323 next OUTER;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	324 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	325
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	326 my $rv = process_socket($fh, \@clients);
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	327 if ($rv == 1) {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	328 $sel->remove($fh);
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	329 $fh->close;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	330 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	331 if ($rv == 2) {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	332 for (@clients) {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	333 $sel->remove($_);
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	334 $_->close;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	335 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	336 $sel->remove($fh);
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	337 $fh->close;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	338 $skip = 4;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	339 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	340 $count--;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	341 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	342 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	343 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	344 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	345
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	346 # Returns true to close connection
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	347
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	348 sub process_socket {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	349 my ($client, $saved) = @_;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	350 my $port = $client->sockport();
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	351
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	352 my $headers = '';
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	353 my $uri = '';
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	354
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	355 while (<$client>) {
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	356 $headers .= $_;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	357 last if (/^\x0d?\x0a?$/);
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	358 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	359 return 1 if $headers eq '';
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	360
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	361 $uri = $1 if $headers =~ /^\S+\s+([^ ]+)\s+HTTP/i;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	362 return 1 if $uri eq '';
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	363
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	364 Test::Nginx::log_core('\|\|', "$port: response, 200");
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	365 print $client <<EOF;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	366 HTTP/1.1 200 OK
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	367 X-Port: $port
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	368
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	369 OK
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	370 EOF
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	371
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	372 return 2 if $uri =~ /closeall/;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	373 return 1 if $uri =~ /close/;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	374
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	375 push @$saved, $client;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	376 return 0;
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	377 }
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	378
187524328926 Tests: upstream max_conns tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	379 ###############################################################################

Mercurial > hg > nginx-tests

annotate stream_upstream_max_conns.t @ 1391:62f06d8dfc63