diff options
author | Jan Kneschke <jan@kneschke.de> | 2005-03-01 13:37:40 +0000 |
---|---|---|
committer | Jan Kneschke <jan@kneschke.de> | 2005-03-01 13:37:40 +0000 |
commit | 2420fd96d25bf938ef6985152f1754e3c75a9f71 (patch) | |
tree | 52611c0e42423b7e04dfd17f39ab9336707a099f /tests/run-tests.pl | |
parent | bad98d1bba12e9919e5dda5c3f4ad855e942423b (diff) | |
download | lighttpd-git-2420fd96d25bf938ef6985152f1754e3c75a9f71.tar.gz |
added checks for the line-terminator handling and cleanup the configs
git-svn-id: svn://svn.lighttpd.net/lighttpd/trunk@62 152afb58-edef-0310-8abb-c4023f1b3aa9
Diffstat (limited to 'tests/run-tests.pl')
-rwxr-xr-x | tests/run-tests.pl | 50 |
1 files changed, 42 insertions, 8 deletions
diff --git a/tests/run-tests.pl b/tests/run-tests.pl index 66e58236..df344254 100755 --- a/tests/run-tests.pl +++ b/tests/run-tests.pl @@ -2,7 +2,7 @@ use strict; use IO::Socket; -use Test::More tests => 120; +use Test::More tests => 124; my $testname; @@ -32,7 +32,7 @@ sub stop_proc { close F; kill('TERM',$pid) or return -1; - select(undef, undef, undef, 0.25); + select(undef, undef, undef, 0.01); return 0; } @@ -1137,8 +1137,8 @@ ok(handle_http == 0, 'FastCGI + Host'); ok(stop_proc == 0, "Stopping lighttpd"); -$configfile = 'fastcgi-11.conf'; -ok(start_proc == 0, "Starting lighttpd with fastcgi-11.conf") or die(); +$configfile = 'fastcgi-auth.conf'; +ok(start_proc == 0, "Starting lighttpd with $configfile") or die(); @request = ( <<EOF GET /index.html?ok HTTP/1.0 Host: www.example.org @@ -1147,10 +1147,6 @@ EOF @response = ( { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ); ok(handle_http == 0, 'FastCGI - Auth'); -ok(stop_proc == 0, "Stopping lighttpd"); - -$configfile = 'fastcgi-12.conf'; -ok(start_proc == 0, "Starting lighttpd with fastcgi-12.conf") or die(); @request = ( <<EOF GET /index.html?fail HTTP/1.0 Host: www.example.org @@ -1198,4 +1194,42 @@ ok(handle_http == 0, 'Bug #12'); ok(stop_proc == 0, "Stopping lighttpd"); +$configfile = 'fastcgi-responder.conf'; +ok(start_proc == 0, "Starting lighttpd with $configfile") or die(); +@request = ( <<EOF +GET /index.fcgi?lf HTTP/1.0 +Host: www.example.org +EOF + ); +@response = ( { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'test123' } ); +ok(handle_http == 0, 'line-ending \n\n'); + +@request = ( <<EOF +GET /index.fcgi?crlf HTTP/1.0 +Host: www.example.org +EOF + ); +@response = ( { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'test123' } ); +ok(handle_http == 0, 'line-ending \r\n\r\n'); + +@request = ( <<EOF +GET /index.fcgi?slow-lf HTTP/1.0 +Host: www.example.org +EOF + ); +@response = ( { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'test123' } ); +ok(handle_http == 0, 'line-ending \n + \n'); + + + +@request = ( <<EOF +GET /index.fcgi?slow-crlf HTTP/1.0 +Host: www.example.org +EOF + ); +@response = ( { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'test123' } ); +ok(handle_http == 0, 'line-ending \r\n + \r\n'); + + +ok(stop_proc == 0, "Stopping lighttpd"); |