nginx-tests: fastcgi_request_buffering.t annotate

annotate fastcgi_request_buffering.t @ 568:907e89fba9c3

Tests: removed TODO and try_run() checks for legacy versions.

author	Sergey Kandaurov <pluknet@nginx.com>
date	Sun, 03 May 2015 12:45:09 +0300
parents	dbf8fb0f3d30
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
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 use warnings;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	12 use strict;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	13
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	14 use Test::More;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	15 use Socket qw/ CRLF /;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	16
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	17 BEGIN { use FindBin; chdir($FindBin::Bin); }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	18
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	19 use lib 'lib';
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	20 use Test::Nginx;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	21
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 select STDERR; $\| = 1;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	25 select STDOUT; $\| = 1;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	26
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	27 eval { require FCGI; };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	28 plan(skip_all => 'FCGI not installed') if $@;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	29 plan(skip_all => 'win32') if $^O eq 'MSWin32';
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	30
568 907e89fba9c3 Tests: removed TODO and try_run() checks for legacy versions. Sergey Kandaurov <pluknet@nginx.com> parents: 545 diff changeset	31 my $t = Test::Nginx->new()->has(qw/http fastcgi rewrite/)->plan(15);
542 e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	32
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	33 $t->write_file_expand('nginx.conf', <<'EOF');
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	34
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	35 %%TEST_GLOBALS%%
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	36
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	37 daemon off;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	38
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	39 events {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	40 }
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 http {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	43 %%TEST_GLOBALS_HTTP%%
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	44
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	45 server {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	46 listen 127.0.0.1:8080;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	47 server_name localhost;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	48
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	49 client_header_buffer_size 1k;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	50 fastcgi_request_buffering off;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	51 fastcgi_param REQUEST_URI $request_uri;
545 dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	52 fastcgi_param CONTENT_LENGTH $content_length;
542 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, 10);
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'), '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, 10, '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'), '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 ###############################################################################
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 sub http_get_body {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	135 my $uri = shift;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	136 my $last = pop;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	137 return http( join '', (map {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	138 my $body = $_;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	139 "GET $uri HTTP/1.1" . CRLF
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	140 . "Host: localhost" . CRLF
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	141 . "Content-Length: " . (length $body) . CRLF . CRLF
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	142 . $body
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 "GET $uri HTTP/1.1" . CRLF
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	145 . "Host: localhost" . CRLF
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	146 . "Connection: close" . CRLF
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	147 . "Content-Length: " . (length $last) . CRLF . CRLF
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	148 . $last
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	149 );
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	150 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	151
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	152 # Simple FastCGI responder implementation.
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	153
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	154 # http://www.fastcgi.com/devkit/doc/fcgi-spec.html
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	155
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	156 sub fastcgi_read_record($) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	157 my ($buf) = @_;
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 my ($n, $h, $header);
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 return undef unless length $$buf;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	162
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	163 @{$h}{qw/ version type id clen plen /} = unpack("CCnnC", $$buf);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	164
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	165 $h->{content} = substr $$buf, 8, $h->{clen};
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	166 $h->{padding} = substr $$buf, 8 + $h->{clen}, $h->{plen};
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 $$buf = substr $$buf, 8 + $h->{clen} + $h->{plen};
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 return $h;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	171 }
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_respond($$$$) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	174 my ($socket, $version, $id, $body) = @_;
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 # stdout
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	177 $socket->write(pack("CCnnCx", $version, 6, $id, length($body), 8));
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	178 $socket->write($body);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	179 select(undef, undef, undef, 0.1);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	180 $socket->write(pack("xxxxxxxx"));
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	181 select(undef, undef, undef, 0.1);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	182
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	183 # write some text to stdout and stderr split over multiple network
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	184 # 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	185
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	186 my $tt = "test text, just for test";
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	187
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	188 $socket->write(pack("CCnnCx", $version, 6, $id,
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	189 length($tt . $tt), 0) . $tt);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	190 select(undef, undef, undef, 0.1);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	191 $socket->write($tt . pack("CC", $version, 7));
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	192 select(undef, undef, undef, 0.1);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	193 $socket->write(pack("nnCx", $id, length($tt), 0));
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	194 select(undef, undef, undef, 0.1);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	195 $socket->write($tt);
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
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	198 # close stdout
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	199 $socket->write(pack("CCnnCx", $version, 6, $id, 0, 0));
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	200
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	201 select(undef, undef, undef, 0.1);
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 # end request
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	204 $socket->write(pack("CCnnCx", $version, 3, $id, 8, 0));
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	205 select(undef, undef, undef, 0.1);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	206 $socket->write(pack("NCxxx", 0, 0));
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	207 }
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	208
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	209 sub get_body {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	210 my ($url, $port, $length, $body) = @_;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	211 my ($server, $client, $s);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	212 my ($version, $id);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	213
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	214 $server = IO::Socket::INET->new(
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	215 Proto => 'tcp',
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	216 LocalHost => '127.0.0.1',
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	217 LocalPort => $port,
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	218 Listen => 5,
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	219 Reuse => 1
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	220 )
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	221 or die "Can't create listening socket: $!\n";
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	222
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	223 my $r = <<EOF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	224 GET $url HTTP/1.1
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	225 Host: localhost
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	226 Connection: close
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	227 Content-Length: $length
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	228
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	229 EOF
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	230
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	231 if (defined $body) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	232 $r .= $body;
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
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	235 $s = http($r, start => 1);
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 eval {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	238 local $SIG{ALRM} = sub { die "timeout\n" };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	239 local $SIG{PIPE} = sub { die "sigpipe\n" };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	240 alarm(5);
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 $client = $server->accept();
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 alarm(0);
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 alarm(0);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	247 if ($@) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	248 log_in("died: $@");
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	249 return undef;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	250 }
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 $client->sysread(my $buf, 1024);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	253 $body = '';
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	254
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	255 while (my $h = fastcgi_read_record(\$buf)) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	256 $version = $h->{version};
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	257 $id = $h->{id};
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	258
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	259 # skip everything unless stdin
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	260 next if $h->{type} != 5;
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 $body .= $h->{content};
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
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	265 my $f = { preread => $body };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	266 $f->{upload} = sub {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	267 my $buf = shift;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	268
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	269 eval {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	270 local $SIG{ALRM} = sub { die "timeout\n" };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	271 local $SIG{PIPE} = sub { die "sigpipe\n" };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	272 alarm(5);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	273
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	274 $s->write($buf);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	275 $client->sysread($buf, 1024);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	276 $body = '';
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	277
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	278 while (my $h = fastcgi_read_record(\$buf)) {
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 # skip everything unless stdin
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	281 next if $h->{type} != 5;
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 $body .= $h->{content};
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	284 }
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 alarm(0);
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 alarm(0);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	289 if ($@) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	290 log_in("died: $@");
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	291 return undef;
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 return $body;
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 $f->{http_end} = sub {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	297 my $buf = '';
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 fastcgi_respond($client, $version, $id, <<EOF);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	300 Status: 200 OK
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	301 Connection: close
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	302 X-Port: $port
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 OK
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	305 EOF
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	306
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	307 $client->close;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	308
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	309 eval {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	310 local $SIG{ALRM} = sub { die "timeout\n" };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	311 local $SIG{PIPE} = sub { die "sigpipe\n" };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	312 alarm(5);
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 $s->sysread($buf, 1024);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	315
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	316 alarm(0);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	317 };
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	318 alarm(0);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	319 if ($@) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	320 log_in("died: $@");
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	321 return undef;
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
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	324 return $buf;
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 return $f;
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 ###############################################################################
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 sub fastcgi_daemon {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	332 my $socket = FCGI::OpenSocket('127.0.0.1:8081', 5);
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	333 my $request = FCGI::Request(\STDIN, \STDOUT, \*STDERR, \%ENV,
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	334 $socket);
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 my $count;
545 dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	337 my $body;
dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	338
542 e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	339 while( $request->Accept() >= 0 ) {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	340 $count++;
545 dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	341 read(STDIN, $body, $ENV{'CONTENT_LENGTH'});
542 e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	342
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	343 if ($ENV{REQUEST_URI} eq '/error_page') {
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	344 print "Status: 404 Not Found" . CRLF . CRLF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	345 next;
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
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	348 print <<EOF;
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	349 Location: http://127.0.0.1:8080/redirect
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	350 Content-Type: text/html
545 dbf8fb0f3d30 Tests: fixed unbuffered request body tests. Sergey Kandaurov <pluknet@nginx.com> parents: 542 diff changeset	351 X-Body: $body
542 e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	352
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	353 SEE-THIS
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	354 $count
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	355 EOF
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
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	358 FCGI::CloseSocket($socket);
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
e7e3ced702f5 Tests: unbuffered request body. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	361 ###############################################################################

Mercurial > hg > nginx-tests

annotate fastcgi_request_buffering.t @ 568:907e89fba9c3