t/security/CVE-2004-0811.t (15 lines of code) (raw):
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");
}