debian/perl-framework/t/ssl/v2.t


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

BEGIN {
    $ENV{HTTPS_VERSION} = 2; #use SSLv2 instead of SSLv3
}

use strict;
use warnings FATAL => 'all';

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

plan tests => 1, need need_lwp,
                      { "SSLv2 test(s) not applicable" =>
                        sub { !need_min_apache_version('2.4.0') } };

Apache::TestRequest::scheme('https');

#just make sure the basics work for SSLv2
ok GET_OK('/');

#per-dir renegotiation does not work with SSLv2,
#same breakage with apache-1.3.22+mod_ssl-2.8.5
my $url = '/require/asf/index.html';

#ok GET_RC($url, cert => undef) != 200;

#ok GET_RC($url, cert => 'client_ok') == 200;

#ok GET_RC($url, cert => 'client_revoked') != 200;