debian/perl-framework/t/security/CVE-2004-0811.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

use strict;
use warnings FATAL => 'all';

use Apache::Test;
use Apache::TestUtil;
use Apache::TestRequest;

plan tests => 8, need_apache(2);

my $rc;

foreach my $y (1..4) {
    $rc = GET_RC("/security/CAN-2004-0811/sub/");
    ok t_cmp($rc, 200, "subdir access allowed");
}

foreach my $z (1..4) {
    $rc = GET_RC("/security/CAN-2004-0811/");
    ok t_cmp($rc, 401, "topdir access denied");
}