Return to mod-cgi.t CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / lighttpd / tests

Annotation of embedaddon/lighttpd/tests/mod-cgi.t, revision 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 => 18;
        !            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: # mod-cgi
        !            20: #
        !            21: $t->{REQUEST}  = ( <<EOF
        !            22: GET /cgi.pl HTTP/1.0
        !            23: EOF
        !            24:  );
        !            25: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
        !            26: ok($tf->handle_http($t) == 0, 'perl via cgi');
        !            27: 
        !            28: $t->{REQUEST}  = ( <<EOF
        !            29: GET /cgi.pl/foo HTTP/1.0
        !            30: EOF
        !            31:  );
        !            32: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => '/cgi.pl' } ];
        !            33: ok($tf->handle_http($t) == 0, 'perl via cgi + pathinfo');
        !            34: 
        !            35: $t->{REQUEST}  = ( <<EOF
        !            36: GET /cgi-pathinfo.pl/foo HTTP/1.0
        !            37: EOF
        !            38:  );
        !            39: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => '/foo' } ];
        !            40: ok($tf->handle_http($t) == 0, 'perl via cgi + pathinfo');
        !            41: 
        !            42: $t->{REQUEST}  = ( <<EOF
        !            43: GET /nph-status.pl?30 HTTP/1.0
        !            44: EOF
        !            45:  );
        !            46: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
        !            47: ok($tf->handle_http($t) == 0, 'NPH + perl, invalid status-code (#14)');
        !            48: 
        !            49: $t->{REQUEST}  = ( <<EOF
        !            50: GET /nph-status.pl?304 HTTP/1.0
        !            51: EOF
        !            52:  );
        !            53: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 304 } ];
        !            54: ok($tf->handle_http($t) == 0, 'NPH + perl, setting status-code (#1125)');
        !            55: 
        !            56: $t->{REQUEST}  = ( <<EOF
        !            57: GET /nph-status.pl?200 HTTP/1.0
        !            58: EOF
        !            59:  );
        !            60: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
        !            61: ok($tf->handle_http($t) == 0, 'NPH + perl, setting status-code');
        !            62: 
        !            63: $t->{REQUEST} = ( <<EOF
        !            64: GET /get-header.pl?GATEWAY_INTERFACE HTTP/1.0
        !            65: EOF
        !            66:  );
        !            67: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'CGI/1.1' } ];
        !            68: ok($tf->handle_http($t) == 0, 'cgi-env: GATEWAY_INTERFACE');
        !            69: 
        !            70: $t->{REQUEST} = ( <<EOF
        !            71: GET /get-header.pl?QUERY_STRING HTTP/1.0
        !            72: EOF
        !            73:  );
        !            74: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'QUERY_STRING' } ];
        !            75: ok($tf->handle_http($t) == 0, 'cgi-env: QUERY_STRING');
        !            76: 
        !            77: $t->{REQUEST} = ( <<EOF
        !            78: GET /get-header.pl?GATEWAY_INTERFACE HTTP/1.0
        !            79: EOF
        !            80:  );
        !            81: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'CGI/1.1' } ];
        !            82: ok($tf->handle_http($t) == 0, 'cgi-env: GATEWAY_INTERFACE');
        !            83: 
        !            84: $t->{REQUEST} = ( <<EOF
        !            85: GET /get-header.pl?HTTP_HOST HTTP/1.0
        !            86: Host: www.example.org
        !            87: EOF
        !            88:  );
        !            89: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'www.example.org' } ];
        !            90: ok($tf->handle_http($t) == 0, 'cgi-env: HTTP_HOST');
        !            91: 
        !            92: $t->{REQUEST}  = ( <<EOF
        !            93: GET /get-header.pl?HTTP_XX_YY123 HTTP/1.0
        !            94: xx-yy123: foo
        !            95: EOF
        !            96:  );
        !            97: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'foo' } ];
        !            98: ok($tf->handle_http($t) == 0, 'cgi-env: quoting headers with numbers');
        !            99: 
        !           100: $t->{REQUEST}  = ( <<EOF
        !           101: GET /get-header.pl?HTTP_HOST HTTP/1.0
        !           102: Host: www.example.org
        !           103: EOF
        !           104:  );
        !           105: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'www.example.org' } ];
        !           106: ok($tf->handle_http($t) == 0, 'cgi-env: HTTP_HOST');
        !           107: 
        !           108: $t->{REQUEST}  = ( <<EOF
        !           109: GET /get-header.pl?HTTP_HOST HTTP/1.0
        !           110: Host: www.example.org
        !           111: EOF
        !           112:  );
        !           113: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'www.example.org' } ];
        !           114: ok($tf->handle_http($t) == 0, 'cgi-env: HTTP_HOST');
        !           115: 
        !           116: $t->{REQUEST}  = ( <<EOF
        !           117: GET /get-header.pl?HTTP_HOST HTTP/1.0
        !           118: Host: www.example.org
        !           119: EOF
        !           120:  );
        !           121: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'Content-Type' => 'text/plain' } ];
        !           122: ok($tf->handle_http($t) == 0, 'cgi-env: HTTP_HOST');
        !           123: 
        !           124: $t->{REQUEST}  = ( <<EOF
        !           125: GET /get-header.pl?HTTP_HOST HTTP/1.1
        !           126: Host: www.example.org
        !           127: Connection: close
        !           128: EOF
        !           129:  );
        !           130: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.1', 'HTTP-Status' => 200, '+Content-Length' => '' } ];
        !           131: ok($tf->handle_http($t) == 0, 'cgi-env: HTTP_HOST');
        !           132: 
        !           133: # broken header crash
        !           134: $t->{REQUEST}  = ( <<EOF
        !           135: GET /crlfcrash.pl HTTP/1.0
        !           136: EOF
        !           137:  );
        !           138: $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 302, 'Location' => 'http://www.example.org/' } ];
        !           139: ok($tf->handle_http($t) == 0, 'broken header via perl cgi');
        !           140: 
        !           141: ok($tf->stop_proc == 0, "Stopping lighttpd");
        !           142: