nginx-tests: stream_access.t annotate

annotate stream_access.t @ 689:26f58787c6b4

Tests: added server name tests for most specific wildcard names.

author	Sergey Kandaurov <pluknet@nginx.com>
date	Fri, 11 Sep 2015 18:18:51 +0300
parents	1925b27f24b6
children	824754da4afc

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
636 1925b27f24b6 Tests: more todo_alerts() in stream tests on solaris. Sergey Kandaurov <pluknet@nginx.com> parents: 631 diff changeset	29 $t->todo_alerts() if $^O eq 'solaris';
1925b27f24b6 Tests: more todo_alerts() in stream tests on solaris. Sergey Kandaurov <pluknet@nginx.com> parents: 631 diff changeset	30
631 fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	31 $t->write_file_expand('nginx.conf', <<'EOF');
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 %%TEST_GLOBALS%%
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 daemon off;
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 events {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	38 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	39
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	40 stream {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	41 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	42 listen 127.0.0.1:8082;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	43 proxy_pass [::1]:8080;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	44 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	45
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	46 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	47 listen 127.0.0.1:8083;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	48 proxy_pass unix:%%TESTDIR%%/unix.sock.0;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	49 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	50
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	51 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	52 listen 127.0.0.1:8085;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	53 proxy_pass [::1]:8081;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	54 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	55
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	56 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	57 listen 127.0.0.1:8086;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	58 proxy_pass unix:%%TESTDIR%%/unix.sock.1;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	59 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	60
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	61 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	62 listen 127.0.0.1:8088;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	63 proxy_pass [::1]:8082;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	64 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	65
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	66 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	67 listen 127.0.0.1:8089;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	68 proxy_pass unix:%%TESTDIR%%/unix.sock.2;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	69 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	70
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	71 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	72 listen 127.0.0.1:8091;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	73 proxy_pass [::1]:8083;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	74 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	75
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	76 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	77 listen 127.0.0.1:8092;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	78 proxy_pass unix:%%TESTDIR%%/unix.sock.3;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	79 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	80
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	81 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	82 listen 127.0.0.1:8094;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	83 proxy_pass [::1]:8084;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	84 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	85
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	86 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	87 listen 127.0.0.1:8095;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	88 proxy_pass unix:%%TESTDIR%%/unix.sock.4;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	89 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	90
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	91 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	92 listen 127.0.0.1:8097;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	93 proxy_pass [::1]:8085;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	94 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	95
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	96 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	97 listen 127.0.0.1:8098;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	98 proxy_pass unix:%%TESTDIR%%/unix.sock.5;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	99 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	100
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	101 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	102 listen 127.0.0.1:8081;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	103 listen [::1]:8080;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	104 listen unix:%%TESTDIR%%/unix.sock.0;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	105 proxy_pass 127.0.0.1:8080;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	106 allow all;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	107 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	108
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	109 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	110 listen 127.0.0.1:8084;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	111 listen [::1]:8081;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	112 listen unix:%%TESTDIR%%/unix.sock.1;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	113 proxy_pass 127.0.0.1:8080;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	114 deny all;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	115 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	116
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	117 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	118 listen 127.0.0.1:8087;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	119 listen [::1]:8082;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	120 listen unix:%%TESTDIR%%/unix.sock.2;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	121 proxy_pass 127.0.0.1:8080;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	122 allow unix:;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	123 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	124
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	125 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	126 listen 127.0.0.1:8090;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	127 listen [::1]:8083;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	128 listen unix:%%TESTDIR%%/unix.sock.3;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	129 proxy_pass 127.0.0.1:8080;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	130 deny 127.0.0.1;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	131 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	132
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	133 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	134 listen 127.0.0.1:8093;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	135 listen [::1]:8084;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	136 listen unix:%%TESTDIR%%/unix.sock.4;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	137 proxy_pass 127.0.0.1:8080;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	138 deny ::1;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	139 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	140
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	141 server {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	142 listen 127.0.0.1:8096;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	143 listen [::1]:8085;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	144 listen unix:%%TESTDIR%%/unix.sock.5;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	145 proxy_pass 127.0.0.1:8080;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	146 deny unix:;
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 }
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 EOF
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	151
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	152 $t->run_daemon(\&stream_daemon);
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	153 $t->try_run('no inet6 and/or unix support')->plan(18);
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	154 $t->waitforsocket('127.0.0.1:8080');
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 ###############################################################################
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 my $str = 'SEE-THIS';
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 # allow all
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	161
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	162 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	163 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	164 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	165
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	166 # deny all
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	167
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	168 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	169 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	170 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	171
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	172 # allow unix
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	173
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	174 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	175 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	176 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	177
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	178 # deny inet
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	179
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	180 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	181 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	182 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	183
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	184 # deny inet6
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	185
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	186 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	187 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	188 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	189
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	190 # deny unix
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	191
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	192 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	193 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	194 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	195
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	196 ###############################################################################
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	197
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	198 sub stream_get {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	199 my ($data, $peer) = @_;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	200
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	201 my $s = stream_connect($peer);
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	202 stream_write($s, $data);
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	203
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	204 $data = '';
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	205 while (my $buf = stream_read($s)) {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	206 $data .= $buf;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	207 }
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 return $data;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	210 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	211
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	212 sub stream_connect {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	213 my $peer = shift;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	214 my $s = IO::Socket::INET->new(
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	215 Proto => 'tcp',
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	216 PeerAddr => $peer \|\| '127.0.0.1:8080'
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 or die "Can't connect to nginx: $!\n";
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 return $s;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	221 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	222
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	223 sub stream_write {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	224 my ($s, $message) = @_;
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 local $SIG{PIPE} = 'IGNORE';
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	227
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	228 $s->blocking(0);
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	229 while (IO::Select->new($s)->can_write(1.5)) {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	230 my $n = $s->syswrite($message);
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	231 last unless $n;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	232 $message = substr($message, $n);
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	233 last unless length $message;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	234 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	235
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	236 if (length $message) {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	237 $s->close();
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 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	240
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	241 sub stream_read {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	242 my ($s) = @_;
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	243 my ($buf);
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	244
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	245 $s->blocking(0);
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	246 if (IO::Select->new($s)->can_read(3)) {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	247 $s->sysread($buf, 1024);
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	248 };
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	249
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	250 log_in($buf);
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	251 return $buf;
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 ###############################################################################
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	255
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	256 sub stream_daemon {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	257 my $server = IO::Socket::INET->new(
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	258 Proto => 'tcp',
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	259 LocalAddr => '127.0.0.1:8080',
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	260 Listen => 5,
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	261 Reuse => 1
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 or die "Can't create listening socket: $!\n";
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 local $SIG{PIPE} = 'IGNORE';
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	266
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	267 while (my $client = $server->accept()) {
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	268 $client->autoflush(1);
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 log2c("(new connection $client)");
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 $client->sysread(my $buffer, 65536) or next;
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 log2i("$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 log2o("$client $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 $client->syswrite($buffer);
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 close $client;
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 }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	283
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	284 sub log2i { Test::Nginx::log_core('\|\| <<', @_); }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	285 sub log2o { Test::Nginx::log_core('\|\| >>', @_); }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	286 sub log2c { Test::Nginx::log_core('\|\|', @_); }
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	287
fca0079e0aab Tests: stream access tests. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	288 ###############################################################################

Mercurial > hg > nginx-tests

annotate stream_access.t @ 689:26f58787c6b4