28 lines
755 B
Perl
28 lines
755 B
Perl
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");
|