Annotation of embedaddon/lighttpd/tests/core-request.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 IO::Socket;
11: use Test::More tests => 36;
12: use LightyTest;
13:
14: my $tf = LightyTest->new();
15: my $t;
16:
17: ok($tf->start_proc == 0, "Starting lighttpd") or die();
18:
19: ## Low-Level Request-Header Parsing - URI
20:
21: $t->{REQUEST} = ( <<EOF
22: GET /index%2ehtml HTTP/1.0
23: EOF
24: );
25: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
26: ok($tf->handle_http($t) == 0, 'URL-encoding');
27:
28: $t->{REQUEST} = ( <<EOF
29: GET /index.html%00 HTTP/1.0
30: EOF
31: );
32: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 404 } ];
33: ok($tf->handle_http($t) == 0, 'URL-encoding, %00');
34:
35:
36:
37: ## Low-Level Request-Header Parsing - Host
38:
39: $t->{REQUEST} = ( <<EOF
40: GET / HTTP/1.0
41: Host: www.example.org
42: EOF
43: );
44: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
45: ok($tf->handle_http($t) == 0, 'hostname');
46:
47: $t->{REQUEST} = ( <<EOF
48: GET / HTTP/1.0
49: Host: 127.0.0.1
50: EOF
51: );
52: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
53: ok($tf->handle_http($t) == 0, 'IPv4 address');
54:
55: $t->{REQUEST} = ( <<EOF
56: GET / HTTP/1.0
57: Host: [::1]
58: EOF
59: );
60: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
61: ok($tf->handle_http($t) == 0, 'IPv6 address');
62:
63: $t->{REQUEST} = ( <<EOF
64: GET / HTTP/1.0
65: Host: www.example.org:80
66: EOF
67: );
68: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
69: ok($tf->handle_http($t) == 0, 'hostname + port');
70:
71: $t->{REQUEST} = ( <<EOF
72: GET / HTTP/1.0
73: Host: 127.0.0.1:80
74: EOF
75: );
76: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
77: ok($tf->handle_http($t) == 0, 'IPv4 address + port');
78:
79: $t->{REQUEST} = ( <<EOF
80: GET / HTTP/1.0
81: Host: [::1]:80
82: EOF
83: );
84: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
85: ok($tf->handle_http($t) == 0, 'IPv6 address + port');
86:
87: $t->{REQUEST} = ( <<EOF
88: GET / HTTP/1.0
89: Host: ../123.org
90: EOF
91: );
92: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 400 } ];
93: ok($tf->handle_http($t) == 0, 'directory traversal');
94:
95: $t->{REQUEST} = ( <<EOF
96: GET / HTTP/1.0
97: Host: .jsdh.sfdg.sdfg.
98: EOF
99: );
100: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 400 } ];
101: ok($tf->handle_http($t) == 0, 'leading and trailing dot');
102:
103: $t->{REQUEST} = ( <<EOF
104: GET / HTTP/1.0
105: Host: jsdh.sfdg.sdfg.
106: EOF
107: );
108: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
109: ok($tf->handle_http($t) == 0, 'trailing dot is ok');
110:
111: $t->{REQUEST} = ( <<EOF
112: GET / HTTP/1.0
113: Host: .jsdh.sfdg.sdfg
114: EOF
115: );
116: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 400 } ];
117: ok($tf->handle_http($t) == 0, 'leading dot');
118:
119:
120: $t->{REQUEST} = ( <<EOF
121: GET / HTTP/1.0
122: Host: jsdh..sfdg.sdfg
123: EOF
124: );
125: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 400 } ];
126: ok($tf->handle_http($t) == 0, 'two dots');
127:
128: $t->{REQUEST} = ( <<EOF
129: GET / HTTP/1.0
130: Host: jsdh.sfdg.sdfg:asd
131: EOF
132: );
133: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 400 } ];
134: ok($tf->handle_http($t) == 0, 'broken port-number');
135:
136: $t->{REQUEST} = ( <<EOF
137: GET / HTTP/1.0
138: Host: jsdh.sfdg.sdfg:-1
139: EOF
140: );
141: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 400 } ];
142: ok($tf->handle_http($t) == 0, 'negative port-number');
143:
144:
145: $t->{REQUEST} = ( <<EOF
146: GET / HTTP/1.0
147: Host: :80
148: EOF
149: );
150: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 400 } ];
151: ok($tf->handle_http($t) == 0, 'port given but host missing');
152:
153: $t->{REQUEST} = ( <<EOF
154: GET / HTTP/1.0
155: Host: .jsdh.sfdg.:sdfg.
156: EOF
157: );
158: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 400 } ];
159: ok($tf->handle_http($t) == 0, 'port and host are broken');
160:
161: $t->{REQUEST} = ( <<EOF
162: GET / HTTP/1.0
163: Host: a.b-c.d123
164: EOF
165: );
166: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
167: ok($tf->handle_http($t) == 0, 'allowed characters in host-name');
168:
169: $t->{REQUEST} = ( <<EOF
170: GET / HTTP/1.0
171: Host: -a.c
172: EOF
173: );
174: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 400 } ];
175: ok($tf->handle_http($t) == 0, 'leading dash');
176:
177: $t->{REQUEST} = ( <<EOF
178: GET / HTTP/1.0
179: Host: .
180: EOF
181: );
182: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 400 } ];
183: ok($tf->handle_http($t) == 0, 'dot only');
184:
185: $t->{REQUEST} = ( <<EOF
186: GET / HTTP/1.0
187: Host: a192.168.2.10:1234
188: EOF
189: );
190: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 400 } ];
191: ok($tf->handle_http($t) == 0, 'broken IPv4 address - non-digit');
192:
193: $t->{REQUEST} = ( <<EOF
194: GET / HTTP/1.0
195: Host: 192.168.2:1234
196: EOF
197: );
198: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 400 } ];
199: ok($tf->handle_http($t) == 0, 'broken IPv4 address - too short');
200:
201:
202:
203: ## Low-Level Request-Header Parsing - Content-Length
204:
205:
206: $t->{REQUEST} = ( <<EOF
207: GET /index.html HTTP/1.0
208: Content-Length: -2
209: EOF
210: );
211: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 400 } ];
212: ok($tf->handle_http($t) == 0, 'negative Content-Length');
213:
214: $t->{REQUEST} = ( <<EOF
215: POST /12345.txt HTTP/1.0
216: Host: 123.example.org
217: Content-Length: 2147483648
218: EOF
219: );
220: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 413 } ];
221: ok($tf->handle_http($t) == 0, 'Content-Length > max-request-size');
222:
223: $t->{REQUEST} = ( <<EOF
224: POST /12345.txt HTTP/1.0
225: Host: 123.example.org
226: Content-Length:
227: EOF
228: );
229: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 411 } ];
230: ok($tf->handle_http($t) == 0, 'Content-Length is empty');
231:
232: print "\nLow-Level Request-Header Parsing - HTTP/1.1\n";
233: $t->{REQUEST} = ( <<EOF
234: GET / HTTP/1.1
235: EOF
236: );
237: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.1', 'HTTP-Status' => 400 } ];
238: ok($tf->handle_http($t) == 0, 'Host missing');
239:
240: print "\nContent-Type\n";
241: $t->{REQUEST} = ( <<EOF
242: GET /image.jpg HTTP/1.0
243: EOF
244: );
245: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'Content-Type' => 'image/jpeg' } ];
246: ok($tf->handle_http($t) == 0, 'Content-Type - image/jpeg');
247:
248: $t->{REQUEST} = ( <<EOF
249: GET /image.JPG HTTP/1.0
250: EOF
251: );
252: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'Content-Type' => 'image/jpeg' } ];
253: ok($tf->handle_http($t) == 0, 'Content-Type - image/jpeg (upper case)');
254:
255: $t->{REQUEST} = ( <<EOF
256: GET /a HTTP/1.0
257: EOF
258: );
259: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'Content-Type' => 'application/octet-stream' } ];
260: ok($tf->handle_http($t) == 0, 'Content-Type - unknown');
261:
262: $t->{REQUEST} = ( <<EOF
263: GET HTTP/1.0
264: EOF
265: );
266: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 400 } ];
267: ok($tf->handle_http($t) == 0, 'empty request-URI');
268:
269: $t->{REQUEST} = ( <<EOF
270: GET /Foo.txt HTTP/1.0
271: EOF
272: );
273: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
274: ok($tf->handle_http($t) == 0, 'uppercase filenames');
275:
276: $t->{REQUEST} = ( <<EOF
277: GET / HTTP/1.0
278: Location: foo
279: Location: foobar
280: baz
281: EOF
282: );
283: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
284: ok($tf->handle_http($t) == 0, '#1232 - duplicate headers with line-wrapping');
285:
286: $t->{REQUEST} = ( <<EOF
287: GET / HTTP/1.0
288: Location:
289: Location: foobar
290: baz
291: EOF
292: );
293: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
294: ok($tf->handle_http($t) == 0, '#1232 - duplicate headers with line-wrapping - test 2');
295:
296: $t->{REQUEST} = ( <<EOF
297: GET / HTTP/1.0
298: A:
299: Location: foobar
300: baz
301: EOF
302: );
303: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
304: ok($tf->handle_http($t) == 0, '#1232 - duplicate headers with line-wrapping - test 3');
305:
306:
307:
308:
309: ok($tf->stop_proc == 0, "Stopping lighttpd");
310:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to core-request.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