nginx-tests: fastcgi_request_buffering

annotate fastcgi_request_buffering_chunked.t @ 545:dbf8fb0f3d30

Tests: fixed unbuffered request body tests. In particular, made sure that the whole request body is read on backend.

author	Sergey Kandaurov <pluknet@nginx.com>
date	Wed, 08 Apr 2015 20:16:40 +0300
parents	e7e3ced702f5
children	907e89fba9c3

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
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	32 my $t = Test::Nginx->new()->has(qw/http fastcgi rewrite/);
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);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	79 $t->try_run('no fastcgi_request_buffering')->plan(19);
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 $t->waitforsocket('127.0.0.1:8081');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	82
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	83 ###############################################################################
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	84
545 dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	85 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	86
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	87 like(http_get_body('/', '0123456789'),
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	88 qr/X-Body: 0123456789\x0d?$/ms, 'body');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	89
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	90 like(http_get_body('/', '0123456789' x 128),
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	91 qr/X-Body: (0123456789){128}\x0d?$/ms, 'body in two buffers');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	92
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	93 like(http_get_body('/single', '0123456789' x 128),
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	94 qr/X-Body: (0123456789){128}\x0d?$/ms, 'body in single buffer');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	95
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	96 like(http_get_body('/error_page', '0123456789'),
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	97 qr/^0123456789$/m, 'body in error page');
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 # pipelined requests
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	100
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	101 like(http_get_body('/', '0123456789', '0123456789' x 128, '0123456789' x 512,
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	102 'foobar'), qr/X-Body: foobar\x0d?$/ms, 'body pipelined');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	103 like(http_get_body('/', '0123456789' x 128, '0123456789' x 512, '0123456789',
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	104 'foobar'), qr/X-Body: foobar\x0d?$/ms, 'body pipelined 2');
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 # interactive tests
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	107
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	108 my $s = get_body('/preread', 8082);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	109 ok($s, 'no preread');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	110
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	111 SKIP: {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	112 skip 'no preread failed', 3 unless $s;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	113
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	114 is($s->{upload}('01234'), '01234', 'no preread - body part');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	115 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	116
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	117 like($s->{http_end}(), qr/200 OK/, 'no preread - response');
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 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	120
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	121 $s = get_body('/preread', 8082, '01234');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	122 ok($s, 'preread');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	123
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	124 SKIP: {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	125 skip 'preread failed', 3 unless $s;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	126
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	127 is($s->{preread}, '01234', 'preread - preread');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	128 is($s->{upload}('56789', last => 1), '56789', 'preread - body');
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 like($s->{http_end}(), qr/200 OK/, 'preread - response');
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 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	133
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	134 $s = get_body('/preread', 8082, '01234', many => 1);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	135 ok($s, 'chunks');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	136
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	137 SKIP: {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	138 skip 'chunks failed', 3 unless $s;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	139
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	140 is($s->{preread}, '01234many', 'chunks - preread');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	141 is($s->{upload}('56789', many => 1, last => 1), '56789many', 'chunks - body');
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 like($s->{http_end}(), qr/200 OK/, 'chunks - response');
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 ###############################################################################
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	148
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	149 sub http_get_body {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	150 my $uri = shift;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	151 my $last = pop;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	152 return http( join '', (map {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	153 my $body = $_;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	154 "GET $uri HTTP/1.1" . CRLF
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	155 . "Host: localhost" . CRLF
545 dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	156 . "Transfer-Encoding: chunked" . CRLF . CRLF
dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	157 . sprintf("%x", length $body) . CRLF
dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	158 . $body . CRLF
dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	159 . "0" . CRLF . CRLF
542 e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	160 } @_),
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	161 "GET $uri HTTP/1.1" . CRLF
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	162 . "Host: localhost" . CRLF
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	163 . "Connection: close" . CRLF
545 dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	164 . "Transfer-Encoding: chunked" . CRLF . CRLF
dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	165 . sprintf("%x", length $last) . CRLF
dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	166 . $last . CRLF
dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	167 . "0" . CRLF . CRLF
542 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 }
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 # Simple FastCGI responder implementation.
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 # http://www.fastcgi.com/devkit/doc/fcgi-spec.html
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	174
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	175 sub fastcgi_read_record($) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	176 my ($buf) = @_;
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 my ($n, $h, $header);
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 return undef unless length $$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}{qw/ version type id clen plen /} = unpack("CCnnC", $$buf);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	183
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	184 $h->{content} = substr $$buf, 8, $h->{clen};
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	185 $h->{padding} = 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 $$buf = substr $$buf, 8 + $h->{clen} + $h->{plen};
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 return $h;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	190 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	191
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	192 sub fastcgi_respond($$$$) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	193 my ($socket, $version, $id, $body) = @_;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	194
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	195 # stdout
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	196 $socket->write(pack("CCnnCx", $version, 6, $id, length($body), 8));
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	197 $socket->write($body);
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 $socket->write(pack("xxxxxxxx"));
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	200 select(undef, undef, undef, 0.1);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	201
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	202 # write some text to stdout and stderr split over multiple network
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	203 # 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	204
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	205 my $tt = "test text, just for test";
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	206
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	207 $socket->write(pack("CCnnCx", $version, 6, $id,
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	208 length($tt . $tt), 0) . $tt);
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($tt . pack("CC", $version, 7));
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(pack("nnCx", $id, length($tt), 0));
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 $socket->write($tt);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	215 select(undef, undef, undef, 0.1);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	216
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	217 # close stdout
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	218 $socket->write(pack("CCnnCx", $version, 6, $id, 0, 0));
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 select(undef, undef, undef, 0.1);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	221
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	222 # end request
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	223 $socket->write(pack("CCnnCx", $version, 3, $id, 8, 0));
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	224 select(undef, undef, undef, 0.1);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	225 $socket->write(pack("NCxxx", 0, 0));
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	226 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	227
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	228 sub get_body {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	229 my ($url, $port, $body, %extra) = @_;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	230 my ($server, $client, $s);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	231 my ($last, $many) = (0, 0);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	232 my ($version, $id);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	233
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	234 $last = $extra{last} if defined $extra{last};
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	235 $many = $extra{many} if defined $extra{many};
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	236
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	237 $server = IO::Socket::INET->new(
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	238 Proto => 'tcp',
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	239 LocalHost => '127.0.0.1',
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	240 LocalPort => $port,
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	241 Listen => 5,
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	242 Reuse => 1
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 or die "Can't create listening socket: $!\n";
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	245
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	246 my $r = <<EOF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	247 GET $url HTTP/1.1
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	248 Host: localhost
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	249 Connection: close
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	250 Transfer-Encoding: chunked
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 EOF
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	253
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	254 if (defined $body) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	255 $r .= sprintf("%x", length $body) . CRLF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	256 $r .= $body . CRLF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	257 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	258 if (defined $body && $many) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	259 $r .= sprintf("%x", length 'many') . CRLF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	260 $r .= 'many' . CRLF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	261 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	262 if ($last) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	263 $r .= "0" . CRLF . CRLF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	264 }
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 $s = http($r, start => 1);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	267
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	268 eval {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	269 local $SIG{ALRM} = sub { die "timeout\n" };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	270 local $SIG{PIPE} = sub { die "sigpipe\n" };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	271 alarm(5);
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 $client = $server->accept();
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 };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	277 alarm(0);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	278 if ($@) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	279 log_in("died: $@");
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	280 return undef;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	281 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	282
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	283 $client->sysread(my $buf, 1024);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	284 $body = '';
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	285
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	286 while (my $h = fastcgi_read_record(\$buf)) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	287 $version = $h->{version};
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	288 $id = $h->{id};
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	289
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	290 # skip everything unless stdin
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	291 next if $h->{type} != 5;
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 $body .= $h->{content};
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	294 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	295
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	296 my $f = { preread => $body };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	297 $f->{upload} = sub {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	298 my ($body, %extra) = @_;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	299 my ($last, $many) = (0, 0);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	300
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	301 $last = $extra{last} if defined $extra{last};
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	302 $many = $extra{many} if defined $extra{many};
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	303
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	304 my $buf = sprintf("%x", length $body) . CRLF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	305 $buf .= $body . CRLF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	306 if ($many) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	307 $buf .= sprintf("%x", length 'many') . CRLF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	308 $buf .= 'many' . CRLF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	309 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	310 if ($last) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	311 $buf .= "0" . CRLF . CRLF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	312 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	313
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	314 eval {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	315 local $SIG{ALRM} = sub { die "timeout\n" };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	316 local $SIG{PIPE} = sub { die "sigpipe\n" };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	317 alarm(5);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	318
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	319 $s->write($buf);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	320 $client->sysread($buf, 1024);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	321 $body = '';
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 while (my $h = fastcgi_read_record(\$buf)) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	324
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	325 # skip everything unless stdin
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	326 next if $h->{type} != 5;
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 $body .= $h->{content};
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	329 }
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 };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	333 alarm(0);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	334 if ($@) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	335 log_in("died: $@");
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	336 return undef;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	337 }
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 return $body;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	340 };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	341 $f->{http_end} = sub {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	342 my $buf = '';
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	343
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	344 fastcgi_respond($client, $version, $id, <<EOF);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	345 Status: 200 OK
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	346 Connection: close
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	347 X-Port: $port
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	348
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	349 OK
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	350 EOF
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 $client->close;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	353
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	354 eval {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	355 local $SIG{ALRM} = sub { die "timeout\n" };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	356 local $SIG{PIPE} = sub { die "sigpipe\n" };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	357 alarm(5);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	358
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	359 $s->sysread($buf, 1024);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	360 $s->close();
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 };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	364 alarm(0);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	365 if ($@) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	366 log_in("died: $@");
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	367 return undef;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	368 }
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 $buf;
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 return $f;
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 ###############################################################################
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	376
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	377 sub fastcgi_daemon {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	378 my $socket = FCGI::OpenSocket('127.0.0.1:8081', 5);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	379 my $request = FCGI::Request(\STDIN, \STDOUT, \*STDERR, \%ENV,
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	380 $socket);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	381
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	382 my $count;
545 dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	383 my ($body, $buf);
dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	384
542 e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	385 while( $request->Accept() >= 0 ) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	386 $count++;
545 dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	387 $body = '';
542 e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	388
545 dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	389 do {
dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	390 read(STDIN, $buf, 1024);
dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	391 $body .= $buf;
dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	392 } while (length $buf);
542 e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	393
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	394 if ($ENV{REQUEST_URI} eq '/error_page') {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	395 print "Status: 404 Not Found" . CRLF . CRLF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	396 next;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	397 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	398
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	399 print <<EOF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	400 Location: http://127.0.0.1:8080/redirect
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	401 Content-Type: text/html
545 dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	402 X-Body: $body
542 e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	403
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	404 SEE-THIS
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	405 $count
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	406 EOF
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	407 }
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 FCGI::CloseSocket($socket);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	410 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	411
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	412 ###############################################################################

Mercurial > hg > nginx-tests

annotate fastcgi_request_buffering_chunked.t @ 545:dbf8fb0f3d30