Mercurial > hg > nginx-tests
changeset 153:26cf61c5ac35
Tests: fastcgi header params test.
Only run with TEST_NGINX_UNSAFE set as unpatched nginx dumps core on it.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Tue, 14 Jun 2011 03:35:47 +0400 |
parents | c9be30f65be7 |
children | 2644bad81b0b |
files | fastcgi_header_params.t |
diffstat | 1 files changed, 122 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/fastcgi_header_params.t Tue Jun 14 03:35:47 2011 +0400 @@ -0,0 +1,122 @@ +#!/usr/bin/perl + +# (C) Maxim Dounin + +# Test for fastcgi header params. + +############################################################################### + +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 $@; + +my $t = Test::Nginx->new()->has(qw/http fastcgi/)->plan(1) + ->write_file_expand('nginx.conf', <<'EOF'); + +%%TEST_GLOBALS%% + +master_process off; +daemon off; + +events { +} + +http { + %%TEST_GLOBALS_HTTP%% + + server { + listen 127.0.0.1:8080; + server_name localhost; + + location / { + fastcgi_pass 127.0.0.1:8081; + fastcgi_param HTTP_X_BLAH "blah"; + } + } +} + +EOF + +$t->run_daemon(\&fastcgi_daemon); +$t->run(); + +############################################################################### + +SKIP: { +skip 'unsafe', 1 unless $ENV{TEST_NGINX_UNSAFE}; + +local $TODO = 'not yet'; + +like(http_get_headers('/'), qr/SEE-THIS/, + 'fastcgi request with many ignored headers'); + +} + +############################################################################### + +sub http_get_headers { + my ($url, %extra) = @_; + return http(<<EOF, %extra); +GET $url HTTP/1.0 +Host: localhost +X-Blah: ignored header +X-Blah: ignored header +X-Blah: ignored header +X-Blah: ignored header +X-Blah: ignored header +X-Blah: ignored header +X-Blah: ignored header +X-Blah: ignored header +X-Blah: ignored header +X-Blah: ignored header +X-Blah: ignored header +X-Blah: ignored header +X-Blah: ignored header +X-Blah: ignored header +X-Blah: ignored header +X-Blah: ignored header +X-Blah: ignored header +X-Blah: ignored header +X-Blah: ignored header + +EOF +} + +############################################################################### + +sub fastcgi_daemon { + my $socket = FCGI::OpenSocket('127.0.0.1:8081', 5); + my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV, + $socket); + + my $count; + while( $request->Accept() >= 0 ) { + $count++; + + print <<EOF; +Location: http://127.0.0.1:8080/redirect +Content-Type: text/html + +SEE-THIS +$count +EOF + } + + FCGI::CloseSocket($socket); +} + +###############################################################################