Mercurial > hg > nginx-tests

annotate fastcgi_header_params.t @ 221:8d2c6358d830

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: avoid using FCGI on win32. The FCGI.pm under Windows refuses to listen on 127.0.0.1 and insists on listening on INADDR_ANY. We don't want to.
author Maxim Dounin <mdounin@mdounin.ru>
date Sat, 02 Jun 2012 22:58:09 +0400
parents c0ae29632905
children a01a53bcbf11
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
153
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
1 #!/usr/bin/perl
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
2
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
3 # (C) Maxim Dounin
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
4
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
5 # Test for fastcgi header params.
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
6
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
7 ###############################################################################
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
8
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
9 use warnings;
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
10 use strict;
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
11
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
12 use Test::More;
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
13
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
14 BEGIN { use FindBin; chdir($FindBin::Bin); }
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
15
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
16 use lib 'lib';
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
17 use Test::Nginx;
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
18
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
19 ###############################################################################
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
20
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
21 select STDERR; $| = 1;
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
22 select STDOUT; $| = 1;
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
23
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
24 eval { require FCGI; };
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
25 plan(skip_all => 'FCGI not installed') if $@;
221
8d2c6358d830 Tests: avoid using FCGI on win32.
Maxim Dounin <mdounin@mdounin.ru>
parents: 166
diff changeset
26 plan(skip_all => 'win32') if $^O eq 'MSWin32';
153
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
27
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
28 my $t = Test::Nginx->new()->has(qw/http fastcgi/)->plan(1)
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
29 ->write_file_expand('nginx.conf', <<'EOF');
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
30
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
31 %%TEST_GLOBALS%%
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
32
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
33 daemon off;
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
34
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
35 events {
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
36 }
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
37
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
38 http {
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
39 %%TEST_GLOBALS_HTTP%%
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
40
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
41 server {
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
42 listen 127.0.0.1:8080;
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
43 server_name localhost;
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
44
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
45 location / {
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
46 fastcgi_pass 127.0.0.1:8081;
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
47 fastcgi_param HTTP_X_BLAH "blah";
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
48 }
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
49 }
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
50 }
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
51
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
52 EOF
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
53
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
54 $t->run_daemon(\&fastcgi_daemon);
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
55 $t->run();
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
56
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
57 ###############################################################################
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
58
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
59 SKIP: {
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
60 skip 'unsafe', 1 unless $ENV{TEST_NGINX_UNSAFE};
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
61
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
62 local $TODO = 'not yet';
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
63
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
64 like(http_get_headers('/'), qr/SEE-THIS/,
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
65 'fastcgi request with many ignored headers');
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
66
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
67 }
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
68
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
69 ###############################################################################
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
70
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
71 sub http_get_headers {
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
72 my ($url, %extra) = @_;
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
73 return http(<<EOF, %extra);
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
74 GET $url HTTP/1.0
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
75 Host: localhost
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
76 X-Blah: ignored header
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
77 X-Blah: ignored header
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
78 X-Blah: ignored header
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
79 X-Blah: ignored header
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
80 X-Blah: ignored header
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
81 X-Blah: ignored header
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
82 X-Blah: ignored header
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
83 X-Blah: ignored header
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
84 X-Blah: ignored header
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
85 X-Blah: ignored header
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
86 X-Blah: ignored header
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
87 X-Blah: ignored header
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
88 X-Blah: ignored header
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
89 X-Blah: ignored header
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
90 X-Blah: ignored header
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
91 X-Blah: ignored header
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
92 X-Blah: ignored header
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
93 X-Blah: ignored header
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
94 X-Blah: ignored header
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
95
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
96 EOF
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
97 }
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
98
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
99 ###############################################################################
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
100
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
101 sub fastcgi_daemon {
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
102 my $socket = FCGI::OpenSocket('127.0.0.1:8081', 5);
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
103 my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV,
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
104 $socket);
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
105
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
106 my $count;
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
107 while( $request->Accept() >= 0 ) {
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
108 $count++;
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
109
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
110 print <<EOF;
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
111 Location: http://127.0.0.1:8080/redirect
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
112 Content-Type: text/html
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
113
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
114 SEE-THIS
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
115 $count
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
116 EOF
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
117 }
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
118
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
119 FCGI::CloseSocket($socket);
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
120 }
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
121
26cf61c5ac35 Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
122 ###############################################################################