| #!/usr/bin/env perl |
| BEGIN { |
| # add current source dir to the include-path |
| # we need this for make distcheck |
| (my $srcdir = $0) =~ s,/[^/]+$,/,; |
| unshift @INC, $srcdir; |
| } |
| |
| use strict; |
| use IO::Socket; |
| use Test::More tests => 41; |
| use LightyTest; |
| |
| my $tf = LightyTest->new(); |
| my $t; |
| |
| ok($tf->start_proc == 0, "Starting lighttpd") or die(); |
| |
| ## Basic Request-Handling |
| |
| $t->{REQUEST} = ( <<EOF |
| GET /foobar HTTP/1.0 |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 404 } ]; |
| ok($tf->handle_http($t) == 0, 'file not found'); |
| |
| $t->{REQUEST} = ( <<EOF |
| GET /foobar?foobar HTTP/1.0 |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 404 } ]; |
| ok($tf->handle_http($t) == 0, 'file not found + querystring'); |
| |
| $t->{REQUEST} = ( <<EOF |
| GET /12345.txt HTTP/1.0 |
| Host: 123.example.org |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => '12345'."\n", 'Content-Type' => 'text/plain' } ]; |
| ok($tf->handle_http($t) == 0, 'GET, content == 12345, mimetype text/plain'); |
| |
| $t->{REQUEST} = ( <<EOF |
| GET /12345.html HTTP/1.0 |
| Host: 123.example.org |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => '12345'."\n", 'Content-Type' => 'text/html' } ]; |
| ok($tf->handle_http($t) == 0, 'GET, content == 12345, mimetype text/html'); |
| |
| $t->{REQUEST} = ( <<EOF |
| GET /dummyfile.bla HTTP/1.0 |
| Host: 123.example.org |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => '12345'."\n", 'Content-Type' => 'application/octet-stream' } ]; |
| ok($tf->handle_http($t) == 0, 'GET, content == 12345, mimetype application/octet-stream'); |
| |
| $t->{REQUEST} = ( <<EOF |
| POST / HTTP/1.0 |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 411 } ]; |
| ok($tf->handle_http($t) == 0, 'POST request, no Content-Length'); |
| |
| |
| $t->{REQUEST} = ( <<EOF |
| POST / HTTP/1.0 |
| Content-type: application/x-www-form-urlencoded |
| Content-length: 0 |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ]; |
| ok($tf->handle_http($t) == 0, 'POST request, empty request-body'); |
| |
| $t->{REQUEST} = ( <<EOF |
| HEAD / HTTP/1.0 |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, '-HTTP-Content' => ''} ]; |
| ok($tf->handle_http($t) == 0, 'HEAD request, no content'); |
| |
| $t->{REQUEST} = ( <<EOF |
| HEAD /12345.html HTTP/1.0 |
| Host: 123.example.org |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, '-HTTP-Content' => '', 'Content-Type' => 'text/html', 'Content-Length' => '6'} ]; |
| ok($tf->handle_http($t) == 0, 'HEAD request, mimetype text/html, content-length'); |
| |
| $t->{REQUEST} = ( <<EOF |
| HEAD /foobar?foobar HTTP/1.0 |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 404, '-HTTP-Content' => '' } ]; |
| ok($tf->handle_http($t) == 0, 'HEAD request, file-not-found, query-string'); |
| |
| $t->{REQUEST} = ( <<EOF |
| GET / HTTP/1.1 |
| Connection: close |
| Expect: 100-continue |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.1', 'HTTP-Status' => 417, '-HTTP-Content' => ''} ]; |
| ok($tf->handle_http($t) == 0, 'Continue, Expect'); |
| |
| ## ranges |
| |
| $t->{REQUEST} = ( <<EOF |
| GET /12345.txt HTTP/1.0 |
| Host: 123.example.org |
| Range: bytes=0-3 |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 206, 'HTTP-Content' => '1234' } ]; |
| ok($tf->handle_http($t) == 0, 'GET, Range 0-3'); |
| |
| $t->{REQUEST} = ( <<EOF |
| GET /12345.txt HTTP/1.0 |
| Host: 123.example.org |
| Range: bytes=-3 |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 206, 'HTTP-Content' => '45'."\n" } ]; |
| ok($tf->handle_http($t) == 0, 'GET, Range -3'); |
| |
| $t->{REQUEST} = ( <<EOF |
| GET /12345.txt HTTP/1.0 |
| Host: 123.example.org |
| Range: bytes=3- |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 206, 'HTTP-Content' => '45'."\n" } ]; |
| ok($tf->handle_http($t) == 0, 'GET, Range 3-'); |
| |
| $t->{REQUEST} = ( <<EOF |
| GET /12345.txt HTTP/1.0 |
| Host: 123.example.org |
| Range: bytes=0-1,3-4 |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 206, 'HTTP-Content' => <<EOF |
| \r |
| --fkj49sn38dcn3\r |
| Content-Range: bytes 0-1/6\r |
| Content-Type: text/plain\r |
| \r |
| 12\r |
| --fkj49sn38dcn3\r |
| Content-Range: bytes 3-4/6\r |
| Content-Type: text/plain\r |
| \r |
| 45\r |
| --fkj49sn38dcn3--\r |
| EOF |
| } ]; |
| ok($tf->handle_http($t) == 0, 'GET, Range 0-1,3-4'); |
| |
| $t->{REQUEST} = ( <<EOF |
| GET /12345.txt HTTP/1.0 |
| Host: 123.example.org |
| Range: bytes=0-- |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ]; |
| ok($tf->handle_http($t) == 0, 'GET, Range 0--'); |
| |
| $t->{REQUEST} = ( <<EOF |
| GET /12345.txt HTTP/1.0 |
| Host: 123.example.org |
| Range: bytes=-2-3 |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ]; |
| ok($tf->handle_http($t) == 0, 'GET, Range -2-3'); |
| |
| $t->{REQUEST} = ( <<EOF |
| GET /12345.txt HTTP/1.0 |
| Host: 123.example.org |
| Range: bytes=-0 |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 416, 'HTTP-Content' => <<EOF |
| <?xml version="1.0" encoding="iso-8859-1"?> |
| <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" |
| "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> |
| <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> |
| <head> |
| <title>416 - Requested Range Not Satisfiable</title> |
| </head> |
| <body> |
| <h1>416 - Requested Range Not Satisfiable</h1> |
| </body> |
| </html> |
| EOF |
| } ]; |
| ok($tf->handle_http($t) == 0, 'GET, Range -0'); |
| |
| $t->{REQUEST} = ( <<EOF |
| GET /12345.txt HTTP/1.0 |
| Host: 123.example.org |
| Range: bytes=25- |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 416, 'HTTP-Content' => <<EOF |
| <?xml version="1.0" encoding="iso-8859-1"?> |
| <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" |
| "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> |
| <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> |
| <head> |
| <title>416 - Requested Range Not Satisfiable</title> |
| </head> |
| <body> |
| <h1>416 - Requested Range Not Satisfiable</h1> |
| </body> |
| </html> |
| EOF |
| } ]; |
| |
| ok($tf->handle_http($t) == 0, 'GET, Range start out of range'); |
| |
| |
| $t->{REQUEST} = ( <<EOF |
| GET / HTTP/1.0 |
| Hsgfsdjf: asdfhdf |
| hdhd: shdfhfdasd |
| hfhr: jfghsdfg |
| jfuuehdmn: sfdgjfdg |
| jvcbzufdg: sgfdfg |
| hrnvcnd: jfjdfg |
| jfusfdngmd: gfjgfdusdfg |
| nfj: jgfdjdfg |
| jfue: jfdfdg |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ]; |
| ok($tf->handle_http($t) == 0, 'larger headers'); |
| |
| |
| $t->{REQUEST} = ( <<EOF |
| GET / HTTP/1.0 |
| Host: www.example.org |
| Host: 123.example.org |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 400 } ]; |
| ok($tf->handle_http($t) == 0, 'Duplicate Host headers, Bug #25'); |
| |
| |
| $t->{REQUEST} = ( <<EOF |
| GET / HTTP/1.0 |
| Content-Length: 5 |
| Content-Length: 4 |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 400 } ]; |
| ok($tf->handle_http($t) == 0, 'Duplicate Content-Length headers'); |
| |
| $t->{REQUEST} = ( <<EOF |
| GET / HTTP/1.0 |
| Content-Type: 5 |
| Content-Type: 4 |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 400 } ]; |
| ok($tf->handle_http($t) == 0, 'Duplicate Content-Type headers'); |
| |
| $t->{REQUEST} = ( <<EOF |
| GET / HTTP/1.0 |
| Range: bytes=5-6 |
| Range: bytes=5-9 |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 400 } ]; |
| ok($tf->handle_http($t) == 0, 'Duplicate Range headers'); |
| |
| $t->{REQUEST} = ( <<EOF |
| GET / HTTP/1.0 |
| If-None-Match: 5 |
| If-None-Match: 4 |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 400 } ]; |
| ok($tf->handle_http($t) == 0, 'Duplicate If-None-Match headers'); |
| |
| $t->{REQUEST} = ( <<EOF |
| GET / HTTP/1.0 |
| If-Modified-Since: 5 |
| If-Modified-Since: 4 |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 400 } ]; |
| ok($tf->handle_http($t) == 0, 'Duplicate If-Modified-Since headers'); |
| |
| $t->{REQUEST} = ( <<EOF |
| GET /range.pdf HTTP/1.0 |
| Range: bytes=0- |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ]; |
| ok($tf->handle_http($t) == 0, 'GET, Range with range-requests-disabled'); |
| |
| $t->{REQUEST} = ( <<EOF |
| GET / HTTP/1.0 |
| Content-Length: 4 |
| |
| 1234 |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 400 } ]; |
| ok($tf->handle_http($t) == 0, 'GET with Content-Length'); |
| |
| $t->{REQUEST} = ( <<EOF |
| OPTIONS / HTTP/1.0 |
| Content-Length: 4 |
| |
| 1234 |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ]; |
| ok($tf->handle_http($t) == 0, 'OPTIONS with Content-Length'); |
| |
| $t->{REQUEST} = ( <<EOF |
| OPTIONS rtsp://221.192.134.146:80 RTSP/1.1 |
| Host: 221.192.134.146:80 |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 400 } ]; |
| ok($tf->handle_http($t) == 0, 'OPTIONS for RTSP'); |
| |
| $t->{REQUEST} = ( <<EOF |
| HEAD / HTTP/1.0 |
| Content-Length: 4 |
| |
| 1234 |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 400 } ]; |
| ok($tf->handle_http($t) == 0, 'HEAD with Content-Length'); |
| |
| $t->{REQUEST} = ( <<EOF |
| GET /index.html HTTP/1.0 |
| If-Modified-Since: Sun, 01 Jan 2036 00:00:02 GMT |
| If-Modified-Since: Sun, 01 Jan 2036 00:00:02 GMT |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 304 } ]; |
| ok($tf->handle_http($t) == 0, 'Duplicate If-Mod-Since, with equal timestamps'); |
| |
| $t->{REQUEST} = ( "GET / HTTP/1.0\r\nIf-Modified-Since: \0\r\n\r\n" ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 400 } ]; |
| ok($tf->handle_http($t) == 0, 'invalid chars in Header values (bug #1286)'); |
| |
| $t->{REQUEST} = ( "GET / HTTP/1.0\r\nIf-Modified-Since: \r\n\r\n" ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ]; |
| ok($tf->handle_http($t) == 0, 'empty If-Modified-Since'); |
| |
| $t->{REQUEST} = ( "GET / HTTP/1.0\r\nIf-Modified-Since: foobar\r\n\r\n" ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ]; |
| ok($tf->handle_http($t) == 0, 'broken If-Modified-Since'); |
| |
| $t->{REQUEST} = ( "GET / HTTP/1.0\r\nIf-Modified-Since: this string is too long to be a valid timestamp\r\n\r\n" ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ]; |
| ok($tf->handle_http($t) == 0, 'broken If-Modified-Since'); |
| |
| |
| $t->{REQUEST} = ( <<EOF |
| GET /index.html HTTP/1.0 |
| If-Modified-Since2: Sun, 01 Jan 2036 00:00:03 GMT |
| If-Modified-Since: Sun, 01 Jan 2036 00:00:02 GMT |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 304 } ]; |
| ok($tf->handle_http($t) == 0, 'Similar Headers (bug #1287)'); |
| |
| $t->{REQUEST} = ( <<EOF |
| GET /index.html HTTP/1.0 |
| If-Modified-Since: Sun, 01 Jan 2036 00:00:02 GMT |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 304, 'Content-Type' => 'text/html' } ]; |
| ok($tf->handle_http($t) == 0, 'If-Modified-Since'); |
| |
| $t->{REQUEST} = ( <<EOF |
| GET /index.html HTTP/1.0 |
| If-Modified-Since: Sun, 01 Jan 2036 00:00:02 GMT |
| EOF |
| ); |
| $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 304, '-Content-Length' => '' } ]; |
| ok($tf->handle_http($t) == 0, 'Status 304 has no Content-Length (#1002)'); |
| |
| ok($tf->stop_proc == 0, "Stopping lighttpd"); |
| |