Mercurial > hg > nginx-tests
changeset 182:23f81eb0a817
Tests: proxy_set_header/fastcgi_param/scgi_param tests.
These tests cover several problems, in particular ticket #45
(http://trac.nginx.org/nginx/ticket/45).
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Tue, 08 Nov 2011 21:03:06 +0300 |
parents | e4024348b5ed |
children | e43af26ac6ea |
files | fastcgi_merge_params.t fastcgi_merge_params2.t proxy_merge_headers.t scgi_merge_params.t |
diffstat | 4 files changed, 552 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/fastcgi_merge_params.t Tue Nov 08 21:03:06 2011 +0300 @@ -0,0 +1,155 @@ +#!/usr/bin/perl + +# (C) Maxim Dounin + +# Tests for fastcgi_param inheritance. + +############################################################################### + +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 cache/)->plan(9) + ->write_file_expand('nginx.conf', <<'EOF'); + +%%TEST_GLOBALS%% + +daemon off; + +events { +} + +http { + %%TEST_GLOBALS_HTTP%% + + fastcgi_cache_path %%TESTDIR%%/cache levels=1:2 + keys_zone=NAME:10m; + + fastcgi_param HTTP_X_BLAH "blah"; + + server { + listen 127.0.0.1:8080; + server_name localhost; + + fastcgi_cache NAME; + + location / { + fastcgi_pass 127.0.0.1:8081; + } + + location /no/ { + fastcgi_pass 127.0.0.1:8081; + fastcgi_cache off; + } + + location /custom/ { + fastcgi_pass 127.0.0.1:8081; + fastcgi_param HTTP_X_BLAH "custom"; + } + } +} + +EOF + +$t->run_daemon(\&fastcgi_daemon); +$t->run(); + +############################################################################### + +like(http_get_ims('/'), qr/ims=;/, + 'if-modified-since cleared with cache'); + +TODO: { +local $TODO = 'not yet'; + +like(http_get_ims('/'), qr/iums=;/, + 'if-unmodified-since cleared with cache'); + +} + +like(http_get_ims('/'), qr/blah=blah;/, + 'custom params with cache'); + +TODO: { +local $TODO = 'not yet'; + +like(http_get_ims('/no/'), qr/ims=blah;/, + 'if-modified-since preserved without cache'); + +} + +like(http_get_ims('/no/'), qr/iums=blah;/, + 'if-unmodified-since preserved without cache'); +like(http_get_ims('/'), qr/blah=blah;/, + 'custom params without cache'); + +like(http_get_ims('/custom/'), qr/ims=;/, + 'if-modified-since cleared with cache custom'); + +TODO: { +local $TODO = 'not yet'; + +like(http_get_ims('/custom/'), qr/iums=;/, + 'if-unmodified-since cleared with cache custom'); +} + +like(http_get_ims('/custom/'), qr/blah=custom;/, + 'custom params with cache custom'); + +############################################################################### + +sub http_get_ims { + my ($url) = @_; + return http(<<EOF); +GET $url HTTP/1.0 +Host: localhost +Connection: close +If-Modified-Since: blah +If-Unmodified-Since: blah + +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++; + + my $ims = $ENV{HTTP_IF_MODIFIED_SINCE}; + my $iums = $ENV{HTTP_IF_UNMODIFIED_SINCE}; + my $blah = $ENV{HTTP_X_BLAH}; + + print <<EOF; +Location: http://127.0.0.1:8080/redirect +Content-Type: text/html + +ims=$ims;iums=$iums;blah=$blah; +EOF + } + + FCGI::CloseSocket($socket); +} + +###############################################################################
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/fastcgi_merge_params2.t Tue Nov 08 21:03:06 2011 +0300 @@ -0,0 +1,125 @@ +#!/usr/bin/perl + +# (C) Maxim Dounin + +# Tests for fastcgi_param inheritance. + +############################################################################### + +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 cache/)->plan(4) + ->write_file_expand('nginx.conf', <<'EOF'); + +%%TEST_GLOBALS%% + +daemon off; + +events { +} + +http { + %%TEST_GLOBALS_HTTP%% + + fastcgi_cache_path %%TESTDIR%%/cache levels=1:2 + keys_zone=NAME:10m; + + # no fastcgi_param at all, cache switched on at server level + + server { + listen 127.0.0.1:8080; + server_name localhost; + + fastcgi_cache NAME; + + location / { + fastcgi_pass 127.0.0.1:8081; + } + + location /no/ { + fastcgi_pass 127.0.0.1:8081; + fastcgi_cache off; + } + } +} + +EOF + +$t->run_daemon(\&fastcgi_daemon); +$t->run(); + +############################################################################### + +TODO: { +local $TODO = 'not yet'; + +like(http_get_ims('/'), qr/ims=;/, + 'if-modified-since cleared with cache'); +like(http_get_ims('/'), qr/iums=;/, + 'if-unmodified-since cleared with cache'); + +} + +like(http_get_ims('/no/'), qr/ims=blah;/, + 'if-modified-since preserved without cache'); +like(http_get_ims('/no/'), qr/iums=blah;/, + 'if-unmodified-since preserved without cache'); + +############################################################################### + +sub http_get_ims { + my ($url) = @_; + return http(<<EOF); +GET $url HTTP/1.0 +Host: localhost +Connection: close +If-Modified-Since: blah +If-Unmodified-Since: blah + +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++; + + my $ims = $ENV{HTTP_IF_MODIFIED_SINCE}; + my $iums = $ENV{HTTP_IF_UNMODIFIED_SINCE}; + my $blah = $ENV{HTTP_X_BLAH}; + + print <<EOF; +Location: http://127.0.0.1:8080/redirect +Content-Type: text/html + +ims=$ims;iums=$iums;blah=$blah; +EOF + } + + FCGI::CloseSocket($socket); +} + +###############################################################################
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/proxy_merge_headers.t Tue Nov 08 21:03:06 2011 +0300 @@ -0,0 +1,111 @@ +#!/usr/bin/perl + +# (C) Maxim Dounin + +# Tests for proxy_set_header inheritance. + +############################################################################### + +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; + +my $t = Test::Nginx->new()->has(qw/http proxy cache rewrite/)->plan(3) + ->write_file_expand('nginx.conf', <<'EOF'); + +%%TEST_GLOBALS%% + +daemon off; + +events { +} + +http { + %%TEST_GLOBALS_HTTP%% + + proxy_cache_path %%TESTDIR%%/cache levels=1:2 + keys_zone=NAME:10m; + + proxy_set_header X-Blah "blah"; + + server { + listen 127.0.0.1:8080; + server_name localhost; + + proxy_cache NAME; + + location / { + proxy_pass http://127.0.0.1:8081; + } + + location /no/ { + proxy_pass http://127.0.0.1:8081; + proxy_cache off; + } + + location /setbody/ { + proxy_pass http://127.0.0.1:8081; + proxy_set_body "body"; + } + } + + server { + listen 127.0.0.1:8081; + server_name localhost; + + location / { + return 200 "ims=$http_if_modified_since;blah=$http_x_blah;"; + } + } +} + +EOF + +$t->run(); + +############################################################################### + +like(http_get_ims('/'), qr/ims=;blah=blah;/, + 'if-modified-since cleared with cache'); + +TODO: { +local $TODO = 'not yet'; + +like(http_get_ims('/no/'), qr/ims=blah;blah=blah;/, + 'if-modified-since preserved without cache'); + +} + +TODO: { +local $TODO = 'not yet'; + +like(http_get_ims('/setbody/'), qr/blah=blah;/, + 'proxy_set_header inherited with proxy_set_body'); + +} + +############################################################################### + +sub http_get_ims { + my ($url) = @_; + return http(<<EOF); +GET $url HTTP/1.0 +Host: localhost +Connection: close +If-Modified-Since: blah + +EOF +} + +###############################################################################
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/scgi_merge_params.t Tue Nov 08 21:03:06 2011 +0300 @@ -0,0 +1,161 @@ +#!/usr/bin/perl + +# (C) Maxim Dounin + +# Tests for scgi_param inheritance. + +############################################################################### + +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 SCGI; }; +plan(skip_all => 'SCGI not installed') if $@; + +my $t = Test::Nginx->new()->has(qw/http scgi cache/)->plan(9) + ->write_file_expand('nginx.conf', <<'EOF'); + +%%TEST_GLOBALS%% + +daemon off; + +events { +} + +http { + %%TEST_GLOBALS_HTTP%% + + scgi_cache_path %%TESTDIR%%/cache levels=1:2 + keys_zone=NAME:10m; + + scgi_param SCGI 1; + scgi_param HTTP_X_BLAH "blah"; + + server { + listen 127.0.0.1:8080; + server_name localhost; + + scgi_cache NAME; + + location / { + scgi_pass 127.0.0.1:8081; + } + + location /no/ { + scgi_pass 127.0.0.1:8081; + scgi_cache off; + } + + location /custom/ { + scgi_pass 127.0.0.1:8081; + scgi_param SCGI 1; + scgi_param HTTP_X_BLAH "custom"; + } + } +} + +EOF + +$t->run_daemon(\&scgi_daemon); +$t->run(); + +############################################################################### + +like(http_get_ims('/'), qr/ims=;/, + 'if-modified-since cleared with cache'); + +TODO: { +local $TODO = 'not yet'; + +like(http_get_ims('/'), qr/iums=;/, + 'if-unmodified-since cleared with cache'); + +} + +like(http_get_ims('/'), qr/blah=blah;/, + 'custom params with cache'); + +TODO: { +local $TODO = 'not yet'; + +like(http_get_ims('/no/'), qr/ims=blah;/, + 'if-modified-since preserved without cache'); + +} + +like(http_get_ims('/no/'), qr/iums=blah;/, + 'if-unmodified-since preserved without cache'); +like(http_get_ims('/'), qr/blah=blah;/, + 'custom params without cache'); + +like(http_get_ims('/custom/'), qr/ims=;/, + 'if-modified-since cleared with cache custom'); + +TODO: { +local $TODO = 'not yet'; + +like(http_get_ims('/custom/'), qr/iums=;/, + 'if-unmodified-since cleared with cache custom'); +} + +like(http_get_ims('/custom/'), qr/blah=custom;/, + 'custom params with cache custom'); + +############################################################################### + +sub http_get_ims { + my ($url) = @_; + return http(<<EOF); +GET $url HTTP/1.0 +Host: localhost +Connection: close +If-Modified-Since: blah +If-Unmodified-Since: blah + +EOF +} + +############################################################################### + +sub scgi_daemon { + my $server = IO::Socket::INET->new( + Proto => 'tcp', + LocalHost => '127.0.0.1:8081', + Listen => 5, + Reuse => 1 + ) + or die "Can't create listening socket: $!\n"; + + my $scgi = SCGI->new($server, blocking => 1); + my $count = 0; + + while (my $request = $scgi->accept()) { + $count++; + $request->read_env(); + + my $ims = $request->env->{HTTP_IF_MODIFIED_SINCE} || ''; + my $iums = $request->env->{HTTP_IF_UNMODIFIED_SINCE} || ''; + my $blah = $request->env->{HTTP_X_BLAH} || ''; + + $request->connection()->print(<<EOF); +Location: http://127.0.0.1:8080/redirect +Content-Type: text/html + +ims=$ims;iums=$iums;blah=$blah; +EOF + } +} + +###############################################################################