nginx-tests: fastcgi_request_buffering

annotate fastcgi_request_buffering_chunked.t @ 589:a9569f57da98

Tests: whitespaces fix.

author	Andrey Zelenkov <zelenkov@nginx.com>
date	Mon, 25 May 2015 18:42:34 +0300
parents	907e89fba9c3
children	68a6678abae2

rev	line source
542 e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1 #!/usr/bin/perl
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3 # (C) Maxim Dounin
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	4 # (C) Sergey Kandaurov
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	5 # (C) Nginx, Inc.
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	6
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	7 # Tests for unbuffered request body with fastcgi backend,
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	8 # chunked transfer-encoding.
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	9
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	10 ###############################################################################
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	11
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	12 use warnings;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	13 use strict;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	14
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	15 use Test::More;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	16 use Socket qw/ CRLF /;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	17
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	18 BEGIN { use FindBin; chdir($FindBin::Bin); }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	19
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	20 use lib 'lib';
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	21 use Test::Nginx;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	22
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	23 ###############################################################################
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	24
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	25 select STDERR; $\| = 1;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	26 select STDOUT; $\| = 1;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	27
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	28 eval { require FCGI; };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	29 plan(skip_all => 'FCGI not installed') if $@;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	30 plan(skip_all => 'win32') if $^O eq 'MSWin32';
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	31
568 907e89fba9c3 Tests: removed TODO and try_run() checks for legacy versions. Sergey Kandaurov <pluknet@nginx.com> parents: 545 diff changeset	32 my $t = Test::Nginx->new()->has(qw/http fastcgi rewrite/)->plan(19);
542 e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	33
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	34 $t->write_file_expand('nginx.conf', <<'EOF');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	35
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	36 %%TEST_GLOBALS%%
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	37
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	38 daemon off;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	39
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	40 events {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	41 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	42
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	43 http {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	44 %%TEST_GLOBALS_HTTP%%
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	45
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	46 server {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	47 listen 127.0.0.1:8080;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	48 server_name localhost;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	49
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	50 client_header_buffer_size 1k;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	51 fastcgi_request_buffering off;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	52 fastcgi_param REQUEST_URI $request_uri;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	53
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	54 location / {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	55 client_body_buffer_size 2k;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	56 fastcgi_pass 127.0.0.1:8081;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	57 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	58 location /single {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	59 client_body_in_single_buffer on;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	60 fastcgi_pass 127.0.0.1:8081;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	61 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	62 location /preread {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	63 fastcgi_pass 127.0.0.1:8082;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	64 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	65 location /error_page {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	66 fastcgi_pass 127.0.0.1:8081;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	67 error_page 404 /404;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	68 fastcgi_intercept_errors on;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	69 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	70 location /404 {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	71 return 200 "$request_body\n";
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	72 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	73 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	74 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	75
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	76 EOF
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	77
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	78 $t->run_daemon(\&fastcgi_daemon);
568 907e89fba9c3 Tests: removed TODO and try_run() checks for legacy versions. Sergey Kandaurov <pluknet@nginx.com> parents: 545 diff changeset	79 $t->run()->waitforsocket('127.0.0.1:8081');
542 e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	80
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	81 ###############################################################################
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	82
545 dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	83 like(http_get('/'), qr/X-Body: \x0d\x0a?/ms, 'no body');
542 e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	84
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	85 like(http_get_body('/', '0123456789'),
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	86 qr/X-Body: 0123456789\x0d?$/ms, 'body');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	87
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	88 like(http_get_body('/', '0123456789' x 128),
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	89 qr/X-Body: (0123456789){128}\x0d?$/ms, 'body in two buffers');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	90
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	91 like(http_get_body('/single', '0123456789' x 128),
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	92 qr/X-Body: (0123456789){128}\x0d?$/ms, 'body in single buffer');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	93
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	94 like(http_get_body('/error_page', '0123456789'),
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	95 qr/^0123456789$/m, 'body in error page');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	96
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	97 # pipelined requests
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	98
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	99 like(http_get_body('/', '0123456789', '0123456789' x 128, '0123456789' x 512,
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	100 'foobar'), qr/X-Body: foobar\x0d?$/ms, 'body pipelined');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	101 like(http_get_body('/', '0123456789' x 128, '0123456789' x 512, '0123456789',
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	102 'foobar'), qr/X-Body: foobar\x0d?$/ms, 'body pipelined 2');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	103
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	104 # interactive tests
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	105
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	106 my $s = get_body('/preread', 8082);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	107 ok($s, 'no preread');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	108
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	109 SKIP: {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	110 skip 'no preread failed', 3 unless $s;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	111
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	112 is($s->{upload}('01234'), '01234', 'no preread - body part');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	113 is($s->{upload}('56789', last => 1), '56789', 'no preread - body part 2');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	114
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	115 like($s->{http_end}(), qr/200 OK/, 'no preread - response');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	116
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	117 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	118
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	119 $s = get_body('/preread', 8082, '01234');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	120 ok($s, 'preread');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	121
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	122 SKIP: {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	123 skip 'preread failed', 3 unless $s;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	124
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	125 is($s->{preread}, '01234', 'preread - preread');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	126 is($s->{upload}('56789', last => 1), '56789', 'preread - body');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	127
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	128 like($s->{http_end}(), qr/200 OK/, 'preread - response');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	129
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	130 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	131
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	132 $s = get_body('/preread', 8082, '01234', many => 1);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	133 ok($s, 'chunks');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	134
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	135 SKIP: {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	136 skip 'chunks failed', 3 unless $s;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	137
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	138 is($s->{preread}, '01234many', 'chunks - preread');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	139 is($s->{upload}('56789', many => 1, last => 1), '56789many', 'chunks - body');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	140
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	141 like($s->{http_end}(), qr/200 OK/, 'chunks - response');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	142
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	143 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	144
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	145 ###############################################################################
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	146
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	147 sub http_get_body {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	148 my $uri = shift;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	149 my $last = pop;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	150 return http( join '', (map {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	151 my $body = $_;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	152 "GET $uri HTTP/1.1" . CRLF
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	153 . "Host: localhost" . CRLF
545 dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	154 . "Transfer-Encoding: chunked" . CRLF . CRLF
dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	155 . sprintf("%x", length $body) . CRLF
dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	156 . $body . CRLF
dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	157 . "0" . CRLF . CRLF
542 e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	158 } @_),
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	159 "GET $uri HTTP/1.1" . CRLF
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	160 . "Host: localhost" . CRLF
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	161 . "Connection: close" . CRLF
545 dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	162 . "Transfer-Encoding: chunked" . CRLF . CRLF
dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	163 . sprintf("%x", length $last) . CRLF
dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	164 . $last . CRLF
dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	165 . "0" . CRLF . CRLF
542 e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	166 );
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	167 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	168
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	169 # Simple FastCGI responder implementation.
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	170
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	171 # http://www.fastcgi.com/devkit/doc/fcgi-spec.html
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	172
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	173 sub fastcgi_read_record($) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	174 my ($buf) = @_;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	175
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	176 my ($n, $h, $header);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	177
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	178 return undef unless length $$buf;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	179
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	180 @{$h}{qw/ version type id clen plen /} = unpack("CCnnC", $$buf);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	181
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	182 $h->{content} = substr $$buf, 8, $h->{clen};
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	183 $h->{padding} = substr $$buf, 8 + $h->{clen}, $h->{plen};
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	184
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	185 $$buf = substr $$buf, 8 + $h->{clen} + $h->{plen};
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	186
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	187 return $h;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	188 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	189
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	190 sub fastcgi_respond($$$$) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	191 my ($socket, $version, $id, $body) = @_;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	192
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	193 # stdout
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	194 $socket->write(pack("CCnnCx", $version, 6, $id, length($body), 8));
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	195 $socket->write($body);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	196 select(undef, undef, undef, 0.1);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	197 $socket->write(pack("xxxxxxxx"));
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	198 select(undef, undef, undef, 0.1);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	199
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	200 # write some text to stdout and stderr split over multiple network
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	201 # packets to test if we correctly set pipe length in various places
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	202
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	203 my $tt = "test text, just for test";
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	204
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	205 $socket->write(pack("CCnnCx", $version, 6, $id,
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	206 length($tt . $tt), 0) . $tt);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	207 select(undef, undef, undef, 0.1);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	208 $socket->write($tt . pack("CC", $version, 7));
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	209 select(undef, undef, undef, 0.1);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	210 $socket->write(pack("nnCx", $id, length($tt), 0));
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	211 select(undef, undef, undef, 0.1);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	212 $socket->write($tt);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	213 select(undef, undef, undef, 0.1);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	214
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	215 # close stdout
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	216 $socket->write(pack("CCnnCx", $version, 6, $id, 0, 0));
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	217
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	218 select(undef, undef, undef, 0.1);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	219
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	220 # end request
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	221 $socket->write(pack("CCnnCx", $version, 3, $id, 8, 0));
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	222 select(undef, undef, undef, 0.1);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	223 $socket->write(pack("NCxxx", 0, 0));
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	224 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	225
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	226 sub get_body {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	227 my ($url, $port, $body, %extra) = @_;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	228 my ($server, $client, $s);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	229 my ($last, $many) = (0, 0);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	230 my ($version, $id);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	231
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	232 $last = $extra{last} if defined $extra{last};
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	233 $many = $extra{many} if defined $extra{many};
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	234
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	235 $server = IO::Socket::INET->new(
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	236 Proto => 'tcp',
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	237 LocalHost => '127.0.0.1',
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	238 LocalPort => $port,
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	239 Listen => 5,
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	240 Reuse => 1
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	241 )
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	242 or die "Can't create listening socket: $!\n";
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	243
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	244 my $r = <<EOF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	245 GET $url HTTP/1.1
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	246 Host: localhost
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	247 Connection: close
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	248 Transfer-Encoding: chunked
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	249
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	250 EOF
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	251
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	252 if (defined $body) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	253 $r .= sprintf("%x", length $body) . CRLF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	254 $r .= $body . CRLF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	255 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	256 if (defined $body && $many) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	257 $r .= sprintf("%x", length 'many') . CRLF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	258 $r .= 'many' . CRLF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	259 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	260 if ($last) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	261 $r .= "0" . CRLF . CRLF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	262 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	263
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	264 $s = http($r, start => 1);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	265
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	266 eval {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	267 local $SIG{ALRM} = sub { die "timeout\n" };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	268 local $SIG{PIPE} = sub { die "sigpipe\n" };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	269 alarm(5);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	270
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	271 $client = $server->accept();
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	272
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	273 alarm(0);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	274 };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	275 alarm(0);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	276 if ($@) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	277 log_in("died: $@");
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	278 return undef;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	279 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	280
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	281 $client->sysread(my $buf, 1024);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	282 $body = '';
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	283
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	284 while (my $h = fastcgi_read_record(\$buf)) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	285 $version = $h->{version};
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	286 $id = $h->{id};
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	287
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	288 # skip everything unless stdin
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	289 next if $h->{type} != 5;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	290
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	291 $body .= $h->{content};
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	292 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	293
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	294 my $f = { preread => $body };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	295 $f->{upload} = sub {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	296 my ($body, %extra) = @_;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	297 my ($last, $many) = (0, 0);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	298
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	299 $last = $extra{last} if defined $extra{last};
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	300 $many = $extra{many} if defined $extra{many};
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	301
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	302 my $buf = sprintf("%x", length $body) . CRLF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	303 $buf .= $body . CRLF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	304 if ($many) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	305 $buf .= sprintf("%x", length 'many') . CRLF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	306 $buf .= 'many' . CRLF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	307 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	308 if ($last) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	309 $buf .= "0" . CRLF . CRLF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	310 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	311
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	312 eval {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	313 local $SIG{ALRM} = sub { die "timeout\n" };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	314 local $SIG{PIPE} = sub { die "sigpipe\n" };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	315 alarm(5);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	316
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	317 $s->write($buf);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	318 $client->sysread($buf, 1024);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	319 $body = '';
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	320
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	321 while (my $h = fastcgi_read_record(\$buf)) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	322
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	323 # skip everything unless stdin
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	324 next if $h->{type} != 5;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	325
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	326 $body .= $h->{content};
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	327 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	328
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	329 alarm(0);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	330 };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	331 alarm(0);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	332 if ($@) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	333 log_in("died: $@");
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	334 return undef;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	335 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	336
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	337 return $body;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	338 };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	339 $f->{http_end} = sub {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	340 my $buf = '';
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	341
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	342 fastcgi_respond($client, $version, $id, <<EOF);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	343 Status: 200 OK
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	344 Connection: close
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	345 X-Port: $port
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	346
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	347 OK
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	348 EOF
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	349
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	350 $client->close;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	351
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	352 eval {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	353 local $SIG{ALRM} = sub { die "timeout\n" };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	354 local $SIG{PIPE} = sub { die "sigpipe\n" };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	355 alarm(5);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	356
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	357 $s->sysread($buf, 1024);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	358 $s->close();
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	359
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	360 alarm(0);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	361 };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	362 alarm(0);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	363 if ($@) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	364 log_in("died: $@");
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	365 return undef;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	366 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	367
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	368 return $buf;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	369 };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	370 return $f;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	371 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	372
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	373 ###############################################################################
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	374
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	375 sub fastcgi_daemon {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	376 my $socket = FCGI::OpenSocket('127.0.0.1:8081', 5);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	377 my $request = FCGI::Request(\STDIN, \STDOUT, \*STDERR, \%ENV,
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	378 $socket);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	379
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	380 my $count;
545 dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	381 my ($body, $buf);
dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	382
542 e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	383 while( $request->Accept() >= 0 ) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	384 $count++;
545 dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	385 $body = '';
542 e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	386
545 dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	387 do {
dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	388 read(STDIN, $buf, 1024);
dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	389 $body .= $buf;
dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	390 } while (length $buf);
542 e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	391
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	392 if ($ENV{REQUEST_URI} eq '/error_page') {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	393 print "Status: 404 Not Found" . CRLF . CRLF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	394 next;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	395 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	396
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	397 print <<EOF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	398 Location: http://127.0.0.1:8080/redirect
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	399 Content-Type: text/html
545 dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	400 X-Body: $body
542 e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	401
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	402 SEE-THIS
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	403 $count
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	404 EOF
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	405 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	406
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	407 FCGI::CloseSocket($socket);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	408 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	409
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	410 ###############################################################################

Mercurial > hg > nginx-tests

annotate fastcgi_request_buffering_chunked.t @ 589:a9569f57da98