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
|
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestRequest;
use Apache::TestUtil;
my $tests = 3;
plan tests => $tests, need need_lwp, need_module('headers', 'ssl');
Apache::TestRequest::scheme('https');
my $h = HEAD_STR "/modules/headers/ssl/";
# look for 500 when mod_headers doesn't grok the %s tag
if ($h =~ /^HTTP\/1.1 500 Internal Server Error\n/) {
foreach (1..$tests) {
skip "Skipping because mod_headers doesn't grok %s\n";
}
exit 0;
}
$h =~ s/Client-Bad-Header-Line:.*$//g;
ok t_cmp($h, qr/X-SSL-Flag: on/, "SSLFlag header set");
ok t_cmp($h, qr/X-SSL-Cert:.*END CERTIFICATE-----/, "SSL certificate is unwrapped");
ok t_cmp($h, qr/X-SSL-None: \(null\)\n/, "unknown SSL variable not given");
|
