summaryrefslogtreecommitdiffstats
path: root/debian/perl-framework/t/apache/if_sections.t
blob: 12d591addee22086dde0903999b147af2b718d81 (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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
use strict;
use warnings FATAL => 'all';

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

#
# Test <If > section merging
#

plan tests => (have_min_apache_version('2.4.26') ? 23 : 11) * 2,
                  need need_lwp,
                  need_module('mod_headers'),
                  need_module('mod_proxy'),
                  need_module('mod_proxy_http'),
                  need_min_apache_version('2.3.8');


sub do_test
{
    my $url = shift;
    my $set = shift;
    my $expect = shift;

    $url = "/if_sec$url";

    my @headers_to_set = split(/\s+/, $set);
    my @headers = map { ("In-If$_" => 1) } @headers_to_set;

    my $response = GET($url, @headers);
    print "# $url with '$set':\n";
    ok t_cmp($response->code, 200);
    ok t_cmp($response->header("Out-Trace"), $expect);
}

do_test('/',                '',         undef); 
do_test('/foo.if_test',     '',         undef); 
do_test('/foo.if_test',     '1',        'global1');

if (have_min_apache_version('2.4.26')) {
    do_test('/foo.if_test',     '1 11',     'global1, nested11, nested113');
    do_test('/foo.if_test',     '1 11 111', 'global1, nested11, nested111');
    do_test('/foo.if_test',     '1 11 112', 'global1, nested11, nested112');
}

do_test('/foo.if_test',     '1 2',      'global1, files2');
do_test('/dir/foo.txt',     '1 2',      'global1, dir1, dir2, dir_files1');
do_test('/dir/',            '1 2',      'global1, dir1, dir2');

if (have_min_apache_version('2.4.26')) {
    do_test('/dir/',            '1 11',     'global1, dir1, nested11, nested113');
    do_test('/dir/',            '1 11 111', 'global1, dir1, nested11, nested111');
    do_test('/dir/',            '1 11 112', 'global1, dir1, nested11, nested112');
}

do_test('/loc/',            '1 2',      'global1, loc1, loc2');
do_test('/loc/foo.txt',     '1 2',      'global1, loc1, loc2');

if (have_min_apache_version('2.4.26')) {
    do_test('/loc/',            '1 11',     'global1, loc1, nested11, nested113');
    do_test('/loc/',            '1 11 111', 'global1, loc1, nested11, nested111');
    do_test('/loc/',            '1 11 112', 'global1, loc1, nested11, nested112');
}

do_test('/loc/foo.if_test', '1 2',      'global1, files2, loc1, loc2');

if (have_min_apache_version('2.4.26')) {
    do_test('/loc/foo.if_test', '1 2 11',     'global1, files2, loc1, loc2, nested11, nested113');
    do_test('/loc/foo.if_test', '1 2 11 111', 'global1, files2, loc1, loc2, nested11, nested111');
    do_test('/loc/foo.if_test', '1 2 11 112', 'global1, files2, loc1, loc2, nested11, nested112');
}

do_test('/proxy/',          '1 2',      'global1, locp1, locp2');
do_test('/proxy/',          '2',        'locp2');