# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1320775386 -10800
# Node ID 23f81eb0a817923ae45c4cbdcc486b9685d64088
# Parent  e4024348b5edb912d48817984f06a7a64f12ed52
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).

diff --git a/fastcgi_merge_params.t b/fastcgi_merge_params.t
new file mode 100644
--- /dev/null
+++ b/fastcgi_merge_params.t
@@ -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);
+}
+
+###############################################################################
diff --git a/fastcgi_merge_params2.t b/fastcgi_merge_params2.t
new file mode 100644
--- /dev/null
+++ b/fastcgi_merge_params2.t
@@ -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);
+}
+
+###############################################################################
diff --git a/proxy_merge_headers.t b/proxy_merge_headers.t
new file mode 100644
--- /dev/null
+++ b/proxy_merge_headers.t
@@ -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
+}
+
+###############################################################################
diff --git a/scgi_merge_params.t b/scgi_merge_params.t
new file mode 100644
--- /dev/null
+++ b/scgi_merge_params.t
@@ -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
+	}
+}
+
+###############################################################################