← Back to branch summary

~ubuntu-branches/ubuntu/hardy/lighttpd/hardy-updates

« back to all changes in this revision

Viewing changes to tests/lowercase.t

  • Committer: Bazaar Package Importer
  • Author(s): Lukas Fittl
  • Date: 2006-10-10 13:57:38 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20061010135738-gn4pp1ut1s1g27pb
Tags: 1.4.13~r1370-1ubuntu1
* Merge from Debian unstable (Closes: Malone #64900). Remaining changes:
  - Add an additional dependency on libterm-readline-perl-perl
    (Malone #43895)

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/lowercase.t
 
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 => 10;
 
12
use LightyTest;
 
13
 
 
14
my $tf = LightyTest->new();
 
15
my $t;
 
16
 
 
17
$tf->{CONFIGFILE} = 'lowercase.conf';
 
18
    
 
19
ok($tf->start_proc == 0, "Starting lighttpd") or die();
 
20
 
 
21
## check if lower-casing works
 
22
 
 
23
$t->{REQUEST}  = ( <<EOF
 
24
GET /image.JPG HTTP/1.0
 
25
EOF
 
26
 );
 
27
$t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
 
28
ok($tf->handle_http($t) == 0, 'uppercase access');
 
29
 
 
30
$t->{REQUEST}  = ( <<EOF
 
31
GET /image.jpg HTTP/1.0
 
32
EOF
 
33
 );
 
34
$t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
 
35
ok($tf->handle_http($t) == 0, 'lowercase access');
 
36
 
 
37
## check that mod-auth works
 
38
 
 
39
$t->{REQUEST}  = ( <<EOF
 
40
GET /image.JPG HTTP/1.0
 
41
Host: lowercase-auth
 
42
EOF
 
43
 );
 
44
$t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 401 } ];
 
45
ok($tf->handle_http($t) == 0, 'uppercase access');
 
46
 
 
47
$t->{REQUEST}  = ( <<EOF
 
48
GET /image.jpg HTTP/1.0
 
49
Host: lowercase-auth
 
50
EOF
 
51
 );
 
52
$t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 401 } ];
 
53
ok($tf->handle_http($t) == 0, 'lowercase access');
 
54
 
 
55
 
 
56
## check that mod-staticfile exclude works
 
57
$t->{REQUEST}  = ( <<EOF
 
58
GET /image.JPG HTTP/1.0
 
59
Host: lowercase-exclude
 
60
EOF
 
61
 );
 
62
$t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 403 } ];
 
63
ok($tf->handle_http($t) == 0, 'upper case access to staticfile.exclude-extension');
 
64
 
 
65
$t->{REQUEST}  = ( <<EOF
 
66
GET /image.jpg HTTP/1.0
 
67
Host: lowercase-exclude
 
68
EOF
 
69
 );
 
70
$t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 403 } ];
 
71
ok($tf->handle_http($t) == 0, 'lowercase access');
 
72
 
 
73
 
 
74
## check that mod-access exclude works
 
75
$t->{REQUEST}  = ( <<EOF
 
76
GET /image.JPG HTTP/1.0
 
77
Host: lowercase-deny
 
78
EOF
 
79
 );
 
80
$t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 403 } ];
 
81
ok($tf->handle_http($t) == 0, 'uppercase access to url.access-deny protected location');
 
82
 
 
83
$t->{REQUEST}  = ( <<EOF
 
84
GET /image.jpg HTTP/1.0
 
85
Host: lowercase-deny
 
86
EOF
 
87
 );
 
88
$t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 403 } ];
 
89
ok($tf->handle_http($t) == 0, 'lowercase access');
 
90
 
 
91
 
 
92
 
 
93
ok($tf->stop_proc == 0, "Stopping lighttpd");
 
94