-
Notifications
You must be signed in to change notification settings - Fork 2
Expand file tree
/
Copy pathfastcgi_status.t
More file actions
146 lines (98 loc) · 3.49 KB
/
fastcgi_status.t
File metadata and controls
146 lines (98 loc) · 3.49 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
#!/usr/bin/perl
# (C) Maxim Dounin
# Test for fastcgi backend returning various status codes.
###############################################################################
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(11)
->write_file_expand('nginx.conf', <<'EOF');
%%TEST_GLOBALS%%
daemon off;
events {
}
http {
%%TEST_GLOBALS_HTTP%%
fastcgi_param REQUEST_URI $request_uri;
fastcgi_param REQUEST_METHOD $request_method;
fastcgi_read_timeout 10s;
add_header X-Upstream-Status $upstream_status;
server {
listen 127.0.0.1:8080;
server_name localhost;
location / {
fastcgi_pass 127.0.0.1:8081;
}
}
}
EOF
$t->run_daemon(\&fastcgi_daemon);
$t->run()->waitforsocket('127.0.0.1:' . port(8081));
###############################################################################
like(http_get('/'), qr!^HTTP/1.1 200 !s, 'status 200');
like(http_get('/600'), qr!^HTTP/1.1 600 !s, 'status 600 non-standard');
like(http_get('/status-line'), qr!^HTTP/1.1 200 !s, 'status line ignored');
like(http_get('/status-no-text'), qr!^HTTP/1.1 204 !s, 'status header no text');
like(http_get('/no-status'), qr!^HTTP/1.1 200 !s, 'default status');
like(http_get('/no-status-location'), qr!^HTTP/1.1 302 !s,
'default status with location');
TODO: {
local $TODO = 'not yet' unless $t->has_version('1.29.1');
# 1xx responses are ignored since 1.29.1, and 101 (Switching Protocols)
# is rejected
like(http_get('/100'), qr!^HTTP/1.1 200 .*X-Upstream-Status: 200!s,
'status 100 ignored');
like(http_get('/103'), qr!^HTTP/1.1 200 !s, 'status 103 ignored');
like(http_get('/101'), qr!^HTTP/1.1 502 !s, 'status 101 rejected');
like(http_get('/101-no-text'), qr!^HTTP/1.1 502 !s, 'status 101 rejected');
like(http_get('/001'), qr!^HTTP/1.1 502 !s, 'status 001 rejected');
}
###############################################################################
sub fastcgi_daemon {
my $socket = FCGI::OpenSocket('127.0.0.1:' . port(8081), 5);
my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV,
$socket);
my ($uri, $head);
while( $request->Accept() >= 0 ) {
$uri = $ENV{REQUEST_URI};
if ($uri eq '/') {
print "Status: 200 OK\n\n";
} elsif ($uri eq '/600') {
print "Status: 600 Non-standard\n\n";
} elsif ($uri eq '/status-line') {
print "HTTP/1.0 204 No content\n\n";
} elsif ($uri eq '/status-no-text') {
print "Status: 204\n\n";
} elsif ($uri eq '/no-status') {
print "Content-Type: text/html\n\n";
} elsif ($uri eq '/no-status-location') {
print "Location: /foobar\n\n";
} elsif ($uri eq '/100') {
print "Status: 100 Continue\n\n";
print "Status: 200 OK\n\n";
} elsif ($uri eq '/103') {
print "Status: 103 Early Hints\n";
print "Link: </foobar>\n\n";
print "Status: 200 OK\n\n";
} elsif ($uri eq '/101') {
print "Status: 101 Switching Protocols\n\n";
} elsif ($uri eq '/101-no-text') {
print "Status: 101\n\n";
} elsif ($uri eq '/001') {
print "Status: 001 Invalid\n\n";
print "Status: 200 OK\n\n";
}
}
FCGI::CloseSocket($socket);
}
###############################################################################