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 => 4; | use Test::More tests => 5; |
use LightyTest; |
use LightyTest; |
|
|
my $tf = LightyTest->new(); |
my $tf = LightyTest->new(); |
Line 16 my $t;
|
Line 16 my $t;
|
|
|
ok($tf->start_proc == 0, "Starting lighttpd") or die(); |
ok($tf->start_proc == 0, "Starting lighttpd") or die(); |
|
|
# mod-cgi |
|
# |
|
$t->{REQUEST} = ( <<EOF |
$t->{REQUEST} = ( <<EOF |
GET /ssi.shtml HTTP/1.0 |
GET /ssi.shtml HTTP/1.0 |
EOF |
EOF |
Line 33 EOF
|
Line 31 EOF
|
); |
); |
$t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => "2\n\n" } ]; |
$t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => "2\n\n" } ]; |
ok($tf->handle_http($t) == 0, 'ssi - echo '); |
ok($tf->handle_http($t) == 0, 'ssi - echo '); |
|
|
|
|
|
$t->{REQUEST} = ( <<EOF |
|
GET /ssi-include.shtml HTTP/1.0 |
|
EOF |
|
); |
|
$t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => "/ssi-include.shtml\n/ssi-include.shtml\n/ssi-include.shtml\nssi-include\n\nssi-include\n\n" } ]; |
|
ok($tf->handle_http($t) == 0, 'ssi - include'); |
|
|
|
|
ok($tf->stop_proc == 0, "Stopping lighttpd"); |
ok($tf->stop_proc == 0, "Stopping lighttpd"); |