t/ssl/headers.t

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");