summaryrefslogtreecommitdiffstats
path: root/debian/perl-framework/t/modules/directorymatch.t
blob: 7b4fa3846358c7d69502476e28cdf89a0beaa745 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
use strict;
use warnings FATAL => 'all';

use Apache::Test;
use Apache::TestRequest;
use Apache::TestUtil;
use Apache::TestConfig ();

## 
## directorymatch tests
##

my @ts = (
    { url => "/index.html", code => 200, hname => "DMMATCH1"},
    # TODO: PR41867 (DirectoryMatch matches files)
);

plan tests => 2* scalar @ts, have_module 'headers';

for my $t (@ts) {
  my $r = GET $t->{'url'};
  ok t_cmp($r->code, $t->{code}, "code for " . $t->{'url'});
  ok t_cmp($r->header($t->{'hname'}), "1", "check for " . $t->{'hname'});
}