[BACK]Return to mod-cgi.t CVS log [TXT] [DIR] Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / lighttpd / tests

Diff for /embedaddon/lighttpd/tests/mod-cgi.t between versions 1.1 and 1.1.1.2

version 1.1, 2013/10/14 10:32:47 version 1.1.1.2, 2016/11/02 10:35:00
Line 8  BEGIN { Line 8  BEGIN {
   
 use strict;  use strict;
 use IO::Socket;  use IO::Socket;
use Test::More tests => 18;use Test::More tests => 16;
 use LightyTest;  use LightyTest;
   
 my $tf = LightyTest->new();  my $tf = LightyTest->new();
Line 33  $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'H Line 33  $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'H
 ok($tf->handle_http($t) == 0, 'perl via cgi + pathinfo');  ok($tf->handle_http($t) == 0, 'perl via cgi + pathinfo');
   
 $t->{REQUEST}  = ( <<EOF  $t->{REQUEST}  = ( <<EOF
   GET /cgi.pl?internal-redir HTTP/1.0
   EOF
    );
   $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
   ok($tf->handle_http($t) == 0, 'perl via cgi and internal redirect from CGI');
   
   $t->{REQUEST}  = ( <<EOF
 GET /cgi-pathinfo.pl/foo HTTP/1.0  GET /cgi-pathinfo.pl/foo HTTP/1.0
 EOF  EOF
  );   );
Line 81  EOF Line 88  EOF
 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'CGI/1.1' } ];  $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'CGI/1.1' } ];
 ok($tf->handle_http($t) == 0, 'cgi-env: GATEWAY_INTERFACE');  ok($tf->handle_http($t) == 0, 'cgi-env: GATEWAY_INTERFACE');
   
 $t->{REQUEST} = ( <<EOF  
 GET /get-header.pl?HTTP_HOST HTTP/1.0  
 Host: www.example.org  
 EOF  
  );  
 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'www.example.org' } ];  
 ok($tf->handle_http($t) == 0, 'cgi-env: HTTP_HOST');  
   
 $t->{REQUEST}  = ( <<EOF  $t->{REQUEST}  = ( <<EOF
 GET /get-header.pl?HTTP_XX_YY123 HTTP/1.0  GET /get-header.pl?HTTP_XX_YY123 HTTP/1.0
 xx-yy123: foo  xx-yy123: foo
Line 102  GET /get-header.pl?HTTP_HOST HTTP/1.0 Line 101  GET /get-header.pl?HTTP_HOST HTTP/1.0
 Host: www.example.org  Host: www.example.org
 EOF  EOF
  );   );
$t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'www.example.org' } ];$t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'www.example.org', 'Content-Type' => 'text/plain' } ];
ok($tf->handle_http($t) == 0, 'cgi-env: HTTP_HOST'); 
 
$t->{REQUEST}  = ( <<EOF 
GET /get-header.pl?HTTP_HOST HTTP/1.0 
Host: www.example.org 
EOF 
 ); 
$t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'www.example.org' } ]; 
ok($tf->handle_http($t) == 0, 'cgi-env: HTTP_HOST'); 
 
$t->{REQUEST}  = ( <<EOF 
GET /get-header.pl?HTTP_HOST HTTP/1.0 
Host: www.example.org 
EOF 
 ); 
$t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'Content-Type' => 'text/plain' } ]; 
 ok($tf->handle_http($t) == 0, 'cgi-env: HTTP_HOST');  ok($tf->handle_http($t) == 0, 'cgi-env: HTTP_HOST');
   
 $t->{REQUEST}  = ( <<EOF  $t->{REQUEST}  = ( <<EOF
Removed from v.1.1  
changed lines
  Added in v.1.1.1.2

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>