3 # add current source dir to the include-path
4 # we need this for make distcheck
5 (my $srcdir = $0) =~ s
,/[^/]+$,/,;
11 use Test
::More tests
=> 6;
14 my $tf = LightyTest
->new();
17 ok
($tf->start_proc == 0, "Starting lighttpd") or die();
19 $t->{REQUEST
} = ( <<EOF
20 GET /index.html~ HTTP/1.0
23 $t->{RESPONSE
} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 403 } ];
24 ok
($tf->handle_http($t) == 0, 'forbid access to ...~');
26 $t->{REQUEST
} = ( <<EOF
27 GET /index.html~/ HTTP/1.0
30 $t->{RESPONSE
} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 403 } ];
31 ok
($tf->handle_http($t) == 0, '#1230 - forbid access to ...~ - trailing slash');
33 $t->{REQUEST
} = ( <<EOF
34 GET /ssi-include.txt HTTP/1.0
35 Host: allow.example.org
38 $t->{RESPONSE
} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
39 ok
($tf->handle_http($t) == 0, 'explicitly allowed');
41 $t->{REQUEST
} = ( <<EOF
43 Host: allow.example.org
46 $t->{RESPONSE
} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 403 } ];
47 ok
($tf->handle_http($t) == 0, 'not explicitly allowed');
49 ok
($tf->stop_proc == 0, "Stopping lighttpd");