Annotation of embedaddon/lighttpd/tests/mod-fastcgi.t, revision 1.1.1.1
1.1 misho 1: #!/usr/bin/env perl
2: BEGIN {
3: # add current source dir to the include-path
4: # we need this for make distcheck
5: (my $srcdir = $0) =~ s,/[^/]+$,/,;
6: unshift @INC, $srcdir;
7: }
8:
9: use strict;
10: use Test::More tests => 58;
11: use LightyTest;
12:
13: my $tf = LightyTest->new();
14:
15: my $t;
16: my $php_child = -1;
17:
18: my $phpbin = (defined $ENV{'PHP'} ? $ENV{'PHP'} : '/usr/bin/php-cgi');
19: $ENV{'PHP'} = $phpbin;
20:
21: SKIP: {
22: skip "PHP already running on port 1026", 1 if $tf->listening_on(1026);
23: skip "no php binary found", 1 unless -x $phpbin;
24: ok(-1 != ($php_child = $tf->spawnfcgi($phpbin, 1026)), "Spawning php");
25: }
26:
27: SKIP: {
28: skip "no PHP running on port 1026", 35 unless $tf->listening_on(1026);
29:
30: ok($tf->start_proc == 0, "Starting lighttpd") or goto cleanup;
31:
32: $t->{REQUEST} = ( <<EOF
33: GET /phpinfo.php HTTP/1.0
34: Host: www.example.org
35: EOF
36: );
37: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
38: ok($tf->handle_http($t) == 0, 'valid request');
39:
40: $t->{REQUEST} = ( <<EOF
41: GET /phpinfofoobar.php HTTP/1.0
42: Host: www.example.org
43: EOF
44: );
45: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 404 } ];
46: ok($tf->handle_http($t) == 0, 'file not found');
47:
48: $t->{REQUEST} = ( <<EOF
49: GET /go/ HTTP/1.0
50: Host: www.example.org
51: EOF
52: );
53: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
54: ok($tf->handle_http($t) == 0, 'index-file handling');
55:
56: $t->{REQUEST} = ( <<EOF
57: GET /redirect.php HTTP/1.0
58: Host: www.example.org
59: EOF
60: );
61: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 302, 'Location' => 'http://www.example.org:2048/' } ];
62: ok($tf->handle_http($t) == 0, 'Status + Location via FastCGI');
63:
64: $t->{REQUEST} = ( <<EOF
65: GET /redirect.php/ HTTP/1.0
66: Host: www.example.org
67: EOF
68: );
69: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 302, 'Location' => 'http://www.example.org:2048/' } ];
70: ok($tf->handle_http($t) == 0, 'Trailing slash as path-info (#1989: workaround broken operating systems)');
71:
72: $t->{REQUEST} = ( <<EOF
73: GET /get-server-env.php?env=PHP_SELF HTTP/1.0
74: Host: www.example.org
75: EOF
76: );
77: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
78: ok($tf->handle_http($t) == 0, '$_SERVER["PHP_SELF"]');
79:
80: $t->{REQUEST} = ( <<EOF
81: GET /get-server-env.php/foo?env=SCRIPT_NAME HTTP/1.0
82: Host: www.example.org
83: EOF
84: );
85: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => '/get-server-env.php' } ];
86: ok($tf->handle_http($t) == 0, '$_SERVER["SCRIPT_NAME"]');
87:
88: $t->{REQUEST} = ( <<EOF
89: GET /get-server-env.php/foo?env=PATH_INFO HTTP/1.0
90: Host: www.example.org
91: EOF
92: );
93: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => '/foo' } ];
94: ok($tf->handle_http($t) == 0, '$_SERVER["PATH_INFO"]');
95:
96: $t->{REQUEST} = ( <<EOF
97: GET /get-server-env.php?env=SERVER_NAME HTTP/1.0
98: Host: www.example.org
99: EOF
100: );
101: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'www.example.org' } ];
102: ok($tf->handle_http($t) == 0, 'SERVER_NAME');
103:
104: $t->{REQUEST} = ( <<EOF
105: GET /get-server-env.php?env=SERVER_NAME HTTP/1.0
106: Host: foo.example.org
107: EOF
108: );
109: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'www.example.org' } ];
110: ok($tf->handle_http($t) == 0, 'SERVER_NAME');
111:
112: $t->{REQUEST} = ( <<EOF
113: GET /get-server-env.php?env=SERVER_NAME HTTP/1.0
114: Host: vvv.example.org
115: EOF
116: );
117: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'www.example.org' } ];
118: ok($tf->handle_http($t) == 0, 'SERVER_NAME');
119:
120: $t->{REQUEST} = ( <<EOF
121: GET /get-server-env.php?env=SERVER_NAME HTTP/1.0
122: Host: zzz.example.org
123: EOF
124: );
125: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'www.example.org' } ];
126: ok($tf->handle_http($t) == 0, 'SERVER_NAME');
127:
128: $t->{REQUEST} = ( <<EOF
129: GET /cgi.php/abc HTTP/1.0
130: EOF
131: );
132: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
133: ok($tf->handle_http($t) == 0, 'PATHINFO');
134:
135: $t->{REQUEST} = ( <<EOF
136: GET /cgi.php%20%20%20 HTTP/1.0
137: EOF
138: );
139: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 404 } ];
140: ok($tf->handle_http($t) == 0, 'No source retrieval');
141:
142: $t->{REQUEST} = ( <<EOF
143: GET /www/abc/def HTTP/1.0
144: EOF
145: );
146: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 404 } ];
147: ok($tf->handle_http($t) == 0, 'PATHINFO on a directory');
148:
149: $t->{REQUEST} = ( <<EOF
150: GET /indexfile/ HTTP/1.0
151: EOF
152: );
153: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => '/indexfile/index.php' } ];
154: ok($tf->handle_http($t) == 0, 'PHP_SELF + Indexfile, Bug #3');
155:
156: $t->{REQUEST} = ( <<EOF
157: GET /prefix.fcgi?var=SCRIPT_NAME HTTP/1.0
158: EOF
159: );
160: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => '/prefix.fcgi' } ];
161: ok($tf->handle_http($t) == 0, 'PATH_INFO, check-local off');
162:
163: $t->{REQUEST} = ( <<EOF
164: GET /prefix.fcgi/foo/bar?var=SCRIPT_NAME HTTP/1.0
165: EOF
166: );
167: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => '/prefix.fcgi' } ];
168: ok($tf->handle_http($t) == 0, 'PATH_INFO, check-local off');
169:
170: $t->{REQUEST} = ( <<EOF
171: GET /prefix.fcgi/foo/bar?var=PATH_INFO HTTP/1.0
172: EOF
173: );
174: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => '/foo/bar' } ];
175: ok($tf->handle_http($t) == 0, 'PATH_INFO, check-local off');
176:
177: $t->{REQUEST} = ( <<EOF
178: GET /sendfile.php?range=0- HTTP/1.0
179: EOF
180: );
181: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'Content-Length' => 4348 } ];
182: ok($tf->handle_http($t) == 0, 'X-Sendfile2');
183:
184: $t->{REQUEST} = ( <<EOF
185: GET /sendfile.php?range=0-4&range2=5- HTTP/1.0
186: EOF
187: );
188: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'Content-Length' => 4348 } ];
189: ok($tf->handle_http($t) == 0, 'X-Sendfile2');
190:
191: $t->{REQUEST} = ( <<EOF
192: GET /get-server-env.php?env=REMOTE_USER HTTP/1.0
193: Host: auth.example.org
194: Authorization: Basic ZGVzOmRlcw==
195: EOF
196: );
197: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'des' } ];
198: ok($tf->handle_http($t) == 0, '$_SERVER["REMOTE_USER"]');
199:
200: $t->{REQUEST} = ( <<EOF
201: GET /get-server-env.php?env=AUTH_TYPE HTTP/1.0
202: Host: auth.example.org
203: Authorization: Basic ZGVzOmRlcw==
204: EOF
205: );
206: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'Basic' } ];
207: ok($tf->handle_http($t) == 0, '$_SERVER["AUTH_TYPE"]');
208:
209:
210: ok($tf->stop_proc == 0, "Stopping lighttpd");
211:
212:
213: $tf->{CONFIGFILE} = 'fastcgi-10.conf';
214: ok($tf->start_proc == 0, "Starting lighttpd with $tf->{CONFIGFILE}") or goto cleanup;
215: $t->{REQUEST} = ( <<EOF
216: GET /get-server-env.php?env=SERVER_NAME HTTP/1.0
217: Host: zzz.example.org
218: EOF
219: );
220: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'zzz.example.org' } ];
221: ok($tf->handle_http($t) == 0, 'FastCGI + Host');
222:
223: $t->{REQUEST} = ( <<EOF
224: GET http://zzz.example.org/get-server-env.php?env=SERVER_NAME HTTP/1.0
225: Host: aaa.example.org
226: EOF
227: );
228: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'zzz.example.org' } ];
229: ok($tf->handle_http($t) == 0, 'SERVER_NAME (absolute url in request line)');
230:
231: ok($tf->stop_proc == 0, "Stopping lighttpd");
232:
233: $tf->{CONFIGFILE} = 'bug-06.conf';
234: ok($tf->start_proc == 0, "Starting lighttpd with $tf->{CONFIGFILE}") or goto cleanup;
235: $t->{REQUEST} = ( <<EOF
236: GET /indexfile/ HTTP/1.0
237: Host: www.example.org
238: EOF
239: );
240: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => '/indexfile/index.php' } ];
241: ok($tf->handle_http($t) == 0, 'Bug #6');
242:
243: ok($tf->stop_proc == 0, "Stopping lighttpd");
244:
245: $tf->{CONFIGFILE} = 'bug-12.conf';
246: ok($tf->start_proc == 0, "Starting lighttpd with bug-12.conf") or goto cleanup;
247: $t->{REQUEST} = ( <<EOF
248: POST /indexfile/abc HTTP/1.0
249: Host: www.example.org
250: Content-Length: 0
251: EOF
252: );
253: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 404, 'HTTP-Content' => '/indexfile/return-404.php' } ];
254: ok($tf->handle_http($t) == 0, 'Bug #12');
255:
256: ok($tf->stop_proc == 0, "Stopping lighttpd");
257: }
258:
259: SKIP: {
260: skip "PHP not started, cannot stop it", 1 unless $php_child != -1;
261: ok(0 == $tf->endspawnfcgi($php_child), "Stopping php");
262: $php_child = -1;
263: }
264:
265: SKIP: {
266: skip "no fcgi-auth found", 5 unless -x $tf->{BASEDIR}."/tests/fcgi-auth" || -x $tf->{BASEDIR}."/tests/fcgi-auth.exe";
267:
268: $tf->{CONFIGFILE} = 'fastcgi-auth.conf';
269: ok($tf->start_proc == 0, "Starting lighttpd with $tf->{CONFIGFILE}") or die();
270: $t->{REQUEST} = ( <<EOF
271: GET /index.html?ok HTTP/1.0
272: Host: www.example.org
273: EOF
274: );
275: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
276: ok($tf->handle_http($t) == 0, 'FastCGI - Auth');
277:
278: $t->{REQUEST} = ( <<EOF
279: GET /index.html?fail HTTP/1.0
280: Host: www.example.org
281: EOF
282: );
283: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 403 } ];
284: ok($tf->handle_http($t) == 0, 'FastCGI - Auth');
285:
286: $t->{REQUEST} = ( <<EOF
287: GET /expire/access.txt?ok HTTP/1.0
288: Host: www.example.org
289: EOF
290: );
291: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
292: ok($tf->handle_http($t) == 0, 'FastCGI - Auth in subdirectory');
293:
294: ok($tf->stop_proc == 0, "Stopping lighttpd");
295: }
296:
297: SKIP: {
298: skip "no php found", 5 unless -x $phpbin;
299: $tf->{CONFIGFILE} = 'fastcgi-13.conf';
300: ok($tf->start_proc == 0, "Starting lighttpd with $tf->{CONFIGFILE}") or die();
301: $t->{REQUEST} = ( <<EOF
302: GET /indexfile/index.php HTTP/1.0
303: Host: www.example.org
304: EOF
305: );
306: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
307: ok($tf->handle_http($t) == 0, 'FastCGI + local spawning');
308:
309: $t->{REQUEST} = ( <<EOF
310: HEAD /indexfile/index.php HTTP/1.0
311: Host: www.example.org
312: EOF
313: );
314: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, '-Content-Length' => '0' } ];
315: # Of course a valid content-length != 0 would be ok, but we assume for now that such one is not generated.
316: ok($tf->handle_http($t) == 0, 'Check for buggy content length with HEAD');
317:
318: $t->{REQUEST} = ( <<EOF
319: GET /get-env.php?env=MAIL HTTP/1.0
320: Host: www.example.org
321: EOF
322: );
323: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 , 'HTTP-Content' => '' } ];
324: ok($tf->handle_http($t) == 0, 'FastCGI + bin-copy-environment');
325:
326:
327:
328: ok($tf->stop_proc == 0, "Stopping lighttpd");
329: }
330:
331:
332: SKIP: {
333: skip "no fcgi-responder found", 11 unless -x $tf->{BASEDIR}."/tests/fcgi-responder" || -x $tf->{BASEDIR}."/tests/fcgi-responder.exe";
334:
335: $tf->{CONFIGFILE} = 'fastcgi-responder.conf';
336: ok($tf->start_proc == 0, "Starting lighttpd with $tf->{CONFIGFILE}") or die();
337: $t->{REQUEST} = ( <<EOF
338: GET /index.fcgi?lf HTTP/1.0
339: Host: www.example.org
340: EOF
341: );
342: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'test123' } ];
343: ok($tf->handle_http($t) == 0, 'line-ending \n\n');
344:
345: $t->{REQUEST} = ( <<EOF
346: GET /index.fcgi?crlf HTTP/1.0
347: Host: www.example.org
348: EOF
349: );
350: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'test123' } ];
351: ok($tf->handle_http($t) == 0, 'line-ending \r\n\r\n');
352:
353: $t->{REQUEST} = ( <<EOF
354: GET /index.fcgi?slow-lf HTTP/1.0
355: Host: www.example.org
356: EOF
357: );
358: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'test123' } ];
359: ok($tf->handle_http($t) == 0, 'line-ending \n + \n');
360:
361: $t->{REQUEST} = ( <<EOF
362: GET /index.fcgi?slow-crlf HTTP/1.0
363: Host: www.example.org
364: EOF
365: );
366: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'test123' } ];
367: ok($tf->handle_http($t) == 0, 'line-ending \r\n + \r\n');
368:
369: $t->{REQUEST} = ( <<EOF
370: GET /abc/def/ghi?path_info HTTP/1.0
371: Host: wsgi.example.org
372: EOF
373: );
374: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => '/abc/def/ghi' } ];
375: ok($tf->handle_http($t) == 0, 'PATH_INFO (wsgi)');
376:
377: $t->{REQUEST} = ( <<EOF
378: GET /abc/def/ghi?script_name HTTP/1.0
379: Host: wsgi.example.org
380: EOF
381: );
382: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => '' } ];
383: ok($tf->handle_http($t) == 0, 'SCRIPT_NAME (wsgi)');
384:
385:
386: $t->{REQUEST} = ( <<EOF
387: GET /index.fcgi?die-at-end HTTP/1.0
388: Host: www.example.org
389: EOF
390: );
391: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'test123' } ];
392: ok($tf->handle_http($t) == 0, 'killing fastcgi and wait for restart');
393:
394: select(undef, undef, undef, .2);
395: $t->{REQUEST} = ( <<EOF
396: GET /index.fcgi?die-at-end HTTP/1.0
397: Host: www.example.org
398: EOF
399: );
400: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'test123' } ];
401: ok($tf->handle_http($t) == 0, 'killing fastcgi and wait for restart');
402:
403:
404: select(undef, undef, undef, .2);
405: $t->{REQUEST} = ( <<EOF
406: GET /index.fcgi?crlf HTTP/1.0
407: Host: www.example.org
408: EOF
409: );
410: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'test123' } ];
411: ok($tf->handle_http($t) == 0, 'regular response of after restart');
412:
413:
414: ok($tf->stop_proc == 0, "Stopping lighttpd");
415: }
416:
417: exit 0;
418:
419: cleanup: ;
420:
421: $tf->endspawnfcgi($php_child) if $php_child != -1;
422:
423: die();
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to mod-fastcgi.t CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / lighttpd / tests