Changeset 111

Timestamp:

03/14/2005 11:22:13 AM (3 years ago)

Author:

jan

Message:

added tests for keep-alive, post requests in cgi and setenv

Location:

trunk/tests

Files:

• Makefile.am (modified) (2 diffs)
• core-keepalive.t (added)
• docroot/www/Makefile.am (modified) (1 diff)
• docroot/www/get-post-len.pl (added)
• lighttpd.conf (modified) (1 diff)
• mod-cgi.t (modified) (2 diffs)
• mod-setenv.t (added)

trunk/tests/Makefile.am

@@ -25 +25 @@
       core-request.t \
       core-response.t \
+      core-keepalive.t \
       core.t \
       mod-access.t \
@@ -34 +35 @@
       mod-userdir.t \
       mod-rewrite.t \
+      mod-setenv.t \
       request.t 
 

trunk/tests/docroot/www/Makefile.am

@@ -1 +1 @@
 EXTRA_DIST=cgi.php cgi.pl dummydir index.html index.txt phpinfo.php \
            phpself.php redirect.php cgi-pathinfo.pl phphost.php  \
-           nph-status.pl
+           nph-status.pl get-header.pl get-post-len.pl
 SUBDIRS=go indexfile expire

trunk/tests/lighttpd.conf

@@ -65 +65 @@
 compress.filetype           = ("text/plain", "text/html")
 
-setenv.add-environment      = ( "TRAC_ENV" => "foo")
+setenv.add-environment      = ( "TRAC_ENV" => "tracenv", "SETENV" => "setenv")
 setenv.add-request-header   = ( "FOO" => "foo")
 setenv.add-response-header  = ( "BAR" => "foo")

trunk/tests/mod-cgi.t

@@ -3 +3 @@
 use strict;
 use IO::Socket;
-use Test::More tests => 6;
+use Test::More tests => 9;
 
 my $basedir = (defined $ENV{'top_builddir'} ? $ENV{'top_builddir'} : '..');
@@ -219 +219 @@
 ok(handle_http == 0, 'NPH + perl, Bug #14');
 
+@request  = ( <<EOF
+GET /get-header.pl?QUERY_STRING HTTP/1.0
+EOF
+ );
+@response = ( { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'QUERY_STRING' } );
+ok(handle_http == 0, 'cgi-env: QUERY_STRING');
+
+@request  = ( <<EOF
+GET /get-header.pl?GATEWAY_INTERFACE HTTP/1.0
+EOF
+ );
+@response = ( { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'CGI/1.1' } );
+ok(handle_http == 0, 'cgi-env: GATEWAY_INTERFACE');
+
+@request  = ( <<EOF
+GET /get-header.pl?HTTP_HOST HTTP/1.0
+Host: www.example.org
+EOF
+ );
+@response = ( { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'www.example.org' } );
+ok(handle_http == 0, 'cgi-env: HTTP_HOST');
+
+
+
+
+
 ok(stop_proc == 0, "Stopping lighttpd");