Mercurial > hg > nginx-tests
diff fastcgi_body2.t @ 433:4a045c74a77c
Tests: request body test with fastcgi_next_upstream.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Fri, 11 Jul 2014 17:00:06 +0400 |
parents | |
children | 67f41a61307c |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/fastcgi_body2.t Fri Jul 11 17:00:06 2014 +0400 @@ -0,0 +1,122 @@ +#!/usr/bin/perl + +# (C) Maxim Dounin +# (C) Sergey Kandaurov +# (C) Nginx, Inc. + +# Test for fastcgi backend with large request body, +# with fastcgi_next_upstream directive. + +############################################################################### + +use warnings; +use strict; + +use Test::More; + +BEGIN { use FindBin; chdir($FindBin::Bin); } + +use lib 'lib'; +use Test::Nginx; + +############################################################################### + +select STDERR; $| = 1; +select STDOUT; $| = 1; + +eval { require FCGI; }; +plan(skip_all => 'FCGI not installed') if $@; +plan(skip_all => 'win32') if $^O eq 'MSWin32'; + +my $t = Test::Nginx->new()->has(qw/http fastcgi/)->plan(1) + ->write_file_expand('nginx.conf', <<'EOF'); + +%%TEST_GLOBALS%% + +daemon off; + +events { +} + +http { + %%TEST_GLOBALS_HTTP%% + + upstream u { + server 127.0.0.1:8081; + server 127.0.0.1:8082; + } + + server { + listen 127.0.0.1:8080; + server_name localhost; + + location / { + fastcgi_pass u; + fastcgi_param REQUEST_URI $request_uri; + fastcgi_param CONTENT_LENGTH $content_length; + # fastcgi_next_upstream error timeout; + fastcgi_read_timeout 1s; + } + } +} + +EOF + +$t->run_daemon(\&fastcgi_daemon, 8081); +$t->run_daemon(\&fastcgi_daemon, 8082); +$t->run(); + +$t->waitforsocket('127.0.0.1:8081'); +$t->waitforsocket('127.0.0.1:8082'); + +############################################################################### + +TODO: { +local $TODO = 'not yet'; + +like(http_get_length('/', 'x' x 102400), qr/X-Length: 102400/, 'body length'); + +} + +############################################################################### + +sub http_get_length { + my ($url, $body) = @_; + my $length = length $body; + return http(<<EOF); +GET $url HTTP/1.0 +Host: localhost +Content-Length: $length + +$body +EOF +} + +############################################################################### + +sub fastcgi_daemon { + my ($port) = @_; + my $socket = FCGI::OpenSocket("127.0.0.1:$port", 5); + my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV, + $socket); + + my ($body, $len); + + while( $request->Accept() >= 0 ) { + read(STDIN, $body, $ENV{'CONTENT_LENGTH'}); + my $len = length $body; + + sleep 3 if $port == 8081; + + print <<EOF; +Location: http://127.0.0.1:8080/redirect +Content-Type: text/html +X-Length: $len + +EOF + } + + FCGI::CloseSocket($socket); +} + +###############################################################################