nginx-tests: stream_access.t annotate

author	Andrey Zelenkov <zelenkov@nginx.com>
date	Fri, 10 Jul 2015 18:06:37 +0300
parents
children	1925b27f24b6

rev	line source
631 fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1 #!/usr/bin/perl
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	2
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	3 # (C) Andrey Zelenkov
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	4 # (C) Nginx, Inc.
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	5
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	6 # Tests for stream access module.
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	7
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	8 ###############################################################################
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	9
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	10 use warnings;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	11 use strict;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	12
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	13 use Test::More;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	14
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	15 use IO::Select;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	16
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	17 BEGIN { use FindBin; chdir($FindBin::Bin); }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	18
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	19 use lib 'lib';
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	20 use Test::Nginx;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	21
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	22 ###############################################################################
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	23
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	24 select STDERR; $\| = 1;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	25 select STDOUT; $\| = 1;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	26
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	27 my $t = Test::Nginx->new()->has(qw/stream stream_access ipv6/);
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	28
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	29 $t->write_file_expand('nginx.conf', <<'EOF');
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	30
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	31 %%TEST_GLOBALS%%
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	32
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	33 daemon off;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	34
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	35 events {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	36 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	37
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	38 stream {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	39 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	40 listen 127.0.0.1:8082;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	41 proxy_pass [::1]:8080;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	42 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	43
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	44 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	45 listen 127.0.0.1:8083;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	46 proxy_pass unix:%%TESTDIR%%/unix.sock.0;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	47 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	48
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	49 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	50 listen 127.0.0.1:8085;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	51 proxy_pass [::1]:8081;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	52 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	53
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	54 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	55 listen 127.0.0.1:8086;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	56 proxy_pass unix:%%TESTDIR%%/unix.sock.1;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	57 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	58
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	59 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	60 listen 127.0.0.1:8088;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	61 proxy_pass [::1]:8082;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	62 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	63
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	64 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	65 listen 127.0.0.1:8089;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	66 proxy_pass unix:%%TESTDIR%%/unix.sock.2;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	67 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	68
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	69 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	70 listen 127.0.0.1:8091;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	71 proxy_pass [::1]:8083;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	72 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	73
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	74 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	75 listen 127.0.0.1:8092;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	76 proxy_pass unix:%%TESTDIR%%/unix.sock.3;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	77 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	78
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	79 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	80 listen 127.0.0.1:8094;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	81 proxy_pass [::1]:8084;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	82 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	83
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	84 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	85 listen 127.0.0.1:8095;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	86 proxy_pass unix:%%TESTDIR%%/unix.sock.4;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	87 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	88
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	89 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	90 listen 127.0.0.1:8097;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	91 proxy_pass [::1]:8085;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	92 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	93
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	94 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	95 listen 127.0.0.1:8098;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	96 proxy_pass unix:%%TESTDIR%%/unix.sock.5;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	97 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	98
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	99 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	100 listen 127.0.0.1:8081;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	101 listen [::1]:8080;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	102 listen unix:%%TESTDIR%%/unix.sock.0;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	103 proxy_pass 127.0.0.1:8080;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	104 allow all;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	105 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	106
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	107 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	108 listen 127.0.0.1:8084;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	109 listen [::1]:8081;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	110 listen unix:%%TESTDIR%%/unix.sock.1;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	111 proxy_pass 127.0.0.1:8080;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	112 deny all;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	113 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	114
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	115 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	116 listen 127.0.0.1:8087;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	117 listen [::1]:8082;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	118 listen unix:%%TESTDIR%%/unix.sock.2;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	119 proxy_pass 127.0.0.1:8080;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	120 allow unix:;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	121 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	122
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	123 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	124 listen 127.0.0.1:8090;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	125 listen [::1]:8083;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	126 listen unix:%%TESTDIR%%/unix.sock.3;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	127 proxy_pass 127.0.0.1:8080;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	128 deny 127.0.0.1;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	129 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	130
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	131 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	132 listen 127.0.0.1:8093;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	133 listen [::1]:8084;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	134 listen unix:%%TESTDIR%%/unix.sock.4;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	135 proxy_pass 127.0.0.1:8080;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	136 deny ::1;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	137 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	138
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	139 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	140 listen 127.0.0.1:8096;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	141 listen [::1]:8085;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	142 listen unix:%%TESTDIR%%/unix.sock.5;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	143 proxy_pass 127.0.0.1:8080;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	144 deny unix:;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	145 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	146 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	147
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	148 EOF
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	149
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	150 $t->run_daemon(\&stream_daemon);
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	151 $t->try_run('no inet6 and/or unix support')->plan(18);
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	152 $t->waitforsocket('127.0.0.1:8080');
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	153
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	154 ###############################################################################
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	155
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	156 my $str = 'SEE-THIS';
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	157
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	158 # allow all
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	159
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	160 is(stream_get($str, '127.0.0.1:8081'), $str, 'inet allow all');
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	161 is(stream_get($str, '127.0.0.1:8082'), $str, 'inet6 allow all');
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	162 is(stream_get($str, '127.0.0.1:8083'), $str, 'unix allow all');
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	163
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	164 # deny all
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	165
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	166 is(stream_get($str, '127.0.0.1:8084'), '', 'inet deny all');
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	167 is(stream_get($str, '127.0.0.1:8085'), '', 'inet6 deny all');
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	168 is(stream_get($str, '127.0.0.1:8086'), '', 'unix deny all');
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	169
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	170 # allow unix
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	171
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	172 is(stream_get($str, '127.0.0.1:8087'), $str, 'inet allow unix');
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	173 is(stream_get($str, '127.0.0.1:8088'), $str, 'inet6 allow unix');
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	174 is(stream_get($str, '127.0.0.1:8089'), $str, 'unix allow unix');
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	175
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	176 # deny inet
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	177
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	178 is(stream_get($str, '127.0.0.1:8090'), '', 'inet deny inet');
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	179 is(stream_get($str, '127.0.0.1:8091'), $str, 'inet6 deny inet');
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	180 is(stream_get($str, '127.0.0.1:8092'), $str, 'unix deny inet');
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	181
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	182 # deny inet6
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	183
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	184 is(stream_get($str, '127.0.0.1:8093'), $str, 'inet deny inet6');
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	185 is(stream_get($str, '127.0.0.1:8094'), '', 'inet6 deny inet6');
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	186 is(stream_get($str, '127.0.0.1:8095'), $str, 'unix deny inet6');
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	187
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	188 # deny unix
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	189
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	190 is(stream_get($str, '127.0.0.1:8096'), $str, 'inet deny unix');
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	191 is(stream_get($str, '127.0.0.1:8097'), $str, 'inet6 deny unix');
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	192 is(stream_get($str, '127.0.0.1:8098'), '', 'unix deny unix');
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	193
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	194 ###############################################################################
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	195
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	196 sub stream_get {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	197 my ($data, $peer) = @_;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	198
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	199 my $s = stream_connect($peer);
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	200 stream_write($s, $data);
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	201
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	202 $data = '';
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	203 while (my $buf = stream_read($s)) {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	204 $data .= $buf;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	205 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	206
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	207 return $data;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	208 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	209
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	210 sub stream_connect {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	211 my $peer = shift;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	212 my $s = IO::Socket::INET->new(
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	213 Proto => 'tcp',
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	214 PeerAddr => $peer \|\| '127.0.0.1:8080'
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	215 )
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	216 or die "Can't connect to nginx: $!\n";
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	217
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	218 return $s;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	219 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	220
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	221 sub stream_write {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	222 my ($s, $message) = @_;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	223
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	224 local $SIG{PIPE} = 'IGNORE';
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	225
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	226 $s->blocking(0);
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	227 while (IO::Select->new($s)->can_write(1.5)) {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	228 my $n = $s->syswrite($message);
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	229 last unless $n;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	230 $message = substr($message, $n);
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	231 last unless length $message;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	232 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	233
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	234 if (length $message) {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	235 $s->close();
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	236 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	237 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	238
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	239 sub stream_read {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	240 my ($s) = @_;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	241 my ($buf);
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	242
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	243 $s->blocking(0);
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	244 if (IO::Select->new($s)->can_read(3)) {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	245 $s->sysread($buf, 1024);
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	246 };
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	247
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	248 log_in($buf);
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	249 return $buf;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	250 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	251
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	252 ###############################################################################
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	253
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	254 sub stream_daemon {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	255 my $server = IO::Socket::INET->new(
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	256 Proto => 'tcp',
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	257 LocalAddr => '127.0.0.1:8080',
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	258 Listen => 5,
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	259 Reuse => 1
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	260 )
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	261 or die "Can't create listening socket: $!\n";
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	262
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	263 local $SIG{PIPE} = 'IGNORE';
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	264
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	265 while (my $client = $server->accept()) {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	266 $client->autoflush(1);
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	267
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	268 log2c("(new connection $client)");
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	269
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	270 $client->sysread(my $buffer, 65536) or next;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	271
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	272 log2i("$client $buffer");
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	273
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	274 log2o("$client $buffer");
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	275
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	276 $client->syswrite($buffer);
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	277
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	278 close $client;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	279 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	280 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	281
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	282 sub log2i { Test::Nginx::log_core('\|\| <<', @_); }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	283 sub log2o { Test::Nginx::log_core('\|\| >>', @_); }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	284 sub log2c { Test::Nginx::log_core('\|\|', @_); }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	285
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	286 ###############################################################################

631

fca0079e0aab Tests: stream access tests.